frmokqresult.frm

VB开发的毕业设计,绝对不是网上下载的,大家可以去看看,作为参考

        .TextMatrix(0, 1) = "员工姓名"
        .TextMatrix(0, 2) = "特殊加班天数"
        .TextMatrix(0, 3) = "正常加班天数"
        .TextMatrix(0, 4) = "加班时间"
        For i = 0 To 4                             '设置对齐方式
            .ColAlignment(i) = 4
        Next i
        For i = 0 To 4                             '设置列宽
            .ColWidth(i) = 1800
        Next i
    End With
End Sub

Public Sub ShowORecord(query As String)            '显示加班信息
On Error Resume Next
    Dim rsOvertime As New ADODB.Recordset
    Set rsOvertime = TransactSQL(query)
    If rsOvertime.EOF = False Then
    With ORecordList
        .Rows = 1
        While Not rsOvertime.EOF
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 0) = rsOvertime(0)
            .TextMatrix(.Rows - 1, 1) = rsOvertime(1)
            .TextMatrix(.Rows - 1, 2) = rsOvertime(2)
            .TextMatrix(.Rows - 1, 3) = rsOvertime(3)
            .TextMatrix(.Rows - 1, 4) = rsOvertime(4)
            rsOvertime.MoveNext
        Wend
        rsOvertime.Close
    End With
    End If
End Sub

Public Sub ErrandTopic()
On Error Resume Next
    Dim i As Integer
    With ERecordList                                '设置出差信息列表表头
        .TextMatrix(0, 0) = "记录编号"
        .TextMatrix(0, 1) = "员工姓名"
        .TextMatrix(0, 2) = "出差天数"
        .TextMatrix(0, 3) = "出差目的地"
        .TextMatrix(0, 4) = "出差开始时间"
        For i = 0 To 4                             '设置对齐方式
            .ColAlignment(i) = 4
        Next i
        For i = 0 To 4                             '设置列宽
            .ColWidth(i) = 2000
        Next i
    End With
End Sub

Public Sub ShowERecord(query As String)             '显示出差信息
On Error Resume Next
    Dim rsErrand As New ADODB.Recordset
    Set rsErrand = TransactSQL(query)
    If rsErrand.EOF = False Then
    With ERecordList
        .Rows = 1
        While Not rsErrand.EOF
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 0) = rsErrand(0)
            .TextMatrix(.Rows - 1, 1) = rsErrand(1)
            .TextMatrix(.Rows - 1, 2) = rsErrand(2)
            .TextMatrix(.Rows - 1, 3) = rsErrand(3)
            .TextMatrix(.Rows - 1, 4) = rsErrand(4)
            rsErrand.MoveNext
        Wend
        rsErrand.Close
    End With
    End If
End Sub

Private Sub Command1_Click()
On Error Resume Next
   flag = 4
    If frmOKQResult.ERecordList.Rows > 1 Then
        kqsql2 = "select * from ErrandInfo where EID=" & Trim( _
        frmOKQResult.ERecordList.TextMatrix(frmOKQResult.ERecordList.Row, 0))
        frmOtherKQ.Show
        frmOtherKQ.ZOrder 0
    ErecordID = Trim(frmOKQResult.ERecordList.TextMatrix(frmOKQResult.ERecordList.Row, 0))
    Else
     MsgBox "没有请假信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     frmOtherKQ.Show
    End If
End Sub

Private Sub Command10_Click()
On Error Resume Next
 Dim SQL As String
 If frmOKQResult.ORecordList.Rows = 1 Then
            MsgBox "目前没有加班信息！", vbOKOnly + vbExclamation, "警告！"
            flag = 1
            frmOtherKQ.Show
            frmOtherKQ.ZOrder 0
        Else
            SQL = "delete from OvertimeInfo where OID='"
            SQL = SQL & Trim(frmOKQResult.ORecordList.TextMatrix( _
                                    frmOKQResult.ORecordList.Row, 0)) & "'"
            If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
            Then
                TransactSQL (SQL)
                MsgBox "记录已经删除！", vbOKOnly + vbExclamation, "警告!"
                Unload Me
                SQL = "select * from OvertimeInfo"
                Call frmOKQResult.OverTimeTopic
                Call frmOKQResult.ShowORecord(SQL)
            End If
        End If
End Sub

Private Sub Command11_Click()
On Error Resume Next
    flag = 1
    frmOtherKQ.Show
    frmOtherKQ.ZOrder 0
End Sub

Private Sub Command12_Click()
flag = 3
    If frmOKQResult.ORecordList.Rows > 1 Then
        kqsql2 = "select * from OvertimeInfo where OID=" & Trim( _
        frmOKQResult.ORecordList.TextMatrix(frmOKQResult.ORecordList.Row, 0))
        frmOtherKQ.Show
        frmOtherKQ.ZOrder 0
    OrecordID = Trim(frmOKQResult.ORecordList.TextMatrix(frmOKQResult.ORecordList.Row, 0))
    Else
     MsgBox "没有请假信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     frmOtherKQ.Show
    End If
End Sub

Private Sub Command13_Click()
Unload Me
End Sub

Private Sub Command15_Click()
frmCheckKQ.Show
End Sub

Private Sub Command16_Click()
On Error Resume Next
  Dim SQL As String
  If frmOKQResult.LRecordList.Rows = 1 Then
            MsgBox "目前没有请假信息！", vbOKOnly + vbExclamation, "警告！"
            flag = 1
            frmOtherKQ.Show
            frmOtherKQ.ZOrder 0
        Else
            SQL = "delete from LeaveInfo where LID='"
            SQL = SQL & Trim(frmOKQResult.LRecordList.TextMatrix( _
                                    frmOKQResult.LRecordList.Row, 0)) & "'"
            If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
            Then
                TransactSQL (SQL)
                MsgBox "记录已经删除！", vbOKOnly + vbExclamation, "警告!"
                Unload Me
                SQL = "select * from LeaveInfo"
                Call frmOKQResult.LeaveTopic
                Call frmOKQResult.ShowLRecord(SQL)
            End If
        End If
End Sub

Private Sub Command17_Click()
    flag = 1
    frmOtherKQ.Show
    frmOtherKQ.ZOrder 0
End Sub

Private Sub Command18_Click()
On Error Resume Next
  flag = 2
    If frmOKQResult.LRecordList.Rows > 1 Then
        kqsql2 = "select * from LeaveInfo where LID=" & Trim( _
        frmOKQResult.LRecordList.TextMatrix(frmOKQResult.LRecordList.Row, 0))
        frmOtherKQ.Show
        frmOtherKQ.ZOrder 0
    LrecordID = Trim(frmOKQResult.LRecordList.TextMatrix(frmOKQResult.LRecordList.Row, 0))
    Else
     MsgBox "没有请假信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     frmOtherKQ.Show
    End If
End Sub

Private Sub Command2_Click()
    flag = 1
    frmOtherKQ.Show
    frmOtherKQ.ZOrder 0
End Sub

Private Sub Command3_Click()
On Error Resume Next
 Dim SQL As String
 If frmOKQResult.ERecordList.Rows = 1 Then
            MsgBox "目前没有出差信息！", vbOKOnly + vbExclamation, "警告！"
            flag = 1
            frmOtherKQ.Show
            frmOtherKQ.ZOrder 0
        Else
            SQL = "delete from ErrandInfo where EID='"
            SQL = SQL & Trim(frmOKQResult.ERecordList.TextMatrix( _
                                    frmOKQResult.ERecordList.Row, 0)) & "'"
            If MsgBox("真的要删除这条记录么？", vbOKCancel + vbExclamation, "提示！") = vbOK _
            Then
                TransactSQL (SQL)
                MsgBox "记录已经删除！", vbOKOnly + vbExclamation, "警告!"
                Unload Me
                SQL = "select * from ErrandInfo"
                Call frmOKQResult.ErrandTopic
                Call frmOKQResult.ShowERecord(SQL)
            End If
        End If
End Sub

Private Sub Command4_Click()
frmCheckKQ.Show
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Command7_Click()
Unload Me
End Sub

Private Sub Command9_Click()
frmCheckKQ.Show
End Sub

Private Sub ERecordList_DblClick()                '选择出差记录修改
On Error Resume Next
    flag = 4
    If frmOKQResult.ERecordList.Rows > 1 Then
        kqsql2 = "select * from ErrandInfo where EID=" & Trim( _
        frmOKQResult.ERecordList.TextMatrix(frmOKQResult.ERecordList.Row, 0))
        frmOtherKQ.Show
        frmOtherKQ.ZOrder 0
    ErecordID = Trim(frmOKQResult.ERecordList.TextMatrix(frmOKQResult.ERecordList.Row, 0))
    Else
     MsgBox "没有请假信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     frmOtherKQ.Show
    End If
End Sub

Private Sub Form_Load()
On Error Resume Next
    Dim SQL As String
    Select Case SSTab.Caption
    Case "员工请假信息列表"
        SQL = "select * from LeaveInfo"
        Call LeaveTopic
        Call ShowLRecord(SQL)
    Case "员工加班信息列表"
        SQL = "select * from OvertimeInfo"
        Call OverTimeTopic
        Call ShowORecord(SQL)
    Case "员工出差信息列表"
        SQL = "select * from ErrandInfo"
        Call ErrandTopic
        Call ShowERecord(SQL)
    End Select
End Sub

Private Sub LRecordList_DblClick()                '选择请假记录修改
    flag = 2
    If frmOKQResult.LRecordList.Rows > 1 Then
        kqsql2 = "select * from LeaveInfo where LID=" & Trim( _
        frmOKQResult.LRecordList.TextMatrix(frmOKQResult.LRecordList.Row, 0))
        frmOtherKQ.Show
        frmOtherKQ.ZOrder 0
    LrecordID = Trim(frmOKQResult.LRecordList.TextMatrix(frmOKQResult.LRecordList.Row, 0))
    Else
     MsgBox "没有请假信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     frmOtherKQ.Show
    End If
End Sub

Private Sub ORecordList_DblClick()                '选择加班记录修改
On Error Resume Next
    flag = 3
    If frmOKQResult.ORecordList.Rows > 1 Then
        kqsql2 = "select * from OvertimeInfo where OID=" & Trim( _
        frmOKQResult.ORecordList.TextMatrix(frmOKQResult.ORecordList.Row, 0))
        frmOtherKQ.Show
        frmOtherKQ.ZOrder 0
    OrecordID = Trim(frmOKQResult.ORecordList.TextMatrix(frmOKQResult.ORecordList.Row, 0))
    Else
     MsgBox "没有请假信息！", vbOKOnly + vbExclamation, "警告!"
     flag = 1
     frmOtherKQ.Show
    End If
End Sub

Private Sub SSTab_Click(PreviousTab As Integer)
On Error Resume Next
    Dim SQL As String
    Select Case SSTab.Caption
    Case "员工请假信息列表"
        SQL = "select * from LeaveInfo"
        Call LeaveTopic
        Call ShowLRecord(SQL)
    Case "员工加班信息列表"
        SQL = "select * from OvertimeInfo"
        Call OverTimeTopic
        Call ShowORecord(SQL)
    Case "员工出差信息列表"
        SQL = "select * from ErrandInfo"
        Call ErrandTopic
        Call ShowERecord(SQL)
    End Select
End Sub

Private Sub Lrecordlist_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
    If Button = 2 And Shift = 0 Then
        PopupMenu popmenu.popmenu2
    End If
End Sub

Private Sub Orecordlist_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 And Shift = 0 Then
        PopupMenu popmenu.popmenu2
    End If
End Sub

Private Sub Erecordlist_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 And Shift = 0 Then
        PopupMenu popmenu.popmenu2
    End If
End Sub