checkoutform.frm

实现了

VERSION 5.00
Begin VB.Form frmcheckout 
   Caption         =   "Form1"
   ClientHeight    =   6330
   ClientLeft      =   165
   ClientTop       =   270
   ClientWidth     =   9660
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6330
   ScaleWidth      =   9660
   Begin VB.CommandButton CmdClose 
      Caption         =   "Close"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5040
      TabIndex        =   12
      Top             =   5040
      Width           =   1695
   End
   Begin VB.CommandButton CmdCheckOut 
      Caption         =   "Check Out"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2760
      TabIndex        =   11
      Top             =   5040
      Width           =   1815
   End
   Begin VB.TextBox txtNoofDaty 
      Height          =   495
      Left            =   2640
      TabIndex        =   10
      Top             =   3600
      Width           =   3135
   End
   Begin VB.TextBox txtCheckDate 
      Height          =   495
      Left            =   2640
      TabIndex        =   9
      Top             =   3000
      Width           =   3135
   End
   Begin VB.TextBox TxtNoofPeople 
      Height          =   495
      Left            =   2640
      TabIndex        =   8
      Top             =   2400
      Width           =   3135
   End
   Begin VB.ComboBox DCCustomerName 
      Height          =   300
      Left            =   2640
      TabIndex        =   7
      Top             =   1320
      Width           =   3135
   End
   Begin VB.TextBox TxtRoomNo 
      Height          =   495
      Left            =   2640
      TabIndex        =   6
      Top             =   1800
      Width           =   3135
   End
   Begin VB.Label LblNoofDatys 
      Caption         =   "No.of Datys:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   240
      TabIndex        =   5
      Top             =   3720
      Width           =   2055
   End
   Begin VB.Label LblCheckinDate 
      Caption         =   "Check in Date:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   4
      Top             =   3120
      Width           =   2295
   End
   Begin VB.Label LblNOofPeople 
      Caption         =   "No.of People:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   240
      TabIndex        =   3
      Top             =   2520
      Width           =   2295
   End
   Begin VB.Label LblRoonNo 
      Caption         =   "Room No.:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   240
      TabIndex        =   2
      Top             =   1920
      Width           =   2175
   End
   Begin VB.Label LblCname 
      Caption         =   "Customer Name:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   1320
      Width           =   2175
   End
   Begin VB.Label LblCheckoutForm 
      Caption         =   "Check Out Form"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   2640
      TabIndex        =   0
      Top             =   240
      Width           =   2895
   End
End
Attribute VB_Name = "frmcheckout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'General Declarations
Dim rs As ADODB.Recordset
Dim objCheckout As Customer.ClsCheckOut
Private Sub CmdCheckOut_Click()
Set objCheckout = New Customer.ClsCheckOut
  objCheckout.CustId = DCCustomerName.BoundText
   objCheckout.RoomNo = Val(TxtRoomNo.Text)
   objCheckout.UpdateReservation

TxtRoomNo.Text = ""
TxtNoofPeople.Text = ""
txtCheckDate.Text = ""
txtNoofDaty.Text = ""
   AdodcCust.Refresh
 
End Sub

Private Sub CmdClose_Click()
   Unload Me
End Sub

Private Sub DCCustomerName_Change()
Dim str As String
'populating  the fields based on the selected customer name
  Set rs = New ADODB.Recordset
    str = "select * from Reservation where cust_id = ' " & DCCustomerName.BoundText & " ' "
    rs.Open str, cn
    TxtRoomNo.Text = rs!Room_no
    TxtNoofPeople.Text = rs!no_of_people
    txtCheckDate.Text = rs!check_in_date
    txtNoofDaty.Text = rs!no_of_days
End Sub

Private Sub Form_Initialize()
  Getconnected

End Sub