📄 ord320_01.dfm.svn-base
字号:
item
Name = 'P510A_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 30
Value = Null
end>
SQL.Strings = (
'select A.I500A_001,A.I500A_004,'
' C.I150_002,C.I150_003,C.I150_004,'
' D.I140_002,D.I140_003,'
' B.I500B_005'
'from INV500A A,INV500B B,INV150 C,INV140 D,INV550 E'
'where A.I500A_001=B.I500B_001 and B.I500B_003=C.I150_001 and B.I' +
'500B_004=D.I140_001 and'
' A.I500A_002=E.I550_001 and E.I550_005=1 and B.I500B_011=:P' +
'510A_001'
'order by I500A_001')
Left = 440
Top = 320
object qryInv500I500A_001: TWideStringField
DisplayLabel = #36827#20986#21333#21495
FieldName = 'I500A_001'
Size = 30
end
object qryInv500I500A_004: TDateTimeField
DisplayLabel = #36827#20986#26085#26399
FieldName = 'I500A_004'
end
object qryInv500I150_002: TWideStringField
DisplayLabel = #20135#21697#32534#21495
FieldName = 'I150_002'
Size = 30
end
object qryInv500I150_003: TWideStringField
DisplayLabel = #20135#21697#21517#31216
FieldName = 'I150_003'
Size = 60
end
object qryInv500I150_004: TWideStringField
DisplayLabel = #35268#26684#22411#21495
FieldName = 'I150_004'
Size = 60
end
object qryInv500I140_002: TWideStringField
FieldName = 'I140_002'
Visible = False
end
object qryInv500I140_003: TWideStringField
DisplayLabel = #35745#37327#21333#20301
FieldName = 'I140_003'
Size = 50
end
object qryInv500I500B_005: TFloatField
DisplayLabel = #36827#20986#25968#37327
FieldName = 'I500B_005'
end
end
object qryPur510: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
DataSource = dsOrd510
Parameters = <
item
Name = 'O510A_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 30
Value = Null
end>
SQL.Strings = (
'select A.P510A_001,A.P510A_003,'
' C.I150_002,C.I150_003,C.I150_004,'
' D.I140_002,D.I140_003,'
' B.P510B_005,B.P510B_016'
'from PUR510A A,PUR510B B,INV150 C,INV140 D'
'where A.P510A_001=B.P510B_001 and A.P510A_006=3 and B.P510B_019=' +
':O510A_001 and'
' B.P510B_003=C.I150_001 and B.P510B_004=D.I140_001'
'order by A.P510A_001')
Left = 600
Top = 144
object qryPur510P510A_001: TWideStringField
DisplayLabel = #37319#36141#21333#21495
FieldName = 'P510A_001'
Size = 30
end
object qryPur510P510A_003: TDateTimeField
DisplayLabel = #37319#36141#26085#26399
FieldName = 'P510A_003'
end
object qryPur510I150_002: TWideStringField
DisplayLabel = #20135#21697#32534#21495
FieldName = 'I150_002'
Size = 30
end
object qryPur510I150_003: TWideStringField
DisplayLabel = #20135#21697#21517#31216
FieldName = 'I150_003'
Size = 60
end
object qryPur510I150_004: TWideStringField
DisplayLabel = #35268#26684#22411#21495
FieldName = 'I150_004'
Size = 60
end
object qryPur510I140_002: TWideStringField
FieldName = 'I140_002'
Visible = False
end
object qryPur510I140_003: TWideStringField
DisplayLabel = #35745#37327#21333#20301
FieldName = 'I140_003'
Size = 50
end
object qryPur510P510B_005: TFloatField
DisplayLabel = #37319#36141#25968#37327
FieldName = 'P510B_005'
end
object qryPur510P510B_016: TFloatField
DisplayLabel = #24050#25910#36135#37327
FieldName = 'P510B_016'
end
end
object dsPur510: TDataSource
DataSet = qryPur510
Left = 568
Top = 144
end
object qryOrd510: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
AfterScroll = qryOrd510AfterScroll
Parameters = <
item
Name = 'O500A_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 30
Value = Null
end>
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 and'
' A.O510A_010=1 and exists(select 1 from ORD510B where O510A' +
'_001=O510B_001 and O510B_019=:O500A_001)'
'order by A.O510A_001')
Left = 40
Top = 152
object qryOrd510O510A_001: TWideStringField
DisplayLabel = #38144#21806#21333#21495
FieldName = 'O510A_001'
Size = 30
end
object qryOrd510O100_002: TWideStringField
DisplayLabel = #38144#21806#31867#22411
FieldName = 'O100_002'
Size = 50
end
object qryOrd510O510A_002: TIntegerField
FieldName = 'O510A_002'
Visible = False
end
object qryOrd510O510A_003: TDateTimeField
DisplayLabel = #38144#21806#26085#26399
FieldName = 'O510A_003'
end
object qryOrd510O510A_004: TSmallintField
DisplayLabel = #23450#21333#29366#24577
FieldName = 'O510A_004'
OnGetText = qryOrd510O510A_004GetText
end
object qryOrd510H150_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 qryOrd510H150_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 qryOrd510O510A_005: TIntegerField
FieldName = 'O510A_005'
Visible = False
end
object qryOrd510O510A_006: TIntegerField
FieldName = 'O510A_006'
Visible = False
end
object qryOrd510G100_002: TWideStringField
DisplayLabel = #24065#21035#32534#21495
FieldName = 'G100_002'
Size = 10
end
object qryOrd510G100_003: TWideStringField
DisplayLabel = #24065#21035#21517#31216
FieldName = 'G100_003'
Size = 30
end
object qryOrd510O510A_007: TIntegerField
FieldName = 'O510A_007'
Visible = False
end
object qryOrd510O510A_008: TBCDField
DisplayLabel = #24065#21035#27719#29575
FieldName = 'O510A_008'
DisplayFormat = '0.0000'
Precision = 10
Size = 6
end
object qryOrd510G110_002: TWideStringField
DisplayLabel = #20184#27454#26041#24335
FieldName = 'G110_002'
Size = 50
end
object qryOrd510O510A_009: TIntegerField
FieldName = 'O510A_009'
Visible = False
end
object qryOrd510O510A_010: TSmallintField
DisplayLabel = #26469#28304#31867#22411
FieldName = 'O510A_010'
OnGetText = qryOrd510O510A_010GetText
end
object qryOrd510O510A_011: TWideStringField
FieldName = 'O510A_011'
Visible = False
Size = 30
end
object qryOrd510O510A_012: TFloatField
DisplayLabel = #37329#39069#24635#35745
FieldName = 'O510A_012'
DisplayFormat = ',0.00'
end
object qryOrd510O510A_013: TBCDField
DisplayLabel = #25240#25187#27604#29575
FieldName = 'O510A_013'
Precision = 8
Size = 2
end
object qryOrd510O510A_014: TFloatField
DisplayLabel = #25240#25187#37329#39069
FieldName = 'O510A_014'
end
object qryOrd510O510A_015: TFloatField
DisplayLabel = #29305#27530#36153#29992
FieldName = 'O510A_015'
end
object qryOrd510O510A_016: TFloatField
DisplayLabel = #24212#25910#37329#39069
FieldName = 'O510A_016'
end
object qryOrd510O150_002: TWideStringField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'O150_002'
end
object qryOrd510O150_003: TWideStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'O150_003'
Size = 60
end
object qryOrd510O150_005: TWideStringField
DisplayLabel = #30005#35805#21495#30721
FieldName = 'O150_005'
Size = 50
end
object qryOrd510O150_006: TWideStringField
DisplayLabel = #20256#30495#21495#30721
FieldName = 'O150_006'
Size = 50
end
object qryOrd510O150_012: TWideStringField
DisplayLabel = #23458#25143#22336#22336
FieldName = 'O150_012'
Size = 100
end
object qryOrd510O510A_017: TIntegerField
FieldName = 'O510A_017'
Visible = False
end
object qryOrd510O510A_018: TWideStringField
DisplayLabel = #20132#36135#22320#22336
FieldName = 'O510A_018'
end
object qryOrd510O510A_019: TSmallintField
DisplayLabel = #25552#36135#26041#24335
FieldName = 'O510A_019'
OnGetText = qryOrd510O510A_019GetText
end
object qryOrd510O510A_020: TMemoField
DisplayLabel = #38144#21806#26465#27454
FieldName = 'O510A_020'
Visible = False
BlobType = ftMemo
end
object qryOrd510O510A_021: TMemoField
DisplayLabel = #22791#27880#35828#26126
FieldName = 'O510A_021'
Visible = False
BlobType = ftMemo
end
object qryOrd510O510A_022: TDateTimeField
DisplayLabel = #21046#21333#26085#26399
FieldName = 'O510A_022'
end
object qryOrd510O510A_023: TWideStringField
DisplayLabel = #21046#21333#20154#21592
FieldName = 'O510A_023'
end
object qryOrd510O510A_024: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'O510A_024'
end
object qryOrd510O510A_025: TWideStringField
DisplayLabel = #20462#25913#20154#21592
FieldName = 'O510A_025'
end
end
object dsOrd510: TDataSource
DataSet = qryOrd510
Left = 8
Top = 152
end
object PopupMenu1: TPopupMenu
Left = 112
Top = 408
object N1: TMenuItem
Action = ActOpen
end
object N2: TMenuItem
Caption = '-'
end
object N3: TMenuItem
Action = ActRefresh
end
object N4: TMenuItem
Action = ActLocate
end
object N5: TMenuItem
Action = ActSearch
end
end
object qryHrm150: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select H150_001,H150_002,H150_003 from HRM150')
Left = 80
Top = 152
end
object ADOQuery1: TADOQuery
Connection = SYSDM.ADOC
Parameters = <
item
Name = 'O510A_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 30
Value = Null
end>
SQL.Strings = (
'select A.P510A_001,A.P510A_003,'
' C.I150_002,C.I150_003,C.I150_004,'
' D.I140_002,D.I140_003,'
' B.P510B_005,B.P510B_016'
'from PUR510A A,PUR510B B,INV150 C,INV140 D'
'where A.P510A_001=B.P510B_001 and A.P510A_006=3 and B.P510B_019=' +
':O510A_001 and'
' B.P510B_003=C.I150_001 and B.P510B_004=D.I140_001'
'order by A.P510A_001')
Left = 344
Top = 240
end
object ADOQuery2: TADOQuery
Connection = SYSDM.ADOC
Parameters = <
item
Name = 'P510A_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 30
Value = Null
end>
SQL.Strings = (
'select A.I500A_001,A.I500A_004,'
' C.I150_002,C.I150_003,C.I150_004,'
' D.I140_002,D.I140_003,'
' B.I500B_005'
'from INV500A A,INV500B B,INV150 C,INV140 D,INV550 E'
'where A.I500A_001=B.I500B_001 and B.I500B_003=C.I150_001 and B.I' +
'500B_004=D.I140_001 and'
' A.I500A_002=E.I550_001 and E.I550_005=1 and B.I500B_011=:P' +
'510A_001'
'order by I500A_001')
Left = 352
Top = 416
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -