frmbookin1.frm

简单的酒店管理程序。

VERSION 5.00
Begin VB.Form frmBookin1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "订房信息"
   ClientHeight    =   4368
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   8112
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4368
   ScaleWidth      =   8112
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox txtNo 
      Height          =   270
      Left            =   2520
      TabIndex        =   23
      TabStop         =   0   'False
      Top             =   3960
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Frame Frame2 
      Caption         =   "顾客信息"
      Height          =   3492
      Left            =   4080
      TabIndex        =   18
      Top             =   240
      Width           =   3735
      Begin VB.TextBox txtItem 
         Height          =   1440
         Index           =   4
         Left            =   1320
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   9
         Top             =   1800
         Width           =   2175
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   0
         Left            =   1320
         MaxLength       =   5
         TabIndex        =   5
         Top             =   360
         Width           =   2175
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   1
         Left            =   1320
         MaxLength       =   18
         TabIndex        =   6
         Top             =   720
         Width           =   2175
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   2
         Left            =   1320
         MaxLength       =   10
         TabIndex        =   7
         Top             =   1080
         Width           =   2172
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   3
         Left            =   1320
         MaxLength       =   3
         TabIndex        =   8
         Top             =   1440
         Width           =   1572
      End
      Begin VB.Label Label2 
         Caption         =   "%"
         Height          =   252
         Index           =   8
         Left            =   3120
         TabIndex        =   25
         Top             =   1440
         Width           =   492
      End
      Begin VB.Label Label2 
         Caption         =   "备 注 信 息："
         Height          =   252
         Index           =   7
         Left            =   240
         TabIndex        =   24
         Top             =   1800
         Width           =   972
      End
      Begin VB.Label Label2 
         Caption         =   "入 住 时 间："
         Height          =   252
         Index           =   11
         Left            =   240
         TabIndex        =   22
         Top             =   1080
         Width           =   972
      End
      Begin VB.Label Label2 
         Caption         =   "折            扣："
         Height          =   252
         Index           =   6
         Left            =   240
         TabIndex        =   21
         Top             =   1440
         Width           =   972
      End
      Begin VB.Label Label2 
         Caption         =   "身份证号码："
         Height          =   255
         Index           =   5
         Left            =   240
         TabIndex        =   20
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "顾 客  姓 名："
         Height          =   255
         Index           =   4
         Left            =   240
         TabIndex        =   19
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "客房信息"
      Height          =   3492
      Left            =   240
      TabIndex        =   12
      Top             =   240
      Width           =   3735
      Begin VB.TextBox txtItem 
         Height          =   960
         Index           =   5
         Left            =   1320
         MaxLength       =   5
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   4
         Top             =   2400
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   300
         Index           =   3
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   1920
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   300
         Index           =   2
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   1440
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   300
         Index           =   1
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   960
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   300
         Index           =   0
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   480
         Width           =   2175
      End
      Begin VB.Label Label2 
         Caption         =   "客房单价："
         Height          =   255
         Index           =   3
         Left            =   240
         TabIndex        =   17
         Top             =   1920
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "客房编号："
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   16
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "客房种类："
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   15
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "客房备注："
         Height          =   255
         Index           =   2
         Left            =   240
         TabIndex        =   14
         Top             =   2400
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "客房位置："
         Height          =   255
         Index           =   16
         Left            =   240
         TabIndex        =   13
         Top             =   1440
         Width           =   975
      End
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "返回 (&X)"
      Height          =   375
      Left            =   6120
      TabIndex        =   11
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存 (&S)"
      Height          =   375
      Left            =   4680
      TabIndex        =   10
      Top             =   3840
      Width           =   1215
   End
End
Attribute VB_Name = "frmBookin1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'是否改动过记录，ture为改过
Dim mblChange As Boolean
Dim mrc As ADODB.Recordset
Public txtSQL As String


Private Sub cboItem_Change(Index As Integer)
    '有变化设置gblchange
    
    mblChange = True
    
End Sub





Private Sub cboItem_Click(Index As Integer)
    Dim mrcc As ADODB.Recordset
    Dim intCount As Integer
    Dim MsgText As String
    
    If gintBmode = 1 Then