📄 unit6.dfm
字号:
object Form6: TForm6
Left = 326
Top = 181
Width = 600
Height = 500
Caption = #20303#25143#20572#36710#36710#20301#31649#29702
Color = clBtnFace
Constraints.MaxHeight = 500
Constraints.MaxWidth = 600
Constraints.MinHeight = 500
Constraints.MinWidth = 600
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 592
Height = 217
Align = alTop
Enabled = False
TabOrder = 0
object Label2: TLabel
Left = 288
Top = 24
Width = 52
Height = 13
Caption = #20303#25143#32534#21495
FocusControl = DBEdit2
end
object Label5: TLabel
Left = 56
Top = 104
Width = 26
Height = 13
Caption = #29366#24577
end
object Label3: TLabel
Left = 56
Top = 24
Width = 40
Height = 13
Caption = #36710#20301'ID'
FocusControl = DBLookupComboBox1
end
object Label1: TLabel
Left = 56
Top = 64
Width = 52
Height = 13
Caption = #20351#29992#26102#38388
FocusControl = DBEdit1
end
object DBEdit2: TDBEdit
Left = 360
Top = 24
Width = 130
Height = 21
DataField = #20303#25143#32534#21495
DataSource = DataSource1
TabOrder = 0
end
object DBMemo1: TDBMemo
Left = 118
Top = 104
Width = 370
Height = 97
DataField = #29366#24577
DataSource = DataSource1
TabOrder = 1
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 112
Top = 24
Width = 100
Height = 21
DataField = #36710#20301'ID'
DataSource = DataSource1
TabOrder = 2
end
object DBEdit1: TDBEdit
Left = 112
Top = 64
Width = 100
Height = 21
DataField = #20351#29992#26102#38388
DataSource = DataSource1
TabOrder = 3
end
end
object Panel2: TPanel
Left = 0
Top = 217
Width = 592
Height = 167
Align = alClient
TabOrder = 1
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 590
Height = 165
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #36710#20301#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #20303#25143#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #20351#29992#26102#38388
Visible = True
end
item
Expanded = False
FieldName = #29366#24577
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 384
Width = 592
Height = 87
Align = alBottom
TabOrder = 2
object Button1: TButton
Left = 32
Top = 22
Width = 76
Height = 30
Caption = #28155#21152'(&A)'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 128
Top = 22
Width = 76
Height = 30
Caption = #20462#25913'(&E)'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 216
Top = 22
Width = 76
Height = 30
Caption = #20445#23384'(&P)'
Enabled = False
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 296
Top = 22
Width = 76
Height = 30
Caption = #21024#38500'(&D)'
TabOrder = 3
OnClick = Button4Click
end
object Button5: TButton
Left = 384
Top = 22
Width = 76
Height = 30
Caption = #21462#28040
TabOrder = 4
OnClick = Button5Click
end
object Button6: TButton
Left = 480
Top = 22
Width = 76
Height = 30
Caption = #36864#20986
TabOrder = 5
OnClick = Button6Click
end
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XQ.mdb;Persist Secu' +
'rity Info=False'
CursorType = ctStatic
TableName = #20572#36710#22330#20351#29992#36164#26009#34920
Left = 8
Top = 8
object ADOTable1DSDesigner: TIntegerField
FieldName = #36710#20301#32534#21495
end
object ADOTable1DSDesigner2: TIntegerField
FieldName = #20303#25143#32534#21495
end
object ADOTable1DSDesigner3: TDateTimeField
FieldName = #20351#29992#26102#38388
end
object ADOTable1DSDesigner4: TWideStringField
FieldName = #29366#24577
Size = 50
end
object ADOTable1ID: TStringField
FieldKind = fkLookup
FieldName = #36710#20301'ID'
LookupDataSet = ADOTable2
LookupKeyFields = #36710#20301#32534#21495
LookupResultField = #36710#20301#32534#21495
KeyFields = #36710#20301#32534#21495
Lookup = True
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 72
Top = 8
end
object ADOTable2: TADOTable
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XQ.mdb;Persist Secu' +
'rity Info=False'
CursorType = ctStatic
TableName = #20572#36710#22330#36164#26009#34920
Left = 8
Top = 72
end
object DataSource2: TDataSource
DataSet = ADOTable2
Left = 24
Top = 112
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -