mdiform1.frm

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

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   " 酒店客房管理信息系统                             "
   ClientHeight    =   6720
   ClientLeft      =   2325
   ClientTop       =   390
   ClientWidth     =   10245
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10245
      _ExtentX        =   18071
      _ExtentY        =   1508
      ButtonWidth     =   1773
      ButtonHeight    =   1349
      ToolTips        =   0   'False
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   9
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "客房登记"
            Key             =   "a"
            Object.Tag             =   ""
            ImageIndex      =   8
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "钟点房登记"
            Key             =   "b"
            Object.Tag             =   ""
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "消费入帐"
            Key             =   "c"
            Object.Tag             =   ""
            ImageIndex      =   6
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "退房登记"
            Key             =   "d"
            Object.Tag             =   ""
            ImageIndex      =   7
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "在店客人表"
            Key             =   "e"
            Object.Tag             =   ""
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "客房状态"
            Key             =   "f"
            Object.Tag             =   ""
            ImageIndex      =   4
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "更改密码"
            Key             =   "g"
            Object.Tag             =   ""
            ImageIndex      =   10
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "更新管理员"
            Key             =   "h"
            Object.Tag             =   ""
            ImageIndex      =   1
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "退出系统"
            Key             =   "i"
            Object.Tag             =   ""
            ImageIndex      =   9
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin VB.Data Data1 
      Align           =   1  'Align Top
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "G:\kzm的东东\bgkf\宾馆客房管理系统\KFGL.MDB"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "qxsz"
      Top             =   855
      Visible         =   0   'False
      Width           =   10245
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   4800
      Top             =   2850
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   6345
      Width           =   10245
      _ExtentX        =   18071
      _ExtentY        =   661
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   2
            AutoSize        =   1
            Object.Width           =   8043
            Key             =   "a"
            Object.Tag             =   "a"
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   3360
            MinWidth        =   3351
            Key             =   "b"
            Object.Tag             =   "b"
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Key             =   "c"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   3519
            MinWidth        =   3528
            Text            =   "设计者：易平刚"
            TextSave        =   "设计者：易平刚"
            Key             =   "d"
            Object.Tag             =   ""
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "新宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   2760
      Top             =   2760
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   10
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":3892
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":3B24
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":4776
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":53C8
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":601A
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":98AC
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":A4FE
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":D550
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":E1A2
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu fkgl 
      Caption         =   "[房客管理]"
      Begin VB.Menu kfdj 
         Caption         =   "客房登记"
      End
      Begin VB.Menu zdfdj 
         Caption         =   "钟点房登记"
      End
      Begin VB.Menu tfdj 
         Caption         =   "退房登记"
      End
      Begin VB.Menu krhf 
         Caption         =   "客人换房"
      End
      Begin VB.Menu ydfj 
         Caption         =   "预定房间"
      End
      Begin VB.Menu ydrz 
         Caption         =   "预定入住"
      End
      Begin VB.Menu bjyj 
         Caption         =   "补交押金"
      End
      Begin VB.Menu zfkrb 
         Caption         =   "在房客人表"
      End
   End
   Begin VB.Menu kfgl 
      Caption         =   "[客房管理］"
      Begin VB.Menu kfzt 
         Caption         =   "客房状态"
      End
      Begin VB.Menu kfbj 
         Caption         =   "客房编辑"
      End
   End
   Begin VB.Menu xfgl 
      Caption         =   "[消费管理］"
      Begin VB.Menu xfrz 
         Caption         =   "消费入帐"
      End
      Begin VB.Menu cfrz 
         Caption         =   "餐费入帐"
      End
      Begin VB.Menu hfrz 
         Caption         =   "话费入帐"
      End
   End
   Begin VB.Menu bbgl 
      Caption         =   "［报表管理］"
      Begin VB.Menu kfrzbb 
         Caption         =   "客房入住信息汇总报表"
      End
      Begin VB.Menu kfjzhzb 
         Caption         =   "客房信息汇总报表"
      End
   End
   Begin VB.Menu xtwh 
      Caption         =   "[系统维护］"
      Begin VB.Menu yhtj 
         Caption         =   "添加用户"
      End
      Begin VB.Menu mmsz 
         Caption         =   "密码设置"
      End
      Begin VB.Menu csh 
         Caption         =   "初始化"
      End
      Begin VB.Menu yhck 
         Caption         =   "用户查看"
      End
   End
   Begin VB.Menu xtxx 
      Caption         =   "[系统信息］"
      Begin VB.Menu bqxx 
         Caption         =   "版权信息"
      End
      Begin VB.Menu xtjs 
         Caption         =   "系统介绍"
      End
   End
   Begin VB.Menu tc 
      Caption         =   "［退出］"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub bjyj_Click()
Dim snd_filename As Integer
Dim snd_sync As Integer
Dim X As String
Dim i6 As Integer
X = sndPlaySound("start.wav", snd_filename + snd_sync)
    For i6 = 0 To 7
   Form1.Label1.Item(i6).Tag = "0"
   Next
   Form1.Label1.Item(0).Tag = "1"
        Form2.Show
        bjyjj.Show
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height - 90
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(4).Height
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(4).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(2).Top - Form1.Command1(2).Height
Form1.Frame1.Visible = True
Form1.Frame2.Visible = False
Form1.Frame3.Visible = False
Form1.Frame4.Visible = False
Form1.Frame5.Visible = False
Form1.Frame6.Visible = False
Form1.Frame1.Top = Form1.Command1(0).Top + Form1.Command1(0).Height - 150
Form1.Frame1.Height = Form1.ScaleHeight - Form1.Command1(0).Height * 6 + 160
Form1.Frame1.Left = Form1.Command1(0).Left
Form1.Frame1.Width = Form1.Command1(0).Width
Dim i As Integer
Dim comm As Integer
comm = Form1.ScaleTop + Form1.Command1(0).Height - 340
For i = 0 To 7
Form1.Label1(i).Top = comm
Form1.Label1(i).Left = Form1.Frame1.Left + 40
Form1.Label1(i).Width = Form1.Frame1.Width - 30
Form1.Label1(i).Height = 400
comm = comm + 400
Next
End Sub

Private Sub bqxx_Click()
Dim snd_filename As Integer
Dim snd_sync As Integer
Dim X As String
Dim i6 As Integer
 X = sndPlaySound("start.wav", snd_filename + snd_sync)
              For i6 = 19 To 20
 
   Form1.Label1.Item(19).Tag = "1"
       Form2.Show
        bjyjj.Hide
        bqxxx.Show
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
      
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(5).Height
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(4).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(0).Top + Form1.Command1(0).Height
Form1.Command1(2).Top = Form1.Command1(1).Top + Form1.Command1(1).Height
Form1.Command1(3).Top = Form1.Command1(2).Top + Form1.Command1(2).Height
Form1.Command1(4).Top = Form1.Command1(3).Top + Form1.Command1(3).Height
Form1.Command1(5).Top = Form1.Command1(4).Top + Form1.Command1(4).Height
Form1.Frame1.Visible = False
Form1.Frame2.Visible = False
Form1.Frame3.Visible = False
Form1.Frame4.Visible = False
Form1.Frame5.Visible = False