📄 frmemployee.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmAddEmployee
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "添加员工信息"
ClientHeight = 5205
ClientLeft = 45
ClientTop = 330
ClientWidth = 11565
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5205
ScaleWidth = 11565
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
BackColor = &H00C0C0C0&
Caption = "员工基本信息"
Height = 4095
Left = 120
TabIndex = 29
Top = 240
Width = 11295
Begin VB.ComboBox combDegree
Height = 300
ItemData = "frmEmployee.frx":0000
Left = 5520
List = "frmEmployee.frx":0019
TabIndex = 7
Top = 1200
Width = 1935
End
Begin VB.ComboBox combNation
Height = 300
ItemData = "frmEmployee.frx":004B
Left = 5520
List = "frmEmployee.frx":0052
TabIndex = 4
Top = 840
Width = 1935
End
Begin VB.ComboBox combMarriage
Height = 300
ItemData = "frmEmployee.frx":005A
Left = 9120
List = "frmEmployee.frx":006A
TabIndex = 5
Top = 840
Width = 1935
End
Begin VB.ComboBox combStatus
Height = 300
ItemData = "frmEmployee.frx":0086
Left = 1920
List = "frmEmployee.frx":0099
TabIndex = 6
Top = 1320
Width = 1815
End
Begin VB.ComboBox combSex
Height = 300
ItemData = "frmEmployee.frx":00C7
Left = 9120
List = "frmEmployee.frx":00D1
TabIndex = 2
Top = 480
Width = 1935
End
Begin VB.TextBox txtDepartment
DataField = "民族"
Height = 285
Left = 5520
TabIndex = 10
Top = 1650
Width = 1935
End
Begin VB.TextBox txtStreet
DataField = "所在街道办事处"
Height = 285
Left = 5520
TabIndex = 22
Top = 3210
Width = 1935
End
Begin VB.TextBox txtPosition
DataField = "岗位"
Height = 285
Left = 9120
TabIndex = 11
Top = 1659
Width = 1935
End
Begin VB.TextBox txtCoupleTel
DataField = "爱人联系电话"
Height = 285
Left = 9120
TabIndex = 26
Top = 3600
Width = 1935
End
Begin VB.TextBox txtCoupleUnit
DataField = "爱人工作单位"
Height = 285
Left = 1920
TabIndex = 24
Top = 3600
Width = 1815
End
Begin VB.TextBox txtCoupleName
DataField = "爱人姓名"
Height = 285
Left = 5520
TabIndex = 25
Top = 3600
Width = 1935
End
Begin VB.TextBox txtCellPhone
DataField = "移动电话"
Height = 285
Left = 1920
TabIndex = 21
Top = 3240
Width = 1815
End
Begin VB.TextBox txtTel
DataField = "电话"
Height = 285
Left = 9120
TabIndex = 20
Top = 2823
Width = 1935
End
Begin VB.TextBox txtZip
DataField = "邮编"
Height = 285
Left = 9120
TabIndex = 23
Top = 3211
Width = 1935
End
Begin VB.TextBox txtAddress
DataField = "家庭通讯地址"
Height = 285
Left = 5520
TabIndex = 19
Top = 2820
Width = 1935
End
Begin VB.TextBox txtRank
DataField = "职称"
Height = 285
Left = 1920
TabIndex = 18
Top = 2880
Width = 1815
End
Begin VB.TextBox txtGraduateCol
DataField = "毕业学校"
Height = 285
Left = 9120
TabIndex = 17
Top = 2435
Width = 1935
End
Begin VB.TextBox txtMajor
DataField = "所学专业"
Height = 285
Left = 5520
TabIndex = 16
Top = 2430
Width = 1935
End
Begin VB.TextBox txtID
DataField = "身份证号"
Height = 315
Left = 1920
TabIndex = 15
Top = 2520
Width = 1815
End
Begin VB.TextBox txtLivingPlace
DataField = "户口所在地"
Height = 285
Left = 9120
TabIndex = 14
Top = 2047
Width = 1935
End
Begin VB.TextBox txtBirthPlace
DataField = "出生地点"
Height = 285
Left = 5520
TabIndex = 13
Top = 2040
Width = 1935
End
Begin VB.TextBox txtHomeTown
DataField = "籍贯"
Height = 285
Left = 1920
TabIndex = 12
Top = 2160
Width = 1815
End
Begin VB.TextBox txtName
DataField = "姓名"
Height = 285
Left = 5520
TabIndex = 1
Top = 480
Width = 1935
End
Begin VB.TextBox txtEmployeeID
DataField = "员工号"
Height = 285
Left = 1920
TabIndex = 0
Top = 480
Width = 1815
End
Begin MSComCtl2.DTPicker DTForm
DataField = "转正时间"
Height = 345
Left = 1920
TabIndex = 9
Top = 1680
Width = 1815
_ExtentX = 3201
_ExtentY = 609
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 65929217
CurrentDate = 36195
End
Begin MSComCtl2.DTPicker DTEnterCom
DataField = "进入公司时间"
Height = 300
Left = 9120
TabIndex = 8
Top = 1256
Width = 1935
_ExtentX = 3413
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 65929217
CurrentDate = 36191
End
Begin MSComCtl2.DTPicker DTBirth
DataField = "出生日期"
Height = 375
Left = 1920
TabIndex = 3
Top = 840
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 65929217
CurrentDate = 36191
End
Begin VB.Label Label4
Caption = "*"
Height = 255
Left = 5280
TabIndex = 60
Top = 480
Width = 135
End
Begin VB.Label Label3
Caption = "*"
Height = 255
Left = 1680
TabIndex = 59
Top = 2520
Width = 135
End
Begin VB.Label Label2
Caption = "*"
Height = 255
Left = 1680
TabIndex = 58
Top = 480
Width = 135
End
Begin VB.Label lblLabels
Caption = "所在街道办事处："
Height = 255
Index = 58
Left = 3960
TabIndex = 56
Top = 3315
Width = 1455
End
Begin VB.Label lblLabels
Caption = "部门："
Height = 255
Index = 57
Left = 3960
TabIndex = 55
Top = 1695
Width = 615
End
Begin VB.Label lblLabels
Caption = "岗位："
Height = 255
Index = 56
Left = 7800
TabIndex = 54
Top = 1680
Width = 615
End
Begin VB.Label lblLabels
Caption = "爱人联系电话："
Height = 255
Index = 35
Left = 7800
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -