📄 unitperson.~dfm
字号:
object frmPerson: TfrmPerson
Left = 191
Top = 153
Width = 789
Height = 538
Caption = #20010#20154#36164#26009
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 781
Height = 232
Align = alClient
Caption = #20010#20154#21015#34920
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 777
Height = 170
Align = alTop
Color = clBtnFace
Ctl3D = False
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'pid'
Title.Alignment = taCenter
Title.Caption = #25104#21592#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'Hid'
Title.Alignment = taCenter
Title.Caption = #23478#24237#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'Pname'
Title.Alignment = taCenter
Title.Caption = #25104#21592#22995#21517
Visible = True
end
item
Expanded = False
FieldName = 'Psex'
Title.Alignment = taCenter
Title.Caption = #25104#21592#24615#21035
Visible = True
end
item
Expanded = False
FieldName = 'Pbrdate'
Title.Alignment = taCenter
Title.Caption = #20986#29983#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'PholderConn'
Title.Alignment = taCenter
Title.Caption = #19982#25143#20027#20851#31995
Visible = True
end
item
Expanded = False
FieldName = 'PIsMarry'
Title.Alignment = taCenter
Title.Caption = #23130#23035#29366#20917
Visible = True
end
item
Expanded = False
FieldName = 'PNation'
Title.Alignment = taCenter
Title.Caption = #27665#26063
Visible = True
end
item
Expanded = False
FieldName = 'PWorkKind'
Title.Alignment = taCenter
Title.Caption = #24037#20316#24615#36136
Visible = True
end
item
Expanded = False
FieldName = 'PWorkName'
Title.Alignment = taCenter
Title.Caption = #21333#20301#21517#31216
Visible = True
end
item
Expanded = False
FieldName = 'PWorkAddr'
Title.Alignment = taCenter
Title.Caption = #21333#20301#22320#22336
Visible = True
end
item
Expanded = False
FieldName = 'Pphone'
Title.Alignment = taCenter
Title.Caption = #32852#31995#30005#35805
Visible = True
end
item
Expanded = False
FieldName = 'PMemo'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Visible = True
end>
end
object Panel1: TPanel
Left = 2
Top = 185
Width = 777
Height = 45
Align = alClient
TabOrder = 1
DesignSize = (
777
45)
object bbtnAdd: TBitBtn
Left = 18
Top = 8
Width = 75
Height = 33
Anchors = [akTop]
Caption = #28155#21152
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = bbtnAddClick
end
object bbtnModify: TBitBtn
Left = 418
Top = 8
Width = 75
Height = 33
Anchors = [akTop]
Caption = #20462#25913
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = bbtnModifyClick
end
object bbtnDel: TBitBtn
Left = 146
Top = 8
Width = 75
Height = 33
Anchors = [akTop]
Caption = #21024#38500
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = bbtnDelClick
end
object bbtnSave: TBitBtn
Left = 554
Top = 8
Width = 75
Height = 33
Anchors = [akTop]
Caption = #20445#23384
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = bbtnSaveClick
end
object bbtnCancel: TBitBtn
Left = 282
Top = 8
Width = 75
Height = 33
Anchors = [akTop]
Caption = #21462#28040
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = bbtnCancelClick
end
object bbtnExit: TBitBtn
Left = 682
Top = 8
Width = 75
Height = 33
Anchors = [akTop]
Caption = #36864#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = bbtnExitClick
end
end
end
object pclPerson: TPageControl
Left = 0
Top = 232
Width = 781
Height = 279
ActivePage = TabSheet1
Align = alBottom
TabOrder = 1
object TabSheet1: TTabSheet
Caption = #32534#36753
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
object GroupBox2: TGroupBox
Left = 0
Top = 18
Width = 773
Height = 233
Align = alBottom
Caption = #20010#20154#36164#26009#32534#36753#21306
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 21
Top = 69
Width = 73
Height = 16
AutoSize = False
Caption = #25104#21592#32534#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 21
Top = 30
Width = 73
Height = 16
AutoSize = False
Caption = #23478#24237#32534#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 21
Top = 105
Width = 73
Height = 16
AutoSize = False
Caption = #25104#21592#22995#21517#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 21
Top = 141
Width = 73
Height = 16
AutoSize = False
Caption = #25104#21592#24615#21035#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 21
Top = 177
Width = 73
Height = 16
AutoSize = False
Caption = #20986#29983#24180#26376#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 292
Top = 30
Width = 111
Height = 16
AutoSize = False
Caption = #19982#25143#20027#20851#31995#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 304
Top = 63
Width = 75
Height = 16
AutoSize = False
Caption = #23130#23035#29366#20917#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 299
Top = 105
Width = 74
Height = 16
AutoSize = False
Caption = #27665' '#26063#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 304
Top = 137
Width = 74
Height = 16
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -