📄 ygzbxxwh.dfm
字号:
'大专'
'高中'
'初中'
'小学')
TabOrder = 5
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 551
Top = 85
Width = 105
Height = 23
DataField = 'Ssbm'
DataSource = DataSource1
Enabled = False
KeyField = 'mc'
ListField = 'mc'
ListSource = DataSource2
TabOrder = 6
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 310
Top = 121
Width = 105
Height = 23
DataField = 'Zw'
DataSource = DataSource1
Enabled = False
KeyField = 'mc'
ListField = 'mc'
ListSource = DataSource3
TabOrder = 7
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 551
Top = 121
Width = 105
Height = 23
DataField = 'Zc'
DataSource = DataSource1
Enabled = False
KeyField = 'mc'
ListField = 'mc'
ListSource = DataSource4
TabOrder = 8
end
object DateTimePicker2: TDateTimePicker
Left = 86
Top = 121
Width = 123
Height = 23
CalAlignment = dtaLeft
Date = 0.566816435202782
Time = 0.566816435202782
DateFormat = dfLong
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 9
end
object Edit1: TEdit
Left = 88
Top = 15
Width = 89
Height = 23
TabOrder = 10
OnKeyPress = Edit1KeyPress
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 = 282
Top = 45
Width = 2
Height = 40
end
object DBEdit4: TDBEdit
Left = 88
Top = 54
Width = 113
Height = 23
DataField = 'Email'
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
end
object DBEdit5: TDBEdit
Left = 288
Top = 54
Width = 129
Height = 23
DataField = 'Sjhm'
DataSource = DataSource1
ReadOnly = True
TabOrder = 1
end
object DBEdit6: TDBEdit
Left = 536
Top = 54
Width = 121
Height = 23
DataField = 'Gdlxdh'
DataSource = DataSource1
ReadOnly = True
TabOrder = 2
end
object DBEdit7: TDBEdit
Left = 88
Top = 16
Width = 361
Height = 23
DataField = 'Jtzz'
DataSource = DataSource1
ReadOnly = True
TabOrder = 3
end
end
end
object Panel3: TPanel
Left = 0
Top = 329
Width = 703
Height = 55
Align = alClient
TabOrder = 2
object Button1: TButton
Left = 24
Top = 16
Width = 89
Height = 25
Caption = '查询(&Q)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 136
Top = 16
Width = 89
Height = 25
Caption = '删除(&D)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 368
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 = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 592
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 = 3
OnClick = Button4Click
end
object Button5: TButton
Left = 248
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 = 4
OnClick = Button5Click
end
object Button6: TButton
Left = 480
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 = 5
OnClick = Button6Click
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 168
Top = 16
end
object Query1: TQuery
DatabaseName = 'rsgzgl'
RequestLive = True
SQL.Strings = (
'select * from ygzlb where ygh=:ygh and yxbz=1')
Left = 104
Top = 16
ParamData = <
item
DataType = ftString
Name = 'ygh'
ParamType = ptUnknown
end>
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 + -