📄 kaomodify.~dfm
字号:
Visible = True
end
item
Expanded = False
FieldName = 'WORK_HOURS'
Title.Alignment = taCenter
Title.Caption = #21152#29677#26102#38388
Visible = True
end
item
Expanded = False
FieldName = 'WORK_DATE'
Title.Alignment = taCenter
Title.Caption = #21152#29677#26085#26399
Visible = True
end>
end
end
object TabSheet3: TTabSheet
Caption = #28155#21152#20462#25913#35831#20551#35760#24405
ImageIndex = 2
OnShow = TabSheet3Show
object Label20: TLabel
Left = 16
Top = 144
Width = 145
Height = 13
AutoSize = False
Caption = #20986#21220#35760#24405#21015#34920#65306
end
object GroupBox4: TGroupBox
Left = 8
Top = 8
Width = 665
Height = 121
Caption = #22686#21152#35760#24405
TabOrder = 0
object Label16: TLabel
Left = 16
Top = 32
Width = 60
Height = 13
Caption = #26102#38388#33539#22260#65306
end
object Label17: TLabel
Left = 16
Top = 88
Width = 48
Height = 13
Caption = #25945#24072#21495#65306
end
object Label18: TLabel
Left = 184
Top = 32
Width = 12
Height = 13
Caption = #33267
end
object Label19: TLabel
Left = 336
Top = 16
Width = 60
Height = 13
Caption = #35831#20551#21407#22240#65306
end
object i_leave_start_time: TMaskEdit
Left = 80
Top = 24
Width = 97
Height = 21
EditMask = '!0000-!90-90 !90:00;1;_'
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
MaxLength = 16
TabOrder = 0
Text = ' - - : '
end
object i_leave_end_time: TMaskEdit
Left = 208
Top = 24
Width = 97
Height = 21
EditMask = '!0000-!90-90 !90:00;1;_'
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
MaxLength = 16
TabOrder = 1
Text = ' - - : '
end
object i_leave_person_id: TMaskEdit
Left = 80
Top = 80
Width = 97
Height = 21
EditMask = '>L!00000;1;_'
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
MaxLength = 6
TabOrder = 2
Text = ' '
OnChange = i_leave_person_idChange
end
object i_leave_person_name: TEdit
Left = 192
Top = 80
Width = 113
Height = 21
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
ReadOnly = True
TabOrder = 3
end
object i_leave_reason: TMemo
Left = 336
Top = 32
Width = 241
Height = 73
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
Lines.Strings = (
#29992#20110#36755#20837#35831#20551#21407#22240)
TabOrder = 4
end
object B_leave_add: TButton
Left = 584
Top = 48
Width = 73
Height = 41
Caption = #28155' '#21152
TabOrder = 5
OnClick = B_leave_addClick
end
end
object DBGrid3: TDBGrid
Left = 16
Top = 168
Width = 657
Height = 201
DataSource = DS_leave
FixedColor = clSkyBlue
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
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.Alignment = taCenter
Title.Caption = #35760#24405#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'PERSON'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #25945#24072#21495
Visible = True
end
item
Expanded = False
FieldName = 'START_DAY'
Title.Alignment = taCenter
Title.Caption = #24320#22987#26102#38388
Visible = True
end
item
Expanded = False
FieldName = 'END_DAY'
Title.Alignment = taCenter
Title.Caption = #32467#26463#26102#38388
Visible = True
end
item
Expanded = False
FieldName = 'REASON'
Title.Alignment = taCenter
Title.Caption = #32536#30001
Visible = True
end>
end
object B_delete_leave: TButton
Left = 432
Top = 136
Width = 113
Height = 25
Caption = #21024#38500#24403#21069#35760#24405
TabOrder = 2
OnClick = B_delete_leaveClick
end
object B_seek_leave: TButton
Left = 560
Top = 136
Width = 105
Height = 25
Caption = #25353#26465#20214#26816#32034
TabOrder = 3
OnClick = B_seek_leaveClick
end
end
object TabSheet4: TTabSheet
Caption = #28155#21152#20462#25913#20986#24046#35760#24405
ImageIndex = 3
OnShow = TabSheet4Show
object Label25: TLabel
Left = 16
Top = 152
Width = 121
Height = 13
AutoSize = False
Caption = #20986#21220#35760#24405#21015#34920#65306
end
object GroupBox5: TGroupBox
Left = 16
Top = 8
Width = 657
Height = 113
Caption = #22686#21152#35760#24405
TabOrder = 0
object Label7: TLabel
Left = 24
Top = 32
Width = 60
Height = 13
Caption = #26102#38388#33539#22260#65306
end
object Label21: TLabel
Left = 32
Top = 72
Width = 48
Height = 13
Caption = #25945#24072#21495#65306
end
object Label22: TLabel
Left = 96
Top = 32
Width = 12
Height = 13
Caption = #20174
end
object Label23: TLabel
Left = 216
Top = 32
Width = 12
Height = 13
Caption = #33267
end
object Label24: TLabel
Left = 368
Top = 16
Width = 60
Height = 13
Caption = #20855#20307#25551#36848#65306
end
object i_errand_start_time: TMaskEdit
Left = 112
Top = 24
Width = 97
Height = 21
EditMask = '!0000-!90-90 !90:00;1;_'
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
MaxLength = 16
TabOrder = 0
Text = ' - - : '
end
object i_errand_end_time: TMaskEdit
Left = 232
Top = 24
Width = 113
Height = 21
EditMask = '!0000-!90-90 !90:00;1;_'
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
MaxLength = 16
TabOrder = 1
Text = ' - - : '
end
object i_errand_person_id: TMaskEdit
Left = 88
Top = 64
Width = 81
Height = 21
EditMask = '>L!00000;1;_'
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
MaxLength = 6
TabOrder = 2
Text = ' '
OnChange = i_errand_person_idChange
end
object i_errand_person_name: TEdit
Left = 192
Top = 64
Width = 153
Height = 21
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
ReadOnly = True
TabOrder = 3
end
object i_errand_description: TMemo
Left = 368
Top = 40
Width = 185
Height = 49
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
Lines.Strings = (
'')
TabOrder = 4
end
object B_errand_add: TButton
Left = 568
Top = 40
Width = 75
Height = 33
Caption = #28155#21152
TabOrder = 5
OnClick = B_errand_addClick
end
end
object DBGrid4: TDBGrid
Left = 16
Top = 176
Width = 657
Height = 177
DataSource = DS_errand
FixedColor = clSkyBlue
ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
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.Alignment = taCenter
Title.Caption = #35760#24405#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'PERSON'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #25945#24072#21495
Visible = True
end
item
Expanded = False
FieldName = 'START_TIME'
Title.Caption = #24320#22987#26102#38388
Visible = True
end
item
Expanded = False
FieldName = 'END_TIME'
Title.Caption = #32467#26463#26102#38388
Visible = True
end
item
Expanded = False
FieldName = 'DESCRIPTION'
Title.Caption = #20855#20307#25551#36848
Visible = True
end>
end
object B_delete_errand: TButton
Left = 480
Top = 136
Width = 91
Height = 25
Caption = #21024#38500#24403#21069#35760#24405
TabOrder = 2
OnClick = B_delete_errandClick
end
object B_seek_errand: TButton
Left = 584
Top = 136
Width = 81
Height = 25
Caption = #25353#26465#20214#26816#32034
TabOrder = 3
OnClick = B_seek_errandClick
end
end
end
object T_person: TTable
DatabaseName = 'mydatabase'
TableName = 'PERSON'
Left = 744
Top = 32
end
object DS_person: TDataSource
DataSet = T_person
Left = 744
Top = 64
end
object T_depart: TTable
DatabaseName = 'mydatabase'
TableName = 'DEPARTMENT'
Left = 744
Top = 96
end
object DS_depart: TDataSource
DataSet = T_depart
Left = 744
Top = 128
end
object T_counter: TTable
DatabaseName = 'mydatabase'
TableName = 'COUNTER'
Left = 744
Top = 160
end
object T_attendance: TTable
DatabaseName = 'mydatabase'
TableName = 'ATTENDANCE'
Left = 744
Top = 192
end
object DS_attendance: TDataSource
DataSet = T_attendance
Left = 744
Top = 224
end
object T_overtime: TTable
DatabaseName = 'mydatabase'
TableName = 'OVERTIME'
Left = 744
Top = 320
end
object DS_overtime: TDataSource
DataSet = T_overtime
Left = 744
Top = 352
end
object T_leave: TTable
DatabaseName = 'mydatabase'
TableName = 'LEAVE'
Left = 800
Top = 32
end
object DS_leave: TDataSource
DataSet = T_leave
Left = 800
Top = 64
end
object T_errand: TTable
DatabaseName = 'mydatabase'
TableName = 'ERRAND'
Left = 808
Top = 312
end
object DS_errand: TDataSource
DataSet = T_errand
Left = 808
Top = 352
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -