机房收费系统之上下机

前言：

（原文经过更改，将上下机记录分别更新到line表改为，上下机一起更新到line表）

好几天的上下机战争已经结束了。感觉非常轻松并有小小滴成就感。对自己的要求不高，具体的知识大概知道就行了。初步要求就是窗体能够运行。每个人都有每个人的目标嘛。不需要看到别人学的有多好或者自己理解的东西不够多，只要有收获，不抵触，就很好了。

上机流程图展示：

代码展示：

txtSQL = "select * from student_info where cardno = '" & txtcardno.Text & "'"    Set mrc = ExecuteSQL(txtSQL, MsgText)                    txtSQL1 = "select * from basicdata_info"    Set mrc1 = ExecuteSQL(txtSQL1, MsgText)        txtSQL2 = "select * from line_info"    Set mrc2 = ExecuteSQL(txtSQL2, MsgText)           txtSQL3 = "select * from online_info"    Set mrc3 = ExecuteSQL(txtSQL3, MsgText)        lblnumber.Caption = mrc3.RecordCount            mrc3.Close    '判空         If Trim(txtcardno.Text = "") Then        MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告"        txtcardno.SetFocus     Else            If Not IsNumeric(txtcardno.Text) Then                    MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"            Exit Sub            txtcardno.SetFocus        Else             '判断卡号是否存在                    If mrc.EOF Then                MsgBox "卡号不存在或已注销，请重新输入卡号！", vbOKOnly + vbExclamation, "警告"                txtcardno.SetFocus                txtcardno.Text = ""                txtstudentno.Text = ""                txtstudentname.Text = ""                txtsex.Text = ""                txtdepartment.Text = ""                txttype.Text = ""                txtcash.Text = ""                txtondate.Text = ""                txtontime.Text = ""                            Else                            '查询余额是否适合上机,余额小于基本数据，则强制下机，可以去充值。余额若大于基本数据，则可以上机。这里要判断用户类型                txtSQL = "select * from student_info where cardno = '" & txtcardno.Text & "'"                Set mrc = ExecuteSQL(txtSQL, MsgText)                                txtSQL1 = "select * from basicdata_info"                Set mrc1 = ExecuteSQL(txtSQL1, MsgText)                   If Trim(mrc.Fields(7)) < Trim(mrc1.Fields(5)) Then                        MsgBox "余额不多了，请充值后再上机！", vbOKOnly + vbExclamation, "温馨提示"              '充值窗口弹出                                          Else                            txtSQL3 = "select * from online_info where cardno = '" & txtcardno.Text & "'"              Set mrc3 = ExecuteSQL(txtSQL3, MsgText)                            If mrc3.EOF = False Then                MsgBox "此卡正在上机！"                                                     '显示数据                            txtstudentno.Text = mrc3.Fields(2)                txtstudentname.Text = mrc3.Fields(3)                txtsex.Text = mrc3.Fields(5)                txtdepartment.Text = mrc3.Fields(4)                txttype.Text = mrc3.Fields(1)                txtcash.Text = mrc.Fields(7)                txtondate.Text = mrc3.Fields(6)                txtontime.Text = mrc3.Fields(7)                            Else                                txtstudentno.Text = mrc.Fields(1)                txtstudentname.Text = mrc.Fields(2)                txtsex.Text = mrc.Fields(3)                txtdepartment.Text = mrc.Fields(4)                txttype.Text = mrc.Fields(14)                txtcash.Text = mrc.Fields(7)                txtondate.Text = Date                txtontime.Text = Time                                '将记录添加到online表                                mrc3.AddNew                    mrc3.Fields(0) = Trim(txtcardno.Text)                    mrc3.Fields(1) = Trim(txttype.Text)                    mrc3.Fields(2) = Trim(txtstudentno.Text)                    mrc3.Fields(3) = Trim(txtstudentname.Text)                    mrc3.Fields(5) = Trim(txtsex.Text)                    mrc3.Fields(4) = Trim(txtdepartment.Text)                    mrc3.Fields(6) = Trim(txtondate.Text)                    mrc3.Fields(7) = Trim(txtontime.Text)                    mrc3.Fields(8) = ""                    mrc3.Fields(9) = Now                                        mrc3.Update                    mrc3.Close

下机流程图展示：

代码展示：

txtSQL = "select * from student_info"    Set mrc = ExecuteSQL(txtSQL, MsgText)                    txtSQL1 = "select * from basicdata_info"    Set mrc1 = ExecuteSQL(txtSQL1, MsgText)        txtSQL2 = "select * from line_info"    Set mrc2 = ExecuteSQL(txtSQL2, MsgText)           txtSQL3 = "select * from online_info"    Set mrc3 = ExecuteSQL(txtSQL3, MsgText)        '判空         If Trim(txtcardno.Text = "") Then        MsgBox "请输入下机卡号！", vbOKOnly + vbExclamation, "警告"        txtcardno.SetFocus     Else            If Not IsNumeric(txtcardno.Text) Then                    MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"            Exit Sub            txtcardno.SetFocus        Else             '判断卡号是否存在                 txtSQL = "select * from student_info where cardno = '" & txtcardno.Text & "'"        Set mrc = ExecuteSQL(txtSQL, MsgText)            If mrc.EOF = True Then                MsgBox "该号未注册或已退卡，请输入有效卡号！", vbOKOnly + vbExclamation, "警告"                txtcardno.SetFocus                txtcardno.Text = ""            Else                        '判断有没有上机                            txtSQL = "select * from online_info where cardno = '" & txtcardno.Text & "'"                Set mrc3 = ExecuteSQL(txtSQL, MsgText)                    If mrc3.EOF = True Then                        MsgBox "该号没有上机！", 48, "提示"                        txtcardno.Text = ""                        Exit Sub                    Else                                    txtstudentno.Text = mrc3.Fields(2)                        txtstudentname.Text = mrc3.Fields(3)                        txtsex.Text = mrc3.Fields(5)                        txtdepartment.Text = mrc3.Fields(4)                        txttype.Text = mrc3.Fields(1)                        txtondate.Text = mrc3.Fields(6)                        txtontime.Text = mrc3.Fields(7)                        txtoffdate.Text = Date                        txtofftime.Text = Time                                                time1 = Trim(DateDiff("n", txtontime.Text, Time))                        time2 = Trim(DateDiff("n", txtondate.Text, Date))                                '获取基本数据                            txtSQL1 = "select * from basicdata_info"                Set mrc1 = ExecuteSQL(txtSQL1, MsgText)                                                                                '上机时间小于准备时间                    If Val(time1) + Val(time2) < mrc1.Fields(4) Then                        time3 = 0 & ""                    Else                                                        '否则是上机时间减去准备时间                        time3 = Val(time1) + Val(time2) - Val(mrc1.Fields(4))                                        End If                    '更新消费时间                    txtconsumetime.Text = Val(time3)                '用户消费金额（每小时的钱 ÷ 60分钟 * 消费分钟数                If mrc3.Fields(1) = "固定用户" Then                    txtconsume.Text = Int(mrc1.Fields(0) / 60 * Val(txtconsumetime.Text))                Else                    txtconsume.Text = Int(mrc1.Fields(1) / 60 * Val(txtconsumetime.Text))                    mrc1.Close                End If            '得到余额            txtSQL = "select * from student_info where cardno = '" & txtcardno.Text & "'and status='" & "使用" & "'"            Set mrc = ExecuteSQL(txtSQL, MsgText)                txtcash.Text = Val(Trim(mrc.Fields(7)) - Val(txtconsume.Text))                mrc.Fields(7) = Val(txtcash.Text)                mrc.Update                mrc.Close                                              '添加下机记录line                    txtSQL = "select * from Line_Info "                    'where cardno= '" & Trim(txtcardno.Text) & "'and ondate='" & Trim(txtondate.Text) & "'and ontime='" & Trim(txtontime.Text) & "'"                          '增加上机记录                    Set mrc2 = ExecuteSQL(txtSQL, MsgText)                                        mrc2.AddNew                                    mrc2.Fields(1) = Trim(txtcardno.Text)                    mrc2.Fields(2) = Trim(txtstudentno.Text)                    mrc2.Fields(3) = Trim(txtstudentname.Text)                    mrc2.Fields(5) = Trim(txtsex.Text)                    mrc2.Fields(4) = Trim(txtdepartment.Text)                    mrc2.Fields(6) = Trim(txtondate.Text)                    mrc2.Fields(7) = Trim(txtontime.Text)                    mrc2.Fields(8) = Trim(txtoffdate)                    mrc2.Fields(9) = Trim(txtofftime)                    mrc2.Fields(10) = Trim(txtconsumetime)                    mrc2.Fields(11) = Trim(txtconsume)                    mrc2.Fields(12) = Trim(txtcash)                    mrc2.Fields(13) = "正常下机"                    mrc2.Fields(14) = ""                    mrc2.Update                    mrc2.Close                    mrc3.Delete                    mrc3.Close                    MsgBox "下机成功！", vbOKOnly, "厉害了"                                                txtcardno.Text = ""                        txtstudentno.Text = ""                        txtstudentname.Text = ""                        txtsex.Text = ""                        txtdepartment.Text = ""                        txttype.Text = ""                        txtcash.Text = ""                        txtondate.Text = ""                        txtontime.Text = ""                        txtoffdate.Text = ""                        txtofftime.Text = ""                        txtconsumetime.Text = ""                        txtconsume.Text = ""                                            End If                                        txtSQL = "select * from online_info"                    Set mrc3 = ExecuteSQL(txtSQL, MsgText)                    lblnumber.Caption = mrc3.RecordCount                    mrc3.Close

当然了过程不是一帆风顺的，但是也从中学到了知识

上下机对照流程图展示：

总结：

不要把困难想的那么难。就算自己解决不了又怎么样，咱上面有人~~~

当然了过程不是一帆风顺的，但是也从中学到了知识