List 7-210　FormBillフォームの変更したForm_Loadプロシージャ（変更箇所は赤色で示した）

---

  1： Private Sub Form_Load()
  2：     ' フォームがロードされたときの処理
  3：     Dim objUtility As Business.Utility
  4：     Dim enableFlag As Boolean
  5：     
  6：     ' ユーザーの権限によって，一部のボタンを不可視にする
  7：     On Error GoTo ErrHandle
  8：     
  9：     Set objUtility = CreateObject("Business.Utility")
 10：     
 11：     ' ユーザーのロールを取得する
 12：     g_uRole = objUtility.GetUserInRole()
 13：     
 14：     If g_uRole And (ROLE_ALLADMIN Or ROLE_ACCOUNTINGADMIN) Then
 15：         ' 経理部管理者に属する
 16：         enableFlag = True
 17：     Else
 18：         ' 経理部管理者に属さない
 19：         enableFlag = False
 20：     End If
 21：     
 22：     BTN_MAKEBILL.Visible = enableFlag
 23：     BTN_DELETE.Visible = enableFlag
 24：     
 25：     Set objUtility = Nothing
 26：     
 27：     ' データグリッドの中身を最新の情報に更新する
 28：     ' 最初はID順に並べる
 29：     g_Order = "ID"
 30：     ' 最初は絞り込み項目はナシとする
 31：     g_CUSTOMERID = Null
 32：     g_BILLSTATUS = FILTER_BILL_ALL
 33：     g_startMADEDATE = Null
 34：     g_endMADEDATE = Null
 35：     g_startSUBMITDATE = Null
 36：     g_endSUBMITDATE = Null
 37：     
 38：     RefreshData
 39：     
 40：     ' ComboboxにDataGridコントロールのカラム名を移す
 41：     SetFieldList
 42：     
 43：     ' レジストリ情報を読み込み，列幅を設定する
 44：     Dim ColCount As Double
 45：     Dim ColWidth As Long
 46：     Dim i As Long
 47：     Dim RegStr As String
 48：     
 49：     RegStr = GetSetting(App.title, "FormBill", "ColCount", 0)
 50：     If IsNumeric(RegStr) Then
 51：         ColCount = CLng(RegStr)
 52：         For i = 0 To ColCount - 1
 53：             RegStr = GetSetting(App.title, "FormBill", "ColWidth" & i, 0)
 54：             If IsNumeric(RegStr) Then
 55：                 ColWidth = CDbl(RegStr)
 56：                 If ColWidth > 0 Then
 57：                     DGrid_Bill.Columns(i).Width = ColWidth
 58：                 End If
 59：             End If
 60：         Next
 61：     End If
 62：     
 63：     Exit Sub
 64：     
 65： ErrHandle:
 66：     ' エラーが発生した
 67：     MsgBox Err.Description, vbOKOnly, "請求書情報の環境設定エラー"
 68：     Set objUtility = Nothing
 69： End Sub