📄 main_yggl_tjcxform.dfm
字号:
object main_yggl_tjcx: Tmain_yggl_tjcx
Left = 288
Top = 231
BorderIcons = []
BorderStyle = bsDialog
Caption = '职工档案信息条件查询'
ClientHeight = 259
ClientWidth = 622
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 4
Top = 157
Width = 613
Height = 92
Color = 16767411
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = '职工编号'
Visible = True
end
item
Expanded = False
FieldName = '职工姓名'
Visible = True
end
item
Expanded = False
FieldName = '职工年龄'
Width = 53
Visible = True
end
item
Expanded = False
FieldName = '职工性别'
Visible = True
end
item
Expanded = False
FieldName = '工作部门'
Width = 63
Visible = True
end
item
Expanded = False
FieldName = '出生日期'
Visible = True
end
item
Expanded = False
FieldName = '行政职务'
Width = 59
Visible = True
end
item
Expanded = False
FieldName = '技术职称'
Width = 58
Visible = True
end
item
Expanded = False
FieldName = '毕业院校'
Width = 59
Visible = True
end
item
Expanded = False
FieldName = '最高学历'
Visible = True
end
item
Expanded = False
FieldName = '所学专业'
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 622
Height = 25
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -24
Font.Name = '楷体_GB2312'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 1
object Label4: TLabel
Left = 199
Top = 4
Width = 210
Height = 19
Caption = '职工档案信息条件查询'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = '楷体_GB2312'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = True
end
end
object GroupBox2: TGroupBox
Left = 3
Top = 26
Width = 614
Height = 128
TabOrder = 2
object Memo1: TMemo
Left = 448
Top = 72
Width = 137
Height = 41
TabOrder = 3
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 217
Height = 113
TabOrder = 0
object Label1: TLabel
Left = 14
Top = 19
Width = 65
Height = 13
Caption = '选择字段：'
end
object Label2: TLabel
Left = 27
Top = 48
Width = 52
Height = 13
Caption = '条件式：'
Enabled = False
end
object Label3: TLabel
Left = 27
Top = 80
Width = 52
Height = 13
Caption = '字段值：'
Enabled = False
end
object ComboBox1: TComboBox
Left = 80
Top = 15
Width = 129
Height = 21
Style = csDropDownList
Color = 16767411
ItemHeight = 13
TabOrder = 0
OnClick = ComboBox1Click
Items.Strings = (
'职工编号'
'职工姓名'
'职工年龄'
'职工性别'
'工作部门'
'行政职务'
'技术职称'
'所学专业'
'毕业院校'
'最高学历')
end
object ComboBox2: TComboBox
Left = 80
Top = 48
Width = 65
Height = 21
Style = csDropDownList
Color = 16767411
DropDownCount = 7
Enabled = False
ItemHeight = 13
TabOrder = 1
OnClick = ComboBox2Click
Items.Strings = (
'等于'
'含于'
'前含于'
'后含于'
'不等于'
''
''
''
''
'')
end
object Edit1: TEdit
Left = 80
Top = 80
Width = 129
Height = 21
Color = 16767411
Enabled = False
TabOrder = 2
OnChange = Edit1Change
OnKeyPress = Edit1KeyPress
end
object ComboBox3: TComboBox
Left = 144
Top = 48
Width = 65
Height = 21
Style = csDropDownList
Color = 16767411
Enabled = False
ItemHeight = 13
TabOrder = 3
OnClick = ComboBox3Click
Items.Strings = (
'和'
'或')
end
end
object StringGrid1: TStringGrid
Left = 400
Top = 16
Width = 209
Height = 105
Color = 16767411
ColCount = 4
DefaultRowHeight = 20
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goTabs, goRowSelect]
ScrollBars = ssVertical
TabOrder = 1
ColWidths = (
64
66
64
64)
RowHeights = (
20
22)
end
object GroupBox3: TGroupBox
Left = 232
Top = 8
Width = 161
Height = 113
TabOrder = 2
object BitBtn1: TBitBtn
Left = 7
Top = 16
Width = 74
Height = 25
Caption = '加入条件'
Enabled = False
TabOrder = 0
OnClick = BitBtn1Click
OnKeyPress = BitBtn1KeyPress
end
object BitBtn4: TBitBtn
Left = 92
Top = 80
Width = 61
Height = 25
Caption = '关 闭'
TabOrder = 1
OnClick = BitBtn4Click
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888880888888888888880080088888888880E088808888888000E00000000
888880EE07770888888880EE07770888888880EE07770888088880EE07770880
088880EE07770800000880EE07770880088880EE077708880888800077770888
888880077777088888888000000008888888}
NumGlyphs = 2
end
object BitBtn5: TBitBtn
Left = 8
Top = 48
Width = 73
Height = 25
Caption = '清除条件'
Enabled = False
TabOrder = 2
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Left = 88
Top = 16
Width = 65
Height = 25
Caption = '开始查询'
Enabled = False
TabOrder = 3
OnClick = BitBtn6Click
end
object BitBtn2: TBitBtn
Left = 9
Top = 80
Width = 72
Height = 25
Caption = '删除数据'
Enabled = False
TabOrder = 4
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 90
Top = 48
Width = 63
Height = 25
Caption = '所有记录'
TabOrder = 5
OnClick = BitBtn3Click
end
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 160
Top = 224
end
object Query1: TQuery
DatabaseName = 'JFXT'
SQL.Strings = (
'select * from zg')
Left = 240
Top = 256
object Query1BDEDesigner: TStringField
FieldName = '职工编号'
Origin = 'JFXT."zg.DB".职工编号'
Size = 3
end
object Query1BDEDesigner2: TStringField
FieldName = '职工姓名'
Origin = 'JFXT."zg.DB".职工姓名'
Size = 8
end
object Query1BDEDesigner3: TFloatField
FieldName = '职工年龄'
Origin = 'JFXT."zg.DB".职工年龄'
end
object Query1BDEDesigner4: TStringField
FieldName = '职工性别'
Origin = 'JFXT."zg.DB".职工性别'
Size = 2
end
object Query1BDEDesigner5: TStringField
FieldName = '工作部门'
Origin = 'JFXT."zg.DB".工作部门'
Size = 26
end
object Query1BDEDesigner6: TDateField
FieldName = '出生日期'
Origin = 'JFXT."zg.DB".出生日期'
end
object Query1BDEDesigner7: TStringField
FieldName = '行政职务'
Origin = 'JFXT."zg.DB".行政职务'
Size = 12
end
object Query1BDEDesigner8: TStringField
FieldName = '技术职称'
Origin = 'JFXT."zg.DB".技术职称'
Size = 12
end
object Query1BDEDesigner9: TStringField
FieldName = '毕业院校'
Origin = 'JFXT."zg.DB".毕业院校'
end
object Query1BDEDesigner10: TStringField
FieldName = '最高学历'
Origin = 'JFXT."zg.DB".最高学历'
Size = 10
end
object Query1BDEDesigner11: TStringField
FieldName = '所学专业'
Origin = 'JFXT."zg.DB".所学专业'
Size = 14
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -