main.frm

宾馆客房管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form main 
   Caption         =   "酒店客房管理系统"
   ClientHeight    =   2535
   ClientLeft      =   1665
   ClientTop       =   1335
   ClientWidth     =   6660
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "main.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2535
   ScaleWidth      =   6660
   StartUpPosition =   1  '所有者中心
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   345
      Left            =   0
      TabIndex        =   6
      Top             =   2190
      Width           =   6660
      _ExtentX        =   11748
      _ExtentY        =   609
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            TextSave        =   "2006-7-10"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            TextSave        =   "16:51"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   10583
            MinWidth        =   10583
            Text            =   "欢迎使用酒店客房管理系统"
            TextSave        =   "欢迎使用酒店客房管理系统"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Image Image2 
      Height          =   8235
      Left            =   -105
      Picture         =   "main.frx":000C
      Stretch         =   -1  'True
      Top             =   90
      Width           =   12000
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   5445
      TabIndex        =   5
      Top             =   90
      Width           =   750
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   3900
      TabIndex        =   4
      Top             =   120
      Width           =   705
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   3000
      TabIndex        =   3
      Top             =   120
      Width           =   705
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   2010
      TabIndex        =   2
      Top             =   105
      Width           =   705
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   1155
      TabIndex        =   1
      Top             =   135
      Width           =   705
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   345
      TabIndex        =   0
      Top             =   120
      Width           =   705
   End
   Begin VB.Menu zsgl 
      Caption         =   "住宿管理"
      Begin VB.Menu zsdj 
         Caption         =   "住宿登记(&D)..."
         Shortcut        =   ^D
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu tfdj 
         Caption         =   "调房登记(&T)"
         Shortcut        =   ^T
      End
      Begin VB.Menu line4 
         Caption         =   "-"
      End
      Begin VB.Menu tf 
         Caption         =   "退宿结帐(&J)"
         Shortcut        =   ^J
      End
   End
   Begin VB.Menu kfgl 
      Caption         =   "客房管理"
      Begin VB.Menu kfsz 
         Caption         =   "客房设置"
      End
      Begin VB.Menu kfcx 
         Caption         =   "客房查询"
      End
      Begin VB.Menu ftck 
         Caption         =   "房态查看"
      End
   End
   Begin VB.Menu gzgl 
      Caption         =   "挂帐管理"
      Begin VB.Menu gzcx 
         Caption         =   "挂帐查询"
      End
      Begin VB.Menu khjk 
         Caption         =   "客户结款"
      End
   End
   Begin VB.Menu cxtj 
      Caption         =   "查询统计"
      Begin VB.Menu zscx 
         Caption         =   "住宿查询"
      End
      Begin VB.Menu tfcx 
         Caption         =   "退宿查询"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu sftx 
         Caption         =   "宿费提醒"
      End
   End
   Begin VB.Menu xtsz 
      Caption         =   "系统设置"
      Begin VB.Menu czysz 
         Caption         =   "操作员设置"
      End
      Begin VB.Menu ma 
         Caption         =   "密码设置"
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu csh 
         Caption         =   "初始化"
      End
      Begin VB.Menu qxsz 
         Caption         =   "权限设置"
      End
   End
   Begin VB.Menu tc 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'强制变量说明
Option Explicit
'定义数据库连接对象
Dim DBcnn As New ADODB.Connection
'定义数据库中对应于系统用户(qxsz)表的数据集对象
Dim DBrs As New ADODB.Recordset
'定义存储系统登陆用户名的变量
Public loginname As String
'定义存储sql语句的字符串变量
Dim sqlstr As String
'设置操作员权限
Private Sub Form_Activate()
  '判断当前数据库连接对象的状态，如果未连接到数据库KFGL，则连接到数据库KFGL
 If DBcnn.State = 0 Then
    Dim connectstr As String
    connectstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
               App.Path & "\KFGL.mdb;Persist Security Info=False"
    DBcnn.CursorLocation = adUseClient
    DBcnn.Open connectstr
 End If
 '判断数据集对象DBrs1和DBrs2的状态，如果是打开状态，则先关闭，
'以防止出现重复打开数据集对象的错误
 If DBrs.State = 1 Then
    DBrs.Close
 End If
'设置并执行SQL语句并返回相应的数据集
  sqlstr = "select * from qxsz "
 DBrs.Open sqlstr, DBcnn, adOpenStatic, adLockBatchOptimistic
 With DBrs
 If .BOF = False Then .MoveFirst
  '.Find "操作员 like '%" & StatusBar1.Panels(4).Text & "%'"
  '在qxsz表中找到系统登陆用户的相关信息
  .Find "操作员 like '%" & loginname & "%'"
 If .RecordCount = 0 Then
 Else
  '根据系统登陆用户的操作权限来设置系统菜单中的各个菜单项的使能状态
  'main.zjyj.Enabled = .Fields("追加押金")
  main.ZSDJ.Enabled = .Fields("住宿登记")
  main.Label1.Enabled = .Fields("住宿登记")
  main.tf.Enabled = .Fields("退宿登记")
  main.Label2.Enabled = .Fields("退宿登记")
  main.tfdj.Enabled = .Fields("调房登记")
  main.kfsz.Enabled = .Fields("客房管理")
  main.kfcx.Enabled = .Fields("客房查询")
  main.ftck.Enabled = .Fields("房态查看")
  main.gzcx.Enabled = .Fields("挂帐查询")
  main.khjk.Enabled = .Fields("客户结款")
  main.zscx.Enabled = .Fields("住宿查询")
  main.Label3.Enabled = .Fields("住宿查询")
  main.tfcx.Enabled = .Fields("退宿查询")
  main.sftx.Enabled = .Fields("宿费提醒")
  main.Label5.Enabled = .Fields("宿费提醒")
  'main.ysbb.Enabled = .Fields("登记预收报表")
  'main.xsbb.Enabled = .Fields("客房销售报表")
  main.Label4.Enabled = .Fields("客房销售报表")
  'main.xstj.Enabled = .Fields("客房销售统计报表")
  main.czysz.Enabled = .Fields("操作员设置")
  main.ma.Enabled = .Fields("密码设置")
  main.csh.Enabled = .Fields("初始化")
  main.qxsz.Enabled = .Fields("权限设置")
 End If
 End With
End Sub



Private Sub label1_Click()     '调入住宿登记
 zsdj_Click
End Sub
Private Sub label2_Click()      '调入退宿结帐
 tf_Click
End Sub
Private Sub Label3_Click()      '调入住宿查询
 zscx_Click
End Sub
Private Sub Label4_Click()      '调入客房销售报表
 xsbb_Click
End Sub
Private Sub Label5_Click()      '调入宿费提醒
 sftx_Click
End Sub
Private Sub label6_Click()
 End
End Sub
Private Sub kfyd_Click()       '调入客房预定
 'main_kfyd.Show
 'main.Enabled = False
End Sub

Private Sub zsdj_Click()       '调入住宿登记
 main_kfdj.Show
 main.Enabled = False
End Sub
Private Sub zjyj_Click()       '调入追加押金
 'Load main_zjyj
' main_zjyj.Show
 'main.Enabled = False
End Sub
Private Sub tfdj_Click()      '调入调房登记
 main_tfdj.Show
 main.Enabled = False
End Sub
Private Sub tf_Click()        '调入退宿结帐
 main_tf.Show
 main.Enabled = False
End Sub
Private Sub kfsz_Click()      '调入客房管理
 main_kfgl.Show
 main.Enabled = False
End Sub
Private Sub kfcx_Click()      '调入客房查询
 main_kfcx.Show
 main.Enabled = False
End Sub
Private Sub ftck_Click()      '调入房态查看
 main_ftcx.Show
 main.Enabled = False
End Sub
 '调入挂帐查询窗体
 Private Sub gzcx_Click()
 '装载执行挂账查询操作的挂账查询窗体
 Load main_gzcx
 '显示执行挂账查询操作的挂账查询窗体
 main_gzcx.Show
 '挂起main窗体，防止误操作
 main.Enabled = False
End Sub
Private Sub khjk_Click()      '调入客户结款
 Load main_khjk
 main_khjk.Show
 main.Enabled = False
End Sub
Private Sub ydfcx_Click()      '调入预定房查询
 main_kfydcx.Show
 main.Enabled = False
End Sub
Private Sub zscx_Click()       '调入住宿查询
 Load main_zscx
 main_zscx.Show
 main.Enabled = False
End Sub
Private Sub tfcx_Click()       '调入退宿查询
 Load main_tfcx
 main_tfcx.Show
 main.Enabled = False
End Sub
Private Sub sftx_Click()      '调入宿费提醒
 Load main_xftx
 main_xftx.Show
 main.Enabled = False
End Sub
Private Sub ysbb_Click()       '调入登记预收报表
 main_ysbb.Show
 main.Enabled = False
End Sub
Private Sub xsbb_Click()       '调入客房销售报表
 main_xsbb.Show
 main.Enabled = False
End Sub
Private Sub xstj_Click()       '调入客房销售统计
 main_xstj.Show
 main.Enabled = False
End Sub
Private Sub czysz_Click()      '调入操作员设置
 Load main_czysz
 main_czysz.Show
 main.Enabled = False
End Sub
Private Sub ma_Click()          '调入密码设置
 main_mmsz.Show
 main.Enabled = False
End Sub
Private Sub csh_Click()         '调入初始化
 main_csh.Show
 main.Enabled = False
End Sub
Private Sub qxsz_Click()        '调入权限设置
 main_qxsz.Show
 main.Enabled = False
End Sub
Private Sub tc_Click()
 End
End Sub