📄 pay500_01.dfm.svn-base
字号:
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 0
OnChange = cbYearChange
end
object cbMonth: TComboBox
Left = 292
Top = 9
Width = 67
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 1
OnChange = cbMonthChange
end
object cbType: TComboBox
Left = 432
Top = 9
Width = 142
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 2
OnChange = cbTypeChange
end
end
object PopupMenu1: TPopupMenu
Left = 592
Top = 16
object mmiPrint: TMenuItem
Action = ActPrint
end
object mmiExport: TMenuItem
Action = ActExport
end
end
object dsPay500: TDataSource
DataSet = qryPay500
Left = 32
Top = 144
end
object ActionList1: TActionList
Images = SYSDM.imgBtn
Left = 424
Top = 72
object ActFirst: TAction
Caption = #26368#21069
Hint = #31227#21040#31532#19968#26465#35760#24405
ImageIndex = 0
ShortCut = 32838
OnExecute = ActFirstExecute
end
object ActPrior: TAction
Caption = #19978#31227
Hint = #31227#21040#19978#19968#26465#35760#24405
ImageIndex = 1
ShortCut = 32848
OnExecute = ActPriorExecute
end
object ActNext: TAction
Caption = #19979#31227
Hint = #31227#21040#19979#19968#26465#35760#24405
ImageIndex = 2
ShortCut = 32846
OnExecute = ActNextExecute
end
object ActLast: TAction
Caption = #26368#21518
Hint = #31227#21040#26368#21518#19968#26465#35760#24405
ImageIndex = 3
ShortCut = 32844
OnExecute = ActLastExecute
end
object ActInsert: TAction
Caption = #26032#22686
Hint = #26032#22686#19968#26465#35760#24405
ImageIndex = 4
ShortCut = 32833
OnExecute = ActInsertExecute
end
object ActUpdate: TAction
Caption = #20462#25913
Hint = #20462#25913#24403#21069#35760#24405
ImageIndex = 5
ShortCut = 32837
OnExecute = ActUpdateExecute
end
object ActDelete: TAction
Caption = #21024#38500
Hint = #21024#38500#24403#21069#35760#24405
ImageIndex = 6
ShortCut = 32836
OnExecute = ActDeleteExecute
end
object ActSave: TAction
Caption = #20445#23384
Enabled = False
Hint = #20445#23384#32534#36753#30340#35760#24405
ImageIndex = 7
ShortCut = 32851
OnExecute = ActSaveExecute
end
object ActCancel: TAction
Caption = #21462#28040
Enabled = False
Hint = #21462#28040#32534#36753#30340#35760#24405
ImageIndex = 8
ShortCut = 32835
OnExecute = ActCancelExecute
end
object ActRefresh: TAction
Caption = #21047#26032
Hint = #21462#24471#26368#26032#30340#25968#25454
ImageIndex = 9
ShortCut = 32850
OnExecute = ActRefreshExecute
end
object ActLocate: TAction
Caption = #26597#25214
Hint = #24555#36895#23450#20301#35760#24405
ImageIndex = 10
ShortCut = 32847
OnExecute = ActLocateExecute
end
object ActSearch: TAction
Caption = #26597#35810
Hint = #25353#26465#20214#26597#35810#25968#25454
ImageIndex = 11
ShortCut = 32849
OnExecute = ActSearchExecute
end
object ActPrint: TAction
Caption = #25171#21360
Hint = #23558#25968#25454#25171#21360#20986#26469
ImageIndex = 12
ShortCut = 32848
OnExecute = ActPrintExecute
end
object ActExport: TAction
Caption = #23548#20986#21040'Excel'
Hint = #23548#20986#21040'Excel'#25991#20214#20013
ShortCut = 32852
OnExecute = ActExportExecute
end
object ActCheck: TAction
Caption = #23457#26680
Hint = #34218#36164#20107#21153#23457#26680
ImageIndex = 13
OnExecute = ActCheckExecute
end
object ActBatch: TAction
Caption = #25104#25209
Hint = #25104#25209#24405#20837#34218#36164#20107#21153
ImageIndex = 20
OnExecute = ActBatchExecute
end
object ActExit: TAction
Caption = #36864#20986
Hint = #20851#38381#24403#21069#31383#21475
ImageIndex = 15
ShortCut = 32856
OnExecute = ActExitExecute
end
end
object SaveDialog1: TSaveDialog
DefaultExt = 'xls'
Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
Left = 328
Top = 72
end
object qryPay500: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
AfterScroll = qryPay500AfterScroll
Parameters = <>
SQL.Strings = (
'select * from PAY500 where P150_008<>0 order by P150_002'
'')
Left = 32
Top = 200
object qryPay500P150_002: TStringField
DisplayLabel = #31867#22411#32534#21495
FieldKind = fkLookup
FieldName = 'P150_002'
LookupDataSet = qryPay150
LookupKeyFields = 'P150_001'
LookupResultField = 'P150_002'
KeyFields = 'P500_001'
Lookup = True
end
object qryPay500P150_003: TStringField
DisplayLabel = #31867#22411#21517#31216
FieldKind = fkLookup
FieldName = 'P150_003'
LookupDataSet = qryPay150
LookupKeyFields = 'P150_001'
LookupResultField = 'P150_003'
KeyFields = 'P500_001'
Size = 50
Lookup = True
end
object qryPay500C160_002: TStringField
DisplayLabel = #21407#22240#32534#21495
FieldKind = fkLookup
FieldName = 'C160_002'
LookupDataSet = qryCwa160
LookupKeyFields = 'C160_001'
LookupResultField = 'C160_002'
KeyFields = 'P500_002'
Size = 10
Lookup = True
end
object qryPay500C160_003: TStringField
DisplayLabel = #21407#22240#35828#26126
FieldKind = fkLookup
FieldName = 'C160_003'
LookupDataSet = qryCwa160
LookupKeyFields = 'C160_001'
LookupResultField = 'C160_003'
KeyFields = 'P500_002'
Size = 50
Lookup = True
end
object qryPay500P500_003: TStringField
DisplayLabel = #20107#21153#35828#26126
FieldName = 'P500_003'
Size = 50
end
object qryPay500H150_002: TStringField
DisplayLabel = #21592#24037#32534#21495
FieldKind = fkLookup
FieldName = 'H150_002'
LookupDataSet = qryHrm150
LookupKeyFields = 'H150_001'
LookupResultField = 'H150_002'
KeyFields = 'P500_004'
Lookup = True
end
object qryPay500H150_003: TStringField
DisplayLabel = #21592#24037#22995#21517
FieldKind = fkLookup
FieldName = 'H150_003'
LookupDataSet = qryHrm150
LookupKeyFields = 'H150_001'
LookupResultField = 'H150_003'
KeyFields = 'P500_004'
Lookup = True
end
object qryPay500P500_005: TDateTimeField
DisplayLabel = #20107#21153#26085#26399
FieldName = 'P500_005'
DisplayFormat = 'yyyy-mm-dd'
end
object qryPay500P500_006: TFloatField
DisplayLabel = #20107#21153#37329#39069
FieldName = 'P500_006'
end
object qryPay500P500_007: TBooleanField
DisplayLabel = #24050#23457#26680#21542
FieldName = 'P500_007'
end
object qryPay500P500_001: TIntegerField
FieldName = 'P500_001'
Visible = False
end
object qryPay500P500_002: TIntegerField
FieldName = 'P500_002'
Visible = False
end
object qryPay500P500_004: TIntegerField
FieldName = 'P500_004'
Visible = False
end
end
object qryPay150: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters = <>
SQL.Strings = (
'select * from PAY150 where P150_008<>0 and P150_004=0 order by P' +
'150_002')
Left = 88
Top = 224
object qryPay150P150_001: TAutoIncField
FieldName = 'P150_001'
ReadOnly = True
Visible = False
end
object qryPay150P150_002: TStringField
DisplayLabel = #31867#22411#32534#21495
FieldName = 'P150_002'
end
object qryPay150P150_003: TStringField
DisplayLabel = #31867#22411#21517#31216
FieldName = 'P150_003'
Size = 50
end
end
object qryHrm150: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters = <>
SQL.Strings = (
'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
Left = 88
Top = 272
object qryHrm150H150_001: TAutoIncField
FieldName = 'H150_001'
ReadOnly = True
Visible = False
end
object qryHrm150H150_002: TStringField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'H150_002'
FixedChar = True
Size = 10
end
object qryHrm150H150_003: TStringField
DisplayLabel = #21592#24037#22995#21517
FieldName = 'H150_003'
end
end
object qryCwa160: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters = <>
SQL.Strings = (
'select * from CWA160')
Left = 80
Top = 320
object qryCwa160C160_001: TAutoIncField
FieldName = 'C160_001'
ReadOnly = True
Visible = False
end
object qryCwa160C160_002: TStringField
DisplayLabel = #21407#22240#32534#21495
FieldName = 'C160_002'
FixedChar = True
Size = 6
end
object qryCwa160C160_003: TStringField
DisplayLabel = #21407#22240#35828#26126
FieldName = 'C160_003'
Size = 30
end
object qryCwa160C160_004: TIntegerField
FieldName = 'C160_004'
Visible = False
end
object qryCwa160C160_005: TFloatField
DisplayLabel = #37329#39069
FieldName = 'C160_005'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -