📄 unit20.dfm
字号:
object Form20: TForm20
Left = 215
Top = 111
Width = 693
Height = 471
Caption = #20462#25913#23458#25143#20449#24687
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 337
Height = 439
Align = alLeft
Caption = #20462#25913#23458#25143#20449#24687
TabOrder = 0
object Label1: TLabel
Left = 52
Top = 40
Width = 48
Height = 13
Caption = #23458#25143#21495#65306
end
object Label2: TLabel
Left = 64
Top = 73
Width = 36
Height = 13
Caption = #22995#21517#65306
end
object Label3: TLabel
Left = 64
Top = 106
Width = 36
Height = 13
Caption = #24615#21035#65306
end
object Label4: TLabel
Left = 64
Top = 139
Width = 36
Height = 13
Caption = #29983#26085#65306
end
object Label5: TLabel
Left = 40
Top = 172
Width = 60
Height = 13
Caption = #20852#36259#29233#22909#65306
end
object Label6: TLabel
Left = 40
Top = 205
Width = 60
Height = 13
Caption = #32852#31995#30005#35805#65306
end
object DBText1: TDBText
Left = 104
Top = 38
Width = 193
Height = 17
DataField = #23458#25143#21495
DataSource = DataSource1
end
object Label7: TLabel
Left = 48
Top = 238
Width = 52
Height = 13
Caption = 'QQ'#21495#30721#65306
end
object Label8: TLabel
Left = 29
Top = 271
Width = 71
Height = 13
Caption = 'E-MAIL'#22320#22336#65306
end
object Label9: TLabel
Left = 64
Top = 304
Width = 36
Height = 13
Caption = #22320#22336#65306
end
object Button2: TButton
Left = 248
Top = 400
Width = 65
Height = 25
Caption = #21462#28040
TabOrder = 0
OnClick = Button2Click
end
object DBEdit2: TDBEdit
Left = 104
Top = 102
Width = 193
Height = 21
DataField = #24615#21035
DataSource = DataSource1
TabOrder = 1
end
object DBEdit4: TDBEdit
Left = 104
Top = 168
Width = 193
Height = 21
DataField = #20852#36259#29233#22909
DataSource = DataSource1
TabOrder = 2
end
object DBMemo1: TDBMemo
Left = 104
Top = 302
Width = 193
Height = 59
DataField = #22320#22336
DataSource = DataSource1
TabOrder = 3
end
object Button4: TButton
Left = 24
Top = 400
Width = 65
Height = 25
Action = DataSetPrior1
Caption = #19978#19968#26465
TabOrder = 4
end
object Button5: TButton
Left = 136
Top = 400
Width = 65
Height = 25
Action = DataSetNext1
Caption = #19979#19968#26465
TabOrder = 5
end
object DBEdit1: TDBEdit
Left = 104
Top = 69
Width = 193
Height = 21
DataField = #22995#21517
DataSource = DataSource1
TabOrder = 6
end
object DBEdit5: TDBEdit
Left = 104
Top = 201
Width = 193
Height = 21
DataField = #32852#31995#30005#35805
DataSource = DataSource1
TabOrder = 7
end
object DBEdit6: TDBEdit
Left = 104
Top = 234
Width = 193
Height = 21
DataField = 'QQ'#21495#30721
DataSource = DataSource1
TabOrder = 8
end
object DBEdit7: TDBEdit
Left = 104
Top = 267
Width = 193
Height = 21
DataField = 'E-MAIL'#22320#22336
DataSource = DataSource1
TabOrder = 9
end
object DBEdit3: TDBEdit
Left = 104
Top = 135
Width = 193
Height = 21
DataField = #29983#26085
DataSource = DataSource1
TabOrder = 10
end
end
object DBGrid1: TDBGrid
Left = 337
Top = 0
Width = 320
Height = 439
Align = alLeft
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #23458#25143#21495
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #22995#21517
Width = 50
Visible = True
end
item
Expanded = False
FieldName = #24615#21035
Width = 30
Visible = True
end
item
Expanded = False
FieldName = #29983#26085
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #20852#36259#29233#22909
Width = 80
Visible = True
end>
end
object ActionList1: TActionList
Left = 496
Top = 248
object DataSetPrior1: TDataSetPrior
Category = 'Dataset'
Caption = 'DataSetPrior1'
end
object DataSetNext1: TDataSetNext
Category = 'Dataset'
Caption = 'DataSetNext1'
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=lygl.mdb;Persist Se' +
'curity Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 464
Top = 232
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = #23458#25143#20449#24687#34920
Left = 440
Top = 296
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 520
Top = 296
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 416
Top = 216
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -