main.frm

这个原代码书上有,但是我把它做出来,与大家共享,希望大家喜欢

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form main 
   Caption         =   "客房管理系统"
   ClientHeight    =   5895
   ClientLeft      =   1665
   ClientTop       =   1335
   ClientWidth     =   11850
   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     =   5895
   ScaleWidth      =   11850
   StartUpPosition =   1  '所有者中心
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "D:\行业管理软件之一\客房管理系统\Kfgl.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   -495
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "qxsz"
      Top             =   915
      Visible         =   0   'False
      Width           =   1095
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   345
      Left            =   0
      TabIndex        =   6
      Top             =   5550
      Width           =   11850
      _ExtentX        =   20902
      _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        =   "2003-04-24"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            TextSave        =   "08:32"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   10583
            MinWidth        =   10583
            Text            =   "http://www.mingrisoft.com"
            TextSave        =   "http://www.mingrisoft.com"
         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.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            =   2970
      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.Image Image2 
      Height          =   7515
      Left            =   -105
      Picture         =   "main.frx":000C
      Stretch         =   -1  'True
      Top             =   810
      Width           =   12000
   End
   Begin VB.Image Image1 
      Height          =   825
      Left            =   0
      Picture         =   "main.frx":128810
      Stretch         =   -1  'True
      Top             =   15
      Width           =   11910
   End
   Begin VB.Menu zsgl 
      Caption         =   "住宿管理"
      Begin VB.Menu zsdj 
         Caption         =   "住宿登记(&D)..."
         Shortcut        =   ^D
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu zjyj 
         Caption         =   "追加押金(&Y)"
         Shortcut        =   ^Y
      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 rjz 
      Caption         =   "日结"
      Begin VB.Menu ysbb 
         Caption         =   "登记预收报表"
      End
      Begin VB.Menu xsbb 
         Caption         =   "客房销售报表"
      End
      Begin VB.Menu xstj 
         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
Private Sub Form_Load()
 Data1.DatabaseName = App.Path & "\Kfgl.MDB"     '自动识别数据库路径
End Sub
Private Sub Form_Activate()     '设置操作员权限
 With Data1.Recordset
 If .BOF = False Then .MoveFirst
 .FindFirst "操作员 like " + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + ""
 If .NoMatch 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.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