📄 ygzbxxxr.dfm
字号:
CalAlignment = dtaLeft
Date = 33109.5668164352
Time = 33109.5668164352
DateFormat = dfLong
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 4
end
object Edit1: TEdit
Left = 88
Top = 14
Width = 113
Height = 23
Enabled = False
TabOrder = 5
OnKeyPress = Edit1KeyPress
end
object ComboBox1: TComboBox
Left = 87
Top = 51
Width = 89
Height = 23
Enabled = False
ItemHeight = 15
TabOrder = 6
Items.Strings = (
'男'
'女')
end
object ComboBox2: TComboBox
Left = 310
Top = 50
Width = 97
Height = 23
Enabled = False
ItemHeight = 15
TabOrder = 7
Items.Strings = (
'党员'
'团员'
'群众')
end
object ComboBox3: TComboBox
Left = 552
Top = 51
Width = 105
Height = 23
Enabled = False
ItemHeight = 15
TabOrder = 8
Items.Strings = (
'博研'
'硕研'
'大本'
'大专'
'高中'
'初中'
'小学')
end
object Edit3: TEdit
Left = 312
Top = 86
Width = 137
Height = 23
Enabled = False
TabOrder = 9
end
object Edit2: TEdit
Left = 310
Top = 14
Width = 121
Height = 23
Enabled = False
TabOrder = 10
OnKeyPress = Edit2KeyPress
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 172
Width = 665
Height = 85
Caption = '联系信息'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label14: TLabel
Left = 12
Top = 20
Width = 60
Height = 15
Caption = '家庭住址'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 436
Top = 58
Width = 90
Height = 15
Caption = '固定联系电话'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 216
Top = 58
Width = 60
Height = 15
Caption = '手机号码'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 17
Top = 58
Width = 48
Height = 15
Caption = 'E-mail'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Bevel4: TBevel
Left = 3
Top = 44
Width = 662
Height = 2
Shape = bsTopLine
end
object Bevel10: TBevel
Left = 79
Top = 9
Width = 2
Height = 73
end
object Bevel11: TBevel
Left = 210
Top = 44
Width = 2
Height = 40
end
object Bevel12: TBevel
Left = 430
Top = 45
Width = 2
Height = 40
end
object Bevel13: TBevel
Left = 531
Top = 45
Width = 2
Height = 40
end
object Bevel14: TBevel
Left = 299
Top = 45
Width = 2
Height = 40
end
object Edit5: TEdit
Left = 88
Top = 56
Width = 113
Height = 23
Enabled = False
TabOrder = 0
OnKeyPress = Edit5KeyPress
end
object Edit6: TEdit
Left = 304
Top = 54
Width = 121
Height = 23
Enabled = False
TabOrder = 1
OnKeyPress = Edit6KeyPress
end
object Edit7: TEdit
Left = 536
Top = 53
Width = 121
Height = 23
Enabled = False
TabOrder = 2
OnKeyPress = Edit7KeyPress
end
end
object Edit4: TEdit
Left = 104
Top = 187
Width = 361
Height = 24
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnKeyPress = Edit4KeyPress
end
end
object Panel3: TPanel
Left = 0
Top = 329
Width = 703
Height = 55
Align = alClient
TabOrder = 2
object Button1: TButton
Left = 72
Top = 16
Width = 89
Height = 25
Caption = '增加(&I)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object Button3: TButton
Left = 232
Top = 16
Width = 89
Height = 25
Caption = '提交(&X)'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button3Click
end
object Button4: TButton
Left = 406
Top = 16
Width = 89
Height = 25
Caption = '退出(&E)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button4Click
end
object Button2: TButton
Left = 560
Top = 16
Width = 89
Height = 25
Caption = '帮助(&H)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button2Click
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 168
Top = 16
end
object Query1: TQuery
DatabaseName = 'rsgzgl'
SQL.Strings = (
'select * from ygzlb')
Left = 104
Top = 16
end
object Query2: TQuery
Active = True
DatabaseName = 'rsgzgl'
SQL.Strings = (
'select mc from jbcsb where lx=2')
Left = 520
Top = 161
end
object DataSource2: TDataSource
DataSet = Query2
Left = 496
Top = 161
end
object Query3: TQuery
Active = True
DatabaseName = 'rsgzgl'
SQL.Strings = (
'select mc from jbcsb where lx=3')
Left = 360
Top = 201
end
object DataSource3: TDataSource
DataSet = Query3
Left = 336
Top = 209
end
object Query4: TQuery
Active = True
DatabaseName = 'rsgzgl'
SQL.Strings = (
'select mc from jbcsb where lx=4')
Left = 584
Top = 201
end
object DataSource4: TDataSource
DataSet = Query4
Left = 568
Top = 209
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -