📄 frmrs.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmRS
BorderStyle = 1 'Fixed Single
Caption = "人事档案管理"
ClientHeight = 7155
ClientLeft = 45
ClientTop = 435
ClientWidth = 12105
Icon = "frmRS.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7155
ScaleWidth = 12105
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 2400
Top = 240
End
Begin VB.Frame fGH
Height = 7095
Left = 0
TabIndex = 0
Top = 0
Width = 12135
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 6255
Left = 120
TabIndex = 1
Top = 720
Width = 2175
_ExtentX = 3836
_ExtentY = 11033
_Version = 393216
BackColorBkg = -2147483643
GridColor = 16744576
FocusRect = 2
SelectionMode = 1
AllowUserResizing= 3
End
Begin TabDlg.SSTab sstBase
Height = 6735
Left = 2400
TabIndex = 2
Top = 240
Width = 9615
_ExtentX = 16960
_ExtentY = 11880
_Version = 393216
TabHeight = 520
TabCaption(0) = "基本信息"
TabPicture(0) = "frmRS.frx":0442
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame2"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "家庭成员"
TabPicture(1) = "frmRS.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame4"
Tab(1).Control(1)= "Frame3"
Tab(1).ControlCount= 2
TabCaption(2) = "工作经历"
TabPicture(2) = "frmRS.frx":047A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame5"
Tab(2).Control(1)= "Frame6"
Tab(2).ControlCount= 2
Begin VB.Frame Frame6
Height = 855
Left = -74880
TabIndex = 69
Top = 5640
Width = 9255
Begin MSForms.CommandButton cmdExitJob
Height = 375
Left = 7680
TabIndex = 73
Top = 360
Width = 1095
Caption = "退出"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmRS.frx":2C2C
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdDelJob
Height = 375
Left = 3480
TabIndex = 72
Top = 360
Width = 1095
Caption = "删除"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmRS.frx":4E66
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdChgJob
Height = 375
Left = 1920
TabIndex = 71
Top = 360
Width = 1095
Caption = "修改"
PicturePosition = 327683
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdAddJob
Height = 375
Left = 480
TabIndex = 70
Top = 360
Width = 975
Caption = "添加"
PicturePosition = 327683
Size = "1720;661"
Picture = "frmRS.frx":6FA0
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Begin VB.Frame Frame5
Height = 5055
Left = -74880
TabIndex = 67
Top = 480
Width = 9255
Begin MSFlexGridLib.MSFlexGrid grdJob
Height = 4695
Left = 120
TabIndex = 68
Top = 240
Width = 9015
_ExtentX = 15901
_ExtentY = 8281
_Version = 393216
BackColorBkg = -2147483643
GridColor = 16744576
SelectionMode = 1
End
End
Begin VB.Frame Frame1
Height = 4935
Left = 120
TabIndex = 14
Top = 600
Width = 9255
Begin VB.CommandButton cmdWait
Caption = "数据载入中......"
Height = 975
Left = 3480
TabIndex = 79
Top = 2400
Width = 2775
End
Begin VB.TextBox txtLong
Height = 270
Left = 7560
MaxLength = 3
TabIndex = 78
Top = 4320
Width = 1215
End
Begin VB.TextBox txtAge
Height = 270
Left = 720
MaxLength = 3
TabIndex = 77
Top = 2280
Width = 1335
End
Begin VB.TextBox txtMoney
Height = 270
Left = 3000
TabIndex = 76
Top = 1800
Width = 1455
End
Begin VB.TextBox txtIdentity
Height = 270
Left = 1200
TabIndex = 75
Top = 3360
Width = 1695
End
Begin VB.TextBox txtHandset
Height = 270
Left = 5760
TabIndex = 74
Top = 2760
Width = 1455
End
Begin VB.TextBox txtGH
Height = 270
Left = 720
MaxLength = 5
TabIndex = 37
Top = 360
Width = 1455
End
Begin VB.TextBox txtName
Height = 270
Left = 3000
MaxLength = 10
TabIndex = 36
Top = 360
Width = 1455
End
Begin VB.ComboBox cboSex
Height = 300
ItemData = "frmRS.frx":733A
Left = 3000
List = "frmRS.frx":7344
TabIndex = 35
Text = "男"
Top = 840
Width = 1455
End
Begin VB.ComboBox cboPart
Height = 300
Left = 720
TabIndex = 34
Top = 1320
Width = 1455
End
Begin VB.ComboBox cboSpec
Height = 300
Left = 5760
TabIndex = 33
Top = 1800
Width = 1695
End
Begin VB.ComboBox cboDuty
Height = 300
Left = 3000
TabIndex = 32
Top = 1320
Width = 1455
End
Begin VB.ComboBox cboPayStyle
Height = 300
Left = 5760
TabIndex = 31
Top = 360
Width = 1695
End
Begin VB.ComboBox cboEmployeeStyle
Height = 300
Left = 5760
TabIndex = 28
Top = 840
Width = 1695
End
Begin VB.ComboBox cboCulture
Height = 300
Left = 5760
TabIndex = 26
Top = 1320
Width = 1695
End
Begin VB.ComboBox cboNation
Height = 300
Left = 720
TabIndex = 25
Top = 1800
Width = 1455
End
Begin VB.ComboBox cboMarry
Height = 300
ItemData = "frmRS.frx":7350
Left = 1200
List = "frmRS.frx":735A
TabIndex = 24
Text = "未婚"
Top = 2760
Width = 1095
End
Begin VB.ComboBox cboPolity
Height = 300
ItemData = "frmRS.frx":736A
Left = 5760
List = "frmRS.frx":7377
TabIndex = 23
Top = 2280
Width = 1695
End
Begin VB.ComboBox cboNativePlace
Height = 300
Left = 3120
TabIndex = 22
Top = 2760
Width = 1455
End
Begin VB.TextBox txtTelphone
Height = 270
Left = 4200
MaxLength = 12
TabIndex = 21
Top = 3360
Width = 1935
End
Begin VB.TextBox txtHomeAddress
Height = 870
Left = 1200
TabIndex = 20
Top = 3840
Width = 4935
End
Begin VB.ComboBox cboHealthy
Height = 300
ItemData = "frmRS.frx":738D
Left = 720
List = "frmRS.frx":7397
TabIndex = 19
Text = "健康"
Top = 840
Width = 1455
End
Begin VB.CommandButton cmdAddPhoto
Caption = "选择"
Height = 375
Left = 7680
TabIndex = 18
Top = 2520
Width = 615
End
Begin VB.CommandButton cmdDelPhoto
Caption = "清除"
Height = 375
Left = 8400
TabIndex = 17
Top = 2520
Width = 615
End
Begin VB.PictureBox pic2
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 2055
Left = 7560
ScaleHeight = 2055
ScaleWidth = 1455
TabIndex = 15
Top = 360
Width = 1455
Begin VB.Image pic
Height = 1935
Left = 120
Stretch = -1 'True
Top = 0
Width = 1335
End
End
Begin MSComCtl2.DTPicker dtpBirthday
Height = 255
Left = 3000
TabIndex = 27
Top = 2280
Width = 1455
_ExtentX = 2566
_ExtentY = 450
_Version = 393216
Format = 42926081
CurrentDate = 38069
End
Begin MSComCtl2.DTPicker dtpEBargain
Height = 255
Left = 7560
TabIndex = 29
Top = 3840
Width = 1335
_ExtentX = 2355
_ExtentY = 450
_Version = 393216
Format = 42926081
CurrentDate = 38069
End
Begin MSComCtl2.DTPicker dtpBBargain
Height = 255
Left = 7560
TabIndex = 30
Top = 3360
Width = 1335
_ExtentX = 2355
_ExtentY = 450
_Version = 393216
Format = 42926081
CurrentDate = 38069
End
Begin VB.Label Label1
Caption = "工号"
Height = 255
Left = 240
TabIndex = 61
Top = 360
Width = 975
End
Begin VB.Label Label2
Caption = "姓名"
Height = 375
Left = 2520
TabIndex = 60
Top = 360
Width = 615
End
Begin VB.Label Label3
Caption = "性别"
Height = 375
Left = 2520
TabIndex = 59
Top = 840
Width = 615
End
Begin VB.Label Label4
Caption = "部门"
Height = 495
Left = 240
TabIndex = 58
Top = 1320
Width = 495
End
Begin VB.Label Label5
Caption = "薪金"
Height = 375
Left = 2520
TabIndex = 57
Top = 1800
Width = 615
End
Begin VB.Label Label6
Caption = "所学专业"
Height = 375
Left = 4920
TabIndex = 56
Top = 1800
Width = 735
End
Begin VB.Label Label7
Caption = "职务"
Height = 375
Left = 2520
TabIndex = 55
Top = 1320
Width = 495
End
Begin VB.Label Label8
Caption = "工资类别"
Height = 255
Left = 4920
TabIndex = 54
Top = 360
Width = 735
End
Begin VB.Label Label9
Caption = "合同开始时间"
Height = 255
Left = 6360
TabIndex = 53
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -