【机房收费系统】之登录

对于一个应用程序而言，登录窗体是使用该程序的敲门砖。如果不能准确登录，就无法谈及使用其功能了。登录也是一种安全措施，只可让拥有权限的人登录。而机房收费系统在登录窗口上相对而言，还是比较完美的。设置了只有拥有相应权限的人，才能使用相应的功能。所以，登录就显得尤为重要了。

机房登录与普通的登录代码差不多，无非就是判断是否输入账号、秘密，检验账号是否存在，密码是否正确。正如上所说，机房登录相对完美，因此其设置三个不同的权限：一般用户、操作员和管理员，这三种人都有相应的权限，并权限大小依次递增。在代码中除了要判断用户权限外，还需要设置当用户登录时，要讲相应的数据更新到 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 

思路很重要，同时仔细也很重要。

细节决定成败！送给志同道合的你我