frmotherkq.frm

各种公司的人力资源管理系统源代码解析。希望和大家分享。

            Name            =   "楷体_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4080
         TabIndex        =   15
         Top             =   480
         Width           =   1455
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         Caption         =   "员工编号："
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   360
         TabIndex        =   14
         Top             =   480
         Width           =   1455
      End
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Caption         =   "员工其他考勤信息"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   615
      Left            =   2280
      TabIndex        =   23
      Top             =   120
      Width           =   4575
   End
End
Attribute VB_Name = "frmOtherKQ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim firstID As String                               '员工ID

Private Sub ASID_KeyDown(KeyCode As Integer, Shift As Integer)
    TabToEnter KeyCode
End Sub

Private Sub ASID_LostFocus()
    Dim SQL As String
    Dim rs As New ADODB.Recordset
    SQL = "select SName from StuffInfo where SID='" & Me.ASID.Text & "'"
    Set rs = TransactSQL(SQL)
    If rs.EOF = False Then
        Me.ASName = rs(0)                           '初始化员工姓名
    Else
        MsgBox "员工编号输入错误，或者没有这个员工！", vbOKOnly + vbExclamation, "警告！"
        Me.ASID = ""
        Me.ASID.SetFocus
        Me.ASID.ListIndex = 0
    End If
    rs.Close
End Sub

Private Sub cmdCancel_Click()
    Unload Me
    Exit Sub
End Sub

Private Sub cmdOK_Click()
    Dim SQL As String
    Dim rsTime As New ADODB.Recordset
    Dim rs As New ADODB.Recordset
    Dim ipleave As Integer                           '输入事假天数
    Dim iileave As Integer                           '输入病假天数
    Dim COverDays As Integer                         '正常加班天数
    Dim SOverDays As Integer                         '特殊加班天数
    ipleave = 0
    iileave = 0
    COverDays = 0
    SOverDays = 0
    If IsDate(Me.FromDay) = False Then
                MsgBox "输入正确的开始时间！", vbOKOnly + vbExclamation, "警告！"
                Me.FromDay = ""
                Me.FromDay.SetFocus
            End If
    If Me.PLeave <> "" Then
        If IsNumeric(Me.PLeave) = False Then
            MsgBox "输入的事假天数须为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.PLeave = ""
            Me.PLeave.SetFocus
        Else
            ipleave = Me.PLeave
        End If
    End If
    If Me.ILeave <> "" Then
        If IsNumeric(Me.ILeave) = False Then
            MsgBox "输入的病假天数须为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.ILeave = ""
            Me.ILeave.SetFocus
        Else
            iileave = Me.ILeave
        End If
    End If
    If Me.COverDays <> "" Then
        If IsNumeric(Me.COverDays) = False Then
            MsgBox "正常加班天数为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.COverDays = ""
            Me.COverDays.SetFocus
        Else
            COverDays = Me.COverDays
        End If
    End If
    If Me.SOverDays <> "" Then
        If IsNumeric(Me.SOverDays) = False Then
            MsgBox "特殊加班天数为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.SOverDays = ""
            Me.SOverDays.SetFocus
        Else
            SOverDays = Me.SOverDays
        End If
    End If
    If Me.EDays <> "" Or Me.EPurpose <> "" Then
        If Me.EDays = "" Then
            MsgBox "请输入出差天数！", vbOKOnly + vbExclamation, "警告！"
            Me.EDays = ""
            Me.EDays.SetFocus
        ElseIf IsNumeric(Me.EDays) = False Then
            MsgBox "出差天数为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.EDays = ""
            Me.EDays.SetFocus
        ElseIf Me.EPurpose = "" Then
            MsgBox "请输入出差目的地！", vbOKOnly + vbExclamation, "警告！"
            Me.EPurpose = ""
            Me.EPurpose.SetFocus
        End If
    End If
    If flag = 1 Then                                          '添加记录
        If Me.PLeave = "" And Me.ILeave = "" And Me.EPurpose = "" _
                    And Me.EDays = "" And Me.COverDays = "" And Me.SOverDays = "" Then
        Else
            If Me.PLeave <> "" Or Me.ILeave <> "" Then
                SQL = "select * from LeaveInfo"              '添加请假记录
                Set rs = TransactSQL(SQL)
                rs.AddNew
                rs.Fields(1) = Me.ASID
                rs.Fields(2) = iileave
                rs.Fields(3) = ipleave
                rs.Fields(4) = Me.FromDay
                rs.Update
                rs.Close
                MsgBox "已经添加请假记录！", vbOKOnly + vbExclamation, "添加结果！"
                Call init
            ElseIf Me.COverDays <> "" _
                        Or Me.SOverDays <> "" Then            '添加加班信息
                SQL = "select * from OvertimeInfo"
                Set rs = TransactSQL(SQL)
                rs.AddNew
                rs.Fields(1) = Me.ASID
                rs.Fields(2) = SOverDays
                rs.Fields(3) = COverDays
                rs.Fields(4) = Me.FromDay
                rs.Update
                rs.Close
                MsgBox "已经添加加班信息！", vbOKOnly + vbExclamation, "添加结果！"
                Call init
            ElseIf Me.EDays <> "" And Me.EPurpose <> "" Then '添加出差记录
                SQL = "select * from ErrandInfo"
                Set rs = TransactSQL(SQL)
                rs.AddNew
                rs.Fields(1) = Me.ASID
                rs.Fields(2) = Me.EDays
                rs.Fields(3) = Me.EPurpose
                rs.Fields(4) = Me.FromDay
                rs.Update
                rs.Close
                MsgBox "已经添加出差记录！", vbOKOnly + vbExclamation, "添加结果！"
                Call init
            End If
        End If
        Select Case frmOKQResult.SSTab.Caption
        Case "员工请假信息列表"
            SQL = "select * from LeaveInfo"
            Call frmOKQResult.LeaveTopic
            Call frmOKQResult.ShowLRecord(SQL)
        Case "员工加班信息列表"
            SQL = "select * from OvertimeInfo"
            Call frmOKQResult.OverTimeTopic
            Call frmOKQResult.ShowORecord(SQL)
        Case "员工出差信息列表"
            SQL = "select * from ErrandInfo"
            Call frmOKQResult.ErrandTopic
            Call frmOKQResult.ShowERecord(SQL)
        End Select
        frmOKQResult.Show
        frmOKQResult.ZOrder 0
        Me.ZOrder 0
    Else
        If flag = 2 Then                                      '修改请假信息
            If Me.PLeave <> "" And Me.ILeave <> "" Then
                If MsgBox("确定修改编号为" & Me.ASID & "员工的请假信息？", vbOKCancel) _
                                                                        = vbOK Then
                SQL = "update LeaveInfo set LILL=" & ILeave
                SQL = SQL & ",LPrivate=" & PLeave & ",LFromDay=#" & Me.FromDay
                SQL = SQL & "# where LID=" & LrecordID
                TransactSQL (SQL)
                MsgBox "信息已经修改！", vbOKOnly + vbExclamation, "修改结果！"
                SQL = "select * from LeaveInfo"
                Call frmOKQResult.LeaveTopic
                Call frmOKQResult.ShowLRecord(SQL)
                frmOKQResult.Show
                frmOKQResult.ZOrder 0
                Unload Me
                End If
            End If
        ElseIf flag = 3 Then                                  '修改加班信息
            If Me.COverDays <> "" And Me.SOverDays <> "" Then
                If MsgBox("确定修改编号为" & Me.ASID & "员工的加班信息？", vbOKCancel) _
                                                                        = vbOK Then
                SQL = "update OvertimeInfo set OSpeciality=" & SOverDays
                SQL = SQL & ",OCommon=" & COverDays & ",OFromDay=#" & Me.FromDay & "#"
                SQL = SQL & " where OID=" & OrecordID
                TransactSQL (SQL)
                SQL = "select * from OvertimeInfo"
                Call frmOKQResult.OverTimeTopic
                Call frmOKQResult.ShowORecord(SQL)
                frmOKQResult.Show
                frmOKQResult.ZOrder 0
                Unload Me
                End If
            End If
        Else
            If Me.EDays <> "" And Me.EPurpose <> "" Then      '修改出差信息
                If MsgBox("确定修改编号为" & Me.ASID & "员工的加班信息？", vbOKCancel) _
                                                                        = vbOK Then
                SQL = "update ErrandInfo set EErranddays=" & Me.EDays
                SQL = SQL & ",EPurpose='" & Me.EPurpose & "'"
                SQL = SQL & ",EFromday=#" & Me.FromDay & "#"
                SQL = SQL & " where EID=" & ErecordID
                TransactSQL (SQL)
                SQL = "select * from ErrandInfo"
                Call frmOKQResult.ErrandTopic
                Call frmOKQResult.ShowERecord(SQL)
                frmOKQResult.Show
                frmOKQResult.ZOrder 0
                Unload Me
                End If
            End If
        End If
    End If
End Sub

Private Sub Form_Load()
    Dim SQL As String
    Dim rs As New ADODB.Recordset
    Dim rsName As New ADODB.Recordset
    If flag = 1 Then
    SQL = "select SID from StuffInfo order by SID"
    Set rs = TransactSQL(SQL)
    If rs.EOF = False Then
        rs.MoveFirst
        firstID = rs(0)
    While Not rs.EOF
        Me.ASID.AddItem rs(0)                          '初始化员工编号
        rs.MoveNext
    Wend
        rs.Close
    Else
        MsgBox "目前没有员工！", vbOKOnly + vbExclamation, "警告！"
    End If
    Me.ASID.ListIndex = 0
    SQL = "select SName from StuffInfo where SID ='" & firstID & "'"
    Set rs = TransactSQL(SQL)
    Me.ASName = rs(0)                                  '初始化员工姓名
    Me.FromDay = Date
    rs.Close
    ElseIf flag = 2 Then                               '载入请假信息
        Set rs = TransactSQL(kqsql2)
        If rs.EOF = False Then
        With rs
            Me.ASID = rs(1)
            SQL = "select SName from StuffInfo where SID='" & rs(1) & "'"
            Set rsName = TransactSQL(SQL)
            Me.ASName = rsName(0)
            Me.FromDay = rs(4)
            Me.ILeave = rs(2)
            Me.PLeave = rs(3)
        End With
        End If
        rsName.Close
        rs.Close
    ElseIf flag = 3 Then                                '载入加班信息
        Set rs = TransactSQL(kqsql2)
        If rs.EOF = False Then
        With rs
            Me.ASID = rs(1)
            SQL = "select SName from StuffInfo where SID='" & rs(1) & "'"
            Set rsName = TransactSQL(SQL)
            Me.ASName = rsName(0)
            Me.SOverDays = rs(2)
            Me.COverDays = rs(3)
            Me.FromDay = rs(4)
        End With
        End If
        rsName.Close
        rs.Close
    ElseIf flag = 4 Then                                 '载入出差信息
        Set rs = TransactSQL(kqsql2)
        If rs.EOF = False Then
        With rs
            Me.ASID = rs(1)
            SQL = "select SName from StuffInfo where SID='" & rs(1) & "'"
            Set rsName = TransactSQL(SQL)
            Me.ASName = rsName(0)
            Me.EDays = rs(2)
            Me.EPurpose = rs(3)
            Me.FromDay = rs(4)
        End With
        End If
        rsName.Close
        rs.Close
    End If
End Sub

Private Sub init()
    Dim SQL As String
    Dim rs As New ADODB.Recordset
    SQL = "select SName from StuffInfo where SID='" & firstID & "'"
    Set rs = TransactSQL(SQL)
    Me.ASID.ListIndex = 0
    Me.ASName = rs(0)
    Me.PLeave = ""
    Me.ILeave = ""
    Me.COverDays = ""
    Me.SOverDays = ""
    Me.EPurpose = ""
    Me.EDays = ""
End Sub