📄 user.dfm
字号:
object userform: Tuserform
Left = 193
Top = 98
Width = 768
Height = 565
BorderIcons = [biSystemMenu, biMinimize]
Caption = #29992#25143#20449#24687#31649#29702
Color = clCream
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 16
Top = 8
Width = 737
Height = 321
DataSource = DataSource1
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = 'name'
Title.Alignment = taCenter
Title.Caption = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = 'address'
Title.Alignment = taCenter
Title.Caption = #22320#22336
Width = 152
Visible = True
end
item
Expanded = False
FieldName = 'shnegfengzhen'
Title.Alignment = taCenter
Title.Caption = #35777#20214#21517#21495
Width = 139
Visible = True
end
item
Expanded = False
FieldName = 'tel1'
Title.Alignment = taCenter
Title.Caption = #25163#26426
Width = 81
Visible = True
end
item
Expanded = False
FieldName = 'tel2'
Title.Alignment = taCenter
Title.Caption = #24231#26426
Width = 96
Visible = True
end
item
Expanded = False
FieldName = 'sex'
Title.Alignment = taCenter
Title.Caption = #24615#21035
Width = 29
Visible = True
end
item
Expanded = False
FieldName = 'date'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #28155#21152#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'other'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 89
Visible = True
end>
end
object BitBtn1: TBitBtn
Left = 148
Top = 486
Width = 75
Height = 25
Caption = #26032' '#24314
TabOrder = 1
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 284
Top = 486
Width = 75
Height = 25
Caption = #21024' '#38500
TabOrder = 2
OnClick = BitBtn2Click
end
object GroupBox1: TGroupBox
Left = 48
Top = 336
Width = 657
Height = 145
Caption = #35814#32454#20449#24687
TabOrder = 3
object Label1: TLabel
Left = 34
Top = 25
Width = 39
Height = 13
Caption = #22995#12288#21517
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 209
Top = 26
Width = 40
Height = 13
Caption = #22320' '#22336
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 27
Top = 58
Width = 52
Height = 13
Caption = #35777#20214#21495#30721
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 34
Top = 88
Width = 26
Height = 13
Caption = #24231#26426
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 218
Top = 88
Width = 40
Height = 13
Caption = #24615' '#21035
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 350
Top = 88
Width = 52
Height = 13
Caption = #28155#21152#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 35
Top = 122
Width = 39
Height = 13
Caption = #22791#12288#27880
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 219
Top = 58
Width = 26
Height = 13
Caption = #25163#26426
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object ComboBox1: TComboBox
Left = 264
Top = 84
Width = 57
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 7
Text = #30007
Items.Strings = (
#30007
#22899)
end
object Edit1: TEdit
Left = 91
Top = 21
Width = 97
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Edit1'
OnExit = Edit1Exit
end
object Edit2: TEdit
Left = 267
Top = 21
Width = 366
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Text = 'Edit2'
end
object Edit3: TEdit
Left = 91
Top = 53
Width = 97
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Text = 'Edit3'
end
object Edit4: TEdit
Left = 251
Top = 53
Width = 158
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
Text = 'Edit4'
end
object Edit6: TEdit
Left = 67
Top = 85
Width = 118
Height = 21
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
Text = 'Edit6'
end
object Edit7: TEdit
Left = 408
Top = 80
Width = 137
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
Text = 'Edit7'
end
object Edit8: TEdit
Left = 80
Top = 112
Width = 545
Height = 21
TabOrder = 6
Text = 'Edit8'
end
end
object BitBtn3: TBitBtn
Left = 428
Top = 486
Width = 75
Height = 25
Caption = #30830' '#23450
TabOrder = 4
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 548
Top = 486
Width = 75
Height = 25
Caption = #36864' '#20986
TabOrder = 5
OnClick = BitBtn4Click
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 416
Top = 96
end
object ADOTable1: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
AfterScroll = ADOTable1AfterScroll
TableName = 'xinxi'
Left = 296
Top = 96
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 192
Top = 96
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -