📄 humaninfo.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmHumanInfo
Caption = "人事档案信息"
ClientHeight = 8775
ClientLeft = 60
ClientTop = 345
ClientWidth = 10965
LinkTopic = "Form1"
ScaleHeight = 8775
ScaleWidth = 10965
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "基本信息"
Height = 4935
Left = 0
TabIndex = 46
Top = 0
Width = 9255
Begin MSComCtl2.DTPicker DTPWorkDate
Height = 375
Left = 4800
TabIndex = 101
Top = 3960
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
Format = 23658497
CurrentDate = 38330
End
Begin MSComCtl2.DTPicker DTPPartyDate
Height = 375
Left = 1320
TabIndex = 100
Top = 1920
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
Format = 23658497
CurrentDate = 38330
End
Begin MSComCtl2.DTPicker DTPBirthday
Height = 375
Left = 1320
TabIndex = 99
Top = 1080
Width = 1815
_ExtentX = 3201
_ExtentY = 661
_Version = 393216
Format = 23658497
CurrentDate = 38330
End
Begin VB.TextBox txtNative
Height = 270
Left = 4800
TabIndex = 98
Top = 1920
Width = 1815
End
Begin VB.ComboBox cmbEducation
Height = 300
Left = 7680
TabIndex = 97
Top = 3600
Width = 1335
End
Begin VB.TextBox txtNum
Height = 270
Left = 1320
TabIndex = 67
Top = 240
Width = 1815
End
Begin VB.OptionButton Option1
Caption = "男"
Height = 375
Left = 1440
TabIndex = 66
Top = 600
Value = -1 'True
Width = 975
End
Begin VB.OptionButton Option2
Caption = "女"
Height = 375
Left = 2520
TabIndex = 65
Top = 600
Width = 735
End
Begin VB.TextBox txtName
Height = 270
Left = 4800
TabIndex = 64
Top = 240
Width = 1815
End
Begin VB.TextBox txtIDCardNum
Height = 270
Left = 4800
TabIndex = 63
Top = 600
Width = 1815
End
Begin VB.TextBox txtTel
Height = 270
Left = 1320
TabIndex = 62
Top = 2400
Width = 1815
End
Begin VB.TextBox txtMobileTel
Height = 270
Left = 4800
TabIndex = 61
Top = 2400
Width = 1815
End
Begin VB.TextBox txtEmail
Height = 270
Left = 1320
TabIndex = 60
Top = 2880
Width = 1815
End
Begin VB.TextBox txtContactWay
Height = 270
Left = 4800
TabIndex = 59
Top = 2880
Width = 1815
End
Begin VB.TextBox txtAddress
Height = 270
Left = 1320
TabIndex = 58
Top = 3240
Width = 5295
End
Begin VB.TextBox txtSchool
Height = 270
Left = 1320
TabIndex = 57
Top = 3600
Width = 1815
End
Begin VB.TextBox txtProfession
Height = 270
Left = 4800
TabIndex = 56
Top = 3600
Width = 1815
End
Begin VB.TextBox txtSpecial
Height = 270
Left = 1320
TabIndex = 55
Top = 3960
Width = 1815
End
Begin VB.TextBox txtWorkAge
Height = 270
Left = 7680
TabIndex = 54
Top = 3960
Width = 975
End
Begin VB.TextBox Text1
Height = 270
Left = 1320
TabIndex = 53
Top = 4440
Width = 1815
End
Begin VB.TextBox Text2
Height = 270
Left = 4800
TabIndex = 52
Top = 4440
Width = 1815
End
Begin VB.CommandButton cmdSelectPicture
Caption = "选择照片"
Height = 375
Left = 7560
TabIndex = 51
Top = 2520
Width = 1335
End
Begin VB.CommandButton cmdDeltePicture
Caption = "清空照片"
Height = 375
Left = 7560
TabIndex = 50
Top = 3000
Width = 1335
End
Begin VB.ComboBox cmbRace
Height = 300
ItemData = "HumanInfo.frx":0000
Left = 4800
List = "HumanInfo.frx":0002
TabIndex = 49
Top = 1080
Width = 1815
End
Begin VB.ComboBox cmbZhengzhi
Height = 300
ItemData = "HumanInfo.frx":0004
Left = 4800
List = "HumanInfo.frx":0006
TabIndex = 48
Top = 1560
Width = 1815
End
Begin VB.ComboBox cmbMarrige
Height = 300
ItemData = "HumanInfo.frx":0008
Left = 1320
List = "HumanInfo.frx":0012
TabIndex = 47
Top = 1560
Width = 1815
End
Begin VB.Label Label6
Caption = "入党团时间："
Height = 255
Left = 120
TabIndex = 92
Top = 1920
Width = 1095
End
Begin VB.Label lblNum
Caption = "编号："
Height = 255
Left = 120
TabIndex = 91
Top = 240
Width = 975
End
Begin VB.Label lblSex
Caption = "性别："
Height = 255
Left = 120
TabIndex = 90
Top = 720
Width = 615
End
Begin VB.Label lblName
Caption = "姓名："
Height = 255
Left = 3480
TabIndex = 89
Top = 240
Width = 855
End
Begin VB.Label lblPicture
Caption = "照片："
Height = 255
Left = 6720
TabIndex = 88
Top = 240
Width = 615
End
Begin VB.Label lblIDCardNum
Caption = "身份证号："
Height = 255
Left = 3480
TabIndex = 87
Top = 600
Width = 975
End
Begin VB.Label lblBirthday
Caption = "出生年月："
Height = 375
Left = 120
TabIndex = 86
Top = 1080
Width = 1095
End
Begin VB.Label lblRace
Caption = "民族："
Height = 255
Left = 3480
TabIndex = 85
Top = 1080
Width = 735
End
Begin VB.Label lblMarrige
Caption = "婚姻状况："
Height = 255
Left = 120
TabIndex = 84
Top = 1560
Width = 1095
End
Begin VB.Label lblPolitical
Caption = "政治面貌："
Height = 255
Left = 3480
TabIndex = 83
Top = 1560
Width = 975
End
Begin VB.Label lblNative
Caption = "籍贯："
Height = 375
Left = 3480
TabIndex = 82
Top = 1920
Width = 855
End
Begin VB.Label lblTel
Caption = "联系电话："
Height = 375
Left = 120
TabIndex = 81
Top = 2400
Width = 1095
End
Begin VB.Label lblMobileTel
Caption = "手机号码："
Height = 375
Left = 3480
TabIndex = 80
Top = 2400
Width = 975
End
Begin VB.Label lblEmail
Caption = "电子邮件："
Height = 255
Left = 120
TabIndex = 79
Top = 2880
Width = 975
End
Begin VB.Label lblContactWay
Caption = "其他联系方式："
Height = 255
Left = 3480
TabIndex = 78
Top = 2880
Width = 1335
End
Begin VB.Label lblAddress
Caption = "家庭地址："
Height = 255
Left = 120
TabIndex = 77
Top = 3240
Width = 975
End
Begin VB.Label lblSchool
Caption = "毕业院校："
Height = 255
Left = 120
TabIndex = 76
Top = 3600
Width = 975
End
Begin VB.Label lblProfession
Caption = "专业："
Height = 255
Left = 3480
TabIndex = 75
Top = 3600
Width = 975
End
Begin VB.Label lblEducation
Caption = "文化程度："
Height = 255
Left = 6720
TabIndex = 74
Top = 3600
Width = 975
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -