?? combox.dfm
字號:
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
object btnAbout: TButton
Left = 10
Top = 17
Width = 95
Height = 20
Caption = #20851#20110'[H]'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = ButtonSet
end
object btnExit: TButton
Left = 10
Top = 45
Width = 95
Height = 20
Cancel = True
Caption = #36864#20986'[Q]'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = ButtonSet
end
end
end
object Panel2: TPanel
Left = 2
Top = 2
Width = 634
Height = 511
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object Panel5: TPanel
Left = 1
Top = 1
Width = 632
Height = 56
Align = alTop
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
632
56)
object lblRecCount: TLabel
Left = 493
Top = 16
Width = 42
Height = 12
Anchors = [akRight]
Caption = #31532'[0]'#26465
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object btnRelease: TButton
Left = 117
Top = 14
Width = 96
Height = 20
Caption = #21047#26032#35760#24405'[S]'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = ButtonSet
end
object btnadd: TButton
Left = 9
Top = 14
Width = 95
Height = 20
Caption = #28155#21152#32852#31995#20154'[A]'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = ButtonSet
end
object btnLast: TButton
Left = 590
Top = 14
Width = 28
Height = 20
Anchors = [akRight]
Caption = '>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = RecordLeader
end
object btnNext: TButton
Left = 554
Top = 14
Width = 28
Height = 20
Anchors = [akRight]
Caption = '>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = RecordLeader
end
object btnPrev: TButton
Left = 442
Top = 14
Width = 28
Height = 20
Anchors = [akRight]
Caption = '<'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = RecordLeader
end
object btnFirst: TButton
Left = 402
Top = 14
Width = 28
Height = 20
Anchors = [akRight]
Caption = '<<'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = RecordLeader
end
end
object dgList: TDBGrid
Left = 1
Top = 57
Width = 632
Height = 453
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = dgListDblClick
OnKeyDown = dgListKeyDown
Columns = <
item
Expanded = False
FieldName = 'ID'
Title.Caption = #32534#21495
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'Name'
Title.Caption = #22995#21517
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'Sex'
PickList.Strings = (
#30007
#22899)
Title.Caption = #24615#21035
Width = 31
Visible = True
end
item
Expanded = False
FieldName = 'HP'
Title.Caption = #25163#26426
Width = 104
Visible = True
end
item
Expanded = False
FieldName = 'Phone'
Title.Caption = #23478#24237#30005#35805
Width = 101
Visible = True
end
item
Expanded = False
FieldName = 'ComPhone'
Title.Caption = #20844#21496#30005#35805
Width = 94
Visible = True
end
item
Expanded = False
FieldName = 'QQ'
Width = 95
Visible = True
end
item
Expanded = False
FieldName = 'PersonType'
PickList.Strings = (
#20146#25114
#26379#21451
#21516#23398
#21516#20107
#23458#25143
#20854#20182)
Title.Caption = #31867#22411
Width = 57
Visible = True
end>
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -