📄 basepay.dfm
字号:
Top = 2
Width = 98
Height = 26
Caption = #21478#22806#22870#21169
TabOrder = 14
end
object Edit7: TEdit
Left = 664
Top = 29
Width = 98
Height = 19
Color = clInfoBk
Ctl3D = False
ParentCtl3D = False
TabOrder = 15
Text = 'Edit7'
end
end
object Button1: TButton
Left = 361
Top = 364
Width = 75
Height = 25
Caption = #20445#23384
TabOrder = 2
OnClick = Button1Click
end
object btn_prt: TButton
Left = 436
Top = 364
Width = 76
Height = 25
Caption = #25171#21360#24037#36164
TabOrder = 3
OnClick = btn_prtClick
end
end
end
object btn_backtobase: TButton
Left = 256
Top = 387
Width = 107
Height = 25
Caption = #22238#22522#26412#20449#24687#39029
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btn_backtobaseClick
end
object qbasep: TQuery
CachedUpdates = True
AfterOpen = qbasepAfterOpen
OnCalcFields = qbasepCalcFields
AutoRefresh = True
DatabaseName = 'zxjx_jxw'
RequestLive = True
SQL.Strings = (
'select a.*,b.'#22995#21517',b.'#23703#20301',c.'#20840#21220#22870#21169',c.'#26412#26376#28385#21220#22825#25968',c.'#20027#31649',c.'#23457#26680',c.'#24405#20837',c.'#21150#20107#22788#21517#31216',c.'#24405#20837 +
#26085#26399
'from pub_z_payin a,pub_z_stuff b,pub_z_payinbase c '
'where c.'#24180'=:year and c.'#26376'=:month'
'and c.'#24180'=a.'#24180' and c.'#26376'=a.'#26376
'and a.'#24037#21495'=b.'#24037#21495
'and c.'#21150#20107#22788#21517#31216'=b.'#21150#20107#22788#21517#31216
'and c.'#21150#20107#22788#21517#31216'=:office')
UpdateObject = UpdateSbasep
Left = 551
Top = 65524
ParamData = <
item
DataType = ftString
Name = 'year'
ParamType = ptUnknown
Value = ''
end
item
DataType = ftString
Name = 'month'
ParamType = ptUnknown
Value = ''
end
item
DataType = ftString
Name = 'office'
ParamType = ptUnknown
Value = ''
end>
object qbasepBDEDesigner: TAutoIncField
FieldName = #24207#21495
Origin = 'ZXJX_JXW.pub_z_payin.'#24207#21495
end
object qbasepBDEDesigner2: TStringField
FieldName = #24037#21495
Origin = 'ZXJX_JXW.pub_z_payin.'#24037#21495
FixedChar = True
end
object qbasepBDEDesigner3: TIntegerField
FieldName = #32570#21220#22825#25968
Origin = 'ZXJX_JXW.pub_z_payin.'#32570#21220#22825#25968
end
object qbasepBDEDesigner4: TCurrencyField
FieldKind = fkCalculated
FieldName = #20840#21220#22870
Origin = 'ZXJX_JXW.pub_z_payin.'#20840#21220#22870
Calculated = True
end
object qbasepBDEDesigner5: TCurrencyField
FieldName = #24212#34917#21161#37329#39069
Origin = 'ZXJX_JXW.pub_z_payin.'#24212#34917#21161#37329#39069
end
object qbasepBDEDesigner7: TCurrencyField
FieldName = #24212#21457
Origin = 'ZXJX_JXW.pub_z_payin.'#24212#21457
end
object qbasepBDEDesigner8: TCurrencyField
FieldName = #23454#21457
Origin = 'ZXJX_JXW.pub_z_payin.'#23454#21457
end
object qbasepBDEDesigner9: TCurrencyField
FieldName = #24212#25187
Origin = 'ZXJX_JXW.pub_z_payin.'#24212#25187
end
object qbasepBDEDesigner10: TStringField
FieldName = #24180
Origin = 'ZXJX_JXW.pub_z_payin.'#24180
FixedChar = True
Size = 8
end
object qbasepBDEDesigner11: TStringField
FieldName = #26376
Origin = 'ZXJX_JXW.pub_z_payin.'#26376
FixedChar = True
Size = 4
end
object qbasepBDEDesigner12: TCurrencyField
DefaultExpression = '0'
FieldName = #21478#22806#22870#21169
Origin = 'ZXJX_JXW.pub_z_payin.'#21478#22806#22870#21169
end
object qbasepBDEDesigner13: TCurrencyField
DefaultExpression = '0'
FieldName = #21478#22806#25187#38500
Origin = 'ZXJX_JXW.pub_z_payin.'#21478#22806#25187#38500
end
object qbasepBDEDesigner14: TStringField
FieldName = #22995#21517
Origin = 'ZXJX_JXW.pub_z_stuff.'#22995#21517
FixedChar = True
end
object qbasepBDEDesigner15: TStringField
FieldName = #23703#20301
Origin = 'ZXJX_JXW.pub_z_stuff.'#23703#20301
FixedChar = True
end
object qbasepBDEDesigner16: TCurrencyField
FieldName = #20840#21220#22870#21169
Origin = 'ZXJX_JXW.pub_z_payinbase.'#20840#21220#22870#21169
end
object qbasepBDEDesigner17: TIntegerField
FieldName = #26412#26376#28385#21220#22825#25968
Origin = 'ZXJX_JXW.pub_z_payinbase.'#26412#26376#28385#21220#22825#25968
end
object qbasepcal: TFloatField
DisplayLabel = #24212#25187
FieldKind = fkCalculated
FieldName = 'cal'#24212#25187
Calculated = True
end
object qbasepcal2: TFloatField
DisplayLabel = #23454#21457
FieldKind = fkCalculated
FieldName = 'cal'#23454#21457
Calculated = True
end
object qbasepBDEDesigner18: TStringField
FieldName = #21150#20107#22788#21517#31216
Origin = 'ZXJX_JXW.pub_z_payinbase.'#24180
FixedChar = True
end
object qbasepBDEDesigner19: TStringField
FieldName = #20027#31649
Origin = 'ZXJX_JXW.pub_z_payinbase.'#24405#20837#26085#26399
FixedChar = True
end
object qbasepBDEDesigner20: TStringField
FieldName = #23457#26680
Origin = 'ZXJX_JXW.pub_z_stuff.'#22995#21517
FixedChar = True
end
object qbasepBDEDesigner21: TStringField
FieldName = #24405#20837
Origin = 'ZXJX_JXW.pub_z_stuff.'#23703#20301
FixedChar = True
end
object qbasepBDEDesigner22: TDateTimeField
FieldName = #24405#20837#26085#26399
Origin = 'ZXJX_JXW.pub_z_payinbase.'#20840#21220#22870#21169
end
end
object dsbasep: TDataSource
DataSet = qbasep
Left = 504
Top = 65525
end
object UpdateSbasep: TUpdateSQL
ModifySQL.Strings = (
'update pub_z_payin'
'set'
' '#32570#21220#22825#25968' = :'#32570#21220#22825#25968','
' '#20840#21220#22870' = :'#20840#21220#22870','
' '#24212#34917#21161#37329#39069' = :'#24212#34917#21161#37329#39069','
' '#24212#21457' = :'#24212#21457','
' '#23454#21457' = :'#23454#21457','
' '#24212#25187' = :'#24212#25187','
' '#21478#22806#22870#21169' = :'#21478#22806#22870#21169','
' '#21478#22806#25187#38500' = :'#21478#22806#25187#38500
'where'
' '#24037#21495' = :OLD_'#24037#21495' and'
' '#24180' = :OLD_'#24180' and'
' '#26376' = :OLD_'#26376)
InsertSQL.Strings = (
'insert into pub_z_payin'
' ('#32570#21220#22825#25968', '#20840#21220#22870', '#24212#34917#21161#37329#39069', '#24212#21457', '#23454#21457', '#24212#25187', '#21478#22806#22870#21169', '#21478#22806#25187#38500')'
'values'
' (:'#32570#21220#22825#25968', :'#20840#21220#22870', :'#24212#34917#21161#37329#39069', :'#24212#21457', :'#23454#21457', :'#24212#25187', :'#21478#22806#22870#21169', :'#21478#22806#25187#38500')')
DeleteSQL.Strings = (
'delete from pub_z_payin'
'where'
' '#24037#21495' = :OLD_'#24037#21495' and'
' '#24180' = :OLD_'#24180' and'
' '#26376' = :OLD_'#26376)
Left = 605
Top = 65521
end
object quse: TQuery
CachedUpdates = True
AutoRefresh = True
DatabaseName = 'zxjx_jxw'
RequestLive = True
Left = 458
Top = 65523
end
object qgatherbasepay: TQuery
CachedUpdates = True
AutoRefresh = True
DatabaseName = 'zxjx_jxw'
Constrained = True
SQL.Strings = (
'select a.'#21150#20107#22788#21517#31216',a.'#24180',a.'#26376',sum(a.'#32463#29702#20323#37329'_'#26412#26399')+sum(a.'#19994#21153#21592#20323#37329'_'#26412#26399')+sum(a.'#19994#21153#37096#25552 +
#25104'_'#26412#26399')+sum(a.'#32500#20462#20154#21592#20323#37329'_'#26412#26399')+sum(a.'#23458#25143#26381#21153#37096#25552#25104'_'#26412#26399') as '#20323#37329',sum(b.'#24212#34917#21161#37329#39069') as '#34917 +
#21161',sum(b.'#20840#21220#22870') as '#20840#21220#22870',sum(a.'#32463#29702#20323#37329'_'#26412#26399')+sum(a.'#19994#21153#21592#20323#37329'_'#26412#26399')+sum(a.'#19994#21153#37096#25552#25104'_'#26412 +
#26399')+sum(a.'#32500#20462#20154#21592#20323#37329'_'#26412#26399')+sum(a.'#23458#25143#26381#21153#37096#25552#25104'_'#26412#26399')+sum(b.'#24212#34917#21161#37329#39069')+sum(b.'#20840#21220#22870') as' +
' '#21512#35745
'from crttbl_officepay a,pub_z_payin b,pub_z_stuff c'
'where a.'#24180'=:gatheryear and a.'#26376'=:gathermonth'
'and a.'#24180'=b.'#24180' and a.'#26376'=b.'#26376
'and b.'#24037#21495'=c.'#24037#21495
'and c.'#21150#20107#22788#21517#31216'=a.'#21150#20107#22788#21517#31216
'group by a.'#21150#20107#22788#21517#31216',a.'#24180',a.'#26376
'with rollup')
Left = 673
Top = 65523
ParamData = <
item
DataType = ftString
Name = 'gatheryear'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'gathermonth'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -