机房收费系统——上下机

敲这部分的时候逻辑有点混乱,想了好几天才算基本实现,下面是我整理的思维过程。

上机过程:

计算机生成了可选文字: 检查该卡是否己注册和已上和L字进1二表甲促新到上机表和止在上机表以及窗体开始定时检查余额

下机过程分为两种:

一:正常下机

 

计算机生成了可选文字: 检查该卡是否正在上扫L从上机记录表中提取数据显示到窗体,计算上机时间。小于准备!l.J「干准备奸间消费金额为O,更新下机时间到上机记录表,计算消费金额,将新的余额更新到学生信息表和上机记录表。删除止在上机记录表数据

二:强制下机

 当定时检查余额为0时,强制学生下机。

需要注意的问题:

一:时间格式。因为我用的是SQL2005,所以正确的时间格式很重要。

二:不要忘记基本数据设定表,而且要用最新定制的收费标准。

三:时刻记着你是管理着而不是上机的学生。(所以定时检查余额是只需检查余额为0,强制下机即可)。

四:定时检查余额的时间间隔,Timer控件的Interval属性可以设置为0到65535之间的任意直,所以用Timer触发事件的最大时间间隔只能有65秒。如果你想增大时间间隔,可以使用下面的代码。但是记着时间间隔最大不能超过你的收费递增时间。

Dim dtNextTime As Date
Private Sub Form_load()
Timer1.Interval = 500
Timer1.Enabled = True
dtNextTime = DateAdd("n", 2, Now)
End Sub
Private Sub Timer1_Timer()
If Now >= dtNextTime Then
Timer1.Enabled = False
'在此加入你的代码
dtNextTime = DateAdd("n", 2, Now)
Timer1.Enabled = True
End If
End Sub 

DateAdd函数用于计算在将来的多长时间后的时间(本示例为当前时间后2分钟的时间)。

以上是我做上下机的思路,代码不是很复杂,这里就不写了!只要弄清楚逻辑,实现还是不困难的!

评论 19
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值