List 7-145　FormSlipDetailフォームのForm_Loadプロシージャ

---

  1： Private g_uRole As Business.USERROLE
  2： 
  3： Private Sub Form_Load()
  4：     ' フォームがロードされたときの処理
  5：     Dim objUtility As Business.Utility
  6：     Dim enableFlag As Boolean
  7：     
  8：     ' ユーザーの権限によって，一部のボタンを不可視にする
  9：     On Error GoTo ErrHandle
 10：     
 11：     Set objUtility = CreateObject("Business.Utility")
 12：     
 13：     ' ユーザーのロールを取得する
 14：     g_uRole = objUtility.GetUserInRole()
 15：     
 16：     If g_uRole And (ROLE_ALLADMIN Or ROLE_SALES Or _
   　                     ROLE_SALESMANAGER Or ROLE_SALESADMIN) Then
 17：         ' 営業部に属する
 18：         enableFlag = True
 19：     Else
 20：         ' 営業部に属さない
 21：         enableFlag = False
 22：     End If
 23：     
 24：     BTN_NEW.Visible = enableFlag
 25：     BTN_EDIT.Visible = enableFlag
 26：     BTN_DELETE.Visible = enableFlag
 27： 
 28：     Set objUtility = Nothing
 29： 
 30：     Exit Sub
 31： 
 32： ErrHandle:
 33：     ' エラーハンドラ
 34：     MsgBox Err.Description, vbOKOnly, "明細情報の環境設定エラー"
 35：     Set objUtility = Nothing
 36： End Sub