📄 waichu.dfm
字号:
object FormWaiChu: TFormWaiChu
Left = 72
Top = 88
Width = 712
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 = 701
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 = 392
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 = 392
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 = 392
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 Label9: TLabel
Left = 392
Top = 164
Width = 66
Height = 12
Caption = '目 的 地(&N)'
FocusControl = EditYy
end
object Label10: TLabel
Left = 23
Top = 201
Width = 66
Height = 12
Caption = '审 批 人(&O)'
FocusControl = EditSp
end
object LabelRq: TLabel
Left = 392
Top = 94
Width = 66
Height = 12
Caption = '日 期(&I)'
FocusControl = MRq
Visible = False
end
object Label14: TLabel
Left = 288
Top = 165
Width = 36
Height = 12
Caption = '单位：'
end
object LabelZsj: TLabel
Left = 319
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 = 283
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 = 462
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 = 462
Top = 56
Width = 184
Height = 20
TabStop = False
Color = clInfoBk
ReadOnly = True
TabOrder = 3
end
object EditYy: TEdit
Left = 464
Top = 160
Width = 185
Height = 20
MaxLength = 20
TabOrder = 9
end
object EditSp: TEdit
Left = 96
Top = 197
Width = 181
Height = 20
MaxLength = 20
TabOrder = 10
end
object ComboBoxJj: TComboBox
Left = 96
Top = 90
Width = 180
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 4
OnChange = ComboBoxJjChange
Items.Strings = (
'外出'
'出差')
end
object MRq: TMaskEdit
Left = 463
Top = 89
Width = 184
Height = 20
EditMask = '9999-99-99;1; '
MaxLength = 10
TabOrder = 5
Text = ' - - '
Visible = False
end
object MKs: TMaskEdit
Left = 96
Top = 124
Width = 180
Height = 20
EditMask = '9999-99-99;1; '
MaxLength = 10
TabOrder = 6
Text = ' - - '
OnExit = MZsjEnter
end
object MJs: TMaskEdit
Left = 464
Top = 124
Width = 184
Height = 20
EditMask = '9999-99-99;1; '
MaxLength = 10
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 = 327
Top = 344
Width = 75
Height = 25
Caption = '保存(&S)'
TabOrder = 11
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 = 64
Top = 328
Width = 48
Height = 12
Caption = '记录数：'
end
object LabelCount: TLabel
Left = 117
Top = 325
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 = 693
Height = 310
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -