VERSION 5.00
Begin VB.Form frmAuthority 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "操作員權限配置表"
   ClientHeight    =   3075
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5790
   Icon            =   "frmAuthority.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3075
   ScaleWidth      =   5790
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdClose 
      Cancel          =   -1  'True
      Caption         =   "關閉(E&XIT)"
      Default         =   -1  'True
      Height          =   390
      Left            =   4290
      TabIndex        =   1
      Top             =   2535
      Width           =   1335
   End
   Begin VB.ListBox lstAuthority 
      Columns         =   2
      Height          =   2160
      Left            =   180
      Style           =   1  'Checkbox
      TabIndex        =   0
      Top             =   240
      Width           =   5415
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFFFFF&
      X1              =   195
      X2              =   5610
      Y1              =   2460
      Y2              =   2460
   End
   Begin VB.Line Line1 
      X1              =   210
      X2              =   5610
      Y1              =   2445
      Y2              =   2445
   End
End
Attribute VB_Name = "frmAuthority"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()

  Unload Me
  
End Sub

Private Sub Form_Load()

  LoadList
  QueryList
  
End Sub

Private Sub LoadList()

  lstAuthority.AddItem "座位分類"
  lstAuthority.AddItem "單位分類"
  lstAuthority.AddItem "菜單分類"
  lstAuthority.AddItem "菜單管理"
  lstAuthority.AddItem "會員管理"
  lstAuthority.AddItem "購進物品"
  lstAuthority.AddItem "購進物品明細表"
  lstAuthority.AddItem "庫存查詢"
  lstAuthority.AddItem "客人上臺"
  lstAuthority.AddItem "營業(yè)單據(jù)"
  lstAuthority.AddItem "營業(yè)匯總" '10
  lstAuthority.AddItem "營業(yè)明細表"
  lstAuthority.AddItem "暢銷物品排行榜"
  lstAuthority.AddItem "操作員管理"
  lstAuthority.AddItem "系統(tǒng)重建"
  lstAuthority.AddItem "付款類型配置"
  
End Sub

Private Sub Form_Unload(Cancel As Integer)

 WriteResult

End Sub

Private Sub WriteResult()

  Dim EF As Recordset, DB As Database, TmpStr As String
  Dim Us As String, FieldsName As String, ValueName As String
  
      Us = frmOperator.Grid1.Text
  
  Set DB = OpenDatabase(ConData, False, False, Constr)
  Set EF = DB.OpenRecordset("Authority", dbOpenDynaset)
      TmpStr = "UserName='" & Us & "'"
      EF.FindFirst TmpStr
    
    Dim X As Integer
    
    For X = 0 To 15
      If X < 15 Then
         FieldsName = FieldsName + EF.Fields(X + 1).Name + ","
         If lstAuthority.Selected(X) = True Then
            ValueName = ValueName + "True" + ","
         Else
            ValueName = ValueName + "False" + ","
         End If
      Else
         FieldsName = FieldsName + EF.Fields(X + 1).Name
         If lstAuthority.Selected(X) = True Then
            ValueName = ValueName + "True"
         Else
            ValueName = ValueName + "False"
         End If
      End If
      
    Next
   
  If EF.NoMatch Then
    TmpStr = "Insert Into Authority (UserName," & FieldsName & ") Values('" & Us & "'," & ValueName & ")"
   Else
    '清除原來設置
    TmpStr = "Delete * From Authority Where UserName='" & Us & "'"
    DB.Execute TmpStr
    '重新設置
    TmpStr = "Insert Into Authority (UserName," & FieldsName & ") Values('" & Us & "'," & ValueName & ")"
  End If
  
  DB.Execute TmpStr
  
  EF.Close
  DB.Close
  
End Sub

Private Sub QueryList()

  Dim EF As Recordset, DB As Database, TmpStr As String
  Dim Us As String
  
      Us = frmOperator.Grid1.Text
  
  Set DB = OpenDatabase(ConData, False, False, Constr)
  Set EF = DB.OpenRecordset("Authority", dbOpenDynaset)
      TmpStr = "UserName='" & Us & "'"
      EF.FindFirst TmpStr
  If Not EF.NoMatch Then
    Dim X As Integer
    For X = 0 To 15
     If EF.Fields(X + 1).Value = True Then
        lstAuthority.Selected(X) = True
      Else
        lstAuthority.Selected(X) = False
     End If
    Next
  End If
   
  EF.Close
  DB.Close

End Sub