📄 u_attendance.dfm
字号:
object F_attendance: TF_attendance
Left = 213
Top = 119
Width = 696
Height = 480
Caption = '考勤修改'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 8
Top = 88
Width = 673
Height = 353
ActivePage = TabSheet2
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '添加修改出勤记录'
OnShow = TabSheet1Show
object Label5: TLabel
Left = 8
Top = 120
Width = 84
Height = 13
Caption = '出勤记录列表：'
end
object DBGrid1: TDBGrid
Left = 8
Top = 136
Width = 649
Height = 177
DataSource = DM_main.DS_attendance
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
ReadOnly = True
Title.Caption = '记录编号'
Visible = True
end
item
Expanded = False
FieldName = 'PERSON'
ReadOnly = True
Title.Caption = '员工号'
Visible = True
end
item
Expanded = False
FieldName = 'IN_OUT'
PickList.Strings = (
'I'
'O')
Title.Caption = '出入情况'
Visible = True
end
item
Expanded = False
FieldName = 'IO_TIME'
Title.Caption = '时间'
Visible = True
end>
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 649
Height = 97
Caption = '添加记录'
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 24
Width = 60
Height = 13
Caption = '出入时间：'
end
object Label2: TLabel
Left = 232
Top = 24
Width = 36
Height = 13
Caption = '部门：'
end
object Label3: TLabel
Left = 456
Top = 24
Width = 48
Height = 13
Alignment = taRightJustify
Caption = '员工号：'
end
object Label4: TLabel
Left = 468
Top = 62
Width = 36
Height = 13
Alignment = taRightJustify
Caption = '姓名：'
end
object Gauge1: TGauge
Left = 216
Top = 80
Width = 233
Height = 9
Progress = 0
end
object i_io_time: TMaskEdit
Left = 80
Top = 20
Width = 121
Height = 21
EditMask = '!0000-!90-90 !90:00;1;_'
MaxLength = 16
TabOrder = 0
Text = ' - - : '
end
object i_in_out: TRadioGroup
Left = 16
Top = 48
Width = 185
Height = 33
Columns = 2
ItemIndex = 0
Items.Strings = (
'出'
'入')
TabOrder = 1
end
object i_io_person_id: TMaskEdit
Left = 512
Top = 20
Width = 121
Height = 21
EditMask = '>L!99999;1;_'
MaxLength = 6
TabOrder = 2
Text = ' '
OnChange = i_io_person_idChange
end
object B_add_all: TButton
Left = 216
Top = 48
Width = 75
Height = 25
Caption = '全部员工'
TabOrder = 3
OnClick = B_add_allClick
end
object B_add_depart: TButton
Left = 296
Top = 48
Width = 75
Height = 25
Caption = '部门员工'
TabOrder = 4
OnClick = B_add_departClick
end
object B_add_person: TButton
Left = 376
Top = 48
Width = 75
Height = 25
Caption = '单个员工'
TabOrder = 5
OnClick = B_add_personClick
end
object i_io_person_name: TEdit
Left = 512
Top = 58
Width = 121
Height = 21
Color = clSilver
ReadOnly = True
TabOrder = 6
end
object i_io_depart_id: TMaskEdit
Left = 272
Top = 20
Width = 49
Height = 21
EditMask = '>LLL;1;_'
MaxLength = 3
TabOrder = 7
Text = ' '
OnChange = i_io_depart_idChange
end
object i_io_depart_name: TEdit
Left = 336
Top = 20
Width = 89
Height = 21
Color = clSilver
ReadOnly = True
TabOrder = 8
end
end
object B_seek_io: TButton
Left = 576
Top = 112
Width = 75
Height = 25
Caption = '按条件检索'
TabOrder = 2
OnClick = B_seek_ioClick
end
object B_delete_attend: TButton
Left = 472
Top = 112
Width = 91
Height = 25
Caption = '删除当前记录'
TabOrder = 3
OnClick = B_delete_attendClick
end
end
object TabSheet3: TTabSheet
Caption = '加班记录'
ImageIndex = 2
OnShow = TabSheet3Show
object Label6: TLabel
Left = 8
Top = 120
Width = 84
Height = 13
Caption = '加班记录列表：'
end
object GroupBox5: TGroupBox
Left = 8
Top = 8
Width = 649
Height = 97
Caption = '添加记录'
TabOrder = 0
object Label19: TLabel
Left = 36
Top = 24
Width = 36
Height = 13
Caption = '日期：'
end
object Label20: TLabel
Left = 264
Top = 24
Width = 48
Height = 13
Alignment = taRightJustify
Caption = '员工号：'
end
object Label21: TLabel
Left = 12
Top = 64
Width = 60
Height = 13
Caption = '加班时间：'
end
object Label22: TLabel
Left = 152
Top = 64
Width = 24
Height = 13
Caption = '小时'
end
object Label28: TLabel
Left = 252
Top = 64
Width = 60
Height = 13
Caption = '员工姓名：'
end
object i_overtime_date: TMaskEdit
Left = 80
Top = 20
Width = 97
Height = 21
EditMask = '!0000-!90-90;1;_'
MaxLength = 10
TabOrder = 0
Text = ' - - '
end
object i_overtime_person_id: TMaskEdit
Left = 320
Top = 20
Width = 97
Height = 21
EditMask = '>L!00000;1;_'
MaxLength = 6
TabOrder = 1
Text = ' '
OnChange = i_overtime_person_idChange
end
object B_overtime_add: TButton
Left = 504
Top = 40
Width = 75
Height = 25
Caption = '添加'
TabOrder = 2
OnClick = B_overtime_addClick
end
object i_overtime_person_name: TEdit
Left = 320
Top = 60
Width = 97
Height = 21
Color = clSilver
ReadOnly = True
TabOrder = 3
end
object i_overtime_hour: TSpinEdit
Left = 80
Top = 59
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 4
Value = 0
end
end
object DBGrid2: TDBGrid
Left = 8
Top = 136
Width = 649
Height = 177
DataSource = DM_main.DS_overtime
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
ReadOnly = True
Title.Caption = '记录编号'
Visible = True
end
item
Expanded = False
FieldName = 'PERSON'
ReadOnly = True
Title.Caption = '员工号'
Visible = True
end
item
Expanded = False
FieldName = 'WORK_HOURS'
Title.Caption = '加班时间'
Visible = True
end
item
Expanded = False
FieldName = 'WORK_DATE'
Title.Caption = '加班日期'
Visible = True
end>
end
object B_seek_overtime: TButton
Left = 576
Top = 112
Width = 75
Height = 25
Caption = '按条件检索'
TabOrder = 2
OnClick = B_seek_overtimeClick
end
object B_delete_overtime: TButton
Left = 472
Top = 112
Width = 91
Height = 25
Caption = '删除当前记录'
TabOrder = 3
OnClick = B_delete_overtimeClick
end
end
object TabSheet2: TTabSheet
Caption = '请假记录'
ImageIndex = 1
OnShow = TabSheet2Show
object Label7: TLabel
Left = 8
Top = 120
Width = 84
Height = 13
Caption = '出勤记录列表：'
end
object GroupBox3: TGroupBox
Left = 8
Top = 8
Width = 649
Height = 97
Caption = '添加记录'
TabOrder = 0
object Label10: TLabel
Left = 16
Top = 24
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -