frmcardholder.frm

本论文以西电基础教学实验中心学生上机管理系统为背景

    rsClass.Open str, Modmain.conn, 3, 2
    If rsClass.RecordCount = 0 Then
        MsgBox "卡号有误或者没有相关的院系,专业,班级", vbOKOnly + vbExclamation, "机房管理"
        txtNo.Text = ""
        txtNo.SetFocus
        ElseIf Trim(lblSTCH_ID.Caption) = "" Then
            MsgBox "卡号不能为空，请选择学生类别并填写学号", vbOKOnly + vbExclamation, "机房管理"
            cboSType.SetFocus
            ElseIf Trim(TxtSCH_Name) = "" Then
                MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "机房管理"
                TxtSCH_Name.SetFocus
                            ElseIf Trim(TxtSMoney) = "" And Add = True Then
                                MsgBox "卡金不能为空", vbOKOnly + vbExclamation, "机房管理"
                                TxtSMoney.SetFocus
                Else
                Judge = True
    End If
Else
    MsgBox "卡号不能为空，请选择学生类别并填写学号", vbOKOnly + vbExclamation, "机房管理"
End If
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''验证新添加的持卡人(学员卡)信息                                  ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function JudgeX() As Boolean
If Trim(lblXTCH_ID.Caption) = "" Then
    MsgBox "学号不能为空，请选择学员类型", vbOKOnly + vbExclamation, "机房管理"
    cboXType.SetFocus
    ElseIf Trim(TxtXCH_Name) = "" Then
        MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "机房管理"
        TxtXCH_Name.SetFocus
        ElseIf Trim(TxtXMoney) = "" And ADDXY = True Then
            MsgBox "卡金不能为空", vbOKOnly + vbExclamation, "机房管理"
            'TxtXMoney.SetFocus
            Else
                JudgeX = True
End If
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''保存新添加的持卡人(学员卡)信息                                  ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SaveInfoX()
    RsCardholderST.AddNew
    RsCardholderST.Fields("CH_ID") = lblXTCH_ID.Caption
    RsCardholderST.Fields("CH_Name") = TxtXCH_Name.Text
    RsCardholderST.Fields("Money") = TxtXMoney.Text
    RsCardholderST.Fields("State") = "正常"
    If Trim(txtXCH_Memo.Text) <> "" Then
        RsCardholderST.Fields("CH_Memo") = Trim(txtXCH_Memo.Text)
    Else
        RsCardholderST.Fields("CH_Memo") = ""
    End If
    RsCardholderST.Update
    Call AddLog("L46", lblXTCH_ID)
    MsgBox "保存成功", vbOKOnly + vbInformation, "机房管理"
    RsCreateNo.Fields!maxno = CStr(i)
    RsCreateNo.Update
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''验证新添加的持卡人(临时卡)信息                                  ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function JudgeL() As Boolean
If Trim(lblLTCH_ID.Caption) = "" Then
    MsgBox "卡号不能为空", vbOKOnly + vbExclamation, "机房管理"
    TxtLCH_Name.SetFocus
    ElseIf Trim(TxtLCH_Name) = "" Then
        MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "机房管理"
        TxtLCH_Name.SetFocus
        ElseIf Trim(TxtLMoney) = "" And ADDLS = True Then
            MsgBox "卡金不能为空", vbOKOnly + vbExclamation, "机房管理"
            TxtLMoney.SetFocus
            Else
                JudgeL = True
End If
End Function
    
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''保存新添加的持卡人(临时卡)信息                                  ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SaveInfoL()
    RsCardholderST.AddNew
    RsCardholderST.Fields("CH_ID") = lblLTCH_ID.Caption
    RsCardholderST.Fields("CH_Name") = TxtLCH_Name.Text
    RsCardholderST.Fields("Money") = TxtLMoney.Text
    RsCardholderST.Fields("State") = "正常"
    If Trim(txtLCH_Memo.Text) <> "" Then
        RsCardholderST.Fields("CH_Memo") = Trim(txtLCH_Memo.Text)
    Else
        RsCardholderST.Fields("CH_Memo") = ""
    End If
    
    RsCardholderST.Update
    Call AddLog("L47", lblLTCH_ID)
    MsgBox "保存成功", vbOKOnly + vbInformation, "机房管理"
    RsCreateNoLin.Fields!maxno = CStr(j)
    RsCreateNoLin.Update
End Sub
    
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''保存修改的持卡人(学生卡)信息                                    ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SaveInfoEdit()
    frmCardholderFind.RsCardholder.Fields("CH_ID") = lblSTCH_ID.Caption
    frmCardholderFind.RsCardholder.Fields("CH_Name") = TxtSCH_Name.Text
    frmCardholderFind.RsCardholder.Fields("Money") = LblSHMoney.Caption
    frmCardholderFind.RsCardholder.Fields("State") = "正常"
    If Trim(txtSCH_Memo.Text) <> "" Then
        frmCardholderFind.RsCardholder.Fields("CH_Memo") = Trim(txtSCH_Memo.Text)
    Else
        frmCardholderFind.RsCardholder.Fields("CH_Memo") = ""
    End If
    frmCardholderFind.RsCardholder.Update
    Call AddLog("L48", lblSTCH_ID)
    MsgBox "保存成功", vbOKOnly + vbInformation, "机房管理"    '保存完毕并提醒
If strStudentID <> lblSTCH_ID.Caption Then
       ChangStudentNo
       'MsgBox "卡号改变了!", vbOKOnly + vbInformation, "机房管理"
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''保存修改的持卡人(学员卡)信息                                    ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SaveInfoXEdit()
    frmCardholderFind.RsCardholder.Fields("CH_ID") = lblXTCH_ID.Caption
    frmCardholderFind.RsCardholder.Fields("CH_Name") = TxtXCH_Name.Text
    frmCardholderFind.RsCardholder.Fields("Money") = LblXYMoney.Caption
    frmCardholderFind.RsCardholder.Fields("State") = "正常"
    If Trim(txtSCH_Memo.Text) <> "" Then
        frmCardholderFind.RsCardholder.Fields("CH_Memo") = Trim(txtXCH_Memo.Text)
    Else
        frmCardholderFind.RsCardholder.Fields("CH_Memo") = ""
    End If
    frmCardholderFind.RsCardholder.Update
    Call AddLog("L49", lblXTCH_ID)
    MsgBox "保存成功", vbOKOnly + vbInformation, "机房管理"    '保存完毕并提醒
    RsCreateNo.Fields!maxno = CStr(i)
    RsCreateNo.Update
If strXueYuan <> lblXTCH_ID.Caption Then
     ChangXueYuanNo
End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''保存修改的持卡人(临时卡)信息                                    ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub SaveInfoLEdit()
    frmCardholderFind.RsCardholder.Fields("CH_ID") = frmCardholderFind.RsCardholder.Fields("CH_ID")
    frmCardholderFind.RsCardholder.Fields("CH_Name") = TxtLCH_Name.Text
    frmCardholderFind.RsCardholder.Fields("Money") = LblLSMoney.Caption
    frmCardholderFind.RsCardholder.Fields("State") = "正常"
    If Trim(txtSCH_Memo.Text) <> "" Then
        frmCardholderFind.RsCardholder.Fields("CH_Memo") = Trim(txtLCH_Memo.Text)
    Else
        frmCardholderFind.RsCardholder.Fields("CH_Memo") = ""
    End If
    frmCardholderFind.RsCardholder.Update
    Call AddLog("L50", lblLTCH_ID)
    
    MsgBox "保存成功", vbOKOnly + vbInformation, "机房管理"    '保存完毕并提醒
End Sub

Private Sub StudentAdd()
Add = True
TxtSMoney.Visible = True
LblSHMoney.Visible = False
cboSType.ListIndex = -1
txtNo.Text = ""
lblSTCH_ID.Caption = ""
TxtSCH_Name.Text = ""
TxtSMoney.Text = ""
txtSCH_Memo.Text = ""

End Sub

Private Sub XueyuanAdd()
ADDXY = True
TxtXMoney.Visible = True
LblXYMoney.Visible = False
cboXType.ListIndex = -1
cboGroup.ListIndex = -1
lblXTCH_ID.Caption = ""
TxtXCH_Name.Text = ""
TxtXMoney.Text = ""
txtXCH_Memo.Text = ""
End Sub

Private Sub LinshiAdd()
ADDLS = True
TxtLMoney.Visible = True
LblLSMoney.Visible = False
lblLTCH_ID.Caption = ""
TxtLCH_Name.Text = ""
TxtLMoney.Text = ""
txtLCH_Memo.Text = ""
End Sub

Private Sub StudentSave()
If Judge = True Then
    If MsgBox("确实要保存吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
        If Add = True Then
            SaveInfo
        Else
            SaveInfoEdit
        End If
    cmdSaveInfo.Enabled = False
    End If
End If
End Sub

Private Sub XueyuanSave()
If JudgeX = True Then
    If MsgBox("确实要保存吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
        If ADDXY = True Then
            SaveInfoX
        Else
           SaveInfoXEdit
        End If
    End If
End If
End Sub

Private Sub LinshiSave()
If JudgeL = True Then
    If MsgBox("确实要保存吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
        If ADDLS = True Then
            SaveInfoL
        Else
            SaveInfoLEdit
        End If
    End If
End If
End Sub

Private Sub Group()
Select Case cboGroup.Text
    Case "第一批"
         strGroup = "1"
    Case "第二批"
         strGroup = "2"
    Case "第三批"
         strGroup = "3"
    Case "第四批"
         strGroup = "4"
    Case "第五批"
         strGroup = "5"
    Case "第六批"
         strGroup = "6"
    Case "第七批"
         strGroup = "7"
    Case "第八批"
        strGroup = "8"
End Select
End Sub

Private Sub ChangStudentNo()
        Set rsSaving = New Recordset
        rsSaving.Open "select * from TbSaving  where C_ID like '" & strStudentID & "' ", Modmain.conn, 3, 2
        If rsSaving.RecordCount <> 0 Then              'TbSaving新号换旧号
            While Not rsSaving.EOF
            rsSaving.Fields!C_ID = lblSTCH_ID.Caption
            rsSaving.Update
            rsSaving.MoveNext
            Wend
        End If
        Set rsStopUseFind = New Recordset
        rsStopUseFind.Open "select * from TbStopUse where C_ID like '" & strStudentID & "' ", Modmain.conn, 3, 2
        If rsStopUseFind.RecordCount <> 0 Then              'TbStopUse新号换旧号
            While Not rsStopUseFind.EOF
            rsStopUseFind.Fields!C_ID = lblSTCH_ID.Caption
            rsStopUseFind.Update
            rsStopUseFind.MoveNext
            Wend
        End If
        Set rsLossFind = New Recordset
        rsLossFind.Open "select * from TbLoss  where C_ID like '" & strStudentID & "' ", Modmain.conn, 3, 2
        If rsLossFind.RecordCount <> 0 Then              'TbLoss 新号换旧号
            While Not rsLossFind.EOF
            rsLossFind.Fields!C_ID = lblSTCH_ID.Caption
            rsLossFind.Update
            rsLossFind.MoveNext
            Wend
        End If
        Set rsShangJi = New Recordset
        rsShangJi.Open "select * from TbShangji  where C_ID like '" & strStudentID & "' ", Modmain.conn, 3, 2
        If rsShangJi.RecordCount <> 0 Then              ' TbShangji 新号换旧号
            While Not rsShangJi.EOF
            rsShangJi.Fields!C_ID = lblSTCH_ID.Caption
            rsShangJi.Update
            rsShangJi.MoveNext
            Wend
        End If
End Sub
Private Sub ChangXueYuanNo()
        Set rsSaving = New Recordset
        rsSaving.Open "select * from TbSaving  where C_ID like '" & strXueYuan & "' ", Modmain.conn, 3, 2
        If rsSaving.RecordCount <> 0 Then              'TbSaving新号换旧号
            While Not rsSaving.EOF
            rsSaving.Fields!C_ID = lblXTCH_ID.Caption
            rsSaving.Update
            rsSaving.MoveNext
            Wend
        End If
        Set rsStopUseFind = New Recordset
        rsStopUseFind.Open "select * from TbStopUse where C_ID like '" & strXueYuan & "' ", Modmain.conn, 3, 2
        If rsStopUseFind.RecordCount <> 0 Then              'TbStopUse新号换旧号
            While Not rsStopUseFind.EOF
            rsStopUseFind.Fields!C_ID = lblXTCH_ID.Caption
            rsStopUseFind.Update
            rsStopUseFind.MoveNext
            Wend
        End If
        Set rsLossFind = New Recordset
        rsLossFind.Open "select * from TbLoss  where C_ID like '" & strXueYuan & "' ", Modmain.conn, 3, 2
        If rsLossFind.RecordCount <> 0 Then              'TbLoss 新号换旧号
            While Not rsLossFind.EOF
            rsLossFind.Fields!C_ID = lblXTCH_ID.Caption
            rsLossFind.Update
            rsLossFind.MoveNext
            Wend
        End If
        Set rsShangJi = New Recordset
        rsShangJi.Open "select * from TbShangji  where C_ID like '" & strXueYuan & "' ", Modmain.conn, 3, 2
        If rsShangJi.RecordCount <> 0 Then              ' TbShangji 新号换旧号
            While Not rsShangJi.EOF
            rsShangJi.Fields!C_ID = lblXTCH_ID.Caption
            rsShangJi.Update
            rsShangJi.MoveNext
            Wend
        End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''将用户添加、修改持卡人的信息记入操作日志                        ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub AddLog(LogType As String, txt As String)
Dim strEvents As String
Dim strTemp As String
strTemp = "'"
Set rsOperateLog = New Recordset
rsOperateLog.Open "select * from tbOperateLog", Modmain.conn, 3, 2
Set rsLog = New Recordset
rsLog.Open "select * from tblog where L_ID='" & LogType & "'", Modmain.conn, 3, 2
strEvents = rsLog.Fields!Events

rsOperateLog.AddNew
    rsOperateLog.Fields!U_ID = frmLoad.StrU_ID
    rsOperateLog.Fields!Time = Time
    rsOperateLog.Fields!Date = Date
    rsOperateLog.Fields!Events = strEvents
    rsOperateLog.Fields!Description = strEvents & strTemp & txt & strTemp
rsOperateLog.Update
End Sub