?? ord140_01.dfm.svn-base
字號:
inherited Ord140_01Form: TOrd140_01Form
Left = -4
Top = -4
Width = 808
Height = 580
Caption = #29305#27530#20215#26684#32500#25252
PixelsPerInch = 96
TextHeight = 12
inherited CoolBar1: TCoolBar
Width = 800
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 796
end>
inherited ToolBar2: TToolBar
Width = 783
inherited ToolButton4: TToolButton
Left = 296
end
inherited ToolButton7: TToolButton
Left = 349
end
inherited ToolButton8: TToolButton
Left = 402
end
inherited ToolButton5: TToolButton
Left = 451
Visible = True
end
inherited tlbRefresh: TToolButton
Left = 459
end
inherited tlbLocate: TToolButton
Left = 494
end
inherited tlbSearch: TToolButton
Left = 529
end
inherited tlbPrint: TToolButton
Left = 564
end
inherited ToolButton6: TToolButton
Left = 612
end
inherited tlbExit: TToolButton
Left = 620
end
end
end
inherited Panel1: TPanel
Width = 800
inherited Image1: TImage
Width = 796
end
end
inherited ScrollBox1: TScrollBox
Width = 800
Height = 473
inherited dxDBGrid1: TdxDBGrid
Width = 796
Height = 469
Filter.Criteria = {00000000}
object dxDBGrid1O140A_002: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'O140A_002'
end
object dxDBGrid1O140A_003: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 231
BandIndex = 0
RowIndex = 0
FieldName = 'O140A_003'
end
object dxDBGrid1O140A_004: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 159
BandIndex = 0
RowIndex = 0
FieldName = 'O140A_004'
end
object dxDBGrid1O140A_005: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 112
BandIndex = 0
RowIndex = 0
FieldName = 'O140A_005'
end
object dxDBGrid1O140A_006: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 112
BandIndex = 0
RowIndex = 0
FieldName = 'O140A_006'
end
object dxDBGrid1G100_002: TdxDBGridLookupColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'G100_002'
end
object dxDBGrid1O140A_008: TdxDBGridCheckColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'O140A_008'
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object dxDBGrid1O140A_009: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'O140A_009'
end
end
end
inherited ADOQuery1: TADOQuery
SQL.Strings = (
'select * from ORD140A order by O140A_009,O140A_002')
object ADOQuery1O140A_002: TWideStringField
DisplayLabel = #29305#20215#32534#21495
FieldName = 'O140A_002'
end
object ADOQuery1O140A_003: TWideStringField
DisplayLabel = #29305#20215#21517#31216
FieldName = 'O140A_003'
Size = 50
end
object ADOQuery1O140A_004: TSmallintField
Alignment = taLeftJustify
DisplayLabel = #25240#25187#31867#22411
FieldName = 'O140A_004'
OnGetText = ADOQuery1O140A_004GetText
end
object ADOQuery1O140A_005: TDateTimeField
DisplayLabel = #29983#25928#26085#26399
FieldName = 'O140A_005'
end
object ADOQuery1O140A_006: TDateTimeField
DisplayLabel = #22833#25928#26085#26399
FieldName = 'O140A_006'
end
object ADOQuery1G100_002: TStringField
DisplayLabel = #24065#21035#32534#21495
FieldKind = fkLookup
FieldName = 'G100_002'
LookupDataSet = qryGld100
LookupKeyFields = 'G100_001'
LookupResultField = 'G100_002'
KeyFields = 'O140A_007'
Size = 10
Lookup = True
end
object ADOQuery1O140A_008: TBooleanField
DisplayLabel = #24635#39069#25240#25187
FieldName = 'O140A_008'
end
object ADOQuery1O140A_009: TIntegerField
DisplayLabel = #39034#24207#32534#21495
FieldName = 'O140A_009'
end
object ADOQuery1O140A_010: TMemoField
DisplayLabel = #22791#27880#35828#26126
FieldName = 'O140A_010'
Visible = False
BlobType = ftMemo
end
object ADOQuery1O140A_001: TAutoIncField
Alignment = taLeftJustify
DisplayLabel = #30005#33041#32534#21495
FieldName = 'O140A_001'
ReadOnly = True
Visible = False
end
object ADOQuery1O140A_007: TIntegerField
Alignment = taLeftJustify
DisplayLabel = #24065#21035#32534#21495
FieldName = 'O140A_007'
Visible = False
end
end
inherited ActionList1: TActionList
inherited Action1: TAction
Caption = #35774#32622
Hint = #35774#32622
ImageIndex = 18
Visible = True
OnExecute = Action1Execute
end
end
object qryGld100: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select G100_001,G100_002,G100_003 from GLD100')
Left = 112
Top = 152
object qryGld100G100_001: TAutoIncField
FieldName = 'G100_001'
ReadOnly = True
end
object qryGld100G100_002: TWideStringField
FieldName = 'G100_002'
Size = 10
end
object qryGld100G100_003: TWideStringField
FieldName = 'G100_003'
Size = 30
end
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -