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(kqsql2)
            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