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 "上臺銷售"  'SL100
  lstAuthority.AddItem "訂單管理"  'Order100
  lstAuthority.AddItem "應付款管理"  'QK100
  lstAuthority.AddItem "入庫單管理"  'RK100
  lstAuthority.AddItem "庫存查詢"   'Store100
  lstAuthority.AddItem "上報總部"   'Upload100
  lstAuthority.AddItem "系統配置"   'Config100
  lstAuthority.AddItem "銷售匯總與現金帳"  'Acount100
  
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
 
      Us = frmOperator.Grid1.Text
  
  Set Db = OpenDatabase(ConData, False, False, ConStr)
  Set EF = Db.OpenRecordset("Select * from UserLimit Where UserName='" & Us & "'", dbOpenDynaset)
      
      If EF.BOF And EF.EOF Then  '沒有記錄時,增加記錄
         EF.AddNew
         EF.Fields("UserName") = Us
         EF.Fields("SL100") = lstAuthority.Selected("0")
         EF.Fields("Order100") = lstAuthority.Selected("1")
         EF.Fields("QK100") = lstAuthority.Selected("2")
         EF.Fields("RK100") = lstAuthority.Selected("3")
         EF.Fields("Store100") = lstAuthority.Selected("4")
         EF.Fields("Upload100") = lstAuthority.Selected("5")
         EF.Fields("Config100") = lstAuthority.Selected("6")
         EF.Fields("Acount100") = lstAuthority.Selected("7")
         EF.Update
      Else
         EF.Edit
         EF.Fields("SL100") = lstAuthority.Selected("0")
         EF.Fields("Order100") = lstAuthority.Selected("1")
         EF.Fields("QK100") = lstAuthority.Selected("2")
         EF.Fields("RK100") = lstAuthority.Selected("3")
         EF.Fields("Store100") = lstAuthority.Selected("4")
         EF.Fields("Upload100") = lstAuthority.Selected("5")
         EF.Fields("Config100") = lstAuthority.Selected("6")
         EF.Fields("Acount100") = lstAuthority.Selected("7")
         EF.Update
      End If
      
      EF.Close
      Db.Close
      Set EF = Nothing
      Set Db = Nothing
  
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("Select * from UserLimit Where UserName='" & Us & "'", dbOpenDynaset)
      
      If EF.BOF And EF.EOF Then  '沒有記錄時,增加記錄
         EF.AddNew
         EF.Fields("UserName") = Us
         EF.Fields("SL100") = 0
         EF.Fields("Order100") = 0
         EF.Fields("QK100") = 0
         EF.Fields("RK100") = 0
         EF.Fields("Store100") = 0
         EF.Fields("Upload100") = 0
         EF.Fields("Config100") = 0
         EF.Fields("Acount100") = 0
         EF.Update
      Else
         lstAuthority.Selected("0") = NullValue(EF.Fields("SL100"))
         lstAuthority.Selected("1") = NullValue(EF.Fields("Order100"))
         lstAuthority.Selected("2") = NullValue(EF.Fields("QK100"))
         lstAuthority.Selected("3") = NullValue(EF.Fields("RK100"))
         lstAuthority.Selected("4") = NullValue(EF.Fields("Store100"))
         lstAuthority.Selected("5") = NullValue(EF.Fields("Upload100"))
         lstAuthority.Selected("6") = NullValue(EF.Fields("Config100"))
         lstAuthority.Selected("7") = NullValue(EF.Fields("Acount100"))
      End If
      
      EF.Close
      Db.Close
      Set EF = Nothing
      Set Db = Nothing

End Sub