📄 frmempman.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form FrmEmpMan
BorderStyle = 1 'Fixed Single
Caption = "员工信息管理"
ClientHeight = 6315
ClientLeft = 45
ClientTop = 330
ClientWidth = 11640
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6315
ScaleWidth = 11640
StartUpPosition = 2 '屏幕中心
Begin VB.ComboBox ComboState
Height = 300
ItemData = "FrmEmpMan.frx":0000
Left = 120
List = "FrmEmpMan.frx":0016
Style = 2 'Dropdown List
TabIndex = 73
Top = 2880
Width = 2415
End
Begin VB.Frame Frame2
BackColor = &H80000004&
Height = 495
Left = 120
TabIndex = 70
Top = 0
Width = 11535
Begin VB.CommandButton Cmd_Experience
Caption = "学历与工作经历"
Height = 285
Left = 2520
MouseIcon = "FrmEmpMan.frx":0056
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 72
Top = 150
Width = 2025
End
Begin VB.CommandButton Cmd_Family
Caption = "家庭主要成员管理"
Height = 285
Left = 180
MouseIcon = "FrmEmpMan.frx":0360
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 71
Top = 150
Width = 1905
End
End
Begin VB.CommandButton Cmd_Trans
Caption = "部门调转"
Height = 400
Left = 6767
MouseIcon = "FrmEmpMan.frx":066A
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 69
Top = 5640
Width = 1300
End
Begin VB.CommandButton Cmd_Back
Cancel = -1 'True
Caption = "返 回"
Height = 400
Left = 8297
MouseIcon = "FrmEmpMan.frx":0974
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 68
Top = 5640
Width = 1300
End
Begin VB.CommandButton Cmd_Del
Caption = "删除职员"
Height = 400
Left = 5237
MouseIcon = "FrmEmpMan.frx":0C7E
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 67
Top = 5640
Width = 1300
End
Begin VB.CommandButton Cmd_Modi
Caption = "修改资料"
Height = 400
Left = 3720
MouseIcon = "FrmEmpMan.frx":0F88
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 66
Top = 5640
Width = 1300
End
Begin VB.CommandButton Cmd_Add
Caption = "添加职员"
Default = -1 'True
Height = 400
Left = 2177
MouseIcon = "FrmEmpMan.frx":1292
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 65
Top = 5640
Width = 1300
End
Begin VB.Frame Frame1
BackColor = &H80000004&
ForeColor = &H00808000&
Height = 4935
Left = 2640
TabIndex = 0
Top = 480
Width = 9015
Begin VB.Line Line29
X1 = 1200
X2 = 1200
Y1 = 3840
Y2 = 4920
End
Begin VB.Label Lbl_Memo
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "Memo"
DataField = "Memo"
DataSource = "AdoEmpDetail"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 225
Left = 6000
TabIndex = 64
Top = 4320
Width = 2880
End
Begin VB.Label Label27
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "备注"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 4800
TabIndex = 63
Top = 4320
Width = 390
End
Begin VB.Label Lbl_BadgeID
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "OfficePhone"
DataField = "BadgeID"
DataSource = "AdoEmpDetail"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 225
Left = 6000
TabIndex = 62
Top = 1440
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "工作证号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 4800
TabIndex = 61
Top = 1440
Width = 780
End
Begin VB.Line Line26
X1 = 0
X2 = 9000
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line25
X1 = 3360
X2 = 3360
Y1 = 1680
Y2 = 2040
End
Begin VB.Line Line24
X1 = 2400
X2 = 2400
Y1 = 1680
Y2 = 2040
End
Begin VB.Line Line21
X1 = 3360
X2 = 3360
Y1 = 3840
Y2 = 4920
End
Begin VB.Line Line20
X1 = 2400
X2 = 2400
Y1 = 3120
Y2 = 4920
End
Begin VB.Line Line19
X1 = 6480
X2 = 6480
Y1 = 2760
Y2 = 3840
End
Begin VB.Line Line18
X1 = 7200
X2 = 7200
Y1 = 120
Y2 = 2040
End
Begin VB.Line Line17
X1 = 5880
X2 = 5880
Y1 = 120
Y2 = 2760
End
Begin VB.Line Line16
X1 = 4680
X2 = 4680
Y1 = 120
Y2 = 4560
End
Begin VB.Line Line15
X1 = 3360
X2 = 3360
Y1 = 120
Y2 = 1320
End
Begin VB.Line Line14
X1 = 2400
X2 = 2400
Y1 = 120
Y2 = 1320
End
Begin VB.Line Line13
X1 = 1200
X2 = 1200
Y1 = 120
Y2 = 3120
End
Begin VB.Line Line11
X1 = 0
X2 = 9000
Y1 = 4560
Y2 = 4560
End
Begin VB.Line Line10
X1 = 0
X2 = 8880
Y1 = 4200
Y2 = 4200
End
Begin VB.Line Line9
X1 = 0
X2 = 9000
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line8
X1 = 0
X2 = 9000
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line7
X1 = 0
X2 = 9000
Y1 = 3120
Y2 = 3120
End
Begin VB.Line Line6
X1 = 0
X2 = 9000
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line5
X1 = 0
X2 = 9000
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line4
X1 = 0
X2 = 7200
Y1 = 1680
Y2 = 1680
End
Begin VB.Line Line3
X1 = 0
X2 = 7200
Y1 = 1320
Y2 = 1320
End
Begin VB.Line Line2
X1 = 0
X2 = 7200
Y1 = 960
Y2 = 960
End
Begin VB.Line Line1
BorderColor = &H00000000&
X1 = 0
X2 = 7200
Y1 = 600
Y2 = 600
End
Begin VB.Label Lbl_Fillin_Time
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "Fillin_Time"
DataField = "Fillin_Time"
DataSource = "AdoEmpDetail"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 180
Left = 3480
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -