List 7-93 FormEditStockフォームの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: COMBO_PRODUCT.Enabled = enableFlag
26: TXT_WILLDATE.Enabled = enableFlag
27: TXT_NUMBER.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