form4.frm

Hotel management project

VERSION 5.00
Begin VB.Form Form4 
   Caption         =   "HMS  Reports"
   ClientHeight    =   5355
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8775
   Icon            =   "Form4.frx":0000
   LinkTopic       =   "Form4"
   ScaleHeight     =   5355
   ScaleWidth      =   8775
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame4 
      Height          =   4455
      Left            =   2040
      TabIndex        =   35
      Top             =   960
      Width           =   6735
      Begin VB.ListBox List3 
         Height          =   3570
         Index           =   0
         ItemData        =   "Form4.frx":08CA
         Left            =   120
         List            =   "Form4.frx":08CC
         TabIndex        =   40
         Top             =   600
         Width           =   1455
      End
      Begin VB.ListBox List3 
         Height          =   3570
         Index           =   1
         ItemData        =   "Form4.frx":08CE
         Left            =   1560
         List            =   "Form4.frx":08D0
         TabIndex        =   39
         Top             =   600
         Width           =   1455
      End
      Begin VB.ListBox List3 
         Height          =   3570
         Index           =   2
         ItemData        =   "Form4.frx":08D2
         Left            =   3000
         List            =   "Form4.frx":08D4
         TabIndex        =   38
         Top             =   600
         Width           =   1215
      End
      Begin VB.ListBox List3 
         Height          =   3570
         Index           =   3
         ItemData        =   "Form4.frx":08D6
         Left            =   4200
         List            =   "Form4.frx":08D8
         TabIndex        =   37
         Top             =   600
         Width           =   1455
      End
      Begin VB.ListBox List3 
         Height          =   3570
         Index           =   4
         ItemData        =   "Form4.frx":08DA
         Left            =   5640
         List            =   "Form4.frx":08DC
         TabIndex        =   36
         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label7 
         Caption         =   "Name"
         Height          =   255
         Left            =   360
         TabIndex        =   45
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label17 
         Caption         =   "Address"
         Height          =   255
         Left            =   1920
         TabIndex        =   44
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label18 
         Caption         =   "Contact No"
         Height          =   255
         Left            =   3120
         TabIndex        =   43
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label19 
         Caption         =   "Reservation Date"
         Height          =   255
         Left            =   4200
         TabIndex        =   42
         Top             =   360
         Width           =   1335
      End
      Begin VB.Label Label20 
         Caption         =   "Confirmed"
         Height          =   255
         Left            =   5760
         TabIndex        =   41
         Top             =   360
         Width           =   855
      End
   End
   Begin VB.Data Data3 
      Caption         =   "Data3"
      Connect         =   "Access"
      DatabaseName    =   "db\hotel2.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   300
      Left            =   1320
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "reservation"
      Top             =   120
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.Frame Frame3 
      Height          =   4455
      Left            =   2040
      TabIndex        =   22
      Top             =   960
      Width           =   6735
      Begin VB.ListBox List2 
         Height          =   3765
         Index           =   5
         ItemData        =   "Form4.frx":08DE
         Left            =   5520
         List            =   "Form4.frx":08E0
         TabIndex        =   28
         Top             =   480
         Width           =   1095
      End
      Begin VB.ListBox List2 
         Height          =   3765
         Index           =   4
         ItemData        =   "Form4.frx":08E2
         Left            =   4680
         List            =   "Form4.frx":08E4
         TabIndex        =   27
         Top             =   480
         Width           =   855
      End
      Begin VB.ListBox List2 
         Height          =   3765
         Index           =   3
         ItemData        =   "Form4.frx":08E6
         Left            =   3360
         List            =   "Form4.frx":08E8
         TabIndex        =   26
         Top             =   480
         Width           =   1335
      End
      Begin VB.ListBox List2 
         Height          =   3765
         Index           =   2
         ItemData        =   "Form4.frx":08EA
         Left            =   2160
         List            =   "Form4.frx":08EC
         TabIndex        =   25
         Top             =   480
         Width           =   1215
      End
      Begin VB.ListBox List2 
         Height          =   3765
         Index           =   1
         ItemData        =   "Form4.frx":08EE
         Left            =   1560
         List            =   "Form4.frx":08F0
         TabIndex        =   24
         Top             =   480
         Width           =   615
      End
      Begin VB.ListBox List2 
         Height          =   3765
         Index           =   0
         ItemData        =   "Form4.frx":08F2
         Left            =   120
         List            =   "Form4.frx":08F4
         TabIndex        =   23
         Top             =   480
         Width           =   1455
      End
      Begin VB.Label Label16 
         Caption         =   "Amount"
         Height          =   255
         Left            =   5760
         TabIndex        =   34
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label15 
         Caption         =   "Duration"
         Height          =   255
         Left            =   4800
         TabIndex        =   33
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label14 
         Caption         =   "Checkout date"
         Height          =   255
         Left            =   3480
         TabIndex        =   32
         Top             =   240
         Width           =   1095
      End
      Begin VB.Label Label13 
         Caption         =   "Checkin Date"
         Height          =   255
         Left            =   2280
         TabIndex        =   31
         Top             =   240
         Width           =   1095
      End
      Begin VB.Label Label12 
         Caption         =   "Room "
         Height          =   255
         Left            =   1560
         TabIndex        =   30
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label11 
         Caption         =   "Name"
         Height          =   255
         Left            =   480
         TabIndex        =   29
         Top             =   240
         Width           =   615
      End
   End
   Begin VB.Frame Frame2 
      Height          =   4455
      Left            =   2040
      TabIndex        =   9
      Top             =   960
      Width           =   6735
      Begin VB.ListBox List1 
         Height          =   3765
         Index           =   5
         ItemData        =   "Form4.frx":08F6
         Left            =   2520
         List            =   "Form4.frx":08F8
         TabIndex        =   20
         Top             =   480
         Width           =   615
      End
      Begin VB.ListBox List1 
         Height          =   3765
         Index           =   0
         ItemData        =   "Form4.frx":08FA
         Left            =   120
         List            =   "Form4.frx":08FC
         TabIndex        =   14
         Top             =   480
         Width           =   1335
      End
      Begin VB.ListBox List1 
         Height          =   3765
         Index           =   1
         ItemData        =   "Form4.frx":08FE
         Left            =   1440
         List            =   "Form4.frx":0900
         TabIndex        =   13
         Top             =   480
         Width           =   1095
      End
      Begin VB.ListBox List1 
         Height          =   3765
         Index           =   2
         ItemData        =   "Form4.frx":0902
         Left            =   3120
         List            =   "Form4.frx":0904
         TabIndex        =   12
         Top             =   480
         Width           =   1575
      End
      Begin VB.ListBox List1 
         Height          =   3765
         Index           =   3
         ItemData        =   "Form4.frx":0906
         Left            =   4680
         List            =   "Form4.frx":0908
         TabIndex        =   11
         Top             =   480
         Width           =   1095
      End
      Begin VB.ListBox List1 
         Height          =   3765
         Index           =   4
         ItemData        =   "Form4.frx":090A
         Left            =   5760
         List            =   "Form4.frx":090C
         TabIndex        =   10
         Top             =   480
         Width           =   855
      End
      Begin VB.Label Label10 
         Caption         =   "Age"
         Height          =   255
         Left            =   2640