📄 unit8.dfm
字号:
object Form8: TForm8
Left = 234
Top = 202
Width = 565
Height = 376
Caption = #35838#31243#35774#32622
Color = 10984091
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 24
Top = 16
Width = 521
Height = 321
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #35774#32622#35838#31243
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
object Label1: TLabel
Left = 16
Top = 16
Width = 39
Height = 16
Caption = #39034#24207#21495
FocusControl = DBEdit1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 64
Width = 26
Height = 16
Caption = #35838#31243
FocusControl = DBEdit2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 112
Width = 52
Height = 16
Caption = #35838#31243#31867#22411
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 16
Top = 160
Width = 26
Height = 16
Caption = #31867#21035
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 312
Top = 8
Width = 26
Height = 16
Caption = #23398#20998
FocusControl = DBEdit5
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 312
Top = 64
Width = 26
Height = 16
Caption = #23398#26102
FocusControl = DBEdit5
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 16
Top = 208
Width = 52
Height = 13
Caption = #21069#32493#21518#32493
end
object DBEdit1: TDBEdit
Left = 16
Top = 32
Width = 200
Height = 21
DataField = #32534#21495
DataSource = DataSource1
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 16
Top = 80
Width = 200
Height = 21
DataField = #35838#31243
DataSource = DataSource1
TabOrder = 1
end
object DBEdit5: TDBEdit
Left = 312
Top = 32
Width = 153
Height = 21
Color = 8454143
DataField = #23398#20998
DataSource = DataSource1
TabOrder = 2
end
object DBComboBox1: TDBComboBox
Left = 16
Top = 128
Width = 137
Height = 21
DataField = #35838#31243#31867#22411
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#20844#20849#22522#30784#35838
#19987#19994#22522#30784#35838
#19987#19994#35838)
TabOrder = 3
end
object DBComboBox2: TDBComboBox
Left = 16
Top = 176
Width = 145
Height = 21
DataField = #31867#21035
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#24517#20462
#36873#20462
#20219#36873)
TabOrder = 4
end
object DBNavigator1: TDBNavigator
Left = 240
Top = 208
Width = 230
Height = 25
DataSource = DataSource1
TabOrder = 5
end
object DBEdit3: TDBEdit
Left = 312
Top = 88
Width = 153
Height = 21
Color = 8454143
DataField = #23398#26102
DataSource = DataSource1
TabOrder = 6
end
object DBComboBox3: TDBComboBox
Left = 16
Top = 224
Width = 145
Height = 21
DataField = #21069#32493#21518#32493
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#21069#32493
#21518#32493)
TabOrder = 7
end
end
object TabSheet2: TTabSheet
Caption = #34920#26684#26041#24335
ImageIndex = 1
object DBGrid1: TDBGrid
Left = 8
Top = 4
Width = 497
Height = 277
Color = clInfoBk
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #32534#21495
Width = 42
Visible = True
end
item
Expanded = False
FieldName = #35838#31243
Width = 82
Visible = True
end
item
Expanded = False
FieldName = #35838#31243#31867#22411
Width = 70
Visible = True
end
item
Expanded = False
FieldName = #31867#21035
Width = 38
Visible = True
end
item
Expanded = False
FieldName = #21069#32493#21518#32493
Width = 54
Visible = True
end
item
Expanded = False
FieldName = #23398#20998
Width = 35
Visible = True
end
item
Expanded = False
FieldName = #23398#26102
Visible = True
end>
end
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 320
Top = 312
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wl.mdb;Persist Secu' +
'rity Info=False'
CursorType = ctStatic
TableName = 'kclx_px'
Left = 264
Top = 312
object ADOTable1DSDesigner: TIntegerField
FieldName = #32534#21495
end
object ADOTable1DSDesigner2: TWideStringField
FieldName = #35838#31243
Size = 50
end
object ADOTable1DSDesigner3: TWideStringField
FieldName = #35838#31243#31867#22411
Size = 50
end
object ADOTable1DSDesigner4: TWideStringField
FieldName = #31867#21035
Size = 50
end
object ADOTable1DSDesigner5: TWideStringField
FieldName = #21069#32493#21518#32493
Size = 50
end
object ADOTable1DSDesigner6: TIntegerField
FieldName = #23398#20998
end
object ADOTable1DSDesigner7: TIntegerField
FieldName = #23398#26102
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -