📄 registermember.dfm
字号:
object frmRegisterMember: TfrmRegisterMember
Left = -4
Top = -4
Width = 808
Height = 608
BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
Caption = #20250#21592#36164#26009#24405#20837
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label16: TLabel
Left = 640
Top = 120
Width = 124
Height = 13
Caption = #65288#24102'*'#21495#30340#20026#24517#22635#20449#24687#65289
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 8
Top = 0
Width = 785
Height = 201
Caption = #22635#20889#20250#21592#22522#26412#20449#24687
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label5: TLabel
Left = 48
Top = 68
Width = 24
Height = 13
Caption = #23398#21382
end
object Label2: TLabel
Left = 480
Top = 24
Width = 24
Height = 13
Caption = #27665#26063
end
object Label1: TLabel
Left = 192
Top = 24
Width = 48
Height = 13
Caption = #20250#21592#22995#21517
end
object Label11: TLabel
Left = 360
Top = 24
Width = 24
Height = 13
Caption = #24615#21035
end
object Label8: TLabel
Left = 640
Top = 24
Width = 24
Height = 13
Caption = #29983#26085
end
object Label10: TLabel
Left = 640
Top = 68
Width = 24
Height = 13
Caption = #28857#25968
end
object Label9: TLabel
Left = 192
Top = 68
Width = 48
Height = 13
Caption = #32852#31995#30005#35805
end
object Label7: TLabel
Left = 24
Top = 116
Width = 48
Height = 13
Caption = #20837#20250#26102#38388
end
object Label3: TLabel
Left = 360
Top = 68
Width = 24
Height = 13
Caption = #20303#22336
end
object Label4: TLabel
Left = 216
Top = 116
Width = 24
Height = 13
Caption = #32467#20313
end
object Label6: TLabel
Left = 640
Top = 116
Width = 24
Height = 13
Caption = #32423#21035
end
object Label12: TLabel
Left = 24
Top = 24
Width = 48
Height = 13
Caption = #20250#21592#32534#21495
end
object TLabel
Left = 360
Top = 116
Width = 24
Height = 13
Caption = #27424#27454
end
object TLabel
Left = 48
Top = 160
Width = 24
Height = 13
Caption = #22791#27880
end
object Label13: TLabel
Left = 328
Top = 116
Width = 18
Height = 13
Caption = '('#20803')'
end
object Label14: TLabel
Left = 472
Top = 116
Width = 18
Height = 13
Caption = '('#20803')'
end
object Label15: TLabel
Left = 496
Top = 116
Width = 24
Height = 13
Caption = #32844#19994
end
object dot: TLabel
Left = 672
Top = 68
Width = 6
Height = 13
Caption = '0'
end
object level: TLabel
Left = 672
Top = 115
Width = 48
Height = 13
Caption = #26222#36890#20250#21592
end
object Label17: TLabel
Left = 336
Top = 20
Width = 7
Height = 24
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 160
Top = 112
Width = 7
Height = 24
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 752
Top = 20
Width = 7
Height = 24
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 320
Top = 112
Width = 7
Height = 24
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 464
Top = 112
Width = 7
Height = 24
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 616
Top = 176
Width = 137
Height = 13
Caption = #65288#24102'*'#21495#30340#20026#24517#22635#20449#24687#65289
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object eduLevel: TComboBox
Left = 80
Top = 64
Width = 81
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
Items.Strings = (
#21338#22763
#30805#22763
#26412#31185
#19987#31185
#39640#20013
#20854#20182)
end
object folk: TEdit
Left = 512
Top = 20
Width = 105
Height = 21
TabOrder = 1
end
object memberName: TEdit
Left = 248
Top = 20
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object gender: TComboBox
Left = 392
Top = 20
Width = 65
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 3
Items.Strings = (
#30007
#22899)
end
object birthday: TDateTimePicker
Left = 672
Top = 20
Width = 81
Height = 21
CalAlignment = dtaLeft
Date = 37642.3892438079
Time = 37642.3892438079
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 4
end
object joinTime: TDateTimePicker
Left = 80
Top = 112
Width = 81
Height = 21
CalAlignment = dtaLeft
Date = 37642.3892309375
Time = 37642.3892309375
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 5
end
object address: TEdit
Left = 392
Top = 64
Width = 225
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object balance: TEdit
Left = 248
Top = 112
Width = 73
Height = 21
TabOrder = 7
end
object telephone: TEdit
Left = 248
Top = 64
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object memberId: TEdit
Left = 80
Top = 20
Width = 81
Height = 21
Color = cl3DLight
ReadOnly = True
TabOrder = 9
end
object deficiency: TEdit
Left = 392
Top = 112
Width = 73
Height = 21
TabOrder = 10
end
object note: TEdit
Left = 80
Top = 156
Width = 449
Height = 21
TabOrder = 11
end
object btnOk: TButton
Left = 600
Top = 148
Width = 65
Height = 21
Caption = #24405' '#20837
TabOrder = 12
OnClick = btnOkClick
end
object btnClear: TButton
Left = 684
Top = 148
Width = 65
Height = 21
Caption = #28165' '#23631
TabOrder = 13
OnClick = btnClearClick
end
object profession: TComboBox
Left = 528
Top = 112
Width = 97
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 14
Items.Strings = (
#35745#31639#26426#19994
#24037#31243#24072
#26381#21153#19994
#20860#32844
#25945#32946#19994
#37329#34701#19994
#32769#26495
#20840#32844
#21830#19994
#36864#20241
#23398#29983
#25919#24220#37096#38376
#21046#36896#19994
#38144#21806'/'#24191#21578'/'#24066#22330
#22833#19994#20013)
end
end
object Panel1: TPanel
Left = 8
Top = 208
Width = 785
Height = 233
BevelInner = bvLowered
BevelOuter = bvLowered
Color = clBtnShadow
TabOrder = 1
object DBGrid1: TDBGrid
Left = 2
Top = 2
Width = 781
Height = 229
Align = alClient
Color = clBtnShadow
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object GroupBox3: TGroupBox
Left = 8
Top = 443
Width = 209
Height = 38
Caption = #25490#24207#26041#27861
TabOrder = 2
object asc: TRadioButton
Left = 32
Top = 16
Width = 49
Height = 17
Caption = #21319#24207
Checked = True
TabOrder = 0
TabStop = True
OnClick = ascClick
end
object desc: TRadioButton
Left = 120
Top = 16
Width = 41
Height = 17
Caption = #38477#24207
TabOrder = 1
OnClick = descClick
end
end
object TGroupBox: TGroupBox
Left = 224
Top = 443
Width = 570
Height = 38
Caption = #25490#24207#20869#23481
TabOrder = 3
object id: TRadioButton
Left = 56
Top = 16
Width = 41
Height = 17
Caption = #32534#21495
Checked = True
TabOrder = 0
TabStop = True
OnClick = idClick
end
object name: TRadioButton
Left = 189
Top = 16
Width = 41
Height = 17
Caption = #22995#21517
TabOrder = 1
OnClick = nameClick
end
object edu: TRadioButton
Left = 322
Top = 16
Width = 41
Height = 17
Caption = #32423#21035
TabOrder = 2
OnClick = eduClick
end
object join: TRadioButton
Left = 456
Top = 16
Width = 73
Height = 17
Caption = #20837#20250#26102#38388
TabOrder = 3
OnClick = joinClick
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 272
Top = 176
end
object Query1: TQuery
Active = True
DatabaseName = 'WorkData'
SQL.Strings = (
'select * from member order by '#20250#21592#32534#21495' asc')
Left = 224
Top = 176
end
object Table1: TTable
DatabaseName = 'WorkData'
TableName = 'member.DB'
Left = 328
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -