📄 cwa500_01.dfm.svn-base
字号:
end
object cbMonth: TComboBox
Left = 307
Top = 9
Width = 68
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 1
OnChange = cbMonthChange
end
object cbType: TComboBox
Left = 448
Top = 9
Width = 156
Height = 20
Style = csDropDownList
Anchors = [akTop, akRight]
ItemHeight = 12
TabOrder = 2
OnChange = cbTypeChange
end
end
inherited pmUISet: TPopupMenu
Left = 496
Top = 224
end
object PopupMenu1: TPopupMenu
Left = 472
Top = 32
object mmiPrint: TMenuItem
Action = ActPrint
end
object mmiExport: TMenuItem
Action = ActExport
end
end
object dsCwa500: TDataSource
DataSet = qryCwa500
Left = 16
Top = 152
end
object ActionList1: TActionList
Images = SYSDM.imgBtn
Left = 424
Top = 80
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 = #23457#26680#32771#21220#20107#21153
ImageIndex = 13
OnExecute = ActCheckExecute
end
object ActBatch: TAction
Caption = #25104#25209
Hint = #25104#25209#24405#20837#32771#21220#20107#21153#36164#26009
ImageIndex = 18
OnExecute = ActBatchExecute
end
object ActQuick: TAction
Caption = #24555#36895
Hint = #20197#21015#34920#26041#24335#24555#36895#24405#20837#32771#21220#20107#21153#36164#26009
ImageIndex = 20
OnExecute = ActQuickExecute
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
Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
Left = 368
Top = 80
end
object qryCwa500: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
AfterScroll = qryCwa500AfterScroll
Parameters = <>
SQL.Strings = (
'select * from CWA500')
Left = 24
Top = 160
object qryCwa500C150_002: TStringField
DisplayLabel = #31867#22411#32534#21495
FieldKind = fkLookup
FieldName = 'C150_002'
LookupDataSet = qryCwa150
LookupKeyFields = 'C150_001'
LookupResultField = 'C150_002'
KeyFields = 'C500_001'
Size = 10
Lookup = True
end
object qryCwa500C150_003: TStringField
DisplayLabel = #31867#22411#21517#31216
FieldKind = fkLookup
FieldName = 'C150_003'
LookupDataSet = qryCwa150
LookupKeyFields = 'C150_001'
LookupResultField = 'C150_003'
KeyFields = 'C500_001'
Size = 50
Lookup = True
end
object qryCwa500C160_002: TStringField
DisplayLabel = #21407#22240#32534#21495
FieldKind = fkLookup
FieldName = 'C160_002'
LookupDataSet = qryCwa160
LookupKeyFields = 'C160_001'
LookupResultField = 'C160_002'
KeyFields = 'C500_002'
Size = 10
Lookup = True
end
object qryCwa500C160_003: TStringField
DisplayLabel = #21407#22240#35828#26126
FieldKind = fkLookup
FieldName = 'C160_003'
LookupDataSet = qryCwa160
LookupKeyFields = 'C160_001'
LookupResultField = 'C160_003'
KeyFields = 'C500_002'
Size = 50
Lookup = True
end
object qryCwa500C500_003: TStringField
DisplayLabel = #20107#21153#35828#26126
FieldName = 'C500_003'
Size = 50
end
object qryCwa500H150_002: TStringField
DisplayLabel = #21592#24037#32534#21495
FieldKind = fkLookup
FieldName = 'H150_002'
LookupDataSet = qryHrm150
LookupKeyFields = 'H150_001'
LookupResultField = 'H150_002'
KeyFields = 'C500_004'
Lookup = True
end
object qryCwa500H150_003: TStringField
DisplayLabel = #21592#24037#22995#21517
FieldKind = fkLookup
FieldName = 'H150_003'
LookupDataSet = qryHrm150
LookupKeyFields = 'H150_001'
LookupResultField = 'H150_003'
KeyFields = 'C500_004'
Lookup = True
end
object qryCwa500C500_005: TDateTimeField
DisplayLabel = #20107#21153#26085#26399
FieldName = 'C500_005'
DisplayFormat = 'yyyy-mm-dd'
end
object qryCwa500C500_006: TStringField
DisplayLabel = #36215#22987#26102#38388
FieldName = 'C500_006'
FixedChar = True
Size = 5
end
object qryCwa500C500_007: TStringField
DisplayLabel = #32467#26463#26102#38388
FieldName = 'C500_007'
FixedChar = True
Size = 5
end
object qryCwa500C500_008: TFloatField
DisplayLabel = #20107#21153#25968#20540
FieldName = 'C500_008'
end
object qryCwa500C500_009: TSmallintField
DisplayLabel = #21333#20301
FieldName = 'C500_009'
OnGetText = qryCwa500C500_009GetText
end
object qryCwa500C500_010: TBooleanField
DisplayLabel = #24050#23457#26680#21542
FieldName = 'C500_010'
end
object qryCwa500C500_001: TIntegerField
DisplayLabel = #20107#21153#31867#22411
FieldName = 'C500_001'
Visible = False
end
object qryCwa500C500_002: TIntegerField
DisplayLabel = #21407#22240#32534#21495
FieldName = 'C500_002'
Visible = False
end
object qryCwa500C500_004: TIntegerField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'C500_004'
Visible = False
end
end
object qryHrm150: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from HRM150 order by H150_002')
Left = 208
Top = 256
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'
FixedChar = True
end
end
object qryCwa160: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from CWA160 order by C160_002')
Left = 208
Top = 192
object qryCwa160C160_001: TAutoIncField
DisplayLabel = #30005#33041#32534#21495
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
end
object qryCwa150: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from CWA150 where C150_008<>0 and C150_004=0 order by C' +
'150_002')
Left = 208
Top = 152
object qryCwa150C150_001: TAutoIncField
FieldName = 'C150_001'
ReadOnly = True
Visible = False
end
object qryCwa150C150_002: TStringField
DisplayLabel = #39033#30446#32534#21495
FieldName = 'C150_002'
Size = 10
end
object qryCwa150C150_003: TStringField
DisplayLabel = #39033#30446#21517#31216
FieldName = 'C150_003'
Size = 50
end
object qryCwa150C150_004: TSmallintField
DisplayLabel = #39033#30446#31867#22411
FieldName = 'C150_004'
Visible = False
end
object qryCwa150C150_005: TSmallintField
DisplayLabel = #35745#37327#21333#20301
FieldName = 'C150_005'
Visible = False
end
end
object pmGrid: TPopupMenu
Left = 496
Top = 288
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -