[第一次机房收费系统]

前端之家收集整理的这篇文章主要介绍了[第一次机房收费系统]前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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


机房收费系统规划链接http://www.jb51.cc/article/p-nesobydk-xp.html


首先我觉得原系统上机的方式有点不方便,每次上机需要在前台刷卡或者操作员选择登录后,然后再到指定的机器开机上网。所以我觉得学校的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. 管理员(操作员)账户类型界面下方显示当前上机人数和时间,而学生账户类型界面只显示当前时间(学生账户不必要知道当前上机人数)


菜单界面,管理员(操作员)账户类型界面和学生账户类型界面也有一定的区别


管理员(操作员)界面菜单


学生界面菜单


菜单的时候我在想,学生查询信息的时候应该只能查询自己的信息,无权查看他人的;而管理员(操作员)可以查看任何人的信息,于是有了以下优化:http://www.jb51.cc/article/p-hxnygjpd-xp.html


然后修改密码等界面等有了以下优化:http://www.jb51.cc/article/p-nhaxpafl-xp.html


后续……

猜你在找的VB相关文章