📄 employee.dfm
字号:
ParentFont = False
end
object BitBtn_id: TSpeedButton
Left = 208
Top = 7
Width = 39
Height = 25
Cursor = crHandPoint
Hint = #21333#20987#31995#32479#33258#21160#29983#25104#20154#21592#32534#21495
Enabled = False
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = BitBtn_idClick
end
object DBE_Name: TDBEdit
Left = 85
Top = 39
Width = 160
Height = 23
DataField = 'empname'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object DBE_ID: TDBEdit
Left = 85
Top = 7
Width = 125
Height = 24
Color = clWhite
DataField = 'empid'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = DBE_IDCardKeyPress
end
object DBE_Sex: TDBComboBox
Left = 85
Top = 71
Width = 100
Height = 23
DataField = 'sex'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 15
Items.Strings = (
#30007
#22899)
ParentFont = False
TabOrder = 2
OnDblClick = DBE_SexDblClick
OnKeyPress = DBE_SexKeyPress
end
object DBE_IDCard: TDBEdit
Left = 85
Top = 102
Width = 160
Height = 23
DataField = 'idcard'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
OnKeyPress = DBE_IDCardKeyPress
end
object DBEdit_Emil: TDBEdit
Left = 85
Top = 165
Width = 160
Height = 23
DataField = 'email'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
end
object DBEdit_Pho: TDBEdit
Left = 85
Top = 197
Width = 160
Height = 23
DataField = 'telephone'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 10
OnKeyPress = DBEdit_PhoKeyPress
end
object DBEdit_Mob: TDBEdit
Left = 85
Top = 228
Width = 160
Height = 23
DataField = 'mobile'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 11
OnKeyPress = DBE_IDCardKeyPress
end
object DBEdit_Adr: TDBEdit
Left = 85
Top = 323
Width = 436
Height = 23
DataField = 'address'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 14
end
object DBEdit_Pro: TDBEdit
Left = 85
Top = 260
Width = 160
Height = 23
DataField = 'province'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 12
end
object DBEdit_Area: TDBEdit
Left = 85
Top = 291
Width = 160
Height = 23
DataField = 'area'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 13
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 384
Top = 39
Width = 160
Height = 23
DataField = 'depname'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnKeyPress = DBE_SexKeyPress
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 384
Top = 70
Width = 160
Height = 23
DataField = 'dutyname'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnKeyPress = DBE_SexKeyPress
end
object DBComboBox_grade: TDBComboBox
Left = 384
Top = 8
Width = 160
Height = 23
Style = csDropDownList
DataField = 'grade'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 15
Items.Strings = (
#35745#20214#21046
#26376#34218#21046)
ParentFont = False
TabOrder = 3
OnKeyPress = DBE_SexKeyPress
end
object DBE_born: TDBEdit
Left = 85
Top = 134
Width = 160
Height = 23
DataField = 'born'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 8
end
object DBE_WKtime: TDBEdit
Left = 384
Top = 102
Width = 160
Height = 23
DataField = 'worktime'
DataSource = DS_employee_Q
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
end
object DBNavigator1: TDBNavigator
Left = 481
Top = 382
Width = 272
Height = 28
DataSource = DS_employee_Q
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 16
end
object Panel2: TPanel
Left = 324
Top = 172
Width = 17
Height = 99
AutoSize = True
BevelOuter = bvNone
TabOrder = 17
object Label22: TLabel
Left = 0
Top = 0
Width = 17
Height = 15
Align = alTop
Caption = #20010
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 0
Top = 56
Width = 17
Height = 15
Align = alTop
Caption = #29031
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label24: TLabel
Left = 0
Top = 15
Width = 17
Height = 13
Align = alTop
AutoSize = False
end
object Label25: TLabel
Left = 0
Top = 28
Width = 17
Height = 15
Align = alTop
Caption = #20154
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label26: TLabel
Left = 0
Top = 43
Width = 17
Height = 13
Align = alTop
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 0
Top = 84
Width = 17
Height = 15
Align = alTop
Caption = #29255
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Left = 0
Top = 71
Width = 17
Height = 13
Align = alTop
AutoSize = False
end
end
object DBImage1: TDBImage
Left = 384
Top = 136
Width = 137
Height = 169
DataField = 'photo'
DataSource = DS_employee_Q
TabOrder = 15
OnDblClick = DBImage1DblClick
end
end
end
object TabSheet3: TTabSheet
Caption = #20154#21592#20449#24687#26597#35810
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ImageIndex = 2
ParentFont = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -