📄 frmempedit.frm
字号:
Left = 240
TabIndex = 37
Top = 2925
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "员工姓名"
Height = 180
Left = 240
TabIndex = 36
Top = 360
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "工作岗位"
Height = 180
Left = 3600
TabIndex = 35
Top = 3360
Width = 720
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "办公电话"
Height = 180
Left = 240
TabIndex = 34
Top = 2070
Width = 720
End
Begin VB.Label Label12
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "移动电话"
Height = 180
Left = 4800
TabIndex = 33
Top = 2070
Width = 720
End
Begin VB.Label Label25
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "籍贯"
Height = 180
Left = 3600
TabIndex = 32
Top = 1215
Width = 360
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "性别"
Height = 180
Left = 3600
TabIndex = 31
Top = 360
Width = 360
End
Begin VB.Label Label28
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "政治面貌"
Height = 180
Left = 3600
TabIndex = 30
Top = 795
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "出生日期"
Height = 180
Left = 240
TabIndex = 29
Top = 788
Width = 720
End
Begin VB.Label Label31
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "文化程度"
Height = 180
Left = 6240
TabIndex = 28
Top = 1215
Width = 720
End
Begin VB.Label Label37
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "户口所在地"
Height = 180
Left = 4800
TabIndex = 27
Top = 2520
Width = 900
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "合同有效期"
Height = 180
Left = 4800
TabIndex = 26
Top = 2940
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "填表人"
Height = 180
Left = 6240
TabIndex = 25
Top = 3840
Width = 540
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "备注"
Height = 180
Left = 240
TabIndex = 24
Top = 3840
Width = 360
End
Begin VB.Label Label21
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "工作证号"
Height = 180
Left = 6240
TabIndex = 23
Top = 1650
Width = 720
End
Begin VB.Label Label23
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "状态"
Height = 180
Left = 6240
TabIndex = 22
Top = 360
Width = 360
End
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
If Trim(txtEmpName) = "" Then
MsgBox "请输入员工姓名"
Exit Sub
End If
.EmpName = MakeStr(txtEmpName) '姓名
.Sex = ComboSex.Text '性别
.State = ComboState.ListIndex + 1 '员工状态
.Nationality = MakeStr(txtNationality) '民族
If IsDate(DtBirth.Value) = False Then '生日
.Birth = ""
Else
.Birth = Format(DtBirth.Value, "yyyy-mm-dd")
End If
.Political_Party = MakeStr(txtPolitical_Party) '政治面貌
.Culture_Level = MakeStr(txtCulture_Level) '文化程度
.Marital_Condition = MakeStr(ComboMarital) '婚姻状况
.Family_Place = MakeStr(txtFamily_Place) '籍贯
.Id_Card = MakeStr(txtId_Card) '身份证号
.BadgeID = MakeStr(txtBadgeID) '工作证号
.Office_phone = MakeStr(txtOfficePhone) '办公电话
.Mobile = MakeStr(txtMobile) '移动电话
.Files_Keep_Org = MakeStr(txtFiles_Keep_Org) '档案存放地
.Hukou = MakeStr(txtHukou) '户口所在地
If IsDate(DtHireDate.Value) = False Then '到岗日期
.HireDate = ""
Else
.HireDate = Format(DtHireDate.Value, "yyyy-mm-dd")
End If
.DepId = CurDep.DepId '部门编号
.Position1 = MakeStr(txtPosition1) '岗位
.Title = MakeStr(txtTitle) '职务
.UpperId = UpperEmp.EmpId '上级员工
.Contract_Duration = MakeStr(txtContract_Duration) '合同有效期
.Memo1 = MakeStr(txtMemo1) '备注
.Fillin_Person = MakeStr(lblFillin_Person) '填表人
.Fillin_Time = Format(Now, "yyyy-mm-dd hh:mm") '填表时间
'变量Modify等于False，表示插入新记录；否则表示修改记录
If Modify = False Then
.Insert
Else
.Update (CurEmp.EmpId)
End If
End With
'设置员工信息管理窗体中的状态标识
FrmEmpMan.TmpOk = True
Unload Me
End Sub
Private Sub ComboUpper_GotFocus()
Dim TmpId As Integer
'将焦点设置为下一个控件，否则将反复执行此过程
txtMemo1.SetFocus
'保存CurDep
TmpId = CurDep.DepId
'设置FrmEmpSel窗体的位置
FrmEmpSel.Left = Me.Left + ComboUpper.Left + 350 - FrmEmpSel.Width
FrmEmpSel.Top = Me.Top + ComboUpper.Top - FrmEmpSel.Height + 450
FrmEmpSel.Show 1
'将选择的员工姓名显示到ComboUpper控件中
ComboUpper.Text = UpperEmp.EmpName
'恢复CurDep
CurDep.DepId = TmpId
CurDep.GetInfo (CurDep.DepId)
End Sub
Private Sub Form_Load()
If Modify = False Then
'添加新员工时，初始化控件
txtEmpName = ""
ComboSex.ListIndex = 0
ComboState.ListIndex = 0
txtNationality = ""
DtBirth.Value = Null
txtPolitical_Party = ""
txtFamily_Place = ""
txtId_Card = ""
txtBadgeID = ""
txtOfficePhone = ""
txtMobile = ""
txtFiles_Keep_Org = ""
txtHukou = ""
DtHireDate.Value = Null
txtContract_Duration = ""
txtPosition1 = ""
txtTitle = ""
ComboUpper.Text = ""
lblFillin_Person = ""
lblFillin_Time = ""
txtMemo1 = ""
Else
With CurEmp
'修改员工记录时，设置控件的值
txtEmpName = .EmpName
If InCombo(.Sex, ComboSex) = True Then
ComboSex.Text = .Sex
End If
txtNationality = .Nationality
If IsDate(.Birth) Then
DtBirth.Value = .Birth
Else
DtBirth.Value = Null
End If
txtPolitical_Party = .Political_Party
txtFamily_Place = .Family_Place
If InCombo(.Marital_Condition, ComboMarital) = True Then
ComboMarital.Text = .Marital_Condition
End If
txtCulture_Level = .Culture_Level
txtId_Card = .Id_Card
txtBadgeID = .BadgeID
txtOfficePhone = .Office_phone
txtMobile = .Mobile
txtFiles_Keep_Org = .Files_Keep_Org
txtHukou = .Hukou
If IsDate(.HireDate) Then
DtHireDate.Value = .HireDate
Else
DtHireDate.Value = Null
End If
txtPosition1 = .Position1
txtTitle = .Title
txtContract_Duration = .Contract_Duration
ComboUpper.Text = MyEmp.GetName(.UpperId)
lblFillin_Person = .Fillin_Person
lblFillin_Time = .Fillin_Time
txtMemo1 = .Memo1
End With
End If
End Sub
Private Sub txtBadgeID_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtCulture_Level_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtFamily_Place_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtFiles_Keep_Org_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtHukou_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtId_Card_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtMemo1_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtMobile_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtNationality_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtOfficePhone_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtPolitical_Party_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtPosition1_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
Private Sub txtTitle_KeyPress(KeyAscii As Integer)
EnterTAB (KeyAscii)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -