📄 employee.dfm
字号:
Caption = #20445#23384'&S'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = SaveBtnClick
Glyph.Data = {
8E060000424D8E06000000000000360400002800000018000000190000000100
08000000000058020000120B0000120B00000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CCFF0066CC
FF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399FF000099
FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33FF00CC33
FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600FF003300
FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FFCC00FFCC
CC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99CC009999
CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666CC003366
CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033CC00FF00
CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF990099FF
990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC990033CC
990000CC9900FF999900CC99990099999900669999003399990000999900FF66
9900CC66990099669900666699003366990000669900FF339900CC3399009933
9900663399003333990000339900FF009900CC00990099009900660099003300
990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF6600FFCC
6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC9966009999
6600669966003399660000996600FF666600CC66660099666600666666003366
660000666600FF336600CC33660099336600663366003333660000336600FF00
6600CC00660099006600660066003300660000006600FFFF3300CCFF330099FF
330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC330033CC
330000CC3300FF993300CC99330099993300669933003399330000993300FF66
3300CC66330099663300666633003366330000663300FF333300CC3333009933
3300663333003333330000333300FF003300CC00330099003300660033003300
330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC000099CC
000066CC000033CC000000CC0000FF990000CC99000099990000669900003399
000000990000FF660000CC66000099660000666600000066000033660000FF33
0000CC33000099330000663300003333000000330000CC000000990000006600
0000330000000000DD000000BB000000AA000000880000007700000055000000
44000000220000DD000000BB000000AA00000088000000770000005500000044
000000220000DDDDDD0055555500777777007777770044444400222222001111
110077000000550000004400000022000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD000000EFFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFD00000B133C00EFEFFDFDFDFDFDFDFDFDFDFDFDFD
FDFD0000EC000B133C00EFEFEFEFFDFDFDFDFDFDFDFDFDFD0000EDEDEC000B13
3C00EFEFEFEFEFEFFDFDFDFDFDFD0000EDEFEDEDEC000B133C00EFEFEFEFEFEF
FDFDFDFD0000F7ED00EFEDEDEC000B133C00EFEFEFEFFDFDFDFDFD001300F7ED
00EFEDEDEC000B133C00EFEFFDFDFDFDFDFDFD001300F7EDEDEFF7F700001313
3C00FDFDFDFDFDFDFDFDFD001300F7EDF7F70000131313133C00FDFDFDFDFDFD
FDFDFD001300F7F700001313131313133C00FDFDFDFDFDFDFDFDFD0013000000
131313130B0B13133C00FDFDFDFDFDFDFDFDFD001313131313130B0B07070B13
3C00FDFDFDFDFDFDFDFDFD00131313130B0B0707EB070B133C00FDFDFDFDFDFD
FDFDFD0013130B0B0707EBEBEB070B133C00FDFDFDFDFDFDFDFDFD0013130707
EBEBEBEBEB070B133C00FDFDFDFDFDFDFDFDFD001313FFEBEBEBEBEBEBF7F70B
00FDFDFDFDFDFDFDFDFDFD001313FFEBEBEBEBF7F7F70000FDFDFDFDFDFDFDFD
FDFDFD001313FFEBEBF7F7F70000FDFDFDFDFDFDFDFDFDFDFDFDFD001313FFF7
F7F70000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFD001313F7F70000FDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFD000B0B0000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFD0000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD}
end
object CancelBtn: TBitBtn
Left = 359
Top = 5
Width = 75
Height = 28
Caption = #21462#28040'&C'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = CancelBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000008000
0000008000008080000000008000800080000080800080808000C0C0C000FF00
000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00DDDDDDD0000D
DDDDDDDDD00199900DDD0DDD0199111910DD00D019100001910D01019100DDD0
190D0111910DDDDD0910011910DDDDDD0190019B90DDDDDD019009B9990DDDDD
01900BBBBB90DDDD0910000000000DD0190DDDDDDDDDDD01910DDDDDDDDD0019
10DDDDDDD00019910DDDDDDDD0999100DDDDDDDDDD0000DDDDDD}
end
object ExtBtn: TBitBtn
Left = 673
Top = 5
Width = 75
Height = 28
Cancel = True
Caption = #36864#20986'&X'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 5
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888880888888888888880080088888888880E088808888888000E00000000
888880EE07770888888880EE07770888888880EE07770888088880EE07770880
088880EE07770800000880EE07770880088880EE077708880888800077770888
888880077777088888888000000008888888}
end
object BitBtn1: TBitBtn
Left = 567
Top = 5
Width = 75
Height = 28
Cursor = crHandPoint
Caption = #31163#32844'&L'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
33833F333383F33300003333AA463362A433333333383F333833F33300003333
6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
333383333333F3330000333333322AAA4333333333333833333F333300003333
333322A4333333333333338333F333330000333333344A433333333333333338
3F333333000033333336A24333333333333333833F333333000033333336AA43
33333333333333833F3333330000333333336663333333333333333888333333
0000}
NumGlyphs = 2
end
object BitBtn_Excel: TBitBtn
Left = 453
Top = 6
Width = 103
Height = 28
Cursor = crHandPoint
Cancel = True
Caption = #23548#20837'Excel'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = BitBtn_ExcelClick
Glyph.Data = {
FE050000424DFE05000000000000360400002800000015000000130000000100
080000000000C801000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CCFF0066CC
FF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399FF000099
FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33FF00CC33
FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600FF003300
FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FFCC00FFCC
CC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99CC009999
CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666CC003366
CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033CC00FF00
CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF990099FF
990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC990033CC
990000CC9900FF999900CC99990099999900669999003399990000999900FF66
9900CC66990099669900666699003366990000669900FF339900CC3399009933
9900663399003333990000339900FF009900CC00990099009900660099003300
990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF6600FFCC
6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC9966009999
6600669966003399660000996600FF666600CC66660099666600666666003366
660000666600FF336600CC33660099336600663366003333660000336600FF00
6600CC00660099006600660066003300660000006600FFFF3300CCFF330099FF
330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC330033CC
330000CC3300FF993300CC99330099993300669933003399330000993300FF66
3300CC66330099663300666633003366330000663300FF333300CC3333009933
3300663333003333330000333300FF003300CC00330099003300660033003300
330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC000099CC
000066CC000033CC000000CC0000FF990000CC99000099990000669900003399
000000990000FF660000CC66000099660000666600000066000033660000FF33
0000CC33000099330000663300003333000000330000CC000000990000006600
0000330000000000DD000000BB000000AA000000880000007700000055000000
44000000220000DD000000BB000000AA00000088000000770000005500000044
000000220000DDDDDD0055555500777777007777770044444400222222001111
110077000000550000004400000022000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFD0087AC5C
ABB9D61348131F1F966A7100B2B30E000000FDFDB95CB25C81B890FB48FB1F1F
90634DBA88FD0E000000FDFDBA56AB3887D4B4FB48131F42966471BAFDFD0E00
0000FDFDBA37B25C87B2BA1348FB1948B46471BA49FD0E000000FDFD0055B25C
8700FB131313131F906A72BA264A0E000000FDFDBA5BB25C5CDA13131313131F
1FBA6A00FD4B0E000000FD94815C805C5BD61313131313251FBA40BA49FD0E00
0000FD94815C5C5C32DAFB131313131F1FD6457100FD0E000000FD945D5B5C5C
5CDA13131313131F1FBA407100FD0E000000FDB85D5C5C805CDAFB130D10FF1E
19BA3F71DAFD0E000000FD94635C625C5B000D0A1117191918BA454EB9FDFF00
0000FDB8815C5C56FFB3903F00BA0048002B697100FD0E000000FD9580313832
625CB390888788D5391C4540B9FD0E000000FD26B20E000000D400B231325DB3
000095D66EFD0E000000FDFD9488B38888D64B81FFFF38B3B989B9FDFDFD0E00
0000FDFDFDD656385DAC00690E2A87BA5781D66FFDFD0E000000FDFDFDADFFFF
3288B9FDB300B4FFFF5CB96FFDFD0E000000FDFDFD8E32FF57B46FFDFD4A87FF
2A5EB44AFDFD0E000000FDFDFDFD8EB4D66EFDFDFDFD26B3B4B3FDFDFDFD0E00
0000}
end
end
object ADOQ_employee: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
AfterInsert = ADOQ_employeeAfterInsert
BeforePost = ADOQ_employeeBeforePost
AfterScroll = ADOQ_employeeAfterScroll
Parameters = <>
SQL.Strings = (
'Select * from employee'
''
'ORDER BY empid')
Left = 236
Top = 408
object ADOQ_employeeid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object ADOQ_employeeempname: TStringField
DisplayLabel = #20154#21592#21517#31216
FieldName = 'empname'
Size = 10
end
object ADOQ_employeesex: TStringField
DisplayLabel = #24615#21035
FieldName = 'sex'
Size = 2
end
object ADOQ_employeedepid: TIntegerField
FieldName = 'depid'
end
object ADOQ_employeedepname: TStringField
DisplayLabel = #37096#38376#21517#31216
FieldKind = fkLookup
FieldName = 'depname'
LookupDataSet = ADOT_dep
LookupKeyFields = 'depid'
LookupResultField = 'depname'
KeyFields = 'depid'
Lookup = True
end
object ADOQ_employeedutyid: TIntegerField
FieldName = 'dutyid'
end
object ADOQ_employeedutyname: TStringField
DisplayLabel = #32844#21153#21517#31216
FieldKind = fkLookup
FieldName = 'dutyname'
LookupDataSet = ADOT_duty
LookupKeyFields = 'dutyid'
LookupResultField = 'dutyname'
KeyFields = 'dutyid'
Lookup = True
end
object ADOQ_employeegrade: TStringField
DisplayLabel = #24037#36164#32467#31639#26041#24335
FieldName = 'grade'
Size = 12
end
object ADOQ_employeetelephone: TStringField
DisplayLabel = #30005#35805
FieldName = 'telephone'
Size = 12
end
object ADOQ_employeemobile: TStringField
DisplayLabel = #25163#26426
FieldName = 'mobile'
Size = 12
end
object ADOQ_employeeworktime: TDateTimeField
DisplayLabel = #20837#32844#26102#38388
FieldName = 'worktime'
end
object ADOQ_employeeemail: TStringField
DisplayLabel = 'E_Mail'
FieldName = 'email'
Size = 40
end
object ADOQ_employeeidcard: TStringField
DisplayLabel = #36523#20221#35777#21495
FieldName = 'idcard'
Size = 18
end
object ADOQ_employeeborn: TDateTimeField
DisplayLabel = #20986#29983#26085#26399
FieldName = 'born'
end
object ADOQ_employeeprovince: TStringField
DisplayLabel = #30465
FieldName = 'province'
Size = 15
end
object ADOQ_employeearea: TStringField
DisplayLabel = #24066
FieldName = 'area'
Size = 8
end
object ADOQ_employeeaddress: TStringField
DisplayLabel = #22320#22336
FieldName = 'address'
Size = 60
end
object ADOQ_employeeempid: TIntegerField
DisplayLabel = #20154#21592#32534#30721
FieldName = 'empid'
end
object ADOQ_employeestate: TBooleanField
DisplayLabel = #26159#21542#22312#32844
FieldName = 'state'
DisplayValues = #8730
end
object ADOQ_employeephoto: TBlobField
FieldName = 'photo'
end
end
object DS_employee_Q: TDataSource
DataSet = ADOQ_employee
OnStateChange = DS_employee_QStateChange
OnDataChange = DS_employee_QDataChange
Left = 276
Top = 408
end
object ADOT_dep: TADOTable
AutoCalcFields = False
Connection = DataMod.ADOCon
CursorType = ctStatic
TableName = 'department'
Left = 112
Top = 408
object ADOT_depdepid: TAutoIncField
FieldName = 'depid'
ReadOnly = True
end
object ADOT_depdepname: TStringField
DisplayLabel = #37096#38376#21517#31216
FieldName = 'depname'
end
end
object ADOT_duty: TADOTable
AutoCalcFields = False
Connection = DataMod.ADOCon
CursorType = ctStatic
TableName = 'duty'
Left = 16
Top = 408
object ADOT_dutydutyid: TAutoIncField
FieldName = 'dutyid'
ReadOnly = True
end
object ADOT_dutydutyname: TStringField
DisplayLabel = #32844#21153#21517#31216
FieldName = 'dutyname'
end
end
object DS_dep_T: TDataSource
DataSet = ADOT_dep
Left = 144
Top = 408
end
object DS_duty_T: TDataSource
DataSet = ADOT_duty
Left = 56
Top = 408
end
object ADOQtmp_emp: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 656
Top = 357
end
object OpenPictureDialog1: TOpenPictureDialog
Filter =
'All (*.jpg;*.bmp)|*.jpg;*.bmp|JPEG Image File (*.jpg)|*.jpg|Bitm' +
'aps (*.bmp)|*.bmp'
Title = #28155#21152'/'#32534#36753#20154#21592#30456#29255
Left = 656
Top = 288
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -