机房收费系统——下机

有了上机的思路，下机当然也就很简单了，不过总是要比别人多想一步，这样你就能够比别人更加的优秀。

下机的流程图

                                         


下机的注意事项：

 

（0）下机的日期和日间要是现在的时间：

txtontime.Text = Trim(mrc3.Fields(7))
txtdowndate.Text = Format(Now(), "yyyy-mm-dd")
txtdowntime.Text = Format(Now, "HH:MM:SS")
time = DateDiff("n", Trim(txtontime.Text), Trim(txtdowntime.Text))

 （1）计算消费余额：消费时间*单位费用（分级别区别收费）

'判断消费金额是多少

Dim All As Single  '消费时间
Dim Money As Integer '最终金额
Dim Rate As Single   '  固定用户单位时间的金额

All = txtspendtime.Text  '消费时间

Rate = Trim(mrc1.Fields(0))   '一小时多少钱
rate1 = Trim(mrc1.Fields(1))
If Trim(txtspendtime.Text) < nomoneyTime Then
txtspendtime.Text = "0"
Money = 0
Else
txtsql = "select * from student_Info where cardno='" & (txtcardno.Text) & "'"
Set mrc = executeSQL(txtsql, msgtext)  '消费金额=消费时间*单位费用（不同用户类型分别计算）
'利用Round函数进行四舍五入取整
If mrc.Fields(14) = "固定用户" Then
Money = Round(((Money - mrc1.Fields(4)) / 60) * mrc1.Fields(0), 0)

Else
Money = Round(((Money - mrc1.Fields(4)) / 60) * mrc1.Fields(1), 0)
End If

txtreatmoney.Text = Int(Money)

End If
txtreatmoney.Text = Money

（2）计算余额：

'余额减去消费金额等于新的余额
txtsql = "select * from student_Info where cardno = '" & txtcardno.Text & "'"
Set mrc = executeSQL(txtsql, msgtext)

txtreatmoney.Text = Trim(mrc.Fields(7)) - Money

（3）更新

 

'将数据更新到line表中
txtsql3 = "select * from line_Info"
Set mrc = executeSQL(txtsql3, msgtext3)

While (mrc3.EOF = False)
mrc3.MoveNext
Wend

mrc.AddNew
mrc.Fields(1) = Trim(txtcardno.Text)
mrc.Fields(2) = Trim(txtstuno.Text)
mrc.Fields(3) = Trim(txtname.Text)
mrc.Fields(4) = Trim(txtmajor.Text)
mrc.Fields(5) = Trim(txtsex.Text)
mrc.Fields(6) = Trim(txtondate.Text)
mrc.Fields(7) = Trim(txtontime.Text)
mrc.Fields(8) = Trim(txtdowndate.Text)
mrc.Fields(9) = Trim(txtdowntime.Text)
mrc.Fields(10) = Trim(txtspendtime.Text)
mrc.Fields(11) = Trim(txtspendtime.Text)
mrc.Fields(12) = Trim(txtreatmoney.Text)
mrc.Fields(13) = "正常下机"
mrc.Fields(14) = Trim(labelPEName.Caption)
mrc.Update
mrc.Close

'删除记录
txtsql2 = "delete from OnLine_Info where cardno = '" & txtcardno.Text & "'"
Set mrc2 = executeSQL(txtsql2, msgtext2)

'刷新当前在线数量
txtsql2 = "select count(*) from OnLine_Info"
Set mrc2 = executeSQL(txtsql2, msgtext2)
Label15.Caption = Trim(mrc2.Fields(0))