sourcecode.txt

一个国外的宾馆管理程序

                .Fields("I") = ""
                .Fields("Status") = "A"
                .Fields("DaysIncurred") = ""
                .Fields("DateOut") = ""
                .Fields("Charge") = "0.0"
            End With
            dtStatus2.Recordset.Update
            With dtStatus2.Recordset
                txtName2 = .Fields("Name")
                txtAddress2 = .Fields("Address")
                txtAge2 = .Fields("Age")
                cmdGender2 = .Fields("Gender")
                txtNationality2 = .Fields("Nationality")
                lblDateReserved2 = .Fields("DateReserved")
                lblDateIn2 = .Fields("DateIn")
                lblDateOut2 = .Fields("DateOut")
                lblDaysIncurred2 = .Fields("DaysIncurred")
                lblCharge2 = .Fields("Charge")
            End With
            Timer1.Enabled = True
            frmRooms.Timer1.Enabled = True
        End If
    '***** Exit *****
    Case 6
        Unload Me
End Select
End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    '***** Reserve *****
    Case 1
        If txtName3 = "" Or _
            txtAddress3 = "" Or _
            txtAge3 = "" Or _
            txtNationality3 = "" Then
            MsgBox "Please fill in the form properly", vbInformation, "Form Error"
                txtName3.SetFocus
            Exit Sub
        Else
            lblDateReserved3 = Format(Date, "mmmm dd, yyyy")
            With dtStatus3.Recordset
                .Index = "seeker"
                .Seek "=", "6"
            End With
            If dtStatus3.Recordset.NoMatch = False Then
                dtStatus3.Recordset.Edit
                With dtStatus3.Recordset
                    .Fields("Name") = txtName3
                    .Fields("Address") = txtAddress3
                    .Fields("Age") = txtAge3
                    .Fields("Nationality") = txtNationality3
                    .Fields("DateReserved") = lblDateReserved3
                    .Fields("Gender") = cmdGender3
                    .Fields("Status") = "R"
                    .Fields("DateIn") = ""
                    .Fields("DateOut") = ""
                    .Fields("I") = ""
                    .Fields("Charge") = "0.0"
                    .Fields("DaysIncurred") = ""
                End With
                dtStatus3.Recordset.Update
                Timer1.Enabled = True
                frmRooms.Timer1.Enabled = True
            End If
        End If
    '***** Check In *****
    Case 2
        If txtName3 = "" Or _
            txtAddress3 = "" Or _
            txtAge3 = "" Or _
            txtNationality3 = "" Then
            MsgBox "Please fill in the form properly", vbInformation, "Form Error"
                txtName3.SetFocus
            Exit Sub
        Else
            With dtStatus3.Recordset
                .Index = "seeker"
                .Seek "=", "6"
            End With
            If dtStatus3.Recordset.NoMatch = False Then
                lblDateIn3 = Format(Date, "mmmm dd, yyyy")
                dtStatus3.Recordset.Edit
                With dtStatus3.Recordset
                    .Fields("Name") = txtName3
                    .Fields("Address") = txtAddress3
                    .Fields("Age") = txtAge3
                    .Fields("Nationality") = txtNationality3
                    .Fields("DateReserved") = lblDateReserved3
                    .Fields("Gender") = cmdGender3
                    .Fields("Status") = "U"
                    .Fields("DateIn") = lblDateIn3
                    .Fields("DateOut") = ""
                    .Fields("I") = Format(Date, "dd")
                    .Fields("Charge") = "0.0"
                    .Fields("DaysIncurred") = ""
                End With
                dtStatus3.Recordset.Update
                Timer1.Enabled = True
                frmRooms.Timer1.Enabled = True
            End If
        End If
    '***** Check Out *****
    Case 3
        With dtStatus3.Recordset
            .Index = "seeker"
            .Seek "=", "6"
        End With
        If dtStatus3.Recordset.NoMatch = False Then
            lblDateOut3 = Format(Date, "mmmm dd, yyyy")
            o6 = Format(Date, "dd")
            With dtStatus3.Recordset
                i6 = .Fields("I")
            End With
            c6 = o6 - i6
            With Data2.Recordset
                .Index = "seeker"
                .Seek "=", "StandardDouble"
            End With
            If Data2.Recordset.NoMatch = False Then
                With Data2.Recordset
                rSD = .Fields("PerDay")
                End With
            End If
            If c6 = 0 Then
                c6 = rSD
                lblDaysIncurred3 = 1
            Else
                lblDaysIncurred3 = c6
                c6 = c6 * rSD
            End If
            lblCharge3 = c6
            dtStatus3.Recordset.Edit
            With dtStatus3.Recordset
                .Fields("Name") = txtName3
                .Fields("Address") = txtAddress3
                .Fields("Age") = txtAge3
                .Fields("Gender") = cmdGender3
                .Fields("Nationality") = txtNationality3
                .Fields("DateReserved") = lblDateReserved3
                .Fields("DateIn") = lblDateIn3
                .Fields("DateOut") = lblDateOut3
                .Fields("DaysIncurred") = lblDaysIncurred3
                .Fields("Charge") = c6
                .Fields("Status") = "O"
            End With
            dtStatus3.Recordset.Update
            Data1.Recordset.AddNew
            With Data1.Recordset
                .Fields("RoomNUmber") = "3"
                .Fields("RoomType") = "Standard [Double]"
                .Fields("Name") = txtName3
                .Fields("Address") = txtAddress3
                .Fields("Age") = txtAge3
                .Fields("Gender") = cmdGender3
                .Fields("Nationality") = txtNationality3
                .Fields("DateReserved") = lblDateReserved3
                .Fields("DateIn") = lblDateIn3
                .Fields("DateOut") = lblDateOut3
                .Fields("DaysIncurred") = lblDaysIncurred3
                .Fields("RatePerDay") = rSD
                .Fields("Charge") = c6
            End With
            Data1.Recordset.Update
            Timer1.Enabled = True
            frmRooms.Timer1.Enabled = True
        End If
    '***** New *****
    Case 4
        frRoom3.Enabled = True
        Toolbar3.Buttons(1).Enabled = True
        Toolbar3.Buttons(2).Enabled = True
        Toolbar3.Buttons(4).Enabled = False
        Toolbar3.Buttons(5).Enabled = True
        txtName3.SetFocus
        With dtStatus3.Recordset
            .Index = "seeker"
            .Seek "=", "6"
        End With
        If dtStatus3.Recordset.NoMatch = False Then
            dtStatus3.Recordset.Edit
            With dtStatus3.Recordset
                .Fields("Name") = ""
                .Fields("Address") = ""
                .Fields("Age") = ""
                .Fields("Gender") = "Male"
                .Fields("Nationality") = ""
                .Fields("DateReserved") = ""
                .Fields("DateIn") = ""
                .Fields("DateOut") = ""
                .Fields("DaysIncurred") = ""
                .Fields("Charge") = "0.0"
                .Fields("I") = ""
                .Fields("Status") = "A"
            End With
            dtStatus3.Recordset.Update
            With dtStatus3.Recordset
                txtName3 = .Fields("Name")
                txtAddress3 = .Fields("Address")
                txtAge3 = .Fields("Age")
                cmdGender3 = .Fields("Gender")
                txtNationality3 = .Fields("Nationality")
                lblDateReserved3 = .Fields("DateReserved")
                lblDateIn3 = .Fields("DateIn")
                lblDateOut3 = .Fields("DateOut")
                lblDaysIncurred3 = ""
                lblCharge3 = .Fields("Charge")
            End With
        End If
    '****** Cancel *****
    Case 5
        With dtStatus3.Recordset
            .Index = "seeker"
            .Seek "=", "6"
        End With
        If dtStatus3.Recordset.NoMatch = False Then
            dtStatus3.Recordset.Edit
            With dtStatus3.Recordset
                .Fields("Name") = ""
                .Fields("Address") = ""
                .Fields("Age") = ""
                .Fields("Gender") = "Male"
                .Fields("Nationality") = ""
                .Fields("DateReserved") = ""
                .Fields("DateIn") = ""
                .Fields("I") = ""
                .Fields("Status") = "A"
                .Fields("DaysIncurred") = ""
                .Fields("DateOut") = ""
                .Fields("Charge") = "0.0"
            End With
            dtStatus3.Recordset.Update
            With dtStatus3.Recordset
                txtName3 = .Fields("Name")
                txtAddress3 = .Fields("Address")
                txtAge3 = .Fields("Age")
                cmdGender3 = .Fields("Gender")
                txtNationality3 = .Fields("Nationality")
                lblDateReserved3 = .Fields("DateReserved")
                lblDateIn3 = .Fields("DateIn")
                lblDateOut3 = .Fields("DateOut")
                lblDaysIncurred3 = .Fields("DaysIncurred")
                lblCharge3 = .Fields("Charge")
            End With
            Timer1.Enabled = True
            frmRooms.Timer1.Enabled = True
        End If
    '***** Exit *****
    Case 6
        Unload Me
End Select
End Sub



Private Sub Form_Load()
Height = 6750
Top = 0
Left = 0
SSTab1.Tab = 0
dtStatus1.DatabaseName = App.Path + "\" + "Status.mdb"
dtStatus2.DatabaseName = App.Path + "\" + "Status.mdb"
dtStatus3.DatabaseName = App.Path + "\" + "Status.mdb"
Data1.DatabaseName = App.Path + "\" + "MasterList.mdb"
Data2.DatabaseName = App.Path + "\" + "Rooms.mdb"
dtStatus1.RecordSource = "Rooms"
dtStatus2.RecordSource = "Rooms"
dtStatus3.RecordSource = "Rooms"
Data1.RecordSource = "Clients"
Data2.RecordSource = "Rate"
End Sub

Private Sub Timer1_Timer()
'************************* Room 1 ****************************
With dtStatus1.Recordset
    .Index = "seeker"
    .Seek "=", "1"
End With
If dtStatus1.Recordset.NoMatch = False Then
    With dtStatus1.Recordset
        s1 = .Fields("Status")
    End With
End If
SSTab1.TabCaption(0) = "Room 1" & " [" & s1 & "]"
If s1 = "A" Then
    Toolbar1.Buttons(1).Enabled = False
    Toolbar1.Buttons(2).Enabled = False
    Toolbar1.Buttons(3).Enabled = False
    Toolbar1.Buttons(4).Enabled = True
    Toolbar1.Buttons(5).Enabled = False
    frRoom1.Enabled = False
    With dtStatus1.Recordset
        txtName1 = .Fields("Name")
        txtAddress1 = .Fields("Address")
        txtAge1 = .Fields("Age")
        cmdGender1 = .Fields("Gender")
        txtNationality1 = .Fields("Nationality")
        lblDateReserved1 = .Fields("DateReserved")
        lblDateIn1 = .Fields("DateIn")
        lblDateOut1 = .Fields("DateOut")
        lblCharge1 = .Fields("Charge")
        lblDaysIncurred1 = .Fields("DaysIncurred")
    End With
End If
If s1 = "R" Then
    Toolbar1.Buttons(1).Enabled = False
    Toolbar1.Buttons(2).Enabled = True
    Toolbar1.Buttons(3).Enabled = False
    Toolbar1.Buttons(4).Enabled = False
    Toolbar1.Buttons(5).Enabled = True
    frRoom1.Enabled = False
    With dtStatus1.Recordset
        .Index = "seeker"
        .Seek "=", "1"
    End With
    If dtStatus1.Recordset.NoMatch = False Then
        With dtStatus1.Recordset
            txtName1 = .Fields("Name")
            txtAddress1 = .Fields("Address")
            txtAge1 = .Fields("Age")
            cmdGender1 = .Fields("Gender")
            txtNationality1 = .Fields("Nationality")
            lblDateReserved1 = .Fields("DateReserved")
        End With
    End If
End If
If s1 = "U" Then
    Toolbar1.Buttons(1).Enabled = False
    Toolbar1.Buttons(2).Enabled = False
    Toolbar1.Buttons(3).Enabled = True
    Toolbar1.Buttons(4).Enabled = False
    Toolbar1.Buttons(5).Enabled = True
    frRoom1.Enabled = False
    With dtStatus1.Recordset
        .Index = "seeker"
        .Seek "=", "1"
    End With
    If dtStatus1.Recordset.NoMatch = False Then
        With dtStatus1.Recordset
            txtName1 = .Fields("Name")
            txtAddress1 = .Fields("Address")
            txtAge1 = .Fields("Age")
            cmdGender1 = .Fields("Gender")
            txtNationality1 = .Fields("Nationality")
            lblDateReserved1 = .Fields("DateReserved")
            lblDateIn1 = .Fields("DateIn")
            s1 = .Fields("Status")
        End With
    End If
End If
If s1 = "O" Then
    Toolbar1.Buttons(1).Enabled = False
    Toolbar1.Buttons(2).Enabled = False
    Toolbar1.Buttons(3).Enabled = False
    Toolbar1.Buttons(4).Enabled = True
    Toolbar1.Buttons(5).Enabled = False
    frRoom1.Enabled = False
    With dtStatus1.Recordset
        txtName1 = .Fields("Name")
        txtAddress1 = .Fields("Address")
        txtAge1 = .Fields("Age")
        cmdGender1 = .Fields("Gender")
        txtNationality1 = .Fields("Nationality")
        lblDateReserved1 = .Fields("DateReserved")
        lblDateIn1 = .Fields("DateIn")
        lblDateOut1 = .Fields("DateOut")
        lblDaysIncurred1 = .Fields("DaysIncurred")
        lblCharge1 = .Fields("Charge")
    End With
End If
'************************* Room 2 ****************************
With dtStatus2.Recordset
    .Index = "seeker"
    .Seek "=", "2"
End With
If dtStatus2.Recordset.NoMatch = False Then
    With dtStatus2.Recordset
        s2 = .Fields("Status")
    End With
End If
SSTab1.TabCaption(1) = "Room 2" & " [" & s2 & "]"
If s2 = "A" Then
    Toolbar2.Buttons(1).Enabled = False
    Toolbar2.Buttons(2).Enabled = False
    Toolbar2.Buttons(3).Enabled = False
    Toolbar2.Buttons(4).Enabled = True
    Toolbar2.Buttons(5).Enabled = False
    frRoom2.Enabled = False
    With dtStatus2.Recordset
        txtName2 = .Fields("Name")
        txtAddress2 = .Fields("Address")
        txtAge2 = .Fields("Age")
        cmdGender2 = .Fields("Gender")
        txtNationality2 = .Fields("Nationality")
        lblDateReserved2 = .Fields("DateReserved")
        lblDateIn2 = .Fields("DateIn")
        lblDateOut2 = .Fields("DateOut")
        lblCharge2 = .Fields("Charge")
        lblDaysIncurred2 = .Fields("DaysIncurred")
    End With
End If
If s2 = "R" Then
    Toolbar2.Buttons(1).Enabled = False
    Toolbar2.Buttons(2).Enabled = True
    Toolbar2.Buttons(3).Enabled = False
    Toolbar2.Buttons(4).Enabled = False
    Toolbar2.Buttons(5).Enabled = True
    frRoom2.Enabled = False
    With dtStatus2.Recordset
        .Index = "seeker"
        .Seek "=", "2"
    End With
    If dtStatus2.Recordset.NoMatch = False Then
        With dtS