main_qxsz.frm

利用VB编写的一个完整的酒店管理程序,支持双数据库!

VERSION 5.00
Begin VB.Form main_qxsz 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "权限设置"
   ClientHeight    =   4875
   ClientLeft      =   390
   ClientTop       =   1575
   ClientWidth     =   4425
   Icon            =   "main_qxsz.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4875
   ScaleWidth      =   4425
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   4815
      Left            =   45
      TabIndex        =   0
      Top             =   -45
      Width           =   4350
      Begin VB.Frame Frame2 
         Caption         =   "给予权限"
         Height          =   3735
         Left            =   1800
         TabIndex        =   4
         Top             =   240
         Width           =   2415
         Begin VB.CheckBox Check9 
            Caption         =   "系统管理"
            Height          =   255
            Left            =   240
            TabIndex        =   13
            Top             =   3240
            Width           =   1695
         End
         Begin VB.CheckBox Check8 
            Caption         =   "洗浴管理"
            Height          =   255
            Left            =   240
            TabIndex        =   12
            Top             =   2880
            Width           =   1695
         End
         Begin VB.CheckBox Check7 
            Caption         =   "餐饮管理"
            Height          =   255
            Left            =   240
            TabIndex        =   11
            Top             =   2520
            Width           =   1695
         End
         Begin VB.CheckBox Check1 
            Caption         =   "接待操作"
            Height          =   255
            Left            =   240
            TabIndex        =   10
            Top             =   360
            Width           =   1695
         End
         Begin VB.CheckBox Check2 
            Caption         =   "收银操作"
            Height          =   255
            Left            =   240
            TabIndex        =   9
            Top             =   720
            Width           =   1695
         End
         Begin VB.CheckBox Check3 
            Caption         =   "房务中心"
            Height          =   255
            Left            =   240
            TabIndex        =   8
            Top             =   1080
            Width           =   1695
         End
         Begin VB.CheckBox Check4 
            Caption         =   "查询操作"
            Height          =   255
            Left            =   240
            TabIndex        =   7
            Top             =   1440
            Width           =   1695
         End
         Begin VB.CheckBox Check5 
            Caption         =   "报表中心"
            Height          =   255
            Left            =   240
            TabIndex        =   6
            Top             =   1800
            Width           =   1695
         End
         Begin VB.CheckBox Check6 
            Caption         =   "仓库管理"
            Height          =   255
            Left            =   240
            TabIndex        =   5
            Top             =   2160
            Width           =   1695
         End
      End
      Begin VB.ListBox List1 
         Height          =   3660
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   1575
      End
      Begin VB.CommandButton Comend 
         Caption         =   "退出"
         Height          =   375
         Left            =   2520
         TabIndex        =   2
         Top             =   4200
         Width           =   1620
      End
      Begin VB.CommandButton Command3 
         Caption         =   "确定"
         Height          =   375
         Left            =   720
         TabIndex        =   1
         Top             =   4200
         Width           =   1620
      End
   End
End
Attribute VB_Name = "main_qxsz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984
Private Sub SearchIt()
Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
 
  Set EF = db.OpenRecordset("select * from qxsz", dbOpenDynaset)
  
     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            List1.AddItem EF("操作员")
          
            EF.MoveNext
         Loop
      End If
      
  EF.Close
  db.Close

End Sub

Private Sub comend_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
 
  Set EF = db.OpenRecordset("select * from qxsz where 操作员='" & List1.Text & "'", dbOpenDynaset)
  
     '列出记录
      If List1.Text <> "" Then
      EF.Edit
       EF("接待操作") = Check1.Value
        EF("收银操作") = Check2.Value
        EF("房务中心") = Check3.Value
        EF("查询操作") = Check4.Value
        EF("报表中心") = Check5.Value
        EF("仓库管理") = Check6.Value
        EF("餐饮管理") = Check7.Value
       
        EF("洗浴管理") = Check8.Value
        EF("系统管理") = Check9.Value
       
       
       
       
       EF.Update
       MsgBox "成功修改操作员权限！"
       
      Else
      MsgBox "您必须选择一个操作员！"
      End If
        
      
  EF.Close
  db.Close
End Sub

Private Sub Form_Load()
SearchIt
End Sub