📄 llygzzxx.dfm
字号:
DataSource = DataSource1
ReadOnly = True
TabOrder = 10
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 242
Width = 665
Height = 85
Caption = '联系信息'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label15: 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 Label16: 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 Label17: 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 Label18: 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 Bevel10: TBevel
Left = 3
Top = 44
Width = 662
Height = 2
Shape = bsTopLine
end
object Bevel11: TBevel
Left = 79
Top = 9
Width = 2
Height = 73
end
object Bevel12: TBevel
Left = 210
Top = 44
Width = 2
Height = 40
end
object Bevel13: TBevel
Left = 430
Top = 45
Width = 2
Height = 40
end
object Bevel14: TBevel
Left = 531
Top = 45
Width = 2
Height = 40
end
object Bevel15: 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 = 89
Top = 16
Width = 361
Height = 23
DataField = 'Jtzz'
DataSource = DataSource1
ReadOnly = True
TabOrder = 3
end
end
object Button1: TButton
Left = 70
Top = 344
Width = 75
Height = 25
Caption = '最前一条'
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 186
Top = 344
Width = 75
Height = 25
Caption = '前一条'
TabOrder = 3
OnClick = Button2Click
end
object Button3: TButton
Left = 308
Top = 344
Width = 75
Height = 25
Caption = '后一条'
TabOrder = 4
OnClick = Button3Click
end
object Button4: TButton
Left = 430
Top = 344
Width = 75
Height = 25
Caption = '最后一条'
TabOrder = 5
OnClick = Button4Click
end
object Button5: TButton
Left = 547
Top = 344
Width = 75
Height = 25
Caption = '退出'
TabOrder = 6
OnClick = Button5Click
end
end
object TabSheet2: TTabSheet
Caption = '表格式浏览'
ImageIndex = 1
OnShow = TabSheet2Show
object Label19: TLabel
Left = 237
Top = 11
Width = 201
Height = 24
Caption = '浏览员工基本信息'
Font.Charset = DEFAULT_CHARSET
Font.Color = clInfoBk
Font.Height = -24
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label20: TLabel
Left = 236
Top = 11
Width = 201
Height = 24
Caption = '浏览员工基本信息'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Bevel16: TBevel
Left = 1
Top = 56
Width = 694
Height = 2
end
object Shape3: TShape
Left = 238
Top = 42
Width = 200
Height = 1
Pen.Color = clRed
end
object Shape4: TShape
Left = 237
Top = 48
Width = 200
Height = 1
Pen.Color = clRed
end
object DBGrid1: TDBGrid
Left = 24
Top = 72
Width = 673
Height = 249
DataSource = DataSource2
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Ygh'
Title.Caption = '员工号'
Visible = True
end
item
Expanded = False
FieldName = 'Xm'
Title.Caption = '姓名'
Visible = True
end
item
Expanded = False
FieldName = 'Xb'
Title.Caption = '性别'
Visible = True
end
item
Expanded = False
FieldName = 'Zzmm'
Title.Caption = '政治面貌'
Visible = True
end
item
Expanded = False
FieldName = 'Xl'
Title.Caption = '学历'
Visible = True
end
item
Expanded = False
FieldName = 'Qsrq'
Title.Caption = '出生日期'
Visible = True
end
item
Expanded = False
FieldName = 'Ssbm'
Title.Caption = '所属部门'
Visible = True
end
item
Expanded = False
FieldName = 'Sfzh'
Title.Caption = '身份证号'
Visible = True
end
item
Expanded = False
FieldName = 'Rzsj'
Title.Caption = '入职时间'
Visible = True
end
item
Expanded = False
FieldName = 'Zw'
Title.Caption = '职务'
Visible = True
end
item
Expanded = False
FieldName = 'Zc'
Title.Caption = '职称'
Visible = True
end
item
Expanded = False
FieldName = 'Email'
Visible = True
end
item
Expanded = False
FieldName = 'Sjhm'
Title.Caption = '手机'
Visible = True
end
item
Expanded = False
FieldName = 'Gdlxdh'
Title.Caption = '固定联系电话'
Visible = True
end
item
Expanded = False
FieldName = 'Jtzz'
Title.Caption = '家庭住址'
Visible = True
end>
end
object Button6: TButton
Left = 65
Top = 344
Width = 75
Height = 25
Caption = '最前一条'
TabOrder = 1
OnClick = Button6Click
end
object Button7: TButton
Left = 178
Top = 344
Width = 75
Height = 25
Caption = '前一条'
TabOrder = 2
OnClick = Button7Click
end
object Button8: TButton
Left = 296
Top = 344
Width = 75
Height = 25
Caption = '后一条'
TabOrder = 3
OnClick = Button8Click
end
object Button9: TButton
Left = 422
Top = 344
Width = 75
Height = 25
Caption = '最后一条'
TabOrder = 4
OnClick = Button9Click
end
object Button10: TButton
Left = 548
Top = 344
Width = 75
Height = 25
Caption = '退出'
TabOrder = 5
OnClick = Button10Click
end
end
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 116
Top = 50
end
object Query1: TQuery
DatabaseName = 'rsgzgl'
SQL.Strings = (
'select * from ygzlb where yxbz=1')
Left = 156
Top = 50
end
object DataSource2: TDataSource
DataSet = Query2
Left = 220
Top = 58
end
object Query2: TQuery
DatabaseName = 'rsgzgl'
SQL.Strings = (
'select * from ygzlb where yxbz=1'
'')
Left = 268
Top = 66
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -