List 7-184　FormBillフォームの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_ACCOUNTINGADMIN) Then
 17：         ' 経理部管理者に属する
 18：         enableFlag = True
 19：     Else
 20：         ' 経理部管理者に属さない
 21：         enableFlag = False
 22：     End If
 23：     
 24：     BTN_MAKEBILL.Visible = enableFlag
 25：     BTN_DELETE.Visible = enableFlag
 26：     
 27：     Set objUtility = Nothing
 28：     
 29：     ' データグリッドの中身を最新の情報に更新する
 30：     ' 最初はID順に並べる
 31：     g_Order = "ID"
 32：     ' 最初は絞り込み項目はナシとする
 33：     g_CUSTOMERID = Null
 34：     g_BILLSTATUS = FILTER_BILL_ALL
 35：     g_startMADEDATE = Null
 36：     g_endMADEDATE = Null
 37：     g_startSUBMITDATE = Null
 38：     g_endSUBMITDATE = Null
 39：     
 40：     RefreshData
 41：     
 42：     ' ComboboxにDataGridコントロールのカラム名を移す
 43：     SetFieldList
 44：     
 45：     Exit Sub
 46：     
 47： ErrHandle:
 48：     ' エラーが発生した
 49：     MsgBox Err.Description, vbOKOnly, "請求書情報の環境設定エラー"
 50：     Set objUtility = Nothing
 51： End Sub