[第一次机房收费系统]大总结

来源：互联网发布：淘宝上一元秒杀骗局编辑：程序博客网时间：2024/04/28 12:37

刚开始做机房的时候我就在想，我该怎样做的不一样，做的更加方便更加人性化。做之前首先点了点机房原系统，感觉可优化的地方有很多。所以当时就想按照自己的想法做出一个不一样的机房收费系统。

机房收费系统规划链接：http://blog.csdn.net/vop444/article/details/52098292

首先我觉得原系统上机的方式有点不方便，每次上机需要在前台刷卡或者操作员选择登录后，然后再到指定的机器开机上网。所以我觉得学校的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