📄 jiaban.dfm
字号:
object FormJiaBan: TFormJiaBan
Left = 156
Top = 65
Width = 614
Height = 493
ActiveControl = MBh
Caption = '加班管理窗口'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 2
Top = 3
Width = 602
Height = 419
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '加班录入'
object Label1: TLabel
Left = 23
Top = 27
Width = 66
Height = 12
Caption = '员工编号(&B)'
FocusControl = MBh
end
object Label2: TLabel
Left = 300
Top = 27
Width = 66
Height = 12
Caption = '姓 名(&E)'
FocusControl = EditXm
end
object Label3: TLabel
Left = 23
Top = 60
Width = 66
Height = 12
Caption = '部门名称(&F)'
FocusControl = EditBm
end
object Label4: TLabel
Left = 300
Top = 60
Width = 66
Height = 12
Caption = '班组名称(&G)'
FocusControl = EditBz
end
object Label5: TLabel
Left = 23
Top = 94
Width = 66
Height = 12
Caption = '加班种类(&H)'
FocusControl = ComboBoxJj
end
object Label6: TLabel
Left = 23
Top = 130
Width = 66
Height = 12
Caption = '开始时间(&J)'
FocusControl = MKs
end
object Label7: TLabel
Left = 300
Top = 128
Width = 66
Height = 12
Caption = '结束时间(&K)'
FocusControl = MJs
end
object Label8: TLabel
Left = 23
Top = 165
Width = 66
Height = 12
Caption = '总 时 间(&L)'
FocusControl = MZsj
end
object Label10: TLabel
Left = 23
Top = 203
Width = 66
Height = 12
Caption = '审 批 人(&O)'
FocusControl = EditSp
end
object LabelRq: TLabel
Left = 300
Top = 94
Width = 66
Height = 12
Caption = '日 期(&I)'
FocusControl = MRq
end
object Label14: TLabel
Left = 313
Top = 165
Width = 60
Height = 12
Caption = '单位：小时'
end
object LabelZsj: TLabel
Left = 369
Top = 166
Width = 7
Height = 11
Caption = ')'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 308
Top = 166
Width = 7
Height = 11
Caption = '('
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object EditXm: TEdit
Left = 370
Top = 22
Width = 184
Height = 20
TabStop = False
Color = clInfoBk
ReadOnly = True
TabOrder = 1
end
object EditBm: TEdit
Left = 96
Top = 56
Width = 180
Height = 20
TabStop = False
Color = clInfoBk
ReadOnly = True
TabOrder = 2
end
object EditBz: TEdit
Left = 370
Top = 56
Width = 184
Height = 20
TabStop = False
Color = clInfoBk
ReadOnly = True
TabOrder = 3
end
object EditSp: TEdit
Left = 96
Top = 199
Width = 181
Height = 20
MaxLength = 20
TabOrder = 9
end
object ComboBoxJj: TComboBox
Left = 96
Top = 90
Width = 180
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 4
Items.Strings = (
'平时加班'
'休息日加班'
'节假日加班')
end
object MRq: TMaskEdit
Left = 371
Top = 89
Width = 184
Height = 20
EditMask = '9999-99-99;1; '
MaxLength = 10
TabOrder = 5
Text = ' - - '
end
object MKs: TMaskEdit
Left = 96
Top = 124
Width = 180
Height = 20
EditMask = '99:99;1; '
MaxLength = 5
TabOrder = 6
Text = ' : '
OnExit = MZsjEnter
end
object MJs: TMaskEdit
Left = 372
Top = 124
Width = 184
Height = 20
EditMask = '99:99;1; '
MaxLength = 5
TabOrder = 7
Text = ' : '
OnExit = MZsjEnter
end
object MZsj: TMaskEdit
Left = 96
Top = 161
Width = 180
Height = 20
EditMask = '9999999999;1; '
MaxLength = 10
TabOrder = 8
Text = ' '
OnEnter = MZsjEnter
end
object MBh: TMaskEdit
Left = 96
Top = 21
Width = 179
Height = 20
EditMask = '9999999999;1; '
MaxLength = 10
TabOrder = 0
Text = ' '
OnExit = MBhExit
end
object BitBtnSave: TBitBtn
Left = 247
Top = 328
Width = 91
Height = 25
Caption = '保 存(&S)'
TabOrder = 10
OnClick = BitBtnSaveClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object TabSheet2: TTabSheet
Caption = '查询＆删除'
ImageIndex = 1
object Label12: TLabel
Left = 73
Top = 333
Width = 48
Height = 12
Caption = '记录数：'
end
object LabelCount: TLabel
Left = 126
Top = 330
Width = 9
Height = 16
Caption = '0'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 0
Top = 8
Width = 593
Height = 313
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'lshao'
Title.Alignment = taCenter
Title.Caption = '流水号'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clHighlight
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'ygbh'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Title.Caption = '员工编号'
Title.Font.Charset = ANSI_CHARSET
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -