前端之家收集整理的这篇文章主要介绍了
[第一次机房收费系统],
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
刚开始做机房的时候我就在想,我该怎样做的不一样,做的更加方便更加人性化。做之前首先点了点机房原系统,感觉可优化的地方有很多。所以当时就想按照自己的想法做出一个不一样的机房收费系统。
首先我觉得原系统上机的方式有点不方便,每次上机需要在前台刷卡或者操作员选择登录后,然后再到指定的机器开机上网。所以我觉得学校的INode客户端就是一个很好的例子,每一台电脑上都有这个软件,用户只需要打开电脑登录自己的账号就可以上网了,不需要在前台刷卡或登记,也不会局限于前台指定的机器,在哪台机器上都可以。
有了这样的想法之后就开始想怎么可以实现这样的功能。若是学生用户,开始计时收费,若是管理员操作员账户则可以控制和查看各种系统信息。所以学生账户和管理员操作员账户所登录的主界面应该是不一样的。所以我做了两个主界面,一个为学生账户主界面,一个为管理员(操作员)主界面。
根据不同用户登录不同的界面,这样的话,从登录界面就应该判断账户类型
If Trim(mrc.Fields(2)) = "学生用户" Or Trim(mrc.Fields(2)) = "教师用户" Then
'如果是学生或者老师登录
If mrc.Fields(10) < 0 Then
'若余额不足
MsgBox "余额不足,请充值!"
Exit Sub
End If
If Trim(mrc.Fields(12)) <> "使用状态" Then
'若卡号已退卡
MsgBox "此卡号已退卡,请先激活!"
Exit Sub
End If
'若一切正常且为学生或教师账户,则
SOK = True 'SOK为学生或教师账户登录
OK = False 'Ok为管理员操作员账户登录
Else
'否则管理员(操作员)账户登录
OK = True
SOK = False
'同步工作纪录到work表
txtsql3 = "select * from worklog_Infoo"
Set mrc3 = Executesql(txtsql3,MsgText3)
mrc3.AddNew
mrc3.Fields(1) = txtUserName
mrc3.Fields(2) = mrc.Fields(2)
mrc3.Fields(3) = Date
mrc3.Fields(4) = Time
mrc3.Fields(7) = VBA.Environ("computername")
mrc3.Fields(8) = "True"
mrc3.Update
mrc3.Close
Me.Hide
UserName = Trim(txtUserName.Text)
End If
下图分别为管理员(操作员)账户类型主界面和学生账户类型主界面
区别:
1. 管理员(操作员)账户类型界面的菜单比学生账户类型界面多查询和修改之后的查询修改的一些菜单选项
2. 学生账户类型登录后显示当前账户信息,而管理员(操作员)账户类型没有(可查询学生账户显示信息)
3. 管理员(操作员)账户类型界面下方显示当前上机人数和时间,而学生账户类型界面只显示当前时间(学生账户不必要知道当前上机人数)
在菜单界面,管理员(操作员)账户类型界面和学生账户类型界面也有一定的区别
学生界面菜单栏
后续……