frmrooms.frm

一个国外的宾馆管理程序

         End
         Begin VB.Label lblSS2 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   1  'Fixed Single
            Height          =   255
            Left            =   1080
            TabIndex        =   5
            Top             =   720
            Width           =   2415
         End
         Begin VB.Label lblSS1 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   1  'Fixed Single
            Height          =   255
            Left            =   1080
            TabIndex        =   4
            Top             =   360
            Width           =   2415
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            Caption         =   "Room 3"
            Height          =   195
            Left            =   240
            TabIndex        =   3
            Top             =   1080
            Width           =   555
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            Caption         =   "Room 2"
            Height          =   195
            Left            =   240
            TabIndex        =   2
            Top             =   720
            Width           =   555
         End
      End
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   5760
      Top             =   120
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   2
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmRooms.frx":08CA
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmRooms.frx":11A6
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   795
      Left            =   0
      TabIndex        =   45
      Top             =   0
      Width           =   7815
      _ExtentX        =   13785
      _ExtentY        =   1402
      ButtonWidth     =   1852
      ButtonHeight    =   1349
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList2"
      HotImageList    =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   2
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   " Refresh "
            Object.ToolTipText     =   "Refresh This Window"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Close"
            Object.ToolTipText     =   "Close This Window"
            ImageIndex      =   2
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin VB.Data Data2 
         Caption         =   "Data2"
         Connect         =   "Access"
         DatabaseName    =   ""
         DefaultCursorType=   0  'DefaultCursor
         DefaultType     =   2  'UseODBC
         EOFAction       =   2  'Add New
         Exclusive       =   0   'False
         Height          =   375
         Left            =   1920
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   0  'Table
         RecordSource    =   ""
         Top             =   360
         Visible         =   0   'False
         Width           =   1815
      End
      Begin VB.Timer Timer1 
         Interval        =   1
         Left            =   5160
         Top             =   120
      End
   End
End
Attribute VB_Name = "frmRooms"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Top = 0
Left = 0
Data1.DatabaseName = App.Path + "\" + "Status.mdb"
Data1.RecordSource = "Rooms"
Data2.DatabaseName = App.Path + "\" + "Rooms.mdb"
Data2.RecordSource = "Rate"
End Sub

Private Sub Timer1_Timer()
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "1"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s1 = .Fields("Status")
    End With
    If s1 = "A" Then lblSS1 = "Available"
    If s1 = "R" Then lblSS1 = "Reserved"
    If s1 = "U" Then lblSS1 = "Used"
    If s1 = "O" Then lblSS1 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "2"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s2 = .Fields("Status")
    End With
    If s2 = "A" Then lblSS2 = "Available"
    If s2 = "R" Then lblSS2 = "Reserved"
    If s2 = "U" Then lblSS2 = "Used"
    If s2 = "O" Then lblSS2 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "3"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s3 = .Fields("Status")
    End With
    If s3 = "A" Then lblSS3 = "Available"
    If s3 = "R" Then lblSS3 = "Reserved"
    If s3 = "U" Then lblSS3 = "Used"
    If s3 = "O" Then lblSS3 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "4"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s4 = .Fields("Status")
    End With
    If s4 = "A" Then lblSD1 = "Available"
    If s4 = "R" Then lblSD1 = "Reserved"
    If s4 = "U" Then lblSD1 = "Used"
    If s4 = "O" Then lblSD1 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "5"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s5 = .Fields("Status")
    End With
    If s5 = "A" Then lblSD2 = "Available"
    If s5 = "R" Then lblSD2 = "Reserved"
    If s5 = "U" Then lblSD2 = "Used"
    If s5 = "O" Then lblSD2 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "6"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s6 = .Fields("Status")
    End With
    If s6 = "A" Then lblSD3 = "Available"
    If s6 = "R" Then lblSD3 = "Reserved"
    If s6 = "U" Then lblSD3 = "Used"
    If s6 = "O" Then lblSD3 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "7"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s7 = .Fields("Status")
    End With
    If s7 = "A" Then lblVS1 = "Available"
    If s7 = "R" Then lblVS1 = "Reserved"
    If s7 = "U" Then lblVS1 = "Used"
    If s7 = "O" Then lblVS1 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "8"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s8 = .Fields("Status")
    End With
    If s8 = "A" Then lblVS2 = "Available"
    If s8 = "R" Then lblVS2 = "Reserved"
    If s8 = "U" Then lblVS2 = "Used"
    If s8 = "O" Then lblVS2 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "9"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s9 = .Fields("Status")
    End With
    If s9 = "A" Then lblVS3 = "Available"
    If s9 = "R" Then lblVS3 = "Reserved"
    If s9 = "U" Then lblVS3 = "Used"
    If s9 = "O" Then lblVS3 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "10"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s10 = .Fields("Status")
    End With
    If s10 = "A" Then lblVD1 = "Available"
    If s10 = "R" Then lblVD1 = "Reserved"
    If s10 = "U" Then lblVD1 = "Used"
    If s10 = "O" Then lblVD1 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "11"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s11 = .Fields("Status")
    End With
    If s11 = "A" Then lblVD2 = "Available"
    If s11 = "R" Then lblVD2 = "Reserved"
    If s11 = "U" Then lblVD2 = "Used"
    If s11 = "O" Then lblVD2 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "12"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s12 = .Fields("Status")
    End With
    If s12 = "A" Then lblVD3 = "Available"
    If s12 = "R" Then lblVD3 = "Reserved"
    If s12 = "U" Then lblVD3 = "Used"
    If s12 = "O" Then lblVD3 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "13"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s13 = .Fields("Status")
    End With
    If s13 = "A" Then lblFD1 = "Available"
    If s13 = "R" Then lblFD1 = "Reserved"
    If s13 = "U" Then lblFD1 = "Used"
    If s13 = "O" Then lblFD1 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "14"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s14 = .Fields("Status")
    End With
    If s14 = "A" Then lblFD2 = "Available"
    If s14 = "R" Then lblFD2 = "Reserved"
    If s14 = "U" Then lblFD2 = "Used"
    If s14 = "O" Then lblFD2 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "15"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s15 = .Fields("Status")
    End With
    If s15 = "A" Then lblFD3 = "Available"
    If s15 = "R" Then lblFD3 = "Reserved"
    If s15 = "U" Then lblFD3 = "Used"
    If s15 = "O" Then lblFD3 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "16"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s16 = .Fields("Status")
    End With
    If s16 = "A" Then lblFT1 = "Available"
    If s16 = "R" Then lblFT1 = "Reserved"
    If s16 = "U" Then lblFT1 = "Used"
    If s16 = "O" Then lblFT1 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "17"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s17 = .Fields("Status")
    End With
    If s17 = "A" Then lblFT2 = "Available"
    If s17 = "R" Then lblFT2 = "Reserved"
    If s17 = "U" Then lblFT2 = "Used"
    If s17 = "O" Then lblFT2 = "Available"
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "18"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        s18 = .Fields("Status")
    End With
    If s18 = "A" Then lblFT3 = "Available"
    If s18 = "R" Then lblFT3 = "Reserved"
    If s18 = "U" Then lblFT3 = "Used"
    If s18 = "O" Then lblFT3 = "Available"
End If

With Data2.Recordset
    .Index = "seeker"
    .Seek "=", "StandardSingle"
End With
If Data2.Recordset.NoMatch = False Then
    With Data2.Recordset
        frStanSingle.Caption = "Single [ " & .Fields("PerDay") & " / Day ]"
    End With
End If
With Data2.Recordset
    .Index = "seeker"
    .Seek "=", "StandardDouble"
End With
If Data2.Recordset.NoMatch = False Then
    With Data2.Recordset
        frStanDouble.Caption = "Double [ " & .Fields("PerDay") & " / Day ]"
    End With
End If
With Data2.Recordset
    .Index = "seeker"
    .Seek "=", "VIPSingle"
End With
If Data2.Recordset.NoMatch = False Then
    With Data2.Recordset
        frVipSingle.Caption = "Single [ " & .Fields("PerDay") & " / Day ]"
    End With
End If
With Data2.Recordset
    .Index = "seeker"
    .Seek "=", "VIPDouble"
End With
If Data2.Recordset.NoMatch = False Then
    With Data2.Recordset
        frVipDouble.Caption = "Double [ " & .Fields("PerDay") & " / Day ]"
    End With
End If
With Data2.Recordset
    .Index = "seeker"
    .Seek "=", "FamilyDouble"
End With
If Data2.Recordset.NoMatch = False Then
    With Data2.Recordset
        frFamilyDouble.Caption = "Double [ " & .Fields("PerDay") & " / Day ]"
    End With
End If
With Data2.Recordset
    .Index = "seeker"
    .Seek "=", "FamilyTriple"
End With
If Data2.Recordset.NoMatch = False Then
    With Data2.Recordset
        frFamilyTriple.Caption = "Triple [ " & .Fields("PerDay") & " / Day ]"
    End With
End If
Timer1.Enabled = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 1
        Timer1.Enabled = True
    Case 2
        Unload Me
End Select
End Sub