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 "上台销售"  '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