📄 c_setup.~dfm
字号:
object Form2: TForm2
Left = 294
Top = 192
Width = 501
Height = 349
Caption = #35774#32622#31867#21035#21644#23553#35013
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 8
Top = 16
Width = 481
Height = 273
ActivePage = TabSheet1
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #31867#21035
object Label1: TLabel
Left = 8
Top = 224
Width = 264
Height = 13
Caption = #22686#21152#35831#21040#25968#25454#26368#21518#19968#34892#25353#21521#19979#20809#26631#65292#21024#38500'CTRL+del'
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 241
Height = 201
Caption = #22823#31867
TabOrder = 0
object DBGrid1: TDBGrid
Left = 8
Top = 16
Width = 225
Height = 120
DataSource = ds_ado_comdl
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'kind_name'
Title.Caption = #22823#31867#21517
Width = 124
Visible = True
end
item
Expanded = False
FieldName = 'kind_order_id'
Title.Caption = #25490#24207#21495
Visible = True
end>
end
end
object GroupBox2: TGroupBox
Left = 256
Top = 8
Width = 209
Height = 201
Caption = #23567#31867
TabOrder = 1
object DBGrid2: TDBGrid
Left = 8
Top = 16
Width = 193
Height = 120
DataSource = ds_ado_comxl
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'child_kind_name'
Title.Caption = #23567#31867#21517
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'child_kind_order_id'
Title.Caption = #25490#24207#21495
Visible = True
end>
end
end
end
object TabSheet2: TTabSheet
Caption = #23553#35013
ImageIndex = 1
object GroupBox3: TGroupBox
Left = 8
Top = 8
Width = 457
Height = 169
Caption = #23553#35013
TabOrder = 0
object DBGrid3: TDBGrid
Left = 8
Top = 16
Width = 441
Height = 145
DataSource = ds_ado_encap
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'encap_name'
Title.Caption = #23553#35013#21517#31216
Width = 266
Visible = True
end
item
Expanded = False
FieldName = 'encap_order_id'
Title.Caption = #25490#24207#21495
Visible = True
end>
end
end
end
end
object Button1: TButton
Left = 408
Top = 296
Width = 75
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = Button1Click
end
object ado_comdl: TADOQuery
Connection = d.ado1
CursorType = ctStatic
AfterScroll = ado_comdlAfterScroll
Parameters = <>
SQL.Strings = (
'select * from kind order by kind_order_id')
Left = 304
object ado_comdlid: TSmallintField
FieldName = 'id'
end
object ado_comdlkind_name: TWideStringField
FieldName = 'kind_name'
Size = 50
end
object ado_comdlkind_order_id: TSmallintField
FieldName = 'kind_order_id'
end
end
object ds_ado_comdl: TDataSource
DataSet = ado_comdl
Left = 336
end
object ado_comxl: TADOQuery
Connection = d.ado1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from child_kind order by child_kind_order_id')
Left = 384
object ado_comxlid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object ado_comxlpara_kind_id: TSmallintField
FieldName = 'para_kind_id'
end
object ado_comxlchild_kind_name: TWideStringField
FieldName = 'child_kind_name'
Size = 50
end
object ado_comxlchild_kind_order_id: TSmallintField
FieldName = 'child_kind_order_id'
end
end
object ds_ado_comxl: TDataSource
DataSet = ado_comxl
Left = 416
end
object ado_encap: TADOQuery
Connection = d.ado1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from encap order by encap_order_id')
Left = 152
object ado_encapid: TIntegerField
FieldName = 'id'
end
object ado_encapencap_name: TWideStringField
FieldName = 'encap_name'
Size = 50
end
object ado_encapencap_memo: TWideStringField
FieldName = 'encap_memo'
Size = 50
end
object ado_encapencap_order_id: TIntegerField
FieldName = 'encap_order_id'
end
end
object ds_ado_encap: TDataSource
DataSet = ado_encap
Left = 184
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -