frmempedit.frm

开发人力资源管理系统的目的就是帮助企业的人力资源部门提高工作效率,实现企业认识信息管理的系统化,规范化和自动化.根据这个系统所要实现的目的和任务,总结出这个系统最终实现的主要功能如下: 1.部门信息

  If IsDate(ComboBirth.Text) = False Then
    MsgBox "请选择正确的出生日期"
    Exit Sub
  End If
  .Birth = ComboBirth.Text
  '政治面貌
  .Political_Party = MakeStr(txtPolitical_Party)
  '文化程度
  .Culture_Level = MakeStr(txtCulture_Level)
  '婚姻状况
  .Marital_Condition = MakeStr(ComboMarital)
  '籍贯
  .Family_Place = MakeStr(txtFamily_Place)
  '档案电脑号
  .PcId = MakeStr(txtPcId)
  '身份证号
  .Id_Card = MakeStr(txtId_Card)
  '工作证号
  .BadgeID = MakeStr(txtBadgeID)
  '办公电话
  .Office_phone = MakeStr(txtOfficePhone)
  '家庭电话
  .Home_phone = MakeStr(txtHomePhone)
  '移动电话
  .Mobile = MakeStr(txtMobile)
  '小灵通
  .Mini = MakeStr(txtMini)
  '档案存放地
  .Files_Keep_Org = MakeStr(txtFiles_Keep_Org)
  '居住地址
  .Residence = MakeStr(txtResidence)
  '户口所在地
  .Hukou = MakeStr(txtHukou)
  '邮政编号
  .Postcode = MakeStr(txtPostcode)
  '户口所在地派出所
  .Police_Post = MakeStr(txtPolice_Post)
  '户口所在地街道
  .Street_Office = MakeStr(txtStreet_Office)
  '本企业工龄起始日期
  If IsDate(ComboHireDate.Text) = False Then
    MsgBox "请选择正确的本企业工龄起始日期"
    Exit Sub
  End If
  .HireDate = ComboHireDate.Text
  '工龄
  .Working_Years = Val(txtWorking_Years)
  '签订劳动合同日期
  If IsDate(ComboContractSign.Text) = False Then
    MsgBox "请选择正确的签订劳动合同日期"
    Exit Sub
  End If
  .Contract_Sign_Date = ComboContractSign.Text
  '岗位
  .Position = MakeStr(txtPosition)
  '职务
  .Title = MakeStr(txtTitle)
  '上级员工
  .UpperId = UpperEmp.Emp_Id
  '基本工资
  .Base_Wage = Val(txtBaseWage)
  '奖金基数
  .Base_Prize = Val(txtBasePrize)
  '填表人
  .Fillin_Person = MakeStr(txtFillin_Person)
  '备注
  .Memo = MakeStr(txtMemo)
  '填表时间
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Trim(Str(Hour(t))) + ":" + Trim(Str(Minute(t))) + ":" + Trim(Str(Second(t)))
  .Fillin_Time = dd + "  " + tt
  '部门编号
  .Dep_Id = CurDep.Dep_Id
  
  If Modify = False Then
    .Insert
  Else
    .Update (CurEmp.Emp_Id)
  End If
  
  End With
  '设置员工信息管理窗体中的状态标识
  FrmEmpMan.TmpOk = True
  Unload Me
End Sub

Private Sub ComboBirth_GotFocus()
  '将焦点设置为下一个控件，否则将反复执行此过程
  txtPolitical_Party.SetFocus
  '如果ComboBirth中包含日期，则将它赋值到FrmDateSel中
  If ComboBirth.Text <> "" Then
    FrmDateSel.OriDate = ComboBirth.Text
  Else
    FrmDateSel.OriDate = ""
  End If
  '设置FrmDateSel窗体的位置
  FrmDateSel.Left = Me.Left + ComboBirth.Left + 350
  FrmDateSel.Top = Me.Top + ComboBirth.Top + ComboBirth.Height + 450
  FrmDateSel.Show 1
  '将选择的日期显示到ComboBirth控件中
  ComboBirth.Text = FrmDateSel.OriDate
End Sub

Private Sub ComboContractSign_GotFocus()
  txtPosition.SetFocus
  
  If ComboContractSign.Text <> "" Then
    FrmDateSel.OriDate = ComboContractSign.Text
  Else
    FrmDateSel.OriDate = ""
  End If
  FrmDateSel.Left = Me.Left + ComboContractSign.Left + 350
  FrmDateSel.Top = Me.Top + ComboContractSign.Top + ComboContractSign.Height - FrmDateSel.Height
  
  FrmDateSel.Show 1
  
  ComboContractSign.Text = FrmDateSel.OriDate
End Sub

Private Sub ComboHireDate_GotFocus()
  txtWorking_Years.SetFocus
  
  If ComboHireDate.Text <> "" Then
    FrmDateSel.OriDate = ComboHireDate.Text
  Else
    FrmDateSel.OriDate = ""
  End If
  FrmDateSel.Left = Me.Left + ComboHireDate.Left
  FrmDateSel.Top = Me.Top + ComboHireDate.Top + ComboHireDate.Height - FrmDateSel.Height
  
  FrmDateSel.Show 1
  
  ComboHireDate.Text = FrmDateSel.OriDate
End Sub

Private Sub ComboUpper_GotFocus()
  Dim TmpId As Integer
  '将焦点设置为下一个控件，否则将反复执行此过程
  txtBaseWage.SetFocus
  '保存CurDep
  TmpId = CurDep.Dep_Id
  '设置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.Emp_Name
  '恢复CurDep
  CurDep.Dep_Id = TmpId
  CurDep.GetInfo (CurDep.Dep_Id)
End Sub

Private Sub Form_Load()
  If Modify = False Then
    txtEmp_Name = ""
    ComboSex.ListIndex = 0
    ComboState.ListIndex = 0
    txtNationality = ""
    ComboBirth.Text = ""
    txtPolitical_Party = ""
    txtFamily_Place = ""
    txtPcId = ""
    txtId_Card = ""
    txtBadgeID = ""
    txtTouristID = ""
    txtOfficePhone = ""
    txtHomePhone = ""
    txtMobile = ""
    txtBp = ""
    txtFiles_Keep_Org = ""
    txtResidence = ""
    txtHukou = ""
    txtPostcode = ""
    txtPolice_Post = ""
    txtStreet_Office = ""
    ComboHireDate.Text = ""
    txtWorking_Years = ""
    ComboContractSign.Text = ""
    txtPosition = ""
    txtTitle = ""
    ComboUpper.Text = ""
    txtBase_Wage = ""
    txtPosition_Wage = ""
    txtFillin_Person = ""
    txtPerformance = ""
    txtTouristExp = ""
    txtMemo = ""
  Else
    With CurEmp

    '姓名
    txtEmp_Name = .Emp_Name
    '性别
    If InCombo(.Sex, ComboSex) = True Then
      ComboSex.Text = .Sex
    End If
    
    txtNationality = .Nationality
    ComboBirth.Text = .Birth
    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
    txtPcId = .PcId
    txtId_Card = .Id_Card
    txtBadgeID = .BadgeID
    txtOfficePhone = .Office_phone
    txtHomePhone = .Home_phone
    txtMobile = .Mobile
    txtMini = .Mini
    txtFiles_Keep_Org = .Files_Keep_Org
    txtResidence = .Residence
    txtHukou = .Hukou
    txtPostcode = .Postcode
    txtPolice_Post = .Police_Post
    txtStreet_Office = .Street_Office
    ComboHireDate.Text = .HireDate
    txtWorking_Years = .Working_Years
    ComboContractSign.Text = .Contract_Sign_Date
    txtPosition = .Position
    txtTitle = .Title
    ComboUpper.Text = MyEmp.GetName(.UpperId)
    txtBaseWage = .Base_Wage
    txtBasePrize = .Base_Prize
    txtFillin_Person = .Fillin_Person
    txtMemo = .Memo

    End With
  End If
End Sub

Private Sub txtBadgeID_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtBasePrize_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  If In_Single(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtBaseWage_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtBp_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtCulture_Level_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtEmp_Name_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 txtFillin_Person_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtHomePhone_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 txtMemo_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 txtPcId_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtPolice_Post_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtPolitical_Party_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtPosition_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtPostcode_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtResidence_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtStreet_Office_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtTitle_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtWorking_Years_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub