List 7-68　FormEditProductフォームのForm_Loadプロシージャ

---

  1： Private g_uRole As Business.USERROLE
  2： 
  3： Private Sub Form_Load()
  4：     ' フォームがロードされたとき
  5：     ' ユーザーの権限によって，一部のテキストボックスを
  6：     ' 有効にしたり無効にしたりする
  7：     Dim objUtility As Business.Utility
  8：     Dim enableFlag As Boolean
  9：     
 10：     On Error GoTo ErrHandle
 11：     
 12：     Set objUtility = CreateObject("Business.Utility")
 13：     
 14：     ' ユーザーのロールを取得する
 15：     g_uRole = objUtility.GetUserInRole()
 16：     
 17：     If g_uRole And (ROLE_ALLADMIN Or ROLE_PRODUCTS Or ROLE_PRODUCTSADMIN) Then
 18：         ' 編集は可能
 19：         enableFlag = True
 20：     Else
 21：         ' 編集は不可能
 22：         enableFlag = False
 23：     End If
 24：     
 25：     TXT_YOMIGANA.Enabled = enableFlag
 26：     TXT_PRODUCTNAME.Enabled = enableFlag
 27：     TXT_PRICE.Enabled = enableFlag
 28：     TXT_MEMO.Enabled = enableFlag
 29：     
 30：     Set objUtility = Nothing
 31：     Exit Sub
 32： 
 33： ErrHandle:
 34：     ' エラーが発生した
 35：     MsgBox Err.Description, vbOKOnly, "製品編集の環境設定エラー"
 36：     Set objUtility = Nothing
 37： End Sub