机房收费系统总结之上下机

一：上机：
 条件：1：卡号是否为空   2：卡号是否注册  3：卡号是否状态为正在使用（退卡的              学生不能再次上机的）4：余额不能为0，思路就是这样的，比较简单
             整体过程： 满足条件——添加online记录——更新student记录
 代码：

If kahao.Text = "" Then    MsgBox "请输入卡号"    Exit Sub    kahao.SetFocus    kahao.Text = ""End If   txtsql2 = "select * from online_info "   Set mrc2 = ExecuteSQL(txtsql2, msgtext2)If mrc2.EOF = False Then        v = Trim(mrc2!cardno)        If v = Trim(kahao.Text) Then       MsgBox "该卡号已经上机", vbOKOnly + vbExclamation, "提示"        Exit Sub         kahao.Text = ""        kahao.SetFocus         End IfEnd If   txtsql = "select * from student_Info where cardno='" & kahao.Text & "'and status='正在使用'and cash<>0"   Set mrc = ExecuteSQL(txtsql, msgtext)If mrc.EOF = False Then          kahao.Text = mrc.Fields(0)         txtstudentname.Text = mrc.Fields(2)         txtsex.Text = mrc.Fields(4)         txtdepartment.Text = mrc.Fields(3)         txttype.Text = mrc.Fields(14)         txtstudentno.Text = mrc.Fields(1)         txtondate.Text = Date         txtontime.Text = Time         mrc.Close                  txtsql1 = "select * from Online_info "'strInSQL = "insert into OnLine_Info values('" & kahao.Text & "','" & leixing.Text & "'," & xuehao.Text & "," & xingming.Text & "," & xibie.Text & ",'" & xingbie.Text & "','" & Date & "','" & Time & "','" & Winsock1.LocalHostName & "','" & Now & "')"Set mrc1 = ExecuteSQL(txtsql1, msgtext1)    mrc1.AddNew    mrc1.Fields(0) = Trim(kahao.Text)    mrc1.Fields(1) = Trim(txttype.Text)    mrc1.Fields(2) = Trim(txtstudentno.Text)    mrc1.Fields(3) = Trim(txtstudentname.Text)    mrc1.Fields(4) = Trim(txtdepartment.Text)    mrc1.Fields(5) = Trim(txtsex.Text)    mrc1.Fields(6) = Trim(Date)    mrc1.Fields(7) = Trim(Time)    mrc1.Fields(8) = Trim(Winsock1.LocalHostName)    mrc1.Fields(9) = Trim(Now)    mrc1.Update    shangjirenshu.Caption = mrc1.RecordCount    mrc1.CloseElse      MsgBox "卡号不正确或者此卡已经退卡或者余额不足，请查看", vbOKOnly + vbExclamation, "上机"End If

二：下机：
    （1）满足条件：1：卡号是否为空 2：卡号是否注册和是否正在上机
    （2）整体过程：满足条件——计算消费时间——计算消费金额——更新student表，更新online表，更新line表
    （3）消费时间和消费金额的计算：
  a=准备时间  b=至少上机时间  c=消费时间长于准备时间和至少上机时间
                   
    在准备时间里，是不收费的，也就是消费额是为0；在至少上机时间里面，收取消费金额是固定的，设为1；多余准备时间和至少上机时间里面，收取的金额是按照每小时消费60分钟来增加的，同时，在这个时间段里面，需要区分固定用户和临时用户。
    设消费时间为x，消费金额为y，则可以用下面的图来表示

      （4）代码：

If Testtxt(kahao.Text) = False Then       MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "提示"       kahao.Text = ""       kahao.SetFocus       Exit SubEnd If   '判断该卡号是否注册和状态是否正在使用   Set mrc1 = New ADODB.Recordset   txtsql1 = "select * from student_Info where cardno='" & kahao.Text & "'and status='正在使用'"   Set mrc1 = ExecuteSQL(txtsql1, msgtext1)If mrc1.EOF And mrc1.BOF Then      MsgBox "该卡号未注册！", vbOKOnly + vbExclamation, "提示"      kahao.Text = ""      kahao.SetFocus      Exit SubEnd If  '判断该卡号是否上机      Set mrc2 = New ADODB.Recordset      txtsql2 = "select * from OnLine_Info where cardno='" & kahao.Text & "'"      Set mrc2 = ExecuteSQL(txtsql2, msgtext2)      If mrc2.EOF And mrc2.BOF Then         MsgBox "该卡号没有上机！", vbOKOnly + vbExclamation, "提示"         kahao.Text = ""         kahao.SetFocus      Exit Sub      Else         kahao.Text = Trim(mrc2.Fields(0))         txttype.Text = Trim(mrc2.Fields(1))         txtstudentno.Text = Trim(mrc2.Fields(2))         txtstudentname.Text = Trim(mrc2.Fields(3))         txtdepartment.Text = Trim(mrc2.Fields(4))         txtsex.Text = Trim(mrc2.Fields(5))         txtondate.Text = Trim(mrc2.Fields(6))         txtontime.Text = Trim(mrc2.Fields(7))         txtoffdate.Text = Date         txtofftime.Text = Time      '计算消费时间      StartTime = Format(mrc2.Fields(7), "hh:mm:ss")      EndTime = Format(Time, "hh:mm:ss")      txtconsumetime.Text = Format(Time, "hh:mm:ss")      txtconsumetime.Text = DateDiff("n", Trim(StartTime), Trim(EndTime))            '计算消费金额      StrType = Trim(mrc1.Fields(14)) '获取用户类型，用于判断单位价格      OldCash = Val(mrc1.Fields(7)) '获取用户余额            '在basicdata表中获取基本数据      txtsql3 = "select * from BasicData_Info "      Set mrc3 = ExecuteSQL(txtsql3, msgtext3)      leasttime = Trim(mrc3.Fields(3))       preparetime = Trim(mrc3.Fields(4))        If Val(Trim(txtconsumetime.Text)) < preparetime Then        txtcash = OldCash        txtconsume.Text = "0.0"  End If If Val(Trim(txtconsumetime.Text)) <= (leasttime + preparetime) Then         txtconsume.Text = "1.0"         txtcash.Text = OldCash - 1Else       Select Case StrType            Case "固定用户"             StrRate = Val(Trim(mrc3.Fields(0)))            txtconsume.Text = 1 + Round(txtconsumetime.Text - leasttime - preparetime) / 60 * StrRate            txtcash.Text = OldCash - txtconsume.Text            Case "临时用户"             StrRate = Val(Trim(mrc3.Fields(1)))            txtconsume.Text = 1 + Round((txtconsumetime.Text - leasttime - preparetime) / 60) * StrRate            txtcash.Text = OldCash - txtconsume.Text      End SelectEnd If'更新student表txtsql1 = "update student_Info set cash=" & txtcah & " where cardno='" & kahao.Text & "'"Set mrc1 = ExecuteSQL(txtsql1, msgtext1)'更新OnLine表txtsql2 = "delete OnLine_Info where cardno='" & kahao.Text & "'"Set mrc2 = ExecuteSQL(txtsql2, msgtext2)txtsql2 = "select * from OnLine_Info "Set mrc2 = ExecuteSQL(txtsql2, msgtext2)shangjirenshu.Caption = mrc2.RecordCount '获取新的上机人数mrc2.Close'更新Line表txtsql4 = "select * from Line_Info"Set mrc4 = ExecuteSQL(txtsql4, msgtext4)mrc4.AddNewmrc4.Fields(1) = Trim(kahao.Text)mrc4.Fields(2) = Trim(txtstudentno.Text)mrc4.Fields(3) = Trim(txtstudentname.Text)mrc4.Fields(4) = Trim(txtdepartment.Text)mrc4.Fields(5) = Trim(txtsex.Text)mrc4.Fields(6) = Trim(txtondate.Text)mrc4.Fields(7) = Trim(txtontime.Text)mrc4.Fields(8) = Trim(txtoffdate.Text)mrc4.Fields(9) = Trim(txtofftime.Text)mrc4.Fields(10) = Trim(txtconsumetime.Text)mrc4.Fields(11) = Trim(txtconsume.Text)mrc4.Fields(12) = Trim(Val(NewCash))mrc4.Fields(13) = "正常下机"mrc4.Fields(14) = Trim(Winsock1.LocalHostName)mrc4.Updatemrc4.Close  MsgBox "下机成功", vbOKOnly + vbExclamation, "提示"  Exit SubEnd IfEnd Sub

     就这样，上下机的问题解决啦！！！
     欢迎纠错！！！！！