📄 tas520_02.dfm.svn-base
字号:
Size = 100
end
object qryTas520T520_019: TWideStringField
DisplayLabel = #25191#34892#20154#21592
FieldName = 'T520_019'
Size = 200
end
object qryTas520T520_004: TWideStringField
DisplayLabel = #26102#38388#21333#20301
FieldName = 'T520_004'
OnGetText = qryTas520T520_004GetText
FixedChar = True
Size = 1
end
object qryTas520T520_005: TBCDField
DisplayLabel = #39044#35745#24037#26102
FieldName = 'T520_005'
Precision = 8
Size = 2
end
object qryTas520T520_006: TDateTimeField
DisplayLabel = #39044#35745#24320#22987#26085#26399
FieldName = 'T520_006'
end
object qryTas520T520_007: TDateTimeField
DisplayLabel = #39044#35745#23436#25104#26085#26399
FieldName = 'T520_007'
end
object qryTas520T520_008: TBCDField
DisplayLabel = #23454#38469#24037#26102
FieldName = 'T520_008'
Precision = 8
Size = 2
end
object qryTas520T520_009: TDateTimeField
DisplayLabel = #23454#38469#24320#22987#26085#26399
FieldName = 'T520_009'
end
object qryTas520T520_010: TDateTimeField
DisplayLabel = #23454#38469#23436#25104#26085#26399
FieldName = 'T520_010'
end
object qryTas520T120_003: TWideStringField
DisplayLabel = #20219#21153#29366#24577
FieldName = 'T120_003'
Size = 50
end
object qryTas520O150_002: TWideStringField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'O150_002'
end
object qryTas520O150_003: TWideStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'O150_003'
Size = 60
end
object qryTas520I150_002: TWideStringField
DisplayLabel = #20135#21697#32534#21495
FieldKind = fkLookup
FieldName = 'I150_002'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_002'
KeyFields = 'T510_017'
Size = 30
Lookup = True
end
object qryTas520I150_003: TWideStringField
DisplayLabel = #20135#21697#21517#31216
FieldKind = fkLookup
FieldName = 'I150_003'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_003'
KeyFields = 'T510_017'
Size = 60
Lookup = True
end
object qryTas520T510_018: TWideStringField
DisplayLabel = #26426#36523#32534#21495
FieldName = 'T510_018'
KeyFields = 'T520_002'
Size = 30
end
object qryTas520I150_004: TWideStringField
DisplayLabel = #35268#26684#22411#21495
FieldKind = fkLookup
FieldName = 'I150_004'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_004'
KeyFields = 'T510_017'
Size = 60
Lookup = True
end
object qryTas520I120_003: TWideStringField
DisplayLabel = #20135#21697#31867#21035
FieldKind = fkLookup
FieldName = 'I120_003'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I120_003'
KeyFields = 'T510_017'
Size = 50
Lookup = True
end
object qryTas520M150_002: TWideStringField
DisplayLabel = #21046#36896#21830#21495
FieldKind = fkLookup
FieldName = 'M150_002'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'O150_002'
KeyFields = 'T510_017'
Lookup = True
end
object qryTas520M150_003: TWideStringField
DisplayLabel = #21046#36896#21830#21517
FieldKind = fkLookup
FieldName = 'M150_003'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'O150_003'
KeyFields = 'T510_017'
Size = 60
Lookup = True
end
object qryTas520T520_011: TMemoField
FieldName = 'T520_011'
Visible = False
BlobType = ftMemo
end
object qryTas520T520_012: TDateTimeField
DisplayLabel = #21046#21333#26085#26399
FieldName = 'T520_012'
end
object qryTas520T520_013: TWideStringField
DisplayLabel = #21046#21333#20154#21592
FieldName = 'T520_013'
end
object qryTas520T520_014: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'T520_014'
end
object qryTas520T520_015: TWideStringField
DisplayLabel = #20462#25913#20154#21592
FieldName = 'T520_015'
end
object qryTas520O150_001: TIntegerField
FieldName = 'O150_001'
Visible = False
end
object qryTas520T510_019: TMemoField
DisplayLabel = #20219#21153#35828#26126
FieldName = 'T510_019'
Visible = False
BlobType = ftMemo
end
object qryTas520T520_016: TIntegerField
FieldName = 'T520_016'
Visible = False
end
object qryTas520T520_017: TIntegerField
FieldName = 'T520_017'
Visible = False
end
object qryTas520T510_016: TIntegerField
FieldName = 'T510_016'
Visible = False
end
object qryTas520T510_017: TIntegerField
FieldName = 'T510_017'
Visible = False
end
object qryTas520T100_001: TAutoIncField
FieldName = 'T100_001'
ReadOnly = True
Visible = False
end
object qryTas520T100_003: TIntegerField
FieldName = 'T100_003'
Visible = False
end
object qryTas520O150_005: TWideStringField
FieldKind = fkCalculated
FieldName = 'O150_005'
Size = 50
Calculated = True
end
object qryTas520O150_007: TWideStringField
FieldKind = fkCalculated
FieldName = 'O150_007'
Size = 50
Calculated = True
end
object qryTas520O150_012: TWideStringField
FieldKind = fkCalculated
FieldName = 'O150_012'
Size = 100
Calculated = True
end
object qryTas520O151_002: TWideStringField
DisplayLabel = #32852#31995#20154#21592
FieldKind = fkCalculated
FieldName = 'O151_002'
Calculated = True
end
object qryTas520O151_004: TWideStringField
DisplayLabel = #32844#21153#21517#31216
FieldKind = fkCalculated
FieldName = 'O151_004'
Size = 50
Calculated = True
end
end
object qryTas510: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select T510_001,T510_002,T510_003,T510_004,T510_005,T510_007,T51' +
'0_012,T510_016,T510_017,T510_018,T510_019,T120_003,T100_002 '
'from TAS510,TAS120,TAS100'
'where T510_003=T120_001 and T510_004=T100_001 and (not T510_003 ' +
'in (2,3,4))')
Left = 344
Top = 64
object qryTas510T510_001: TWideStringField
DisplayLabel = #20219#21153#32534#21495
FieldName = 'T510_001'
Size = 30
end
object qryTas510T510_002: TWideStringField
DisplayLabel = #20219#21153#21517#31216
FieldName = 'T510_002'
Size = 50
end
object qryTas510T510_003: TIntegerField
FieldName = 'T510_003'
Visible = False
end
object qryTas510T510_004: TIntegerField
FieldName = 'T510_004'
Visible = False
end
object qryTas510T510_005: TSmallintField
FieldName = 'T510_005'
Visible = False
end
object qryTas510T510_007: TDateTimeField
FieldName = 'T510_007'
Visible = False
end
object qryTas510T510_012: TBCDField
FieldName = 'T510_012'
Visible = False
Precision = 8
Size = 2
end
object qryTas510T510_016: TIntegerField
FieldName = 'T510_016'
Visible = False
end
object qryTas510T510_017: TIntegerField
FieldName = 'T510_017'
Visible = False
end
object qryTas510T510_018: TWideStringField
FieldName = 'T510_018'
Visible = False
Size = 30
end
object qryTas510T510_019: TMemoField
FieldName = 'T510_019'
Visible = False
BlobType = ftMemo
end
object qryTas510I150_002: TWideStringField
DisplayLabel = #20135#21697#32534#21495
FieldKind = fkLookup
FieldName = 'I150_002'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_002'
KeyFields = 'T510_017'
Visible = False
Size = 30
Lookup = True
end
object qryTas510I150_003: TWideStringField
DisplayLabel = #20135#21697#21517#31216
FieldKind = fkLookup
FieldName = 'I150_003'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_003'
KeyFields = 'T510_017'
Visible = False
Size = 60
Lookup = True
end
object qryTas510I150_004: TWideStringField
DisplayLabel = #35268#26684#22411#21495
FieldKind = fkLookup
FieldName = 'I150_004'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I150_004'
KeyFields = 'T510_017'
Visible = False
Size = 60
Lookup = True
end
object qryTas510I120_003: TWideStringField
DisplayLabel = #20135#21697#31867#21035
FieldKind = fkLookup
FieldName = 'I120_003'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'I120_003'
KeyFields = 'T510_017'
Visible = False
Size = 50
Lookup = True
end
object qryTas510M150_002: TWideStringField
DisplayLabel = #21046#36896#21830#21495
FieldKind = fkLookup
FieldName = 'M150_002'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'O150_002'
KeyFields = 'T510_017'
Visible = False
Lookup = True
end
object qryTas510M150_003: TWideStringField
DisplayLabel = #21046#36896#21830#21517
FieldKind = fkLookup
FieldName = 'M150_003'
LookupDataSet = qryInv150
LookupKeyFields = 'I150_001'
LookupResultField = 'O150_003'
KeyFields = 'T510_017'
Visible = False
Size = 60
Lookup = True
end
object qryTas510T120_003: TWideStringField
FieldName = 'T120_003'
Visible = False
Size = 50
end
object qryTas510T100_002: TWideStringField
FieldName = 'T100_002'
Visible = False
Size = 50
end
end
object ActionList1: TActionList
Images = SYSDM.imgBtn
Left = 576
Top = 8
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 = 32834
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 ActExit: TAction
Caption = #36864#20986
Hint = #20851#38381#24403#21069#31383#21475
ImageIndex = 15
ShortCut = 32856
OnExecute = ActExitExecute
end
end
object dsTas520: TDataSource
DataSet = qryTas520
Left = 8
Top = 88
end
object qryInv150: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select A.I150_001,A.I150_002,A.I150_003,A.I150_004,B.I120_003,C.' +
'O150_002,C.O150_003'
'from (INV150 A left join INV120 B on A.I150_005=B.I120_001) left' +
' join ORD150 C on A.I150_010=C.O150_001')
Left = 64
Top = 96
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -