📄 htfind.dfm
字号:
object htfindb: Thtfindb
Left = 191
Top = 159
Width = 514
Height = 273
Caption = '合同查询表'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 505
Height = 73
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 8
Width = 41
Height = 13
AutoSize = False
Caption = '日期:'
end
object Label2: TLabel
Left = 136
Top = 8
Width = 12
Height = 13
Caption = '至'
end
object Label3: TLabel
Left = 232
Top = 8
Width = 33
Height = 13
AutoSize = False
Caption = '编号:'
end
object Label4: TLabel
Left = 352
Top = 8
Width = 41
Height = 13
AutoSize = False
Caption = '姓名:'
end
object DateTimePicker1: TDateTimePicker
Left = 48
Top = 8
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 37851.1382256597
Time = 37851.1382256597
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object DateTimePicker2: TDateTimePicker
Left = 152
Top = 8
Width = 81
Height = 21
CalAlignment = dtaLeft
Date = 37851.1384414815
Time = 37851.1384414815
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object Edit1: TEdit
Left = 264
Top = 8
Width = 89
Height = 21
TabOrder = 2
OnEnter = Edit1Enter
OnExit = Edit1Exit
OnKeyUp = Edit1KeyUp
end
object Edit2: TEdit
Left = 384
Top = 8
Width = 113
Height = 21
TabOrder = 3
OnEnter = Edit2Enter
OnExit = Edit2Exit
OnKeyUp = Edit2KeyUp
end
object Button1: TButton
Left = 96
Top = 40
Width = 75
Height = 25
Caption = '查询'
TabOrder = 4
OnClick = Button1Click
end
object Button2: TButton
Left = 328
Top = 40
Width = 75
Height = 25
Caption = '退出'
TabOrder = 5
OnClick = Button2Click
end
object Button3: TButton
Left = 184
Top = 40
Width = 129
Height = 25
Caption = '中止合同并删除该员工'
TabOrder = 6
OnClick = Button3Click
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 80
Width = 505
Height = 161
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = dbgrid2DrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '员工编号'
Visible = True
end
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '员工姓名'
Visible = True
end
item
Expanded = False
FieldName = 'A_date'
Title.Caption = '签定日期'
Visible = True
end
item
Expanded = False
FieldName = 'A_htys'
Title.Caption = '签定月数'
Visible = True
end
item
Expanded = False
FieldName = 'A_htjb'
Title.Caption = '合同级别'
Visible = True
end>
end
object dbgrid2: TDBGrid
Left = 211
Top = 29
Width = 286
Height = 76
DataSource = DataSource2
Options = [dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = dbgrid2DrawColumnCell
OnDblClick = dbgrid2DblClick
OnKeyUp = dbgrid2KeyUp
Columns = <
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '姓名'
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '编号'
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Visible = True
end>
end
object DataSource2: TDataSource
DataSet = DataModule1.yggb
Left = 80
Top = 64
end
object DataSource1: TDataSource
DataSet = DataModule1.htgns
Left = 16
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -