frmprepay.frm

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

    End If
    
    If cboC_name.Text <> "" Then
        ClassSave                                  '以班级为单位进行充值
    End If
    
    If cboGrade.Text <> "" And cboS_name.Text <> "" And cboC_name.Text = "" Then
        GradeSpecialitySave                                        '以某专业、某年级为单位进行充值
    End If
    
    If cboGrade.Text = "" And cboS_name.Text <> "" And cboC_name.Text = "" Then
        SpecialitySave                                             '以某专业为单位进行充值
    End If
    
    If cboGrade.Text = "" And cboS_name.Text = "" And cboC_name.Text = "" And cboI_name.Text <> "" Then
        InstituteSave                                           '以某院系为单位进行充值
    End If
    
    If cboGrade.Text = "" And cboS_name.Text = "" And cboC_name.Text = "" And cboI_name.Text = "" Then
        AllStudentSave                                         '全体学生都充值
    End If
    
    If cboGrade.Text <> "" And cboS_name.Text = "" And cboC_name.Text = "" And cboI_name.Text = "" Then
        AddGrade                                                        '某年级的所有学生
    End If
    
    If Number <> 0 Then
        Set RSPrepay = New Recordset
        RSPrepay.Open "select * from TbPrepay", Modmain.conn, 3, 2
        With RSPrepay
            .AddNew
            If cboI_name.Text <> "" Then
            Set rsInstitute = New Recordset
                rsInstitute.Open "select * from TbInstitute where I_Name = '" & cboI_name.Text & "'", Modmain.conn, 3, 2
                .Fields!I_ID = rsInstitute.Fields!I_ID
            End If
            If cboGrade.Text <> "" Then
                .Fields!Grade = Right(cboGrade.Text, 2)
            End If
            If cboS_name.Text <> "" Then
                .Fields!S_Name = cboS_name.Text
            End If
            If cboC_name <> "" Then
                .Fields!C_ID = cboC_name.Text
            End If
            .Fields!Money = cboMoney.Text
            .Fields!Date = Date
            .Fields!U_ID = frmLoad.StrU_ID
            .Update
        End With
        frmHourStatistic.AddLog ("L40")
            MsgBox "充值成功！", vbDefaultButton1, "机房管理"
    End If
    cboI_name.ListIndex = -1
    cboGrade.ListIndex = -1
    cboS_name.ListIndex = -1
    cboC_name.ListIndex = -1
    cboMoney.ListIndex = -1
ElseIf SSTSave.Tab = 1 Then
    SaveXueYuan
End If
End Sub
Private Sub Form_Load()
cmdSave.Left = 1920
cmdFind.Visible = False

'****************************给学员类型赋值************************
cboType.AddItem "计算机培训"
cboType.AddItem "网络培训"

'*****************************给院系赋值************************
Set rsInstitute = New Recordset
rsInstitute.Open "select * from TbInstitute ", Modmain.conn, 3, 2
While Not rsInstitute.EOF
    cboI_name.AddItem (rsInstitute.Fields("I_Name"))
    rsInstitute.MoveNext
Wend
cboI_name.AddItem ""

'*****************************根据月份年级赋值************************
Dim i As Integer
i = 0
Dim IntYear As Integer
IntYear = Year(Date)
If Month(Date) < 8 Then
IntYear = Year(Date)
    While i < 4
        cboGrade.AddItem (IntYear - 1)
        i = i + 1
        IntYear = IntYear - 1
    Wend
Else
    While i < 4
        cboGrade.AddItem (IntYear)
        i = i + 1
        IntYear = IntYear - 1
    Wend
End If
cboGrade.AddItem ""
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'显示某院系的所有专业                                                          '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub AddClass()
Dim strc_id As String
strc_id = CStr(rsInstituteI_ID.Fields!I_ID) & Right(cboGrade.Text, 2)
Set rsClass = New Recordset
rsClass.Open "select * from TbClass where left(C_ID,4) like '" & strc_id & "' ", Modmain.conn, 3, 2
If rsClass.RecordCount <> 0 Then
    While Not rsClass.EOF
        cboC_name.AddItem (rsClass.Fields!C_ID)
        rsClass.MoveNext
    Wend
End If
cboC_name.AddItem ""
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'显示某院系某年级的专业                                                       '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub AddClassPP()
Dim strc_id As String
strc_id = CStr(rsInstituteI_ID.Fields!I_ID)
Set rsClass = New Recordset
rsClass.Open "select * from TbClass where left(C_ID,2) like '" & strc_id & "' ", Modmain.conn, 3, 2
If rsClass.RecordCount <> 0 Then
    While Not rsClass.EOF
        cboC_name.AddItem (rsClass.Fields!C_ID)
        rsClass.MoveNext
    Wend
End If
cboC_name.AddItem ""
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'给某班级所有学生充值
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub ClassSave()
    Set rsClassInfo = New Recordset
    rsClassInfo.Open "select * from tbClass where c_id like '" & cboC_name.Text & "'", Modmain.conn, 3, 2
    Dim aa As Integer, bb As Integer
    aa = CInt(CStr(rsClassInfo.Fields!StartNo))
    bb = CInt(CStr(rsClassInfo.Fields!EndNo))
    Dim StrCardholder As String
    Set RsCardholder = New Recordset
    StrCardholder = "select * from TbCardholder where mid(CH_ID,3,5)='" & Left(rsClassInfo.Fields!C_ID, 5) & "'and right(CH_ID,3)> " & aa & " and right(CH_ID,3)<" & bb & ""
    RsCardholder.Open StrCardholder, Modmain.conn, 3, 2
    Save
    If Number <> 0 Then
        strInfomation = cboC_name.Text & "班共" & Number & "人，每人" & CStr(cboMoney.Text) & "元"
    Else
        strInfomation = cboC_name.Text & "班共" & Number & "人，不能充值请确认！"
    End If
    MsgBox strInfomation, vbDefaultButton1, "机房管理"

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以某专业为单位进行充值
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SpecialitySave()
Set rsSpeciality = New Recordset
rsSpeciality.Open "select * from TbSpeciality where S_Name like '" & cboS_name.Text & "' ", Modmain.conn, 3, 2
Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder where mid(CH_ID,3,2)='" & rsSpeciality.Fields!I_ID & "'and mid(CH_ID,7,1)='" & rsSpeciality.Fields!s_ID & "'", Modmain.conn, 3, 2
Save
If Number <> 0 Then
    strInfomation = cboS_name.Text & "专业共" & Number & "人，每人" & CStr(cboMoney.Text) & "元"
Else
    strInfomation = cboS_name.Text & "专业共" & Number & "人，不能充值请确认！"
End If
    MsgBox strInfomation, vbDefaultButton1, "机房管理"
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以某院系为单位进行充值
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub InstituteSave()
Set rsInstitute = New Recordset
rsInstitute.Open "select * from TbInstitute where I_Name = '" & cboI_name.Text & "'", Modmain.conn, 3, 2

Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder where mid(CH_ID,3,2)='" & rsInstitute.Fields!I_ID & "'", Modmain.conn, 3, 2
Save
If Number <> 0 Then
    strInfomation = cboI_name.Text & "共" & Number & "人，每人" & CStr(cboMoney.Text) & "元"
Else
    strInfomation = cboI_name.Text & "共" & Number & "人，不能充值请确认！"
End If
MsgBox strInfomation, vbDefaultButton1, "机房管理"
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'全体学生都充值
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub AllStudentSave()
Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder where left(CH_ID,2) IN('0B','0Z','0Y')", Modmain.conn, 3, 2
Save
strInfomation = "全体学生共" & Number & "人，每人" & CStr(cboMoney.Text) & "元"
MsgBox strInfomation, vbDefaultButton1, "机房管理"

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '以某专业、某年级为单位进行充值
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub GradeSpecialitySave()
Set rsSpeciality = New Recordset
rsSpeciality.Open "select * from TbSpeciality where S_Name like '" & cboS_name.Text & "' ", Modmain.conn, 3, 2
Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder where mid(CH_ID,3,2)='" & rsSpeciality.Fields!I_ID & "'and mid(CH_ID,7,1)='" & rsSpeciality.Fields!s_ID & "'and mid(CH_ID,5,2) ='" & Right(cboGrade.Text, 2) & "'", Modmain.conn, 3, 2
Save
If Number <> 0 Then
    strInfomation = cboS_name.Text & "专业" & Right(cboGrade.Text, 2) & "届共" & Number & "人，每人" & CStr(cboMoney.Text) & "元"
Else
    strInfomation = cboS_name.Text & "专业" & Right(cboGrade.Text, 2) & "届共" & Number & "人，不能充值请确认！"
End If
MsgBox strInfomation, vbDefaultButton1, "机房管理"
End Sub

Private Sub Save()
    Number = RsCardholder.RecordCount
    While Not RsCardholder.EOF
        If SSTSave.Tab = 0 Then
            RsCardholder.Fields!Money = CDbl(RsCardholder.Fields!Money) + CDbl(cboMoney.Text)            '保存添加后的金额
            RsCardholder.Update
            If RsCardholder.Fields!State = "上机" Then
                Set rsCardholderTemp = New Recordset
                rsCardholderTemp.Open "select * from TbCardholderTemp where CH_ID like '" & RsCardholder.Fields!ch_id & "' ", Modmain.conn, 3, 2
                rsCardholderTemp.Fields!startmoney = CDbl(rsCardholderTemp.Fields!startmoney) + CDbl(cboMoney.Text)
                Dim dblMoney11 As Double
                dblMoney11 = CDbl(rsCardholderTemp.Fields!Money)
                rsCardholderTemp.Fields!Money = dblMoney11 + CDbl(cboMoney.Text)
                rsCardholderTemp.Update
                If frmmain.lvwPerson.FindItem(RsCardholder.Fields!ch_id, , , lvwPartial).Text <> "" Then
                    Set itmX = frmmain.lvwPerson.FindItem(RsCardholder.Fields!ch_id, , , lvwPartial) '改变lvwPweson控件的金额值
                    itmX.SubItems(10) = dblMoney11 + CDbl(cboMoney.Text)
                End If
            End If
        ElseIf SSTSave.Tab = 1 Then
            RsCardholder.Fields!Money = CDbl(RsCardholder.Fields!Money) + CDbl(cboMoneyXueYuan.Text)            '保存添加后的金额
            RsCardholder.Update
            If RsCardholder.Fields!State = "上机" Then
                Set rsCardholderTemp = New Recordset
                rsCardholderTemp.Open "select * from TbCardholderTemp where CH_ID like '" & RsCardholder.Fields!ch_id & "' ", Modmain.conn, 3, 2
                rsCardholderTemp.Fields!startmoney = CDbl(rsCardholderTemp.Fields!startmoney) + CDbl(cboMoneyXueYuan.Text)
                Dim dblMoney As Double
                dblMoney = CDbl(rsCardholderTemp.Fields!Money)
                rsCardholderTemp.Fields!Money = dblMoney + CDbl(cboMoneyXueYuan.Text)
                rsCardholderTemp.Update
                If frmmain.lvwPerson.FindItem(RsCardholder.Fields!ch_id, , , lvwPartial).Text <> "" Then
                    Set itmX = frmmain.lvwPerson.FindItem(RsCardholder.Fields!ch_id, , , lvwPartial) '改变lvwPweson控件的金额值
                    itmX.SubItems(10) = dblMoney + CDbl(cboMoneyXueYuan.Text)
                End If
                
            End If
        End If
        With rsSaving                              '保存本次充值信息
            .AddNew
            .Fields!C_ID = RsCardholder.Fields!ch_id
            .Fields!Date = Date
            If SSTSave.Tab = 0 Then
                .Fields!Money = cboMoney.Text
            ElseIf SSTSave.Tab = 1 Then
                .Fields!Money = cboMoneyXueYuan.Text
            End If
            .Fields!Type = "集体充值"
            .Fields!U_ID = frmLoad.StrU_ID
            .Update
        End With
        RsCardholder.MoveNext
    Wend
RsCardholder.Close
Set RsCardholder = Nothing

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'给某年级的所有学生充值
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub AddGrade()
Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder where left(CH_ID,2) IN('0B','0Z','0Y') and MID(CH_ID,5,2) LIKE '" & Right(cboGrade.Text, 2) & "'", Modmain.conn, 3, 2
Save
strInfomation = Right(cboGrade, 2) & "级学生共" & Number & "人，每人" & CStr(cboMoney.Text) & "元"
MsgBox strInfomation, vbDefaultButton1, "机房管理"
End Sub
Private Sub SaveXueYuan()
If cboMoneyXueYuan.Text = "" Then
    MsgBox "充值金额不能为空！", vbOKOnly + vbExclamation, "机房管理"
    Exit Sub
    ElseIf cboType.Text = "" Then
        MsgBox "学员卡类型不能为空！", vbOKOnly + vbExclamation, "机房管理"
        Exit Sub
        ElseIf cboGroup.Text = "" Then
            MsgBox "批次不能为空！", vbOKOnly + vbExclamation, "机房管理"
            Exit Sub
End If

Set rsSort = New Recordset
rsSort.Open "select * from TbSort where ST_Name LIKE '" & cboType.Text & "'", Modmain.conn, 3, 2

Group
Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder where left(CH_ID,2)  LIKE '" & rsSort.Fields!ST_ID & "' and  MID(CH_ID,3,1) like '" & strGroup & "'", Modmain.conn, 3, 2

Save
If Number <> 0 Then
    strInfomation = cboType.Text & cboGroup & "共" & Number & "人，每人" & cboMoneyXueYuan.Text & "元"
Else
    strInfomation = cboType.Text & cboGroup & "共" & Number & "人，不能充值请确认！"
End If
MsgBox strInfomation, vbDefaultButton1, "机房管理"

If Number <> 0 Then
Set rsGroup = New Recordset
rsGroup.Open "select * from TbGroup", Modmain.conn, 3, 2
With rsGroup
    .AddNew
    .Fields!ST_Name = cboType.Text
    .Fields!Group = cboGroup.Text
    .Fields!Money = cboMoneyXueYuan.Text
    .Fields!Date = Date
    .Fields!U_ID = frmLoad.StrU_ID
    .Fields!Memo = strInfomation
    .Update
End With
    frmHourStatistic.AddLog ("L39")
    MsgBox "充值成功！", vbDefaultButton1, "机房管理"
End If
cboType.ListIndex = -1
cboGroup.ListIndex = -1
cboMoneyXueYuan.ListIndex = -1
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 SSTSave_Click(PreviousTab As Integer)
If SSTSave.Tab = 0 Then
    cmdSave.Left = 1920
    cmdFind.Visible = False
ElseIf SSTSave.Tab = 1 Then
    cmdSave.Left = 960
    cmdFind.Visible = True
End If
End Sub