main_qxsz.frm

酒店管理系统 主要是实现了酒店的客房管理

               Height          =   390
               Index           =   26
               Left            =   120
               TabIndex        =   41
               Top             =   1440
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "数据恢复"
               Height          =   390
               Index           =   25
               Left            =   120
               TabIndex        =   40
               Top             =   1080
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "数据备份"
               Height          =   390
               Index           =   24
               Left            =   120
               TabIndex        =   39
               Top             =   720
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "操作员及权限"
               Height          =   390
               Index           =   23
               Left            =   120
               TabIndex        =   38
               Top             =   360
               Width           =   1455
            End
         End
         Begin VB.Frame Frame5 
            Caption         =   "报表管理"
            Height          =   2685
            Left            =   4920
            TabIndex        =   6
            Top             =   480
            Width           =   1695
            Begin VB.CheckBox Check1 
               Caption         =   "客房结帐汇总表"
               Height          =   390
               Index           =   22
               Left            =   120
               TabIndex        =   37
               Top             =   1680
               Width           =   1455
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房话费报表"
               Height          =   390
               Index           =   21
               Left            =   120
               TabIndex        =   36
               Top             =   1320
               Width           =   1575
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房餐费报表"
               Height          =   390
               Index           =   20
               Left            =   120
               TabIndex        =   35
               Top             =   960
               Width           =   1455
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房消费报表"
               Height          =   390
               Index           =   19
               Left            =   120
               TabIndex        =   34
               Top             =   600
               Width           =   1455
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房入住报表"
               Height          =   390
               Index           =   18
               Left            =   120
               TabIndex        =   33
               Top             =   240
               Width           =   1575
            End
         End
         Begin VB.Frame Frame4 
            Caption         =   "客房管理"
            Height          =   3525
            Left            =   1680
            TabIndex        =   5
            Top             =   480
            Width           =   1335
            Begin VB.CheckBox Check1 
               Caption         =   "客房编辑"
               Height          =   390
               Index           =   10
               Left            =   120
               TabIndex        =   25
               Top             =   600
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房状态"
               Height          =   390
               Index           =   9
               Left            =   120
               TabIndex        =   24
               Top             =   240
               Width           =   1110
            End
         End
         Begin VB.Frame Frame3 
            Caption         =   "房客管理"
            Height          =   3510
            Left            =   120
            TabIndex        =   3
            Top             =   465
            Width           =   1440
            Begin VB.CheckBox Check1 
               Caption         =   "在房客人表"
               Height          =   390
               Index           =   8
               Left            =   120
               TabIndex        =   23
               Top             =   3000
               Width           =   1215
            End
            Begin VB.CheckBox Check1 
               Caption         =   "补打帐单"
               Height          =   390
               Index           =   7
               Left            =   120
               TabIndex        =   22
               Top             =   2640
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "补交押金"
               Height          =   390
               Index           =   6
               Left            =   120
               TabIndex        =   21
               Top             =   2280
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "预定入住"
               Height          =   390
               Index           =   5
               Left            =   120
               TabIndex        =   20
               Top             =   1920
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "预定房间"
               Height          =   390
               Index           =   4
               Left            =   120
               TabIndex        =   19
               Top             =   1560
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客人换房"
               Height          =   390
               Index           =   3
               Left            =   120
               TabIndex        =   18
               Top             =   1200
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "退房登记"
               Height          =   270
               Index           =   2
               Left            =   120
               TabIndex        =   17
               Top             =   960
               Width           =   1110
            End
            Begin VB.CheckBox Check1 
               Caption         =   "钟点房登记"
               Height          =   390
               Index           =   1
               Left            =   120
               TabIndex        =   16
               Top             =   600
               Width           =   1215
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房登记"
               Height          =   390
               Index           =   0
               Left            =   120
               TabIndex        =   4
               Top             =   240
               Width           =   1110
            End
         End
      End
   End
End
Attribute VB_Name = "main_qxsz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False





Private Sub Form_Load()     '自动识别数据库路径
 Data1.DatabaseName = App.Path & "\kfgl.MDB"
 Data2.DatabaseName = App.Path & "\kfgl.MDB"
End Sub

Private Sub DBList1_Click()
 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst
 '查找操作员
 Data2.Recordset.FindFirst "操作员='" & DBList1.BoundText & "'"
 If Data2.Recordset.NoMatch Then
  DBList1.BoundText = 0
 Else
  '赋值给Check1
   For i = 0 To 2
    If Data2.Recordset.Fields(i) = -1 Then Check1(i).Value = 1 Else Check1(i).Value = 0
   Next i
 End If
End Sub
Private Sub Command1_Click()     '全选
For i = 0 To 30
  Check1(i).Value = 1
Next i
End Sub
Private Sub Command2_Click()     '全不选
For i = 0 To 30
  Check1(i).Value = 0
Next i
End Sub
Private Sub Command3_Click()     '为操作员设置权限
 If DBList1.BoundText <> "" Then
 Data2.Recordset.FindFirst "操作员= '" & DBList1.BoundText & "'"
 If Data2.Recordset.NoMatch Then
  Else
   Data2.Recordset.Edit
    For i = 0 To 30
     Data2.Recordset.Fields(i) = Check1(i).Value
    Next i
  Data2.Recordset.Update '更新记录
  Data2.Refresh
 End If
 End If
End Sub
Private Sub Command4_Click()     '删除操作员
 On Error Resume Next
 Data2.Recordset.Delete
 Data2.Refresh
 Data1.Refresh
End Sub
Private Sub comend_Click()
 Unload Me
 'main.Enabled = True
End Sub