机房收费系统上下机

前言

       机房收费系统最关键的几个部分包括上下机，组合查询，结账。上下机这部分主要还是理逻辑关系，理清各个窗体之间的关系，还有表与表之间的关系。把基本功能实现之后，自己就会发现原来需要注意和完善的地方还有很多，需要我们认真细心去对待。

主要内容

        由于frmMain窗体为MDI窗体，所以不能直接添加控件，需要借助picturebox。

一、上机

       上机涉及到的表有student表（判断该卡是否注册和不使用），basicdata表（卡内余额是否小于最小上机金额），online表（将上机信息更新到online表中）

              上机逻辑图：



上机代码：

Private Sub cmdonline_Click()

Dim txtSQL, txtSQL1, txtSQL2, MsgText As String
Dim mrc As ADODB.Recordset
Dim mrc1 As ADODB.Recordset
Dim mrc2 As ADODB.Recordset

'判断是否为空
If txtcardno.Text = "" Then
MsgBox "请输入要上机的卡号！", 48, "提示"
txtcardno.SetFocus
Exit Sub
End If

'判断卡号是否注册
txtSQL = "select * from student_Info where cardno= '" & Trim(txtcardno.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "此卡号不存在", vbOKOnly + vbExclamation, "警告"
txtcardno.Text = ""
txtcardno.SetFocus
mrc.Close
Exit Sub
End If

'查BasicData_Info，判断卡内余额是否小于最小金额
txtSQL2 = "select * from BasicData_Info"
Set mrc2 = ExecuteSQL(txtSQL2, MsgText)
'mrc2.MoveFirst
If Val(mrc.Fields(7)) < Val(mrc2.Fields(5)) Then
MsgBox "余额不足，请充值后上机", 48, "提示"
Exit Sub
End If

'数据集中有记录，但是该卡已经停用
txtSQL = "select * from student_Info where cardno='" & txtcardno.Text & "'and status='不使用'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox "该卡已经注销，请重新输入！", 48, "提示"
txtcardno.Text = ""
txtcardno.SetFocus
Exit Sub
End If

'查OnLine_Info,看该卡是否在上机
txtSQL1 = "select * from OnLine_Info where cardno='" & Trim(txtcardno.Text) & "'"
Set mrc1 = ExecuteSQL(txtSQL, MsgText)
If mrc1.EOF = False Then
MsgBox "该卡正在上机！"
'正常上机，显示卡号信息
txtSQL = "select * from student_Info where cardno='" & Trim(txtcardno.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
txttype.Text = Trim(mrc.Fields(14))
txtstudentno.Text = Trim(mrc.Fields(1))
txtstudentname.Text = Trim(mrc.Fields(2))
txtdepartment.Text = Trim(mrc.Fields(4))
txtsex.Text = Trim(mrc.Fields(3))
txtontime.Text = Trim(mrc.Fields(6))
txtontime1.Text = Trim(mrc.Fields(7))
Else
txttype.Text = Trim(mrc.Fields(14))
txtstudentno.Text = Trim(mrc.Fields(1))
txtstudentname.Text = Trim(mrc.Fields(2))
txtdepartment.Text = Trim(mrc.Fields(4))
txtsex.Text = Trim(mrc.Fields(3))
txtontime.Text = Trim(mrc.Fields(6))
txtontime1.Text = Trim(mrc.Fields(7))

mrc.Close
mrc1.Close
Exit Sub
End If

'更新OnLine_Info数据
txtSQL1 = "select * from OnLine_Info"        '增加状态为上机的表的数据
Set mrc1 = ExecuteSQL(txtSQL1, MsgText)
mrc1.AddNew
mrc1.Fields(0) = Trim(txtcardno.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) = "SOPHIA"     '将计算机名同步到数据库的相应表格中
mrc1.Fields(9) = Date
mrc1.Update

'显示当前上机人数
txtSQL = "select * from OnLine_Info"
Set mrc1 = ExecuteSQL(txtSQL, MsgText)
If mrc1.EOF Then
labcount.Caption = 0
Else
labcount.Caption = mrc1.RecordCount
End If

End Sub

1、当前时间显示以秒计算：

        需要用到timer控件，设置timer控件的interval为1000

代码：

Private Sub Timer1_Timer()
labtime.Caption = Time
End Sub

2、label显示设置为不透明：

     只需要更改一下label的属性即可实现，将backstyle设置为0—transparent

 二、下机    

     下机逻辑图：



      下机部分需要考虑的地方比上机多一些，重点是计算消费时间和消费金额，只要按照自己的思路走，不同的计算方法也可以，在这部分我看到了百花齐放。

      下机涉及到的表有：

line表：下机的时候把下机有关的信息更新到line表中。

online表和student表：判断卡号是否存在和上机，显示当前的上机人数，卡号下机之后把online表中的信息需要删除。

basicdata表：消费时间需要和准备时间和最小上机时间做比较，计算消费时间和消费金额用。