frmempadd.frm

一套比较完整的VB开发的员工请假管理系统

            .Fields("Emp_birthday").Value = Emp_birthday
        End If
        
        If Emp_Attend_time <> Empty Then
            .Fields("Emp_Attend_time").Value = Emp_Attend_time
        End If
        
        If Emp_Join_time <> Empty Then
            .Fields("Emp_Join_time").Value = Emp_Join_time
        End If
        
        If Emp_mobile_num <> Empty Then
            .Fields("Emp_mobile_num").Value = Emp_mobile_num
        End If
        
        If Emp_Tel_num <> Empty Then
            .Fields("Emp_Tel_num").Value = Emp_Tel_num
        End If
        
        If Emp_Address <> Empty Then
            .Fields("Emp_Address").Value = Emp_Address
        End If
        
        If Emp_Memo <> Empty Then
            .Fields("Emp_Memo").Value = Emp_Memo
        End If
        
        If Emp_name_char <> Empty Then
            .Fields("Emp_name_char").Value = Emp_name_char
        End If
        
        .Update
        SaveEmployeesRecords = True
       Exit Function
       
        
Error_On_Save:
        If Err.Number = 0 Then
            SaveEmployeesRecords = True
           Exit Function
        Else
            SaveEmployeesRecords = False
            .CancelUpdate
            
            MsgBox "错误代码:" & Err.Number & vbCrLf & _
                    "错误描述:" & Err.Description, vbCritical + vbOKOnly, "保存记录失败"
                    
        End If
        
    End With
End Function



Public Sub IniFromAdd(ByVal rctSource As ADODB.Recordset)
Dim vtempdata  As Variant

With rctSource
    vtempdata = .Fields("Emp_ID")
    If Trim(vtempdata) <> Empty Then
        txtEmpID.Text = Trim(vtempdata)
    End If
    
    vtempdata = .Fields("Emp_Name")
    If Trim(vtempdata) <> Empty Then
        txtEmpName.Text = Trim(vtempdata)
    End If
    
    vtempdata = .Fields("Emp_Tel_num")
    If Trim(vtempdata) <> Empty Then
        txtEmpTel.Text = Trim(vtempdata)
    Else
        txtEmpTel.Text = Empty
    End If
    
    vtempdata = .Fields("Emp_mobile_num")
    If Trim(vtempdata) <> Empty Then
        txtEmpMobil.Text = Trim(vtempdata)
    Else
        txtEmpMobil.Text = Empty
    End If
    
    vtempdata = .Fields("Emp_ID_cord")
    If Trim(vtempdata) <> Empty Then
        txtEmp_ID_cord.Text = Trim(vtempdata)
    Else
        txtEmp_ID_cord.Text = Empty
    End If
    
    vtempdata = .Fields("Emp_name_char")
    If Trim(vtempdata) <> Empty Then
        txtEmpChr.Text = Trim(vtempdata)
    Else
        txtEmpChr.Text = Empty
    End If
    
    vtempdata = .Fields("Emp_Address")
    If Trim(vtempdata) <> Empty Then
        txtEmpAddr.Text = Trim(vtempdata)
    Else
        txtEmpAddr.Text = Empty
    End If
    
    
   ' mskEmpBirth.Text = CStr(.Fields("Emp_birthday"))
   vtempdata = .Fields("Emp_birthday")
   If vtempdata <> Empty Then
        vtempdata = Format(vtempdata, "yyyy-mm-dd") '转换日期的格式为2004-01-01这样的中国人习惯的格式
        'MsgBox vtempdata
        mskEmpBirth.Text = vtempdata
    Else
        mskEmpBirth.Text = "    -  -  "
   End If

   ' mskEmpAttendTime.Text = CStr(.Fields("Emp_Attend_time"))
   vtempdata = .Fields("Emp_Attend_time")
   If vtempdata <> Empty Then
       vtempdata = Format(vtempdata, "yyyy-mm-dd")
       mskEmpAttendTime.Text = vtempdata
  Else
        mskEmpAttendTime.Text = "    -  -  "

   End If
   
    'mskJOinTime.Text = CStr(.Fields("Emp_Join_time"))
    
    vtempdata = .Fields("Emp_Join_time")
   If vtempdata <> Empty Then
       vtempdata = Format(vtempdata, "yyyy-mm-dd")
       mskJOinTime.Text = vtempdata
   Else
        mskJOinTime.Text = "    -  -  "
   End If
    
    
   vtempdata = .Fields("Emp_Memo")
   If Trim(vtempdata) <> Empty Then
   
        txtEmpMemo.Text = Trim(vtempdata)
    Else
        txtEmpMemo.Text = Empty
    End If
    
    vtempdata = .Fields("Emp_Sex")
    If vtempdata = 0 Then
        cmbEmpSex.Text = "女"
    Else
        cmbEmpSex.Text = "男"
    
    End If
    
    vtempdata = Trim(.Fields("Depart_ID"))
    If Trim(vtempdata) <> Empty Then
        'MsgBox vtempdata
        cmbDepartID.Text = frmEmployees.RecordSetFindItem(rctDepartList, "Depart_ID", vtempdata, 1)
    
    Else
        cmbEmpMs.ListIndex = 0
    End If
    
    vtempdata = .Fields("MS_ID")
    
    'MsgBox vtempdata
    If vtempdata <> Empty Then
        cmbEmpMs.Text = frmEmployees.RecordSetFindItem(rctMarriageStatus, "MS_ID", vtempdata, 1)
    Else
        cmbEmpMs.ListIndex = 0
    End If
    
    
    vtempdata = .Fields("P_ID")
    If Trim(vtempdata) <> Empty Then
        cmbEmpPs.Text = frmEmployees.RecordSetFindItem(rctPlitics, "P_ID", vtempdata, 1)
    Else
        cmbEmpPs.ListIndex = 0
    End If
    
    vtempdata = .Fields("E_ID")
    If Trim(vtempdata) <> Empty Then
    
        cmbEmpEdu.Text = frmEmployees.RecordSetFindItem(rctEdulevel, "E_ID", vtempdata, 1)
    Else
        cmbEmpEdu.ListIndex = 0
    End If
    
    vtempdata = .Fields("Job_ID")
    If Trim(vtempdata) <> Empty Then
        cmbEmpJob.Text = frmEmployees.RecordSetFindItem(rctJobList, "Job_ID", vtempdata, 1)
    Else
        cmbEmpJob.ListIndex = 0
    End If
    
    vtempdata = .Fields("Titel_ID")
    If Trim(vtempdata) <> Empty Then
        cmbEmpTitel.Text = frmEmployees.RecordSetFindItem(rctTitelList, "Titel_ID", vtempdata, 1)
    Else
        cmbEmpTitel.ListIndex = 0
    End If
    
End With
End Sub

Private Sub frmEmpAddClear()

    txtEmpID.Text = Empty
    txtEmpName.Text = Empty
    cmbDepartID.ListIndex = 0
    cmbEmpSex.ListIndex = 1
    cmbEmpMs.ListIndex = 0
    mskEmpBirth.Text = "    -  -  "
    txtEmpTel.Text = Empty
    
    txtEmpMobil.Text = Empty
    cmbEmpEdu.ListIndex = 0
    cmbEmpPs.ListIndex = 0
    txtEmp_ID_cord.Text = Empty
    txtEmpChr.Text = Empty
    txtEmpAddr.Text = Empty
    
    cmbEmpJob.ListIndex = 0
    cmbEmpTitel.ListIndex = 0
    txtEmpMemo.Text = Empty
    mskEmpAttendTime.Text = "    -  -  "
    mskJOinTime.Text = "    -  -  "
    txtEmpID.SetFocus
    
End Sub

Private Sub Command1_Click()

End Sub

Private Sub cmdCancel_Click()
Call frmEmpAddClear
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdNext_Click()
    If rctEmployees.RecordCount > 0 And rctEmployees.EOF = False Then
        rctEmployees.MoveNext
    If Not rctEmployees.EOF Then
        Call IniFromAdd(rctEmployees)
    End If
    Else
      MsgBox "已经到尾了!", vbInformation + vbOKOnly, "移动记录"
    End If
End Sub

Private Sub cmdPrevious_Click()
If rctEmployees.RecordCount > 0 And rctEmployees.BOF = False Then

    rctEmployees.MovePrevious
    If Not rctEmployees.BOF Then
        Call IniFromAdd(rctEmployees)
'Download by http://www.codefans.net    
    End If
Else
    MsgBox "已经到首了!", vbInformation + vbOKOnly, "移动记录"
End If
End Sub

Private Sub cmdSave_Click()
Dim Emp_ID As Variant
Dim Emp_Name As Variant
Dim Emp_Sex As Variant
Dim Depart_ID As Variant
Dim Job_ID As Variant
Dim Titel_ID As Variant
Dim E_ID As Variant
Dim P_ID As Variant
Dim MS_ID As Variant
Dim Emp_ID_cord As Variant
Dim Emp_birthday As Variant
Dim Emp_Attend_time As Variant
Dim Emp_Join_time As Variant
Dim Emp_mobile_num As Variant
Dim Emp_Tel_num As Variant
Dim Emp_Address As Variant
Dim Emp_Memo As Variant
Dim Emp_name_char As Variant

Dim vtempdata As String

If txtEmpID.Text = Empty Then
    MsgBox "工作证号不能为空!", vbInformation, "数据不完整"
    txtEmpID.SetFocus
    Exit Sub
Else
    If txtEmpName.Text = Empty Then
       MsgBox "员工姓名不能为空!", vbInformation, "数据不完整"
       txtEmpName.SetFocus
       Exit Sub
    Else
    
       
        If Left(mskEmpBirth.Text, 1) <> " " Then
            If InStr(mskEmpBirth.Text, " ") > 0 Then
                MsgBox "日期格式填写不完整!", vbInformation, "数据不完整"
                mskEmpBirth.SetFocus
                Exit Sub
            Else
                Emp_birthday = CDate(mskEmpBirth.Text)
            End If
        End If
        
        If Left(mskEmpAttendTime.Text, 1) <> " " Then
            If InStr(mskEmpAttendTime.Text, " ") > 0 Then
                MsgBox "日期格式填写不完整!", vbInformation, "数据不完整"
                mskEmpAttendTime.SetFocus
                Exit Sub
            Else
                If Left(mskEmpBirth.Text, 1) <> " " Then
                    If CDate(mskEmpAttendTime.Text) <= CDate(mskEmpBirth.Text) Then
                         MsgBox "员工参加工作日期不能小于或等于员工的出生日期", vbInformation, "输入日期错误"
                         mskEmpAttendTime.SetFocus
                         Exit Sub
                    Else
                        Emp_Attend_time = CDate(mskEmpBirth.Text)
                        
                    End If
                End If
                
            End If
        End If
        
        
       If Left(mskJOinTime.Text, 1) <> " " Then
            If InStr(mskJOinTime.Text, " ") > 0 Then
                       MsgBox "日期格式填写不完整!", vbInformation, "数据不完整"
                       mskJOinTime.SetFocus
                       Exit Sub
            Else
                If Left(mskEmpBirth.Text, 1) <> " " Then
                        If CDate(mskJOinTime.Text) <= CDate(mskEmpBirth.Text) Then
                            MsgBox "员工加入本单位日期不能小于或等于员工的出生日期", vbInformation, "输入日期错误"
                            mskJOinTime.SetFocus
                            Exit Sub
                        End If
                End If
                
                If Left(mskEmpAttendTime.Text, 1) <> " " Then
                            If CDate(mskJOinTime.Text) < CDate(mskEmpAttendTime.Text) Then
                                MsgBox "员工加入本单位日期不能小于员工的参加工作日期", vbInformation, "输入日期错误"
                                mskJOinTime.SetFocus
                                Exit Sub
                            End If
                End If
                
                Emp_Join_time = CDate(mskJOinTime.Text)
               
            End If
            
       End If


    End If
End If

If txtEmpChr.Text = Empty Then
    MsgBox "员工字首拼音十分重要，不能为空!", vbInformation, "数据不完整"
    txtEmpChr.SetFocus
    Exit Sub
End If

If txtEmp_ID_cord.Text <> Empty And Len(txtEmp_ID_cord.Text) < 15 Then
    MsgBox "身份证号必须是大于或等于15位,小于18位！", vbInformation, "无效的身份证号"
    txtEmp_ID_cord.SetFocus
    Exit Sub
End If


Emp_ID = Trim(txtEmpID.Text)
Emp_Name = Trim(txtEmpName.Text)