form15.frm

VB编写的企业管理系统

      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "员工其他考勤信息"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   855
      Left            =   1800
      TabIndex        =   0
      Top             =   240
      Width           =   4575
   End
End
Attribute VB_Name = "Form13"
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 combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    TabToEnter KeyCode
End Sub

Private Sub Combo1_LostFocus()
    Dim sql As String
    Dim rs As New ADODB.Recordset
    sql = "select sname from basic where sid='" & Me.Combo1.Text & "'"
    Set rs = TransactSQL(sql)
    If rs.EOF = False Then
        Me.Text1 = rs(0)                           '初始化员工姓名
    Else
        MsgBox "员工编号输入错误，或者没有这个员工！", 64, "警告！"
        Me.Combo1 = ""
        Me.Combo1.SetFocus
       ' Me.Combo1.ListIndex = 0
    End If
    rs.Close
End Sub

Private Sub Command2_Click()
    Unload Me
    Exit Sub
End Sub

Private Sub Command1_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.Text2) = False Then
                MsgBox "输入正确的开始时间！", vbOKOnly + vbExclamation, "警告！"
                Me.Text2 = ""
                Me.Text2.SetFocus
            End If
    If Me.Text3 <> "" Then
        If IsNumeric(Me.Text3) = False Then
            MsgBox "输入的事假天数须为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.Text3 = ""
            Me.Text3.SetFocus
        Else
            ipleave = Me.Text3
        End If
    End If
    If Me.Text4 <> "" Then
        If IsNumeric(Me.Text4) = False Then
            MsgBox "输入的病假天数须为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.Text4 = ""
            Me.Text4.SetFocus
        Else
            iileave = Me.Text4
        End If
    End If
    If Me.Text5 <> "" Then
        If IsNumeric(Me.Text5) = False Then
            MsgBox "正常加班天数须为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.Text5 = ""
            Me.Text5.SetFocus
        Else
           coverdays = Me.Text5
        End If
    End If
    If Me.Text6 <> "" Then
        If IsNumeric(Me.Text6) = False Then
            MsgBox "特殊加班天数须为整数！", 64, "警告！"
            Me.Text6 = ""
            Me.Text6.SetFocus
        Else
            soverdays = Me.Text6
        End If
    End If
    If Me.Text8 <> "" Or Me.Text7 <> "" Then
        If Me.Text8 = "" Then
            MsgBox "请输入出差天数！", 64, "警告！"
            Me.Text8 = ""
            Me.Text8.SetFocus
        ElseIf IsNumeric(Me.Text8) = False Then
            MsgBox "出差天数须为整数！", vbOKOnly + vbExclamation, "警告！"
            Me.Text8 = ""
            Me.Text8.SetFocus
        ElseIf Me.Text7 = "" Then
            MsgBox "请输入出差目的地！", 64, "警告！"
            Me.Text7 = ""
            Me.Text7.SetFocus
        End If
    End If
    If flag = 1 Then                                          '添加记录
        If Me.Text4 = "" And Me.Text3 = "" And Me.Text7 = "" _
                    And Me.Text8 = "" And Me.Text5 = "" And Me.Text6 = "" Then
        Else
            If Me.Text4 <> "" Or Me.Text3 <> "" Then
                sql = "select * from Ill"              '添加请假记录
                Set rs = TransactSQL(sql)
                rs.AddNew
                rs.Fields(1) = Me.Combo1
                rs.Fields(2) = iileave
                rs.Fields(3) = ipleave
                rs.Fields(4) = Me.Text2
                
                rs.Update
               
                rs.Close
                MsgBox "已经添加请假记录！", vbOKOnly + vbExclamation, "添加结果！"
                Call init
            ElseIf Me.Text5 <> "" _
                        Or Me.Text6 <> "" Then            '添加加班信息
                sql = "select * from OvertimeInfo"
                Set rs = TransactSQL(sql)
                rs.AddNew
                rs.Fields(1) = Me.Combo1
                rs.Fields(2) = soverdays
                rs.Fields(3) = coverdays
                rs.Fields(4) = Me.Text2
                
                rs.Update
                
                rs.Close
                MsgBox "已经添加加班信息！", vbOKOnly + vbExclamation, "添加结果！"
                Call init
            ElseIf Me.Text8 <> "" And Me.Text7 <> "" Then    '添加出差记录
                sql = "select * from errand"
                Set rs = TransactSQL(sql)
                rs.AddNew
                rs.Fields(1) = Me.Combo1
                rs.Fields(2) = Me.Text8
                rs.Fields(3) = Me.Text7
                rs.Fields(4) = Me.Text2
               
                rs.Update
               
                rs.Close
                MsgBox "已经添加出差记录！", vbOKOnly + vbExclamation, "添加结果！"
               Call init
            End If
        End If
        Select Case Form14.SSTab1.Caption
        Case "员工请假信息列表"
            sql = "select * from Ill"
            Call Form14.LeaveTopic
            Call Form14.ShowLRecord(sql)
        Case "员工加班信息列表"
            sql = "select * from OvertimeInfo"
            Call Form14.OverTimeTopic
            Call Form14.ShowORecord(sql)
        Case "员工出差信息列表"
            sql = "select * from errand"
            Call Form14.ErrandTopic
            Call Form14.ShowERecord(sql)
        End Select
       Form14.Show
       Form14.ZOrder 0
        Me.ZOrder 0
    Else
        If flag = 2 Then                                      '修改请假信息
            If Me.Text4 <> "" And Me.Text3 <> "" Then
                If MsgBox("确定修改编号为" & Me.Combo1 & "员工的请假信息？", vbOKCancel) _
                                                                        = vbOK Then
                sql = "update Ill set lill=" & Text3
                sql = sql & ",lprivate=" & Text4 & ",lfromday=#" & Me.Text2
                sql = sql & "# where lid=" & LrecordID
                TransactSQL (sql)
                MsgBox "信息已经修改！", vbOKOnly + vbExclamation, "修改结果！"
               sql = "select * from Ill"
                Call Form14.LeaveTopic
                Call Form14.ShowLRecord(sql)
                
                Form14.Show
                Form14.ZOrder 0
                Unload Me
                End If
            End If
        ElseIf flag = 3 Then                                  '修改加班信息
            If Me.Text5 <> "" And Me.Text6 <> "" Then
                If MsgBox("确定修改编号为" & Me.Combo1 & "员工的加班信息？", vbOKCancel) _
                                                                        = vbOK Then
                sql = "update OvertimeInfo set ospeciality=" & Text6
                sql = sql & ",ocommon=" & Text5 & ",ofromday=#" & Me.Text2 & "#"
                sql = sql & " where oid=" & OrecordID
                TransactSQL (sql)
                sql = "select * from OvertimeInfo"
                Call Form14.OverTimeTopic
                Call Form14.ShowORecord(sql)
                Form14.Show
                Form14.ZOrder 0
                Unload Me
                End If
            End If
        Else
            If Me.Text8 <> "" And Me.Text7 <> "" Then      '修改出差信息
                If MsgBox("确定修改编号为" & Me.Combo1 & "员工的加班信息？", vbOKCancel) _
                                                                        = vbOK Then
                sql = "update errand set eerranddays=" & Me.Text8
                sql = sql & ",epurpose='" & Me.Text7 & "'"
                sql = sql & ",efromday=#" & Me.Text2 & "#"
                sql = sql & " where eid=" & ErecordID
                TransactSQL (sql)
                sql = "select * from errand"
                Call Form14.ErrandTopic
                Call Form14.ShowERecord(sql)
                Form14.Show
                Form14.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
    Call init
    If flag = 1 Then
    sql = "select sid from basic order by sid"
    Set rs = TransactSQL(sql)
    If rs.EOF = False Then
        rs.MoveFirst
        firstID = rs(0)
    While Not rs.EOF
        Me.Combo1.AddItem rs(0)                          '初始化员工编号
        rs.MoveNext
    Wend
        rs.Close
    Else
        MsgBox "目前没有员工！", vbOKOnly + vbExclamation, "警告！"
    End If
    Me.Combo1.ListIndex = 0
    sql = "select sname from basic where sid ='" & firstID & "'"
    Set rs = TransactSQL(sql)
    Me.Text1 = rs(0)                                 '初始化员工姓名
    Me.Text2 = Date
    rs.Close
    ElseIf flag = 2 Then                               '载入请假信息
        Set rs = TransactSQL(kqsql2)
        If rs.EOF = False Then
        With rs
            Me.Text1 = rs(1)
            sql = "select sname from basic where sid='" & rs(1) & "'"
            Set rsName = TransactSQL(sql)
            Me.Text1 = rsName(0)
            Me.Text2 = rs(4)
            Me.Text3 = rs(2)
            Me.Text4 = 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.Combo1 = rs(1)
            sql = "select sname from basic where sid='" & rs(1) & "'"
            Set rsName = TransactSQL(sql)
            Me.Text1 = rsName(0)
            Me.Text6 = rs(2)
            Me.Text5 = rs(3)
            Me.Text2 = 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.Combo1 = rs(1)
            sql = "select sname from basic where sid='" & rs(1) & "'"
            Set rsName = TransactSQL(sql)
            Me.Text1 = rsName(0)
            Me.Text8 = rs(2)
            Me.Text7 = rs(3)
            Me.Text2 = 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 basic where sid='" & firstID & "'"
    Set rs = TransactSQL(sql)
     Me.Text1 = rs(0)
    Me.Text2 = ""
    
    Me.Text8 = ""
    Me.Text3 = ""
    Me.Text4 = ""
    Me.Text5 = ""
    Me.Text6 = ""
    Me.Text7 = ""
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub