?? ser310_01.dfm.svn-base
字號:
object qrySer510S510_001: TWideStringField
DisplayLabel = #35843#26597#21333#21495
FieldName = 'S510_001'
Size = 30
end
object qrySer510S510_003: TDateTimeField
DisplayLabel = #35843#26597#26085#26399
FieldName = 'S510_003'
end
object qrySer510H150_003: TWideStringField
DisplayLabel = #35843#26597#20154#21592
FieldName = 'H150_003'
end
object qrySer510S510_006: TWideStringField
DisplayLabel = #21463#35843#26597#20154
FieldName = 'S510_006'
end
object qrySer510S510_007: TWideStringField
DisplayLabel = #37096#38376#21517#31216
FieldName = 'S510_007'
end
object qrySer510S510_008: TWideStringField
DisplayLabel = #32844#20301#21517#31216
FieldName = 'S510_008'
end
object qrySer510S510_009: TMemoField
DisplayLabel = #35843#26597#20869#23481
FieldName = 'S510_009'
BlobType = ftMemo
end
object qrySer510S510_010: TDateTimeField
DisplayLabel = #21046#21333#26085#26399
FieldName = 'S510_010'
end
object qrySer510S510_011: TWideStringField
DisplayLabel = #21046#21333#20154#21592
FieldName = 'S510_011'
end
object qrySer510S510_012: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'S510_012'
end
object qrySer510S510_013: TWideStringField
DisplayLabel = #20462#25913#20154#21592
FieldName = 'S510_013'
end
end
object dsSer510: TDataSource
DataSet = qrySer510
Left = 416
Top = 149
end
object PopupMenu1: TPopupMenu
Left = 512
Top = 149
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 qrySer500: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
CursorType = ctStatic
AfterScroll = qrySer500AfterScroll
Parameters = <>
SQL.Strings = (
'SELECT SER500.S500_001,S500_004,SER500.S500_002, SER110.S110_003' +
', SER100.S100_002, SER500.S500_005, SER500.S500_006, SER500.S500' +
'_007, SER500.S500_008, SER500.S500_009, HRM150.H150_003, SER500.' +
'S500_011, SER500.S500_012, SER500.S500_013, SER500.S500_014, SER' +
'500.S500_015, SER500.S500_016, ORD150.O150_003, SER500.S500_018,' +
' SER500.S500_019, SER500.S500_020, SER500.S500_025, SER500.S500_' +
'026, SER500.S500_027, SER500.S500_028, SER500.S500_029, SER500.S' +
'500_030, SER500.S500_031, SER500.S500_033, SER500.S500_034, SER5' +
'00.S500_035, SER500.S500_036, SER500.S500_037'
'FROM (((SER500 LEFT JOIN SER110 ON SER500.S500_003=SER110.S110_0' +
'01) LEFT JOIN SER100 ON SER500.S500_004=SER100.S100_001) LEFT JO' +
'IN HRM150 ON SER500.S500_010=HRM150.H150_001) LEFT JOIN ORD150 O' +
'N SER500.S500_017=ORD150.O150_001'
'where s100_005=-1'
'order by S500_001'
'')
Left = 40
Top = 152
object qrySer500S500_001: TWideStringField
DisplayLabel = #26469#30005#32534#21495
FieldName = 'S500_001'
Size = 30
end
object qrySer500S500_002: TWideStringField
DisplayLabel = #26469#30005#21517#31216
FieldName = 'S500_002'
Size = 50
end
object qrySer500S110_003: TWideStringField
DisplayLabel = #26469#30005#29366#24577
FieldName = 'S110_003'
Size = 50
end
object qrySer500S100_002: TWideStringField
DisplayLabel = #26469#30005#31867#21035
FieldName = 'S100_002'
Size = 50
end
object qrySer500S500_005: TSmallintField
DisplayLabel = #20248#20808#32423#21035
FieldName = 'S500_005'
end
object qrySer500S500_006: TSmallintField
DisplayLabel = #26469#30005#31867#22411
FieldName = 'S500_006'
end
object qrySer500S500_007: TDateTimeField
DisplayLabel = #26469#30005#26085#26399
FieldName = 'S500_007'
end
object qrySer500S500_008: TIntegerField
DisplayLabel = #26469#30005#26102#38388
FieldName = 'S500_008'
end
object qrySer500S500_009: TBCDField
DisplayLabel = #25509#21548#26102#38388
FieldName = 'S500_009'
Precision = 8
Size = 2
end
object qrySer500H150_003: TWideStringField
DisplayLabel = #21463#29702#20154#21592
FieldName = 'H150_003'
end
object qrySer500S500_011: TWideStringField
DisplayLabel = #26469#30005#20154#21592
FieldName = 'S500_011'
end
object qrySer500S500_012: TWideStringField
DisplayLabel = #37096#38376#21517#31216
FieldName = 'S500_012'
end
object qrySer500S500_013: TWideStringField
DisplayLabel = #32844#21153#21517#31216
FieldName = 'S500_013'
end
object qrySer500S500_014: TWideStringField
DisplayLabel = #32852#31995#30005#35805
FieldName = 'S500_014'
end
object qrySer500S500_015: TSmallintField
DisplayLabel = #21333#25454#31867#22411
FieldName = 'S500_015'
end
object qrySer500S500_016: TWideStringField
DisplayLabel = #21333#25454#32534#21495
FieldName = 'S500_016'
Size = 30
end
object qrySer500O150_003: TWideStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'O150_003'
Size = 60
end
object qrySer500S500_018: TIntegerField
DisplayLabel = #20135#21697#32534#21495
FieldName = 'S500_018'
end
object qrySer500S500_019: TWideStringField
DisplayLabel = #26426#36523#32534#21495
FieldName = 'S500_019'
Size = 30
end
object qrySer500S500_020: TBooleanField
DisplayLabel = #26159#21542#27966#24037
FieldName = 'S500_020'
end
object qrySer500S500_025: TDateTimeField
DisplayLabel = #23454#38469#24320#22987#26085#26399
FieldName = 'S500_025'
end
object qrySer500S500_026: TDateTimeField
DisplayLabel = #23454#38469#23436#25104#26085#26399
FieldName = 'S500_026'
end
object qrySer500S500_027: TBooleanField
DisplayLabel = #26159#21542#25253#20215
FieldName = 'S500_027'
end
object qrySer500S500_028: TDateTimeField
DisplayLabel = #20445#20859#24320#22987#26085#26399
FieldName = 'S500_028'
end
object qrySer500S500_029: TDateTimeField
DisplayLabel = #20445#20859#23436#25104#26085#26399
FieldName = 'S500_029'
end
object qrySer500S500_030: TDateTimeField
DisplayLabel = #32493#20445#24320#22987#26085#26399
FieldName = 'S500_030'
end
object qrySer500S500_031: TDateTimeField
DisplayLabel = #32493#20445#23436#25104#26085#26399
FieldName = 'S500_031'
end
object qrySer500S500_033: TMemoField
DisplayLabel = #26469#30005#20869#23481
FieldName = 'S500_033'
BlobType = ftMemo
end
object qrySer500S500_034: TDateTimeField
DisplayLabel = #21046#21333#26085#26399
FieldName = 'S500_034'
end
object qrySer500S500_035: TWideStringField
DisplayLabel = #21046#21333#20154#21592
FieldName = 'S500_035'
end
object qrySer500S500_036: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'S500_036'
end
object qrySer500S500_037: TWideStringField
DisplayLabel = #20462#25913#20154#21592
FieldName = 'S500_037'
end
end
object dsSer500: TDataSource
AutoEdit = False
DataSet = qrySer500
Left = 8
Top = 152
end
object dsSer521: TDataSource
DataSet = qrySer521
Left = 319
Top = 339
end
object dsSer522: TDataSource
DataSet = qrySer522
Left = 383
Top = 339
end
object dsSer523: TDataSource
DataSet = qrySer523
Left = 455
Top = 339
end
object dsSer524: TDataSource
DataSet = qrySer524
Left = 519
Top = 339
end
object qrySer521: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
DataSource = dsSer520
Parameters = <
item
Name = 'S520_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'SELECT * FROM SER521 where S521_001=:S520_001')
Left = 351
Top = 339
object qrySer521S521_002: TIntegerField
DisplayLabel = #24207#21495
FieldName = 'S521_002'
end
object qrySer521S521_003: TWideStringField
DisplayLabel = #20219#21153#32534#21495
FieldName = 'S521_003'
Size = 30
end
object qrySer521S521_004: TWideStringField
DisplayLabel = #22519#34892#20154#21592
FieldName = 'S521_004'
Size = 50
end
object qrySer521S521_005: TBCDField
DisplayLabel = #39044#35745#24037#26102
FieldName = 'S521_005'
Precision = 8
Size = 2
end
object qrySer521S521_006: TSmallintField
DisplayLabel = #26102#38388#21333#20301
FieldName = 'S521_006'
OnGetText = qrySer521S521_006GetText
end
object qrySer521S521_007: TDateTimeField
DisplayLabel = #39044#35745#24320#22987#26085#26399
FieldName = 'S521_007'
end
object qrySer521S521_008: TDateTimeField
DisplayLabel = #39044#35745#23436#25104#26085#26399
FieldName = 'S521_008'
end
end
object qrySer522: TADOQuery
Connection = SYSDM.ADOC
DataSource = dsSer520
Parameters = <
item
Name = 'S520_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'SELECT S522_002,S522_003,H150_003,S522_005 FROM SER522 LEFT JOIN' +
' HRM150 ON SER522.S522_004 = HRM150.H150_001 where S522_001=:S52' +
'0_001')
Left = 415
Top = 339
object qrySer522S522_002: TIntegerField
DisplayLabel = #24207#21495
FieldName = 'S522_002'
end
object qrySer522S522_003: TDateTimeField
DisplayLabel = #39044#35745#26085#26399
FieldName = 'S522_003'
end
object qrySer522H150_003: TWideStringField
DisplayLabel = #21592#24037#22995#21517
FieldName = 'H150_003'
end
object qrySer522S522_005: TBCDField
DisplayLabel = #32602#27454#37329#39069
FieldName = 'S522_005'
Precision = 15
Size = 2
end
end
object qrySer523: TADOQuery
Connection = SYSDM.ADOC
DataSource = dsSer520
Parameters = <
item
Name = 'S520_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'SELECT S523_002,S523_003,O150_003,S523_005 FROM SER523 LEFT JOIN' +
' ORD150 ON SER523.S523_004 = ORD150.O150_001 where S523_001=:S52' +
'0_001')
Left = 487
Top = 339
object qrySer523S523_002: TIntegerField
DisplayLabel = #24207#21495
FieldName = 'S523_002'
end
object qrySer523S523_003: TDateTimeField
DisplayLabel = #39044#35745#26085#26399
FieldName = 'S523_003'
end
object qrySer523O150_003: TWideStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'O150_003'
Size = 60
end
object qrySer523S523_005: TBCDField
DisplayLabel = #36180#20607#37329#39069
FieldName = 'S523_005'
Precision = 15
Size = 2
end
end
object qrySer524: TADOQuery
Connection = SYSDM.ADOC
DataSource = dsSer520
Parameters = <
item
Name = 'S520_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'SELECT SER524.S524_002, SER524.S524_003, SER524.S524_004, SER524' +
'.S524_005, SER524.S524_006, SER524.S524_007'
'FROM SER524'
'where '
'S524_001=:S520_001')
Left = 551
Top = 339
object qrySer524S524_002: TIntegerField
DisplayLabel = #24207#21495
FieldName = 'S524_002'
end
object qrySer524S524_003: TDateTimeField
DisplayLabel = #39044#35745#26085#26399
FieldName = 'S524_003'
end
object qrySer524S524_004: TIntegerField
DisplayLabel = #36135#21697#32534#21495
FieldName = 'S524_004'
end
object qrySer524S524_005: TFloatField
DisplayLabel = #36135#21697#25968#37327
FieldName = 'S524_005'
end
object qrySer524S524_006: TFloatField
DisplayLabel = #36135#21697#21333#20215
FieldName = 'S524_006'
end
object qrySer524S524_007: TFloatField
DisplayLabel = #36135#21697#37329#39069
FieldName = 'S524_007'
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -