?? qjdj.dfm
字號(hào):
object qjdjb: Tqjdjb
Left = 190
Top = 114
Width = 399
Height = 374
Caption = '請(qǐng)假登記'
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 = 8
Top = 0
Width = 377
Height = 201
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 8
Width = 81
Height = 17
AutoSize = False
Caption = '員工編號(hào):'
end
object Label2: TLabel
Left = 176
Top = 8
Width = 73
Height = 13
AutoSize = False
Caption = '員工姓名:'
end
object Label3: TLabel
Left = 16
Top = 40
Width = 57
Height = 13
Caption = '日 期:'
end
object Label4: TLabel
Left = 176
Top = 40
Width = 65
Height = 13
AutoSize = False
Caption = '請(qǐng)假天數(shù):'
end
object Label5: TLabel
Left = 16
Top = 72
Width = 73
Height = 13
AutoSize = False
Caption = '請(qǐng)假事由:'
end
object Label6: TLabel
Left = 328
Top = 48
Width = 12
Height = 13
Caption = '天'
end
object Edit1: TEdit
Left = 80
Top = 8
Width = 89
Height = 21
TabOrder = 0
OnEnter = Edit1Enter
OnExit = Edit2Exit
OnKeyUp = Edit1KeyUp
end
object Edit2: TEdit
Left = 240
Top = 8
Width = 89
Height = 21
TabOrder = 1
OnEnter = Edit1Enter
OnExit = Edit2Exit
OnKeyUp = Edit2KeyUp
end
object DateTimePicker1: TDateTimePicker
Left = 80
Top = 40
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 37832.896034375
Time = 37832.896034375
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object Edit3: TEdit
Left = 240
Top = 40
Width = 89
Height = 21
TabOrder = 3
Text = 'Edit3'
end
object Memo1: TMemo
Left = 80
Top = 72
Width = 249
Height = 89
Lines.Strings = (
'Memo1')
TabOrder = 4
end
object Button1: TButton
Left = 56
Top = 168
Width = 75
Height = 25
Caption = '確認(rèn)'
TabOrder = 5
OnClick = Button1Click
end
object Button2: TButton
Left = 144
Top = 168
Width = 75
Height = 25
Caption = '查詢'
TabOrder = 6
OnClick = Button2Click
end
object Button3: TButton
Left = 232
Top = 168
Width = 75
Height = 25
Caption = '退出'
TabOrder = 7
OnClick = Button3Click
end
end
object DBGrid1: TDBGrid
Left = 8
Top = 208
Width = 377
Height = 129
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 = '員工編號(hào)'
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_total'
Title.Caption = '請(qǐng)假天數(shù)'
Visible = True
end
item
Expanded = False
FieldName = 'A_qjsy'
Title.Caption = '請(qǐng)假理由'
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 53
Top = 37
Width = 321
Height = 92
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 = []
OnCellClick = DBGrid2CellClick
OnDrawColumnCell = DBGrid2DrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '姓名'
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '編號(hào)'
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 DataSource1: TDataSource
DataSet = DataModule1.qjdj
Left = 40
Top = 96
end
object DataSource2: TDataSource
DataSet = DataModule1.yggb
Left = 16
Top = 40
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -