📄 frmemployee.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form 添加员工信息
BorderStyle = 1 'Fixed Single
Caption = "添加员工信息"
ClientHeight = 5205
ClientLeft = 45
ClientTop = 330
ClientWidth = 11565
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5205
ScaleWidth = 11565
Begin VB.Frame Frame2
Caption = "员工基本信息"
Height = 4095
Left = 120
TabIndex = 2
Top = 240
Width = 11295
Begin VB.TextBox txtDepartment
DataField = "民族"
Height = 285
Left = 5520
TabIndex = 50
Top = 1680
Width = 1935
End
Begin VB.TextBox txtDegree
DataField = "民族"
Height = 285
Left = 5520
TabIndex = 49
Top = 1200
Width = 1935
End
Begin VB.TextBox txtSex
DataField = "民族"
Height = 285
Left = 9120
TabIndex = 48
Top = 240
Width = 1935
End
Begin VB.TextBox txtStreet
DataField = "所在街道办事处"
Height = 285
Left = 5520
TabIndex = 20
Top = 3600
Width = 1935
End
Begin VB.TextBox txtPosition
DataField = "岗位"
Height = 285
Left = 9120
TabIndex = 19
Top = 1659
Width = 1935
End
Begin VB.TextBox txtCellPhone
DataField = "移动电话"
Height = 285
Left = 1920
TabIndex = 18
Top = 3600
Width = 1815
End
Begin VB.TextBox txtTel
DataField = "电话"
Height = 285
Left = 9120
TabIndex = 17
Top = 3120
Width = 1935
End
Begin VB.TextBox txtZip
DataField = "邮编"
Height = 285
Left = 9120
TabIndex = 16
Top = 3600
Width = 1935
End
Begin VB.TextBox txtAddress
DataField = "家庭通讯地址"
Height = 285
Left = 5520
TabIndex = 15
Top = 3120
Width = 1935
End
Begin VB.TextBox txtRank
DataField = "职称"
Height = 285
Left = 1920
TabIndex = 14
Top = 3120
Width = 1815
End
Begin VB.TextBox txtGraduateCol
DataField = "毕业学校"
Height = 285
Left = 9120
TabIndex = 13
Top = 2640
Width = 1935
End
Begin VB.TextBox txtMajor
DataField = "所学专业"
Height = 285
Left = 5520
TabIndex = 12
Top = 2640
Width = 1935
End
Begin VB.TextBox txtID
DataField = "身份证号"
Height = 285
Left = 1920
TabIndex = 11
Top = 2640
Width = 1815
End
Begin VB.TextBox txtMarriage
DataField = "婚姻状况"
Height = 285
Left = 9120
TabIndex = 10
Top = 720
Width = 1935
End
Begin VB.TextBox txtStatus
DataField = "政治面目"
Height = 285
Left = 1920
TabIndex = 9
Top = 1200
Width = 1815
End
Begin VB.TextBox txtLivingPlace
DataField = "户口所在地"
Height = 285
Left = 9120
TabIndex = 8
Top = 2160
Width = 1935
End
Begin VB.TextBox txtBirthPlace
DataField = "出生地点"
Height = 285
Left = 5520
TabIndex = 7
Top = 2160
Width = 1935
End
Begin VB.TextBox txtHomeTown
DataField = "籍贯"
Height = 285
Left = 1920
TabIndex = 6
Top = 2160
Width = 1815
End
Begin VB.TextBox txtNation
DataField = "民族"
Height = 285
Left = 5520
TabIndex = 5
Top = 720
Width = 1935
End
Begin VB.TextBox txtName
DataField = "姓名"
Height = 285
Left = 5520
TabIndex = 4
Top = 240
Width = 1935
End
Begin VB.TextBox txtEmployeeID
DataField = "员工号"
Height = 285
Left = 1920
TabIndex = 3
Top = 240
Width = 1815
End
Begin MSComCtl2.DTPicker DTForm
DataField = "转正时间"
Height = 300
Left = 1920
TabIndex = 21
Top = 1680
Width = 1815
_ExtentX = 3201
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 24772609
CurrentDate = 36195
End
Begin MSComCtl2.DTPicker DTEnterCom
DataField = "进入公司时间"
Height = 300
Left = 9120
TabIndex = 22
Top = 1200
Width = 1935
_ExtentX = 3413
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 24772609
CurrentDate = 36191
End
Begin MSComCtl2.DTPicker DTBirth
DataField = "出生日期"
Height = 300
Left = 1920
TabIndex = 23
Top = 720
Width = 1815
_ExtentX = 3201
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 24772609
CurrentDate = 36191
End
Begin VB.Label Label4
Caption = "*"
Height = 255
Left = 5280
TabIndex = 54
Top = 240
Width = 135
End
Begin VB.Label Label3
Caption = "*"
Height = 255
Left = 1680
TabIndex = 53
Top = 2640
Width = 135
End
Begin VB.Label Label2
Caption = "*"
Height = 255
Left = 1680
TabIndex = 52
Top = 360
Width = 135
End
Begin VB.Label lblLabels
Caption = "所在街道办事处："
Height = 255
Index = 58
Left = 3960
TabIndex = 47
Top = 3600
Width = 1575
End
Begin VB.Label lblLabels
Caption = "部门："
Height = 255
Index = 57
Left = 3960
TabIndex = 46
Top = 1695
Width = 1815
End
Begin VB.Label lblLabels
Caption = "岗位："
Height = 255
Index = 56
Left = 7800
TabIndex = 45
Top = 1695
Width = 1815
End
Begin VB.Label lblLabels
Caption = "移动电话："
Height = 255
Index = 31
Left = 360
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -