机房收费系统——上下机
自学生管理系统以后，进入了机房收费系统，开始自己真的很抵触这个东西，因为没有源码，只能靠自己了。对代码没有亲和力的我，只能硬着头皮硬闯。下面看看就讲讲我的上下机的辛酸路吧！
【分析】
界面：很简单，只有两个简单的Command命令按钮掌控着上下机。
功能：上机时，窗体显示该学生的基本信息；下机时，更新学生卡里的余额。计算消费情况。上下机时及时更新上机人数。
需求：用到的数据库为：student表；online表；line表；basicdata表；
【逻辑】
【实现】
上机部分：
1、定义变量：
Dim mrs As ADODB.Recordset
Dim strSQL As String
Dim MsgString As String
Dim mrs1 As ADODB.Recordset
Dim mrs2 As ADODB.Recordset
2、链接数据库：
strSQL = "select * from student_info where cardno='" & Trim(txtCardno.Text) & "'and status='使用'" '链接学生表
Set mrs = ExecuteSQL(strSQL, MsgString)
strSQL = "select * from online_Info where cardno='" & Trim(txtCardno.Text) & "'" '链接online表
Set mrs1 = ExecuteSQL(strSQL, MsgString)
strSQL = "select * from basicdata_info " '链接basicdata表
Set mrs2 = ExecuteSQL(strSQL, MsgString)
3、判断部分：
'判断卡号是否为空
If txtCardno.Text = "" Then
MsgBox "卡号不能为空，请输入卡号！", vbOKOnly + vbExclamation, "警告！"
txtCardno.Text = ""
txtCardno.SetFocus
Exit Sub
End If
'判断卡号是否存在
If mrs.EOF Then
MsgBox "此卡尚未注册，请先注册！", vbOKOnly + vbExclamation, "警告！"
txtCardno.Text = ""
txtCardno.SetFocus
Exit Sub
Else
'判断此卡是否已经上机
If mrs1.EOF = False Then
MsgBox "此卡正在上机！", vbOKOnly + vbExclamation, "警告！"
txtType.Text = mrs1.Fields(1)
txtStudentno.Text = mrs1.Fields(2)
txtName.Text = mrs1.Fields(3)
txtDepartment.Text = mrs1.Fields(4)
txtSex.Text = mrs1.Fields(5)
txtOndate.Text = mrs1.Fields(6)
txtOntime.Text = mrs1.Fields(7)
txtCardno.Text = ""
txtCardno.SetFocus
Exit Sub
Else
'判断余额
If Val(mrs.Fields(7)) < Trim(mrs2.Fields(3)) Then
MsgBox "余额不足，请充值后再登录！"
txtCardno.Text = ""
txtCardno.SetFocus
Exit Sub
Else
'调用学生信息到输入框。上机成功！
txtType.Text = mrs.Fields(14)
txtStudentno.Text = mrs.Fields(1)
txtName.Text = mrs.Fields(2)
txtDepartment.Text = mrs.Fields(4)
txtSex.Text = mrs.Fields(3)
txtChargemoney.Text = mrs.Fields(7)
txtOndate.Text = Date
txtOntime.Text = Time
txtOfftime.Text = ""
txtOffdate.Text = ""
txtCtime.Text = ""
txtCmoney.Text = ""
MsgBox "成功上机！", vbOKOnly + vbExclamation, "警告！"
Label18.Caption = "欢迎使用！"
End If
End If
End If
4、更新部分：
With mrs1 '添加online表
.AddNew
.Fields(0) = Trim(txtCardno.Text)
.Fields(1) = Trim(txtType.Text)
.Fields(2) = Trim(txtStudentno.Text)
.Fields(3) = Trim(txtName.Text)
.Fields(4) = Trim(txtDepartment.Text)
.Fields(5) = Trim(txtSex.Text)
.Fields(6) = Date
.Fields(7) = Time
.Fields(8) = VBA.Environ("computername")
.Fields(9) = Date + Time
.Update
txtCount.Text = mrs1.RecordCount
.Clone
.Close
End With
With mrs '更新学生表
.Fields(11) = "未结账"
.Update
.Clone
.Close
End With
strSQL = "select * from online_info " '更新上机人数
Set mrs2 = ExecuteSQL(strSQL, MsgString)
txtCount.Text = mrs2.RecordCount
理清思路，代码敲起来才更容易。
对于下机部分：
基本数据设定表中存在：准备时间和至少上机时间；这里规定若上机时间不超过准备时间不收费，小于至少上机时间也不收费。难点部分也就在计算消费金额部分，所以这里就重点显示计算消费金额部分：
'数据库连接：
strSQL = "select * from student_info where cardno='" & Trim(txtCardno.Text) & "'and status='使用'"'连接学生数据库
Set mrs = ExecuteSQL(strSQL, MsgString)
strSQL = "select * from online_info where cardno='" & Trim(txtCardno.Text) & "'"'连接正在上机的卡数据库
Set mrs1 = ExecuteSQL(strSQL, MsgString)
strSQL = "select * from online_info"
Set mrs2 = ExecuteSQL(strSQL, MsgString)
strSQL = "select * from basicdata_info"'连接基本数据设定数据库
Set mrs3 = ExecuteSQL(strSQL, MsgString)
strSQL = "select * from line_info"'连接上机记录数据库
Set mrs4 = ExecuteSQL(strSQL, MsgString)
'页面更新信息
txtStudentno.Text = mrs1.Fields(2)
txtType.Text = mrs1.Fields(1)
txtName.Text = mrs1.Fields(3)
txtSex.Text = mrs1.Fields(5)
txtDepartment.Text = mrs1.Fields(4)
txtOntime.Text = mrs1.Fields(7)
txtOndate.Text = mrs1.Fields(6)
txtOfftime.Text = Time
txtOffdate.Text = Date
txtChargemoney.Text = mrs.Fields(7)
txtCtime.Text = Abs(Val(DateDiff("n", Time, Trim(txtOntime.Text))))'计算消费时间
'判断消费时间是否小于准备时间
If Trim(txtCtime.Text) < OfterTime Then
txtCtime.Text = 0
txtCmoney.Text = 0
txtChargemoney.Text = mrs.Fields(7)
End If
'判断消费时间是否小于至少上机时间
If Trim(txtCtime.Text) < inTtime1 Then
txtCtime.Text = 0
txtCmoney.Text = 0.5
txtChargemoney.Text = mrs.Fields(7)
Else
If Trim(mrs.Fields(14)) = "临时用户" Then'若为临时用户，消费金额的计算
txtCmoney.Text = (Int(Trim(txtCtime.Text) / 30) + 1) * (Trim(mrs3.Fields(1)) / 2)
txtChargemoney.Text = Trim(mrs.Fields(7)) - Trim(txtCmoney.Text)
Else'若为固定用户，消费金额的计算
txtCmoney.Text = (Int(Trim(txtCtime.Text) / 30) + 1) * (Trim(mrs3.Fields(0)) / 2)
txtChargemoney.Text = Trim(mrs.Fields(7)) - Trim(txtCmoney.Text)
End If
MsgBox "下机成功！", vbOKOnly + vbExclamation, "提示！"
End If
这样一来，其实上下机只有理清逻辑关系，按照自己的思路敲下来，也很简单。所以不要给自己随便定位，没有什么不可能的，米老师说过：每天多给自己一些正能量的词汇。不要凭空的给自己压力，把自己的思维固定住了。相信自己可以做到的！我写的这个只是按着自己的思路敲了，其实有些过程可以复用的，期待自己更新~~~~~~，人生就是不断的更新，不断的超越，加油！