📄 unitperson.~dfm
字号:
AutoSize = False
Caption = #24037#20316#24615#36136#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 305
Top = 174
Width = 74
Height = 16
AutoSize = False
Caption = #24037#20316#21333#20301#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 22
Top = 209
Width = 74
Height = 16
AutoSize = False
Caption = #32852#31995#30005#35805#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 306
Top = 207
Width = 74
Height = 16
AutoSize = False
Caption = #21333#20301#22320#22336#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 531
Top = 28
Width = 74
Height = 16
AutoSize = False
Caption = #22791' '#27880#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edtpid: TEdit
Left = 94
Top = 63
Width = 144
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object edtPname: TEdit
Left = 94
Top = 100
Width = 144
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object cbxHId: TComboBox
Left = 93
Top = 26
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 2
OnChange = cbxHIdChange
end
object cbxPsex: TComboBox
Left = 93
Top = 136
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 3
end
object DTPPborn: TDateTimePicker
Left = 93
Top = 173
Width = 145
Height = 21
Date = 38686.640689375000000000
Time = 38686.640689375000000000
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object cbxConn: TComboBox
Left = 373
Top = 25
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 5
end
object cbxIsMarry: TComboBox
Left = 373
Top = 60
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 6
end
object edtNation: TEdit
Left = 373
Top = 97
Width = 144
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object edtWorkKind: TEdit
Left = 373
Top = 135
Width = 144
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object edtWorkName: TEdit
Left = 373
Top = 169
Width = 144
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object edtPPhone: TEdit
Left = 93
Top = 206
Width = 144
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object edtWorkAddr: TEdit
Left = 373
Top = 205
Width = 144
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object memPerson: TMemo
Left = 533
Top = 46
Width = 228
Height = 179
Lines.Strings = (
'memPerson')
TabOrder = 12
end
end
end
object TabSheet2: TTabSheet
Caption = #26597#35810
ImageIndex = 1
object GroupBox4: TGroupBox
Left = 0
Top = 0
Width = 481
Height = 251
Align = alLeft
Caption = #26597#35810#26465#20214
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
DesignSize = (
481
251)
object Label20: TLabel
Left = 22
Top = 62
Width = 73
Height = 16
Anchors = [akTop]
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 Label21: TLabel
Left = 22
Top = 100
Width = 73
Height = 16
Anchors = [akTop]
AutoSize = False
Caption = #23478#24237#31616#31216#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 22
Top = 139
Width = 73
Height = 16
Anchors = [akTop]
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 edtFname: TEdit
Left = 100
Top = 95
Width = 139
Height = 19
Anchors = [akTop]
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object edtpersonName: TEdit
Left = 100
Top = 135
Width = 139
Height = 19
Anchors = [akTop]
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object cbxFno: TComboBox
Left = 99
Top = 56
Width = 142
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 2
end
end
object GroupBox5: TGroupBox
Left = 481
Top = 0
Width = 292
Height = 251
Align = alClient
Caption = #25805#20316#21306
TabOrder = 1
DesignSize = (
292
251)
object bbtnSearch: TBitBtn
Left = 101
Top = 52
Width = 61
Height = 51
Anchors = [akTop]
Caption = #26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = bbtnSearchClick
Layout = blGlyphTop
end
object bbtngoto: TBitBtn
Left = 101
Top = 124
Width = 61
Height = 51
Anchors = [akTop]
Caption = #36820#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = bbtngotoClick
Layout = blGlyphTop
end
end
end
end
object adoPerson: TADOQuery
AfterScroll = adoPersonAfterScroll
Parameters = <>
Left = 568
Top = 96
end
object DataSource1: TDataSource
DataSet = adoPerson
Left = 512
Top = 96
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -