【機械室料金システム】の登録

1つのアプリケーションでは、ログインフォームはプログラムのノックレンガを使用します.正確にログインできなければ、その機能の使用については言及できません.ログインもセキュリティ対策で、権限を持っている人だけがログインできます.機械室料金システムは登録窓口で比較的完璧です.適切な権限を持っている人だけが、適切な機能を使用できるように設定されています.だから、ログインは特に重要です.
機械室の登録と普通の登録コードの差は多くなく、アカウント、秘密を入力するかどうかを判断し、アカウントが存在するかどうかを検査し、パスワードが正しいかどうかを判断することにほかならない.前述したように、機械室のログインは比較的完璧であるため、一般ユーザー、オペレータ、管理者の3つの異なる権限を設定し、この3つの人はそれぞれの権限を持っており、権限の大きさは順次増加しています.コードでユーザー権限を判断するほか、ユーザーがログインしたときに、対応するデータを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 

考え方が大切で、同時に丁寧さも大切です.
細部が成否を決める!同じもの同士の君に