對於一個應用程式而言，登入窗體是使用該程式的敲門磚。如果不能準確登入，就無法談及使用其功能了。登入也是一種安全措施，只可讓擁有許可權的人登入。而機房收費系統在登入視窗上相對而言，還是比較完美的。設定了只有擁有相應許可權的人，才能使用相應的功能。所以，登入就顯得尤為重要了。

機房登入與普通的登入程式碼差不多，無非就是判斷是否輸入賬號、祕密，檢驗賬號是否存在，密碼是否正確。正如上所說，機房登入相對完美，因此其設定三個不同的許可權：一般使用者、操作員和管理員，這三種人都有相應的許可權，並許可權大小依次遞增。在程式碼中除了要判斷使用者許可權外，還需要設定當用戶登入時，要講相應的資料更新到 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 
 

思路很重要，同時仔細也很重要。

細節決定成敗！送給志同道合的你我