📄 frmempedit.frm
字号:
Left = 240
TabIndex = 62
Top = 3784
Width = 1440
End
Begin VB.Label Label17
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "户口所在地街道"
Height = 180
Left = 240
TabIndex = 61
Top = 4212
Width = 1260
End
Begin VB.Label Label37
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "户口所在地"
Height = 180
Left = 240
TabIndex = 60
Top = 3356
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "邮政编码"
Height = 180
Left = 6600
TabIndex = 59
Top = 3356
Width = 720
End
Begin VB.Label Label31
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "文化程度"
Height = 180
Left = 6600
TabIndex = 58
Top = 1216
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "出生日期"
Height = 180
Left = 240
TabIndex = 57
Top = 788
Width = 720
End
Begin VB.Label Label28
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "政治面貌"
Height = 180
Left = 3960
TabIndex = 56
Top = 788
Width = 720
End
Begin VB.Label Label20
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "签订劳动合同日期"
Height = 180
Left = 240
TabIndex = 55
Top = 5068
Width = 1440
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "性别"
Height = 180
Left = 3960
TabIndex = 54
Top = 360
Width = 360
End
Begin VB.Label Label25
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "籍贯"
Height = 180
Left = 3960
TabIndex = 53
Top = 1216
Width = 360
End
Begin VB.Label Label13
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "居住住址"
Height = 180
Left = 3960
TabIndex = 52
Top = 2928
Width = 720
End
Begin VB.Label Label12
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "手机号"
Height = 180
Left = 6600
TabIndex = 51
Top = 2070
Width = 540
End
Begin VB.Label Label11
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "家庭电话"
Height = 180
Left = 240
TabIndex = 50
Top = 2500
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "小灵通号"
Height = 180
Left = 3960
TabIndex = 49
Top = 2505
Width = 720
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "办公电话"
Height = 180
Left = 3960
TabIndex = 48
Top = 2070
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "工作岗位"
Height = 180
Left = 3960
TabIndex = 47
Top = 5068
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "员工姓名"
Height = 180
Left = 240
TabIndex = 46
Top = 360
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "本企业工龄起始日"
Height = 180
Left = 240
TabIndex = 45
Top = 4640
Width = 1440
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "身份证号"
Height = 180
Left = 240
TabIndex = 44
Top = 1644
Width = 720
End
Begin VB.Label Label26
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "婚姻状况"
Height = 180
Left = 240
TabIndex = 43
Top = 1216
Width = 720
End
Begin VB.Label Label30
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "工龄"
Height = 180
Left = 3960
TabIndex = 42
Top = 4635
Width = 360
End
Begin VB.Label Label34
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "民族"
Height = 180
Left = 6600
TabIndex = 41
Top = 788
Width = 360
End
Begin VB.Label Label36
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "档案电脑号"
Height = 180
Left = 6600
TabIndex = 40
Top = 1650
Width = 900
End
Begin VB.Label Label39
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "档案所在地"
Height = 180
Left = 240
TabIndex = 39
Top = 2928
Width = 900
End
Begin VB.Label Label18
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "职务"
Height = 180
Left = 6600
TabIndex = 38
Top = 4635
Width = 360
End
Begin VB.Label Label22
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "基本工资"
Height = 180
Left = 240
TabIndex = 37
Top = 5496
Width = 720
End
Begin VB.Label Label24
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "奖金基数"
Height = 180
Left = 3960
TabIndex = 36
Top = 5490
Width = 720
End
Begin VB.Label Label14
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "上级员工"
Height = 180
Left = 6600
TabIndex = 35
Top = 5068
Width = 720
End
End
Begin VB.CommandButton Cmd_Cancel
Cancel = -1 'True
Caption = "取 消"
Height = 400
Left = 5045
MouseIcon = "FrmEmpEdit.frx":0098
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 1
Top = 6600
Width = 1300
End
Begin VB.CommandButton Cmd_OK
Caption = "确 定"
Height = 400
Left = 3015
MouseIcon = "FrmEmpEdit.frx":03A2
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 0
Top = 6600
Width = 1300
End
End
Attribute VB_Name = "FrmEmpEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean
Private Sub Cmd_Cancel_Click()
FrmEmpMan.TmpOk = False
Unload Me
End Sub
Private Sub Cmd_OK_Click()
With MyEmp
'姓名
.Emp_Name = MakeStr(txtEmp_Name)
'性别
.Sex = ComboSex.Text
'员工状态
.State = ComboState.ListIndex + 1
'民族
.Nationality = MakeStr(txtNationality)
'生日
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -