对于一个应用程序而言,登录窗体是使用该程序的敲门砖。如果不能准确登录,就无法谈及使用其功能了。登录也是一种安全措施,只可让拥有权限的人登录。而机房收费系统在登录窗口上相对而言,还是比较完美的。设置了只有拥有相应权限的人,才能使用相应的功能。所以,登录就显得尤为重要了。
机房登录与普通的登录代码差不多,无非就是判断是否输入账号、秘密,检验账号是否存在,密码是否正确。正如上所说,机房登录相对完美,因此其设置三个不同的权限:一般用户、操作员和管理员,这三种人都有相应的权限,并权限大小依次递增。在代码中除了要判断用户权限外,还需要设置当用户登录时,要讲相应的数据更新到 OnWork_info 表中。
下面是我做机房登录的重要代码:
If Trim(mrc.Fields(2)) = Trim("一般用户") Then
OK = True
Me.Hide
UserName = Trim(txtUserName.Text) '将用户名给 username
FrmMain.Show
FrmMain.GeneralUserMenu.Enabled = True
FrmMain.OperatorMenu.Enabled = False
FrmMain.AdministratorMenu.Enabled = False
Exit Sub
Else
If Trim(mrc.Fields(2)) = Trim("?????") Then
OK = True
Me.Hide
UserName = Trim(txtUserName.Text) '将用户名给 username
FrmMain.Show
FrmMain.GeneralUserMenu.Enabled = True
FrmMain.OperatorMenu.Enabled = True
FrmMain.AdministratorMenu.Enabled=False
Exit Sub
Else
If Trim(mrc.Fields(2)) = Trim("?????") Then
OK = True
Me.Hide
UserName = Trim(txtUserName.Text) '将用户名给 username
FrmMain.Show
FrmMain.GeneralUserMenu.Enabled = True
FrmMain.OperatorMenu.Enabled = True
FrmMain.AdministratorMenu.Enabled = True
Exit Sub
End If
End If
End If
txtsql = "select * from OnWork_Info"
Set mrc1 = ExecuteSQL(txtsql, msgtext)
'添加内容到数据库中
mrc1.AddNew
mrc1.Fields(0) = Trim(UserName)
mrc1.Fields(1) = Trim(mrc.Fields(2))
mrc1.Fields(2) = Trim(Date)
mrc1.Fields(3) = Trim(Time)
mrc1.Fields(4) = Trim(myComputer)
'更新数据库
mrc1.Update
mrc.Close
思路很重要,同时仔细也很重要。
细节决定成败!送给志同道合的你我