?? jm_fhdsc.dfm
字號:
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object Label8: TLabel
Left = 0
Top = 8
Width = 6
Height = 12
end
object DBG_fhd: TDBGrid
Left = 1
Top = 32
Width = 183
Height = 324
Align = alBottom
DataSource = DS_fhd
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ImeName = '微軟拼音輸入法 3.0'
ParentFont = False
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
OnDrawColumnCell = DBG_fhdDrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'FHDH'
Title.Caption = '發貨單號'
Visible = True
end
item
Expanded = False
FieldName = 'DWMC'
Title.Caption = '發往單位'
Width = 93
Visible = True
end
item
Expanded = False
FieldName = 'KDRQ'
Title.Caption = '發貨日期'
Width = 71
Visible = True
end>
end
object CBo_checked: TCheckBox
Left = 4
Top = 8
Width = 149
Height = 17
Caption = '顯示未勾核發貨單'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = CBo_checkedClick
end
end
end
object DS_fhd: TDataSource
DataSet = rxQry_fhd
Left = 84
Top = 164
end
object DS_ckpp: TDataSource
DataSet = RxQry_ckpp
Left = 309
Top = 200
end
object rxQry_fhd: TRxQuery
CachedUpdates = True
DatabaseName = 'YZPP'
RequestLive = True
SQL.Strings = (
'select a.FHDH, a.YJDH, a.CKXZ, a.QXDW, a.KDRQ, a.ZTZT, '
' a.GHRQ, a.JSZT, a.ZPRQ, a.FZDS, a.CKRQ, a.DJRQ, a.ZGR, '
' a.KGY, a.HDR, a.ZBR, a.BZ, a.SDATE,'
' b.DWMC, c.RCKXZMC'
'from TM_HTCKD a, '
'(select DWDM,DWMC from tgs_gxdwsjb where DWDM > 0'
' union'
' select YGDM,YGMC from tgs_ryb) b, TGS_JRCKXZDM c'
'where %TJ'
'order by a.FHDH desc')
UpdateObject = UpdateSQL1
Macros = <
item
DataType = ftString
Name = 'TJ'
ParamType = ptInput
Value = '0=0'
end>
Left = 56
Top = 161
end
object RxQry_ckpp: TQuery
CachedUpdates = True
BeforeInsert = RxQry_ckppBeforeInsert
DatabaseName = 'YZPP'
DataSource = DS_fhd
RequestLive = True
SQL.Strings = (
'select FHDH, LB,lb LBMC, PPDM, JJ, SL, YJ, XJ, '
' JSJ, ZK, ZH, PPMC,KFDM '
' from TM_HTCKPP '
' where FHDH=:FHDH')
UpdateObject = UpdateSQL2
Left = 280
Top = 201
ParamData = <
item
DataType = ftUnknown
Name = 'FHDH'
ParamType = ptUnknown
end>
object RxQry_ckppFHDH: TStringField
FieldName = 'FHDH'
end
object RxQry_ckppLB: TStringField
FieldName = 'LB'
Size = 5
end
object RxQry_ckppPPDM: TStringField
FieldName = 'PPDM'
Size = 15
end
object RxQry_ckppJJ: TFloatField
FieldName = 'JJ'
OnGetText = RxQry_ckppJJGetText
OnSetText = RxQry_ckppJJSetText
end
object RxQry_ckppSL: TFloatField
FieldName = 'SL'
DisplayFormat = '#,##'
EditFormat = '#'
end
object RxQry_ckppYJ: TFloatField
FieldName = 'YJ'
end
object RxQry_ckppXJ: TFloatField
FieldName = 'XJ'
OnGetText = RxQry_ckppXJGetText
OnSetText = RxQry_ckppXJSetText
end
object RxQry_ckppJSJ: TFloatField
FieldName = 'JSJ'
end
object RxQry_ckppZK: TFloatField
FieldName = 'ZK'
end
object RxQry_ckppZH: TStringField
FieldName = 'ZH'
Size = 16
end
object RxQry_ckppPPMC: TStringField
FieldName = 'PPMC'
Size = 120
end
object RxQry_ckppKFDM: TStringField
FieldName = 'KFDM'
Origin = 'YZPP.TM_HTCKPP.KFDM'
Size = 3
end
end
object UpdateSQL1: TUpdateSQL
DeleteSQL.Strings = (
'delete from TM_HTCKD'
'where'
' FHDH = :OLD_FHDH ')
Left = 112
Top = 165
end
object UpdateSQL2: TUpdateSQL
ModifySQL.Strings = (
'update TM_HTCKPP'
'set'
' SL = :SL'
'where'
' FHDH = :OLD_FHDH'
' and LB=:OLD_LB'
' and PPDM=:OLD_PPDM'
' and KFDM=:OLD_KFDM')
DeleteSQL.Strings = (
'delete from TM_HTCKPP'
'where'
' FHDH = :OLD_FHDH'
'')
Left = 333
Top = 201
end
object Qry_kcsl: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select * from tm_htkc')
Left = 305
Top = 229
end
object SqlStrings1: TSqlStrings
jyp_Sql.Strings = (
'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
'n.bz,N.KFDM from'
'(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_jyppkc a,'
'(select ppdm,jj,sum(ts) ts,kfdm from'
' (select a.ppdm,a.jj,a.sl ts,a.kf' +
'dm from tks_jyckpp a,tks_jyfhd b'
' where a.fhdh=b.fhdh and b.hdr i' +
's null and a.kfdm=:KFDM'
' union all'
' select a.ppdm,a.jj,a.sl ts,a.kf' +
'dm from tm_htckpp a,tm_htckd b'
' where a.fhdh=b.fhdh and a.lb='#39'0' +
#39' and b.ghrq is null and kfdm=:KFDM)'
'group by ppdm,jj,kfdm ) b'
'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
'fdm(+)=a.kfdm) n,tb_yzppxxb m'
'where n.ppdm=m.tdm and ts>0'
'order by ppdm,jj,zh'
' ')
yp_Sql.Strings = (
'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
'n.bz,N.KFDM from'
'(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_yppkc a,'
'(select ppdm,jj,sum(ts) ts,kfdm from'
' (select a.ppdm,a.jj,a.sl ts,a.kf' +
'dm from tks_ypckpp a,tks_ypfhd b'
' where a.fhdh=b.fhdh and b.hdr i' +
's null and a.kfdm=:KFDM'
' union all'
' select a.ppdm,a.jj,a.sl ts,a.kf' +
'dm from tm_htckpp a,tm_htckd b'
' where a.fhdh=b.fhdh and a.lb='#39'1' +
#39' and b.ghrq is null and kfdm=:KFDM)'
'group by ppdm,jj,kfdm ) b'
'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
'fdm(+)=a.kfdm) n,tb_yzppxxb m'
'where n.ppdm=m.tdm and ts>0'
'order by ppdm,jj,zh')
grp_Sql.Strings = (
'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
'n.bz,N.KFDM from '
'(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_grppkc a,'
'(select ppdm,jj,sum(ts) ts,kfdm from '
' (select a.ppdm,a.jj,a.sl ts,a.kf' +
'dm from tks_grpckpp a,tks_grpfhd b'
' where a.fhdh=b.fhdh and b.hdr i' +
's null and a.kfdm=:KFDM'
' union all'
' select a.ppdm,a.jj,a.sl ts,a.kf' +
'dm from tm_htckpp a,tm_htckd b'
' where a.fhdh=b.fhdh and a.lb='#39'2' +
#39' and b.ghrq is null and kfdm=:KFDM)'
'group by ppdm,jj,kfdm ) b'
'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
'fdm(+)=a.kfdm) n,tb_yzppxxb m'
'where n.ppdm=m.tdm and ts>0'
'order by ppdm,jj,zh')
Left = 72
Top = 204
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -