frm顾客换房.frm

可以完成宾馆的日常管理功能,例如订房,登记,入住,结帐,和打印报表等

VERSION 5.00
Begin VB.Form frm顾客换房 
   Caption         =   "顾客换房"
   ClientHeight    =   4485
   ClientLeft      =   60
   ClientTop       =   465
   ClientWidth     =   4575
   Icon            =   "frm顾客换房.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   4485
   ScaleWidth      =   4575
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000013&
      Height          =   4455
      Left            =   0
      ScaleHeight     =   4395
      ScaleWidth      =   5715
      TabIndex        =   0
      Top             =   0
      Width           =   5775
      Begin VB.PictureBox Picture2 
         BackColor       =   &H80000013&
         Height          =   3135
         Left            =   480
         ScaleHeight     =   3075
         ScaleWidth      =   3435
         TabIndex        =   3
         Top             =   240
         Width           =   3495
         Begin VB.Frame Frame1 
            BackColor       =   &H80000013&
            Caption         =   "更换房间"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   2775
            Left            =   120
            TabIndex        =   4
            Top             =   120
            Width           =   3255
            Begin VB.ComboBox Combo1 
               Height          =   300
               Left            =   1440
               Style           =   2  'Dropdown List
               TabIndex        =   7
               Top             =   360
               Width           =   1335
            End
            Begin VB.ComboBox Combo2 
               Height          =   300
               Left            =   1440
               Style           =   2  'Dropdown List
               TabIndex        =   6
               Top             =   1200
               Width           =   1335
            End
            Begin VB.ComboBox Combo3 
               Height          =   300
               Left            =   1440
               Style           =   2  'Dropdown List
               TabIndex        =   5
               Top             =   2040
               Width           =   1335
            End
            Begin VB.Label Label1 
               BackColor       =   &H80000013&
               Caption         =   "原房间号："
               Height          =   255
               Left            =   360
               TabIndex        =   10
               Top             =   480
               Width           =   1215
            End
            Begin VB.Label Label2 
               BackColor       =   &H80000013&
               Caption         =   "顾客姓名："
               Height          =   375
               Left            =   360
               TabIndex        =   9
               Top             =   1320
               Width           =   1095
            End
            Begin VB.Label Label3 
               BackColor       =   &H80000013&
               Caption         =   "新房间号："
               Height          =   255
               Left            =   360
               TabIndex        =   8
               Top             =   2160
               Width           =   1335
            End
         End
      End
      Begin VB.CommandButton Command2 
         BackColor       =   &H00FF8080&
         Height          =   615
         Left            =   2640
         Picture         =   "frm顾客换房.frx":0E42
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   3600
         Width           =   615
      End
      Begin VB.CommandButton Command1 
         BackColor       =   &H0000FFFF&
         Default         =   -1  'True
         Height          =   615
         Left            =   1200
         Picture         =   "frm顾客换房.frx":114C
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   3600
         Width           =   615
      End
   End
End
Attribute VB_Name = "frm顾客换房"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
If Combo1.Text = Combo1.Text Then
Combo2.Clear

rs.Open "select * from 顾客登记表 where 客房编号= '" & Combo1.Text & "'", cn, 1, 3
Combo2.AddItem (rs.Fields(6))
rs.Close
End If
End Sub

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
If Combo1.Text = "" Then
   MsgBox "请选择要更换的房间编号！！！"
ElseIf Combo2.Text = "" Then
   MsgBox "请选择顾客姓名！！！"
ElseIf Combo3.Text = "" Then
   MsgBox "请选择新的房间号码！！！"
Else
   rs.Open "select * from 顾客登记表 where 客房编号= '" & Combo1.Text & "'", cn, 1, 3
   rs.Fields(0) = Combo3.Text
   rs.Update
   rs.Close
   rs.Open "select * from 客房信息表 where 客房编号 = '" & Combo1.Text & "'", cn, 1, 3
   rs.Fields(11) = "空房"
   rs.Update
   rs.Close
   rs.Open "select * from 客房信息表 where 客房编号 = '" & Combo3.Text & "'", cn, 1, 3
   rs.Fields(11) = "入住"
   rs.Fields(10) = "否"
   rs.Update
   rs.Close

MsgBox "房间更换成功！！！"
End If
End Sub

Private Sub Command2_Click()
Dim i As Integer
i = MsgBox("是否确认退出？", vbYesNo, "提示")
If i = vbYes Then
Unload Me
End If

End Sub

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
rs.Open "select * from 顾客登记表", cn, 1, 3
While Not rs.EOF
Combo1.AddItem (rs.Fields(0))
rs.MoveNext
Wend
rs.Close

 rs.Open "select * from 客房信息表 where 是否被预定= '否' and 房间状态 = '空房'", cn, 1, 3
While Not rs.EOF
Combo3.AddItem (rs.Fields(0))
rs.MoveNext
Wend
rs.Close
End Sub