List 7-120　FormEditSlipフォームの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_SALES Or _
   　                     ROLE_SALESMANAGER Or ROLE_SALESADMIN) Then
 18：         ' 編集が可能
 19：         enableFlag = True
 20：     Else
 21：         ' 編集不可
 22：         enableFlag = False
 23：     End If
 24：     
 25：     COMBO_CUSTOMER.Enabled = enableFlag
 26：     CHK_ONEBILL.Enabled = enableFlag
 27：     TXT_DIVISION.Enabled = enableFlag
 28：     TXT_PERSON.Enabled = enableFlag
 29：     TXT_DELIVERDATE.Enabled = enableFlag
 30：     BTN_CALC.Enabled = enableFlag
 31：     TXT_SENTADDR.Enabled = enableFlag
 32：     TXT_SENTTEL.Enabled = enableFlag
 33：     TXT_MEMO.Enabled = enableFlag
 34：     
 35：     Set objUtility = Nothing
 36：     Exit Sub
 37：     
 38： ErrHandle:
 39：     ' エラーが発生した
 40：     MsgBox Err.Description, vbOKOnly, "伝票情報編集の環境設定エラー"
 41：     Set objUtility = Nothing
 42： End Sub