[第一次机房收费系统]机房收费系统（1）

按照自己的规划开始敲机房后，遇到了不少的麻烦。我是想在登录界面直接就开始判断用户的类型，是管理员、操作员、学生或教师，直接跳转不同的界面。

因为登录界面是按照学生的敲的，理解的不是特别的透彻。首先在fLogin界面的主要代码是若密码正确的话判断类型是一般用户还是管理员和操作员。若为学生用户，SOK为True，OK为False，若不是一般用户肯定就是操作员或者管理员了，那么就是OK为True，SOK为False。

If Trim(mrc.Fields(1)) <> Trim(txtPassword.Text) Then
MsgBox "密码不正确，请重新输入!", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
Else
If Trim(mrc.Fields(2)) = "学生用户" Then
'如果是学生或者老师登录
SOK = True
OK = False
mrc.Close
Me.Hide
'frmOrdinaryUsers.Show
UserName = Trim(txtUserName.Text)
Else
OK = True
SOK = False
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
End If

End If

然后通过模块连接OK为true还是SOK为true，从而打开不同的窗体

Sub main()
'判断是否为授权用户
Dim fLogin As New frmLogin

fLogin.Show vbModal
'显示登录窗体的实例
If Not fLogin.SOK And Not fLogin.OK Then
'若不为OK或者SOK，则结束程序
End

'判断是否进入系统
Else
If fLogin.SOK Then
'若判断为SOK
Set fMainForm = New frmMain
frmOrdinaryUsers.Show
'进入一般用户类型界面
Unload fLogin
'fLogin 关闭
Else
if fLogin.OK Then
Set fMainForm = New frmMain
'显示窗体实例
fMainForm.Show
'frmOrdinaryUsers.Show
Unload fLogin
Else
End
End If
End If
End Sub

敲完基本的窗体后，我算先把注册窗体敲了，在管理员权限中有一个添加用户，添加的类型有一般用户、操作员、管理员，我把它改成了学生用户、教师用户、操作员、管理员。

在操作员菜单中还有一个注册，注册的是上机卡号，我改机房程序主要内容就是改了登录方式，若还有一般的卡号是一种多余的存在，所以我想在这个界面直接可以注册一般用户（学生用户和老师用户）



而在下面这个界面注册操作员和管理员账户，因为一般学生账号是需要填写各种详细信息的，而操作员管理员的详细信息相对来说就没有那么重要。



也就是说这两个注册界面其实都是注册账号的，只不过一个是管理员操作员都有的注册一般用户（学生用户和教师用户）的权限，另一个是管理员才有的注册管理员和操作员账号的。虽然分为了两个窗体两个界面，但是数据表，我觉得应该使用一个数据表

原机房分为两个数据表，下图为注册卡号数据表和注册一般用户、操作员、管理员账号数据表。





我想把这两张表改成一张表，因为管理员操作员注册账号只需要输入账号、类型、姓名、密码，所以在新的数据表中除了这几项属性，其他设置为允许Null值，这样，管理员、操作员的账号和一般用户账号都可以用此表来保存数据了。

机房收费系统还在不断的完成中，我会通过接下来的博客继续给大家分享我对于机房的改动和一些想法。