📄 sy_ck_jyp.dfm
字号:
end
end
end
end
end
object Panel3: TPanel
Left = 0
Top = 449
Width = 725
Height = 37
Align = alBottom
BevelOuter = bvLowered
TabOrder = 1
object bbtn_Close: TBitBtn
Left = 611
Top = 6
Width = 75
Height = 25
Hint = '返回'
Caption = '返回(&X)'
ModalResult = 3
TabOrder = 4
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object bbtn_Print: TBitBtn
Left = 511
Top = 6
Width = 75
Height = 25
Caption = '打印(&P)'
TabOrder = 3
OnClick = bbtn_PrintClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object bbtn_QP: TBitBtn
Tag = 201
Left = 312
Top = 6
Width = 75
Height = 25
Caption = '签批(&H)'
TabOrder = 1
OnClick = bbtn_QPClick
Glyph.Data = {
36020000424D3602000000000000360000002800000010000000100000000100
10000000000000020000000000000000000000000000000000001F7C1F7CE07F
E07FE07FE07FE07FE07FE07FE07FE07FE07FE07FE07F1F7C1F7C1F7C1F7CE07F
E07F00000000E07FE07FE07FE07FE07FE07FE07FE07F1F7C1F7C1F7C1F7CE07F
E07F0000E07FE07FE07FE07FE07FE07F0000E07FE07F1F7C1F7C1F7C1F7CE07F
E07FE07F0000E07FE07FE07FE07F000000000000E07F1F7C1F7C1F7C1F7CE07F
E07FE07F00000000E07FE07F00000000E07FE07FE07F1F7C1F7C1F7C1F7CE07F
E07FE07FE07F0000E07F00000000E07FE07FE07FE07F1F7C1F7C1F7C1F7CE07F
E07FE07FE07F000000000000E07FE07FE07FE07FE07F1F7C1F7C1F7C1F7CFF03
FF03FF03FF03000000000000FF03FF03FF03FF03FF031F7C1F7C1F7C1F7CFF03
FF030000FF03F75E0000000000000000FF03FF03FF031F7C1F7C1F7C1F7CFF03
FF03FF030000F75E00000000FF03FF03FF03FF03FF031F7C1F7C1F7C1F7CFF03
FF03FF03FF03000000000000FF03FF03FF03FF03FF031F7C1F7C1F7C1F7CFF03
FF03FF03FF03FF0300000000FF03FF03FF03FF03FF031F7C1F7C1F7C1F7CFF03
FF03FF03FF03FF03FF0300000000FF03FF03FF03FF031F7C1F7C1F7C1F7CFF03
FF03FF03FF03FF03FF0300000000FF03FF03FF03FF031F7C1F7C1F7C1F7CFF03
FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF031F7C1F7C1F7C1F7CFF03
FF03FF03FF03FF03FF03FF03FF03FF03FF03FF03FF031F7C1F7C}
end
object bbtn_Search: TBitBtn
Left = 227
Top = 6
Width = 75
Height = 25
Hint = '选择已经存在的施工通知单'
Anchors = [akRight, akBottom]
Caption = '查询(&F)'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = bbtn_SearchClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000
FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000FF00
00FF0000FF0000FF00FFFF0000FFFFFFFF0000FF0000FF0000FF00FFFF00FFFF
00FFFF00FFFF00FFFF0000FFFFFFFF0000FF0000FF0000FF00FFFF0000FFFFFF
FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FFFFFFFF00
00FF0000FF0000FF00FFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
00FFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00FFFF0000FF0000
FFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFF0000FF0000FF00
00FF0000FF0000FF00FFFF0000FF0000FFFFFFFF0000FF0000FF0000FF00FFFF
0000FF0000FFFFFFFF0000FF0000FF0000FF0000FF0000FF00FFFF0000FF0000
FFFFFFFF0000FF0000FF0000FF00FFFF0000FF0000FFFFFFFF0000FF0000FF00
00FF0000FF0000FF00FFFF00FFFF0000FF0000FF0000FF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FF
FF0000FFFFFFFF0000FF0000FF0000FF00FFFF0000FFFFFFFF0000FF0000FF00
00FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000FF0000FF0000FF0000FF
00FFFF0000FF0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF0000FF0000FF0000FF00FFFF00FFFF00FFFF0000FF0000FF0000FF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000FFFFFFFF0000FF00FFFF
00FFFF00FFFF0000FFFFFFFF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF0000FF0000FF0000FF00FFFF00FFFF00FFFF0000FF0000FF0000FF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
end
object bbtn_CancelQP: TBitBtn
Tag = 201
Left = 412
Top = 6
Width = 75
Height = 25
Caption = '取消签批'
TabOrder = 2
OnClick = bbtn_CancelQPClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object dbnv_List: TDBNavigator
Left = 509
Top = 26
Width = 200
Height = 21
DataSource = ds_List
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Flat = True
TabOrder = 2
end
object qry_List: TQuery
CachedUpdates = True
AfterScroll = qry_ListAfterScroll
DatabaseName = 'yzpp'
SQL.Strings = (
'select distinct c.TYPE, b.CKJHDH, b.CKXZ, '#39'分配出库'#39' CKXZMC, b.Z' +
'BR, b.PZR, b.ZDRQ, b.BZ, b.ZT, c.ZH, a.PPMC '
' from TYS_TXCKJHDPPB a, TYS_TXPCKJHDB b, TB_YZPPXXB c where a.CK' +
'JHDH = b.CKJHDH and a.PPDM = c.TDM and b.CKXZ= '#39'10'#39)
UpdateObject = usql_List
Left = 175
Top = 6
end
object ds_List: TDataSource
DataSet = qry_List
Left = 205
Top = 6
end
object qry_Detail: TQuery
CachedUpdates = True
BeforeInsert = qry_DetailBeforeInsert
BeforePost = qry_DetailBeforePost
DatabaseName = 'yzpp'
RequestLive = True
SQL.Strings = (
'select a.CKJHDH, a.DWDM, a.PPDM, a.KFDM, a.PPMC, a.JJ /100 JJ, a' +
'.XJ/100 XJ, a.ZK, '
' decode(a.JSJ,null, (a.ZK/100) * a.XJ* a.FPSL , 0, (a.ZK/100) ' +
'* a.XJ* a.FPSL ,a.JSJ* a.FPSL)/100 JSJE, '
' a.XJ* a.FPSL/100 CKZJE, a.JSJ/100 JSJ, a.FPSL, a.FPSL FPSL_OLD ' +
', '
' a.SDATE, b.DWJC DWMC, c.KFMC from TYS_TXCKJHDPPB a, TGS_GXDWS' +
'JB b, TGS_KFB c '
' where a.DWDM = b.DWDM and c.KFDM = a.KFDM ')
UpdateObject = usql_Detail
Left = 550
Top = 11
object qry_DetailCKJHDH: TStringField
FieldName = 'CKJHDH'
Origin = 'YZPP.TYS_TXCKJHDPPB.CKJHDH'
Size = 10
end
object qry_DetailDWDM: TStringField
FieldName = 'DWDM'
Origin = 'YZPP.TYS_TXCKJHDPPB.DWDM'
Size = 8
end
object qry_DetailPPDM: TStringField
FieldName = 'PPDM'
Origin = 'YZPP.TYS_TXCKJHDPPB.PPDM'
Size = 13
end
object qry_DetailKFDM: TStringField
FieldName = 'KFDM'
Origin = 'YZPP.TYS_TXCKJHDPPB.KFDM'
Size = 3
end
object qry_DetailPPMC: TStringField
FieldName = 'PPMC'
Origin = 'YZPP.TYS_TXCKJHDPPB.PPMC'
Size = 60
end
object qry_DetailMZ: TFloatField
FieldName = 'JJ'
Origin = 'YZPP.TYS_TXCKJHDPPB.MZ'
OnGetText = qry_DetailJSJGetText
DisplayFormat = '￥#,##0.00'
end
object qry_DetailSJ: TFloatField
FieldName = 'XJ'
Origin = 'YZPP.TYS_TXCKJHDPPB.SJ'
OnGetText = qry_DetailMZGetText
DisplayFormat = '￥#,##0.00'
end
object qry_DetailZK: TFloatField
FieldName = 'ZK'
Origin = 'YZPP.TYS_TXCKJHDPPB.ZK'
OnSetText = qry_DetailZKSetText
end
object qry_DetailJSJ: TFloatField
FieldName = 'JSJ'
Origin = 'YZPP.TYS_TXCKJHDPPB.JSJ'
OnGetText = qry_DetailJSJGetText
OnSetText = qry_DetailJSJSetText
DisplayFormat = '￥#,##0.00'
end
object qry_DetailFPSL: TFloatField
FieldName = 'FPSL'
Origin = 'YZPP.TYS_TXCKJHDPPB.FPSL'
OnGetText = qry_DetailFPSLGetText
OnSetText = qry_DetailFPSLSetText
OnValidate = qry_DetailFPSLValidate
DisplayFormat = '#,##0'
EditFormat = '#0'
end
object qry_DetailFPSL_OLD: TFloatField
FieldName = 'FPSL_OLD'
Origin = 'YZPP.TYS_TXCKJHDPPB.FPSL'
end
object qry_DetailSDATE: TDateTimeField
FieldName = 'SDATE'
Origin = 'YZPP.TYS_TXCKJHDPPB.SDATE'
end
object qry_DetailDWMC: TStringField
FieldName = 'DWMC'
Origin = 'YZPP.TGS_GXDWSJB.DWMC'
Size = 40
end
object qry_DetailKFMC: TStringField
FieldName = 'KFMC'
Origin = 'YZPP.TGS_KFB.KFMC'
Size = 30
end
object qry_DetailJSJE: TFloatField
FieldName = 'JSJE'
Origin = 'YZPP.TYS_TXCKJHDPPB.JSJ'
OnGetText = qry_DetailJSJGetText
end
object qry_DetailCKZJE: TFloatField
FieldName = 'CKZJE'
Origin = 'YZPP.TYS_TXCKJHDPPB.SJ'
OnGetText = qry_DetailJSJGetText
end
end
object ds_Detail: TDataSource
DataSet = qry_Detail
Left = 580
Top = 11
end
object usql_Detail: TUpdateSQL
ModifySQL.Strings = (
'update TYS_TXCKJHDPPB'
'set'
' CKJHDH = :CKJHDH,'
' DWDM = :DWDM,'
' PPDM = :PPDM,'
' KFDM = :KFDM,'
' PPMC = :PPMC,'
' JJ = :JJ,'
' XJ = :XJ,'
' ZK = :ZK,'
' JSJ = :JSJ,'
' FPSL = :FPSL,'
' SDATE = :SDATE'
'where'
' CKJHDH = :OLD_CKJHDH and'
' DWDM = :OLD_DWDM and'
' PPDM = :OLD_PPDM and'
' KFDM = :OLD_KFDM')
InsertSQL.Strings = (
'insert into TYS_TXCKJHDPPB'
' (CKJHDH, DWDM, PPDM, KFDM, PPMC, JJ, XJ, ZK, JSJ, FPSL, SDATE)'
'values'
' (:CKJHDH, :DWDM, :PPDM, :KFDM, :PPMC, :JJ, :XJ, :ZK, :JSJ, :FP' +
'SL, :SDATE)')
DeleteSQL.Strings = (
'delete from TYS_TXCKJHDPPB'
'where'
' CKJHDH = :OLD_CKJHDH and'
' DWDM = :OLD_DWDM and'
' PPDM = :OLD_PPDM and'
' KFDM = :OLD_KFDM')
Left = 610
Top = 11
end
object usql_List: TUpdateSQL
ModifySQL.Strings = (
'update TYS_TXPCKJHDB'
'set'
' CKJHDH = :CKJHDH,'
' CKXZ = :CKXZ,'
' ZBR = :ZBR,'
' PZR = :PZR,'
' ZDRQ = :ZDRQ,'
' BZ = :BZ,'
' ZT = :ZT'
'where'
' CKJHDH = :OLD_CKJHDH')
InsertSQL.Strings = (
'insert into TYS_TXPCKJHDB'
' (CKJHDH, CKXZ, ZBR, PZR, ZDRQ, BZ, ZT)'
'values'
' (:CKJHDH, :CKXZ, :ZBR, :PZR, :ZDRQ, :BZ, :ZT)')
DeleteSQL.Strings = (
'delete from TYS_TXPCKJHDB'
'where'
' CKJHDH = :OLD_CKJHDH')
Left = 234
Top = 6
end
object sp_DH: TStoredProc
DatabaseName = 'yzpp'
StoredProcName = 'PUBLIC_PROCESS.GET_NO'
Left = 266
Top = 7
ParamData = <
item
DataType = ftString
Name = 'Result'
ParamType = ptResult
end
item
DataType = ftString
Name = 'BILLID'
ParamType = ptInput
end
item
DataType = ftString
Name = 'SORTCODE'
ParamType = ptInput
end
item
DataType = ftString
Name = 'DEPARTMENT'
ParamType = ptInput
end
item
DataType = ftString
Name = 'CYEAR'
ParamType = ptInput
end>
end
object qry_Tmp: TQuery
DatabaseName = 'yzpp'
Left = 535
Top = 306
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -