frmmain.frm

这是本人用vb配合access数据库开发的一个部门人事管理的一个小软件的源码。

                frmManApp.ShowTitle
                frmManApp.Showdata
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End Sub

Private Sub menuDeletebase_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmBasic.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmBasic.msgList.Row
                txtSQL = "delete from BaseCheckTable where Checkdate='" & Trim(frmBasic.msgList.TextMatrix(frmBasic.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmBasic.txtSQL = "select * from BaseCheckTable"
                flagEdit = True
                frmBasic.ShowTitle
                frmBasic.Showdata
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmBasic.txtSQL = "select * from BaseCheckTable"
        frmBasic.Show
        frmBasic.ZOrder 0
    End If
End Sub

Private Sub menuDeletecheck_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmCheck.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmCheck.msgList.Row
                txtSQL = "delete from EmployeeCheckTable where Em_id='" & Trim(frmCheck.msgList.TextMatrix(frmCheck.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmCheck.txtSQL = "select * from EmployeeCheckTable"
                flagEdit = True
                
                frmCheck.ShowTitle
                frmCheck.Showdata
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmCheck.txtSQL = "select * from EmployeeCheckTable"
        frmCheck.Show
        frmCheck.ZOrder 0
    End If
End Sub

Private Sub menuInquireapprise_Click()
    frmManApp2.Show
End Sub

Private Sub menuInquirechek_Click()
    frmCheck2.Show
End Sub

Private Sub menuInquirepay_Click()
    frmPay2.Show
End Sub

Private Sub menuDeleteproject_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmManApp.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmManApp.msgList.Row
                txtSQL = "delete from ProjectTable where Pro_id='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmManApp.txtSQL = "select * from ProjectTable"
                flagEdit = True
                frmManApp.ShowTitle
                frmManApp.Showdata
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select * from ProjectTable"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End Sub

Private Sub menuExit_Click()

End

End Sub

Private Sub menuInquirerecord_Click()
    frmManRecord2.Show
End Sub

Private Sub menuModifyapprise_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmManApp.msgList.Rows > 1 Then
            
            intCount = frmManApp.msgList.Row
            frmManApp1.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise where pjno='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
            frmManApp1.Show
        Else
            Call menuAddcheck_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End Sub

Private Sub menuinput_Click()
    Dim i As Integer
    gintMode = 1
    frmCheckinfo.Show
    frmCheckinfo.ZOrder 0
    
    '刷新
        
        frmCheckinfo.txtItem(0).Text = ""
        frmCheckinfo.txtItem(1).Text = ""
        frmCheckinfo.txtItem(2).Text = ""
        frmCheckinfo.txtItem(3).Text = ""
        frmCheckinfo.Text1.Text = ""
        For i = 1 To frmCheckinfo.msgList.Rows - 1
                
             frmCheckinfo.msgList.TextMatrix(i, 1) = ""
              
        Next i
End Sub

Private Sub menuModifybase_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmBasic.msgList.Rows > 1 Then
            
            intCount = frmBasic.msgList.Row
            frmBasic1.txtSQL = "select * from BaseCheckTable where Checkdate='" & Trim(frmBasic.msgList.TextMatrix(frmBasic.msgList.Row, 1)) & "'"
            frmBasic1.Show
        Else
            Call menuBaseinfo_Click
        End If
    Else
        
        frmBasic.txtSQL = "select * from BaseCheckTable"
        frmBasic.Show
        frmBasic.ZOrder 0
        
        MsgBox "请选择要修改的记录？然后点鼠标右键", vbOKOnly + vbExclamation, ""
    End If
End Sub

Private Sub menuModifychek_Click()
 Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmCheck.msgList.Rows > 1 Then
            
            intCount = frmCheck.msgList.Row
            frmCheckinfo.txtSQL = "select * from EmployeeCheckTable where Em_id='" & Trim(frmCheck.msgList.TextMatrix(frmCheck.msgList.Row, 1)) & "'"
            frmCheckinfo.Show
        Else
            Call menuAddcheck_Click
        End If
    Else
        
        frmCheck.txtSQL = "select * from EmployeeCheckTable"
        frmCheck.Show
        frmCheck.ZOrder 0
        
        MsgBox "请选择要修改的记录？然后点鼠标右键", vbOKOnly + vbExclamation, ""
    End If
End Sub

Private Sub menuModifypay_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmPay.msgList.Rows > 1 Then
            intCount = frmPay.msgList.Row
            frmPay1.txtSQL = "select * from pay where gzid='" & Trim(frmPay.msgList.TextMatrix(frmPay.msgList.Row, 1)) & "' and gzdate='" & Format(frmPay.msgList.TextMatrix(intCount, 16), "yyyy-mm-dd") & "'"
            frmPay1.Show
            
            
            
        Else
            Call menuAddpay_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmPay.txtSQL = "select * from pay"
        frmPay.Show
        frmPay.ZOrder 0
    End If
End Sub

Private Sub menuModifyproject_Click()
 Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmManApp.msgList.Rows > 1 Then
            
            intCount = frmManApp.msgList.Row
            frmManApp1.txtSQL = "select * from ProjectTable where Pro_id='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
            frmManApp1.Show
        Else
            Call menuAddproject_Click
        End If
    Else
        
        frmManApp.txtSQL = "select * from ProjectTable"
        frmManApp.Show
        frmManApp.ZOrder 0
        
        MsgBox "请选择要修改的记录？然后点鼠标右键", vbOKOnly + vbExclamation, ""
    End If
End Sub

Private Sub menuModifypwd_Click()
    frmModifypwd.Show
    
End Sub

Private Sub menuModifyrecord_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmManRecord.msgList.Rows > 1 Then
            
            intCount = frmManRecord.msgList.Row
            frmManRecord1.txtSQL = "select * from EmployeeTable where Em_id='" & Trim(frmManRecord.msgList.TextMatrix(frmManRecord.msgList.Row, 1)) & "'"
            frmManRecord1.Show
        Else
            Call menuAddrecord_Click
        End If
    Else
        
        frmManRecord.txtSQL = "select * from EmployeeTable"
        frmManRecord.Show
        frmManRecord.ZOrder 0
        
        MsgBox "请选择要修改的记录？然后点鼠标右键", vbOKOnly + vbExclamation, ""
    End If
End Sub

Private Sub menuPrint_Click()
'  CurtPrinter1.Visible = True
'    mnuManual.Enabled = True
'    PrintContent
End Sub