机房收费系统——上下机

自学生管理系统以后，进入了机房收费系统，开始自己真的很抵触这个东西，因为没有源码，只能靠自己了。对代码没有亲和力的我，只能硬着头皮硬闯。下面看看就讲讲我的上下机的辛酸路吧！

【分析】

界面：很简单，只有两个简单的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

这样一来，其实上下机只有理清逻辑关系，按照自己的思路敲下来，也很简单。所以不要给自己随便定位，没有什么不可能的，米老师说过：每天多给自己一些正能量的词汇。不要凭空的给自己压力，把自己的思维固定住了。相信自己可以做到的！我写的这个只是按着自己的思路敲了，其实有些过程可以复用的，期待自己更新~~~~~~，人生就是不断的更新，不断的超越，加油！