📄 ord510_02.dfm.svn-base
字号:
ImageIndex = 14
ShortCut = 32846
Visible = True
OnExecute = Action3Execute
end
end
inherited ADOQuery1: TADOQuery
CursorType = ctStatic
SQL.Strings = (
'select A.*,'
' B.O100_002,'
' C.O150_002,C.O150_003,C.O150_005,C.O150_006,C.O150_012,'
' D.G100_002,D.G100_003,'
' E.G110_002'
'from ORD510A A,ORD100 B,ORD150 C,GLD100 D,GLD110 E'
'where A.O510A_002=B.O100_001 and A.O510A_017=C.O150_001 and A.O5' +
'10A_007=D.G100_001 and A.O510A_009=E.G110_001'
'order by A.O510A_022 asc')
object ADOQuery1O510A_001: TWideStringField
DisplayLabel = #38144#21806#21333#21495
FieldName = 'O510A_001'
Size = 30
end
object ADOQuery1O100_002: TWideStringField
DisplayLabel = #38144#21806#31867#22411
FieldName = 'O100_002'
Size = 50
end
object ADOQuery1O510A_002: TIntegerField
FieldName = 'O510A_002'
Visible = False
end
object ADOQuery1O510A_003: TDateTimeField
DisplayLabel = #38144#21806#26085#26399
FieldName = 'O510A_003'
end
object ADOQuery1O510A_004: TSmallintField
DisplayLabel = #23450#21333#29366#24577
FieldName = 'O510A_004'
OnGetText = ADOQuery1O510A_004GetText
end
object ADOQuery1H150_002: TStringField
DisplayLabel = #21592#24037#32534#21495
FieldKind = fkLookup
FieldName = 'H150_002'
LookupDataSet = qryHrm150
LookupKeyFields = 'H150_001'
LookupResultField = 'H150_002'
KeyFields = 'O510A_005'
Lookup = True
end
object ADOQuery1H150_003: TStringField
DisplayLabel = #21592#24037#22995#21517
FieldKind = fkLookup
FieldName = 'H150_003'
LookupDataSet = qryHrm150
LookupKeyFields = 'H150_001'
LookupResultField = 'H150_003'
KeyFields = 'O510A_005'
Lookup = True
end
object ADOQuery1O510A_005: TIntegerField
FieldName = 'O510A_005'
Visible = False
end
object ADOQuery1O510A_006: TIntegerField
FieldName = 'O510A_006'
Visible = False
end
object ADOQuery1G100_002: TWideStringField
DisplayLabel = #24065#21035#32534#21495
FieldName = 'G100_002'
Size = 10
end
object ADOQuery1G100_003: TWideStringField
DisplayLabel = #24065#21035#21517#31216
FieldName = 'G100_003'
Size = 30
end
object ADOQuery1O510A_007: TIntegerField
FieldName = 'O510A_007'
Visible = False
end
object ADOQuery1O510A_008: TBCDField
DisplayLabel = #24065#21035#27719#29575
FieldName = 'O510A_008'
DisplayFormat = '0.0000'
Precision = 10
Size = 6
end
object ADOQuery1G110_002: TWideStringField
DisplayLabel = #20184#27454#26041#24335
FieldName = 'G110_002'
Size = 50
end
object ADOQuery1O510A_009: TIntegerField
FieldName = 'O510A_009'
Visible = False
end
object ADOQuery1O510A_010: TSmallintField
DisplayLabel = #26469#28304#31867#22411
FieldName = 'O510A_010'
OnGetText = ADOQuery1O510A_010GetText
end
object ADOQuery1O510A_011: TWideStringField
FieldName = 'O510A_011'
Visible = False
Size = 30
end
object ADOQuery1O510A_012: TFloatField
DisplayLabel = #37329#39069#24635#35745
FieldName = 'O510A_012'
DisplayFormat = ',0.00'
end
object ADOQuery1O510A_013: TBCDField
DisplayLabel = #25240#25187#27604#29575
FieldName = 'O510A_013'
Precision = 8
Size = 2
end
object ADOQuery1O510A_014: TFloatField
DisplayLabel = #25240#25187#37329#39069
FieldName = 'O510A_014'
end
object ADOQuery1O510A_015: TFloatField
DisplayLabel = #29305#27530#36153#29992
FieldName = 'O510A_015'
end
object ADOQuery1O510A_016: TFloatField
DisplayLabel = #24212#25910#37329#39069
FieldName = 'O510A_016'
end
object ADOQuery1O150_002: TWideStringField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'O150_002'
end
object ADOQuery1O150_003: TWideStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'O150_003'
Size = 60
end
object ADOQuery1O150_005: TWideStringField
DisplayLabel = #30005#35805#21495#30721
FieldName = 'O150_005'
Size = 50
end
object ADOQuery1O150_006: TWideStringField
DisplayLabel = #20256#30495#21495#30721
FieldName = 'O150_006'
Size = 50
end
object ADOQuery1O150_012: TWideStringField
DisplayLabel = #23458#25143#22336#22336
FieldName = 'O150_012'
Size = 100
end
object ADOQuery1O151_002: TWideStringField
DisplayLabel = #32852#31995#20154#21592
FieldKind = fkLookup
FieldName = 'O151_002'
LookupDataSet = qryOrd150
LookupKeyFields = 'O150_001'
LookupResultField = 'O151_002'
KeyFields = 'O510A_017'
Lookup = True
end
object ADOQuery1O151_003: TWideStringField
DisplayLabel = #37096#38376#21517#31216
FieldKind = fkLookup
FieldName = 'O151_003'
LookupDataSet = qryOrd150
LookupKeyFields = 'O150_001'
LookupResultField = 'O151_003'
KeyFields = 'O510A_017'
Size = 50
Lookup = True
end
object ADOQuery1O151_004: TWideStringField
DisplayLabel = #32844#21153#21517#31216
FieldKind = fkLookup
FieldName = 'O151_004'
LookupDataSet = qryOrd150
LookupKeyFields = 'O150_001'
LookupResultField = 'O151_004'
KeyFields = 'O510A_017'
Size = 50
Lookup = True
end
object ADOQuery1O120_002: TWideStringField
FieldKind = fkLookup
FieldName = 'O120_002'
LookupDataSet = qryOrd150
LookupKeyFields = 'O150_001'
LookupResultField = 'O120_002'
KeyFields = 'O510A_017'
Size = 50
Lookup = True
end
object ADOQuery1O510A_017: TIntegerField
FieldName = 'O510A_017'
Visible = False
end
object ADOQuery1O510A_018: TWideStringField
DisplayLabel = #20132#36135#22320#22336
FieldName = 'O510A_018'
end
object ADOQuery1O510A_019: TSmallintField
DisplayLabel = #25552#36135#26041#24335
FieldName = 'O510A_019'
OnGetText = ADOQuery1O510A_019GetText
end
object ADOQuery1O510A_020: TMemoField
DisplayLabel = #38144#21806#26465#27454
FieldName = 'O510A_020'
Visible = False
BlobType = ftMemo
end
object ADOQuery1O510A_021: TMemoField
DisplayLabel = #22791#27880#35828#26126
FieldName = 'O510A_021'
Visible = False
BlobType = ftMemo
end
object ADOQuery1O510A_022: TDateTimeField
DisplayLabel = #21046#21333#26085#26399
FieldName = 'O510A_022'
end
object ADOQuery1O510A_023: TWideStringField
DisplayLabel = #21046#21333#20154#21592
FieldName = 'O510A_023'
end
object ADOQuery1O510A_024: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'O510A_024'
end
object ADOQuery1O510A_025: TWideStringField
DisplayLabel = #20462#25913#20154#21592
FieldName = 'O510A_025'
end
object ADOQuery1O510A_026: TWideStringField
DisplayLabel = #32852#31995#20154#21517
FieldName = 'O510A_026'
end
object ADOQuery1O510A_027: TSmallintField
DisplayLabel = #20248#20808#32423#21035
FieldName = 'O510A_027'
end
object ADOQuery1O510A_028: TWideStringField
DisplayLabel = #23458#25143#21333#21495
FieldName = 'O510A_028'
Size = 30
end
object ADOQuery1O152_002: TStringField
DisplayLabel = #20132#36135#22320#28857
FieldKind = fkLookup
FieldName = 'O152_002'
LookupDataSet = qryOrd152
LookupKeyFields = 'O152_002'
LookupResultField = 'O152_002'
KeyFields = 'O510A_018'
Lookup = True
end
object ADOQuery1O152_003: TStringField
DisplayLabel = #25152#23646#22320#21306
FieldKind = fkLookup
FieldName = 'O152_003'
LookupDataSet = qryOrd152
LookupKeyFields = 'O152_002'
LookupResultField = 'O152_003'
KeyFields = 'O510A_018'
Lookup = True
end
object ADOQuery1O152_004: TStringField
DisplayLabel = #20132#36135#22320#22336
FieldKind = fkLookup
FieldName = 'O152_004'
LookupDataSet = qryOrd152
LookupKeyFields = 'O152_002'
LookupResultField = 'O152_004'
KeyFields = 'O510A_018'
Size = 100
Lookup = True
end
object ADOQuery1O152_005: TStringField
DisplayLabel = #37038#25919#32534#30721
FieldKind = fkLookup
FieldName = 'O152_005'
LookupDataSet = qryOrd152
LookupKeyFields = 'O152_002'
LookupResultField = 'O152_005'
KeyFields = 'O510A_018'
Lookup = True
end
object ADOQuery1O152_006: TStringField
DisplayLabel = #30005#35805#21495#30721
FieldKind = fkLookup
FieldName = 'O152_006'
LookupDataSet = qryOrd152
LookupKeyFields = 'O152_002'
LookupResultField = 'O152_006'
KeyFields = 'O510A_018'
Lookup = True
end
object ADOQuery1O152_007: TStringField
DisplayLabel = #20256#30495#21495#30721
FieldKind = fkLookup
FieldName = 'O152_007'
LookupDataSet = qryOrd152
LookupKeyFields = 'O152_002'
LookupResultField = 'O152_007'
KeyFields = 'O510A_018'
Lookup = True
end
object ADOQuery1O152_008: TStringField
DisplayLabel = #32852#31995#20154#21517
FieldKind = fkLookup
FieldName = 'O152_008'
LookupDataSet = qryOrd152
LookupKeyFields = 'O152_002'
LookupResultField = 'O152_008'
KeyFields = 'O510A_018'
Lookup = True
end
end
object qryHrm150: TADOQuery
Active = True
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
Left = 112
Top = 72
object qryHrm150H150_001: TAutoIncField
FieldName = 'H150_001'
ReadOnly = True
Visible = False
end
object qryHrm150H150_002: TWideStringField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'H150_002'
end
object qryHrm150H150_003: TWideStringField
DisplayLabel = #21592#24037#22995#21517
FieldName = 'H150_003'
end
end
object qryGld100: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from GLD100 order by G100_002')
Left = 272
Top = 88
end
object qryGld110: TADOQuery
Connection = SYSDM.ADOC
CursorType = c⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -