List 7-179　FormMainフォームのMDIForm_Loadプロシージャ

---

  1： Private Sub MDIForm_Load()
  2：     ' フォームがロードされたときの処理
  3：     ' ユーザーのロールを調べ，経理部に属していなければ
  4：     ' ［表示］−［請求書情報］を淡色表示にする
  5：     Dim objUtility As Business.Utility
  6：     Dim uRole As Business.USERROLE
  7：     
  8：     On Error GoTo ErrHandle
  9：     Set objUtility = CreateObject("Business.Utility")
 10：     uRole = objUtility.GetUserInRole()
 11：     Set objUtility = Nothing
 12：     
 13：     If (uRole And (ROLE_ALLADMIN Or ROLE_ACCOUNTING Or ROLE_ACCOUNTINGADMIN)) _
   　        = 0 Then
 14：         ' 経理部に属していない
 15：         Menu_Bill.Enabled = False
 16：     End If
 17：     
 18：     Exit Sub
 19：     
 20： ErrHandle:
 21：     ' エラーが発生した
 22：     MsgBox Err.Description, vbOKOnly, "環境取得エラー"
 23：     Set objUtility = Nothing
 24： End Sub