frmauthority.frm

用vb写的饮食管理系统功能全面

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 "营业单据"
  lstAuthority.AddItem "营业汇总" '10
  lstAuthority.AddItem "营业明细表"
  lstAuthority.AddItem "畅销物品排行榜"
  lstAuthority.AddItem "操作员管理"
  lstAuthority.AddItem "系统重建"
  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