人事管理系统ER图+流程图+开题报告+源代码+数据流图 第13页

人事管理系统ER图+流程图+开题报告+源代码+数据流图 第13页

Option Explicit

Dim Bupdata As Boolean

Dim i As Integer

Private Sub Cmbdegree_Click()

    If Cmbdegree.Text = "定制" Then

        FrmTable.Show

        Cmbdegree.ListIndex = 0

    End If

   

End Sub

 

Private Sub Cmbdepart_Click()

    If Cmbdepart.Text = "定制" Then

        FrmTable.Show

        Cmbdepart.ListIndex = 0

    End If

   

End Sub

 

Private Sub CmdAddNew_Click()

           

    If CmdAddNew.Caption = "添加" Then

   

        CmdAddNew.Caption = "确认"

        CmdDel.Enabled = False

        CmdOK.Enabled = False

        DataA.ReadOnly = False

        For i = 1 To 12

              If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0

                   

        Next i

        DataA.Recordset.AddNew

        Txt(0).Locked = False

  

           

       If FrmMain.cutable = "employee" Then

                                  

            DataA.Recordset.Fields(13) = frmLogin.EmploID

            DataA.Recordset.Fields(14) = Now

           

            If Opsex(0) Then

                DataA.Recordset.Fields(4) = ""

            Else

                DataA.Recordset.Fields(4) = ""

            End If

                DataA.Recordset.Fields(7) = Cmbdegree.Text

                DataA.Recordset.Fields(8) = Cmbdepart.Text

       

        ElseIf FrmMain.cutable = "leave" Then

                                   

            DataA.Recordset.Fields(8) = frmLogin.EmploID

            DataA.Recordset.Fields(9) = Now

                

        Else

                       

            DataA.Recordset.Fields(13) = frmLogin.EmploID

            DataA.Recordset.Fields(14) = Now

       

        End If

              

        Txt(0).SetFocus

   

    Else 'OK

       

        If Txt(0).Text = "" Then

            MsgBox "不可以为空"

            Txt(0).SetFocus

            Exit Sub

        End If

       

        For i = 1 To 12

              If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0

                   

        Next i

   

        If FrmMain.cutable = "employee" Then

                                  

                DataB.Recordset.FindFirst "职工编号=" + Txt(0).Text

           

                If Not DataB.Recordset.NoMatch Then

                    MsgBox "职员编号重复"

                    Txt(0).Text = ""

                    Txt(0).SetFocus

                    Exit Sub

                End If

               

                       

        ElseIf FrmMain.cutable = "leave" Then

           

                DataB.Recordset.FindFirst "假条编号=" + Txt(0).Text

           

                If Not DataB.Recordset.NoMatch Then

                    MsgBox "假条编号重复"

                    Txt(0).Text = ""

                    Txt(0).SetFocus

                    Exit Sub

                End If

                       

                 

        Else

                For i = 4 To 10

                    If Not IsNumeric(Txt(i).Text) Then

                        MsgBox "not a number"

                        Txt(i).SetFocus

                        Exit Sub

                    End If

                   

                Next i

                       

                       

                DataB.Recordset.FindFirst "工资编号=" + Txt(0).Text

           

                If Not DataB.Recordset.NoMatch Then

                    MsgBox "工资编号重复"

                    Txt(0).Text = ""

                    Txt(0).SetFocus

                    Exit Sub

                 End If

                        

        End If

 

 

       

            DataA.Recordset.Update

            DataA.Recordset.MoveLast

            FrmMain.DataA.Refresh

            FrmMain.DataB.Refresh

                       

            DataB.Refresh

       

            CmdAddNew.Caption = "添加"

       

            CmdDel.Enabled = True

            CmdOK.Enabled = True

           

            

   

    End If

   

       

End Sub

 

Private Sub CmdCacel_Click()

   

    If CmdAddNew.Caption = "确认" Then

        DataA.Recordset.CancelUpdate

    End If

      

   

    FrmMain.Enabled = True

    FrmMain.SetFocus

    Unload Me

    FrmMain.DataA.Refresh

   

If FrmMain.cutable = "employee" Then

        FrmMain.DBGA.Columns("性别").Button = True

        FrmMain.DBGA.Columns("学历").Button = True

        FrmMain.DBGA.Columns("部门").Button = True

End If

 

 

End Sub

 

Private Sub CmdDel_Click()

   

    DataA.ReadOnly = False

    DataA.Recordset.Delete

    DataA.Recordset.MoveNext

 

    If DataA.Recordset.EOF Then

        DataA.Recordset.MoveLast

    End If

 

    FrmMain.DataA.Refresh

 << 上一页  [11] [12] [13] [14] 下一页

  • 上一篇文章:
  • 下一篇文章:
  • Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有