frmcheckout1.frm

课程设计,宾馆管理信息系统VB SQL,共享 另计算机毕业设计出售,全套 论文加程序答辩通过,历届

VERSION 5.00
Begin VB.Form frmCheckout1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "结算信息"
   ClientHeight    =   4596
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   7836
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4596
   ScaleWidth      =   7836
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame2 
      Caption         =   "顾客信息"
      Height          =   2412
      Left            =   3960
      TabIndex        =   19
      Top             =   120
      Width           =   3735
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   4
         Left            =   1320
         MaxLength       =   10
         TabIndex        =   8
         Top             =   1920
         Width           =   2172
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   3
         Left            =   1320
         MaxLength       =   3
         TabIndex        =   7
         Top             =   1440
         Width           =   1572
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   2
         Left            =   1320
         MaxLength       =   10
         TabIndex        =   6
         Top             =   1080
         Width           =   2172
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   1
         Left            =   1320
         MaxLength       =   18
         TabIndex        =   5
         Top             =   720
         Width           =   2175
      End
      Begin VB.TextBox txtItem 
         Height          =   270
         Index           =   0
         Left            =   1320
         MaxLength       =   5
         TabIndex        =   4
         Top             =   360
         Width           =   2175
      End
      Begin VB.Label Label2 
         Caption         =   "结  帐  时 间："
         Height          =   252
         Index           =   2
         Left            =   240
         TabIndex        =   25
         Top             =   1920
         Width           =   972
      End
      Begin VB.Label Label2 
         Caption         =   "顾 客  姓 名："
         Height          =   255
         Index           =   4
         Left            =   240
         TabIndex        =   24
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "身份证号码："
         Height          =   255
         Index           =   5
         Left            =   240
         TabIndex        =   23
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "折            扣："
         Height          =   252
         Index           =   6
         Left            =   240
         TabIndex        =   22
         Top             =   1440
         Width           =   972
      End
      Begin VB.Label Label2 
         Caption         =   "入 住 时 间："
         Height          =   252
         Index           =   11
         Left            =   240
         TabIndex        =   21
         Top             =   1080
         Width           =   972
      End
      Begin VB.Label Label2 
         Caption         =   "%"
         Height          =   252
         Index           =   8
         Left            =   3120
         TabIndex        =   20
         Top             =   1440
         Width           =   492
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "客房信息"
      Height          =   2412
      Left            =   120
      TabIndex        =   14
      Top             =   120
      Width           =   3735
      Begin VB.ComboBox cboItem 
         Height          =   288
         Index           =   0
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   480
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   288
         Index           =   1
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   960
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   288
         Index           =   2
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   1440
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   288
         Index           =   3
         Left            =   1320
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   1920
         Width           =   2175
      End
      Begin VB.Label Label2 
         Caption         =   "客房位置："
         Height          =   255
         Index           =   16
         Left            =   240
         TabIndex        =   18
         Top             =   1440
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "客房种类："
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   17
         Top             =   960
         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           =   3
         Left            =   240
         TabIndex        =   15
         Top             =   1920
         Width           =   975
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "备注信息"
      Height          =   1215
      Left            =   120
      TabIndex        =   13
      Top             =   2640
      Width           =   7575
      Begin VB.TextBox txtItem 
         Height          =   840
         Index           =   5
         Left            =   120
         TabIndex        =   9
         Top             =   240
         Width           =   7332
      End
   End
   Begin VB.TextBox txtNo 
      Height          =   270
      Left            =   1320
      TabIndex        =   12
      TabStop         =   0   'False
      Top             =   4080
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "返回 (&X)"
      Height          =   375
      Left            =   4680
      TabIndex        =   11
      Top             =   4080
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存 (&S)"
      Height          =   375
      Left            =   3240
      TabIndex        =   10
      Top             =   4080
      Width           =   1215
   End
End
Attribute VB_Name = "frmCheckout1"
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 sSql As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
    Dim intCount As Integer
    
  
    If gintCmode = 1 Then
        '初始化员工名称和ID
        If Index = 0 Then
            cboItem(1).Enabled = True
            cboItem(2).Enabled = True
            cboItem(3).Enabled = True
            cboItem(1).Clear
            cboItem(2).Clear