form1.frm

Visual Basic开发实用编程200例 数据库编程实例

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "操作员权限设置"
   ClientHeight    =   4875
   ClientLeft      =   420
   ClientTop       =   2865
   ClientWidth     =   11235
   Icon            =   "form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4875
   ScaleWidth      =   11235
   ShowInTaskbar   =   0   'False
   Begin VB.ListBox List1 
      Height          =   3480
      Left            =   75
      TabIndex        =   29
      Top             =   510
      Width           =   1755
   End
   Begin VB.CommandButton Command5 
      Caption         =   "保存"
      Height          =   375
      Left            =   7425
      TabIndex        =   27
      Top             =   4320
      Width           =   1635
   End
   Begin VB.CommandButton Command1 
      Caption         =   "全选"
      Height          =   375
      Left            =   3885
      TabIndex        =   3
      Top             =   4320
      Width           =   1620
   End
   Begin VB.CommandButton Command2 
      Caption         =   "全不选"
      Height          =   375
      Left            =   5640
      TabIndex        =   2
      Top             =   4320
      Width           =   1620
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   375
      Left            =   9240
      TabIndex        =   1
      Top             =   4320
      Width           =   1620
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   3750
      Left            =   1890
      TabIndex        =   4
      Top             =   330
      Width           =   9135
      _ExtentX        =   16113
      _ExtentY        =   6615
      _Version        =   393216
      Tabs            =   1
      TabsPerRow      =   1
      TabHeight       =   520
      TabCaption(0)   =   "权限设置"
      TabPicture(0)   =   "form1.frx":030A
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame5"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Frame4"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Frame3"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Frame2"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "Frame1"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).ControlCount=   5
      Begin VB.Frame Frame1 
         Caption         =   "住宿管理"
         Height          =   3015
         Left            =   225
         TabIndex        =   21
         Top             =   465
         Width           =   1440
         Begin VB.CheckBox Check1 
            Caption         =   "客房预定"
            Height          =   690
            Index           =   0
            Left            =   180
            TabIndex        =   26
            Top             =   315
            Width           =   1110
         End
         Begin VB.CheckBox Check1 
            Caption         =   "退宿结帐"
            Height          =   315
            Index           =   4
            Left            =   180
            TabIndex        =   25
            Top             =   2280
            Width           =   1095
         End
         Begin VB.CheckBox Check1 
            Caption         =   "续押金"
            Height          =   315
            Index           =   2
            Left            =   180
            TabIndex        =   24
            Top             =   1410
            Width           =   1095
         End
         Begin VB.CheckBox Check1 
            Caption         =   "住宿登记"
            Height          =   315
            Index           =   1
            Left            =   180
            TabIndex        =   23
            Top             =   960
            Width           =   1080
         End
         Begin VB.CheckBox Check1 
            Caption         =   "调房登记"
            Height          =   315
            Index           =   3
            Left            =   180
            TabIndex        =   22
            Top             =   1860
            Width           =   1095
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "客房管理"
         Height          =   3015
         Left            =   1815
         TabIndex        =   17
         Top             =   480
         Width           =   1590
         Begin VB.CheckBox Check1 
            Caption         =   "客房管理"
            Height          =   600
            Index           =   5
            Left            =   225
            TabIndex        =   20
            Top             =   300
            Width           =   1065
         End
         Begin VB.CheckBox Check1 
            Caption         =   "客房查询"
            Height          =   315
            Index           =   6
            Left            =   225
            TabIndex        =   19
            Top             =   855
            Width           =   1080
         End
         Begin VB.CheckBox Check1 
            Caption         =   "房态查看"
            Height          =   315
            Index           =   7
            Left            =   225
            TabIndex        =   18
            Top             =   1275
            Width           =   1080
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "查询统计"
         Height          =   3030
         Left            =   3600
         TabIndex        =   11
         Top             =   465
         Width           =   1695
         Begin VB.CheckBox Check1 
            Caption         =   "预定房查询"
            Height          =   480
            Index           =   8
            Left            =   210
            TabIndex        =   16
            Top             =   390
            Width           =   1335
         End
         Begin VB.CheckBox Check1 
            Caption         =   "住宿查询"
            Height          =   315
            Index           =   9
            Left            =   195
            TabIndex        =   15
            Top             =   900
            Width           =   1200
         End
         Begin VB.CheckBox Check1 
            Caption         =   "退宿查询"
            Height          =   315
            Index           =   10
            Left            =   210
            TabIndex        =   14
            Top             =   1350
            Width           =   1230
         End
         Begin VB.CheckBox Check1 
            Caption         =   "宿费提醒"
            Height          =   690
            Index           =   11
            Left            =   210
            TabIndex        =   13
            Top             =   1635
            Width           =   1140