List 7-91　FormStockフォームの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_PRODUCTS Or ROLE_PRODUCTSADMIN) Then
 17：         ' 編集権限を持っている
 18：         enableFlag = True
 19：     Else
 20：         ' 編集権限がない
 21：     End If
 22：     
 23：     BTN_NEW.Visible = enableFlag
 24：     BTN_DELETE.Visible = enableFlag
 25：     BTN_NEW.Visible = enableFlag
 26：     
 27：     ' 編集ボタンを詳細というラベルに変更するかどうか
 28：     BTN_EDIT.Visible = True
 29：     If enableFlag Then
 30：         BTN_EDIT.Caption = "編集"
 31：     Else
 32：         BTN_EDIT.Caption = "詳細"
 33：     End If
 34：     
 35：     If g_uRole And (ROLE_ALLADMIN Or ROLE_PRODUCTSADMIN) Then
 36：         ' 復活権限を持っている
 37：         enableFlag = True
 38：     Else
 39：         ' 復活権限を持っていない
 40：         enableFlag = False
 41：     End If
 42：     
 43：     BTN_UNDELETE.Visible = enableFlag
 44：     BTN_CANCELDUE.Visible = enableFlag
 45：     
 46：     Set objUtility = Nothing
 47：     
 48：     ' データグリッドの中身を最新の情報に更新する
 49：     ' 最初はID順を逆順に並べる
 50：     g_Order = "ID DESC"
 51：     ' 最初はフィルタ項目はナシとする
 52：     g_FilterFlag = FILTER_STOCK_ALL
 53：     g_startDate = Null
 54：     g_endDate = Null
 55：     g_startDueDate = Null
 56：     g_endDueDate = Null
 57：     
 58：     RefreshData
 59：     
 60：     ' ComboxにDataGridコントロール内のカラム名を移す
 61：     SetFieldList
 62：     
 63：     Exit Sub
 64： 
 65： ErrHandle:
 66：     ' エラーが発生した
 67：     MsgBox Err.Description, vbOKOnly, "入出庫情報の環境設定エラー"
 68：     Set objUtility = Nothing
 69： End Sub