frmstandouble.frm

一个国外的宾馆管理程序

        txtNationality1 = .Fields("Nationality")
        lblDateReserved1 = .Fields("DateReserved")
        lblDateIn1 = .Fields("DateIn")
        lblDateOut1 = .Fields("DateOut")
        lblDaysIncurred1 = .Fields("DaysIncurred")
        lblCharge1 = .Fields("Charge")
    End With
End If
'************************* Room 5 ****************************
With dtStatus2.Recordset
    .Index = "seeker"
    .Seek "=", "5"
End With
If dtStatus2.Recordset.NoMatch = False Then
    With dtStatus2.Recordset
        s5 = .Fields("Status")
    End With
End If
SSTab1.TabCaption(1) = "Room 2" & " [" & s5 & "]"
If s5 = "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 s5 = "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 "=", "5"
    End With
    If dtStatus2.Recordset.NoMatch = False Then
        With dtStatus2.Recordset
            txtName2 = .Fields("Name")
            txtAddress2 = .Fields("Address")
            txtAge2 = .Fields("Age")
            cmdGender2 = .Fields("Gender")
            txtNationality2 = .Fields("Nationality")
            lblDateReserved2 = .Fields("DateReserved")
        End With
    End If
End If
If s5 = "U" Then
    Toolbar2.Buttons(1).Enabled = False
    Toolbar2.Buttons(2).Enabled = False
    Toolbar2.Buttons(3).Enabled = True
    Toolbar2.Buttons(4).Enabled = False
    Toolbar2.Buttons(5).Enabled = True
    frRoom2.Enabled = False
    With dtStatus2.Recordset
        .Index = "seeker"
        .Seek "=", "5"
    End With
    If dtStatus2.Recordset.NoMatch = False Then
        With dtStatus2.Recordset
            txtName2 = .Fields("Name")
            txtAddress2 = .Fields("Address")
            txtAge2 = .Fields("Age")
            cmdGender2 = .Fields("Gender")
            txtNationality2 = .Fields("Nationality")
            lblDateReserved2 = .Fields("DateReserved")
            lblDateIn2 = .Fields("DateIn")
            s5 = .Fields("Status")
        End With
    End If
End If
If s5 = "O" 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")
        lblDaysIncurred2 = .Fields("DaysIncurred")
        lblCharge2 = .Fields("Charge")
    End With
End If
'************************* Room 6 ****************************
With dtStatus3.Recordset
    .Index = "seeker"
    .Seek "=", "6"
End With
If dtStatus3.Recordset.NoMatch = False Then
    With dtStatus3.Recordset
        s6 = .Fields("Status")
    End With
End If
SSTab1.TabCaption(2) = "Room 3" & " [" & s6 & "]"
If s6 = "A" Then
    Toolbar3.Buttons(1).Enabled = False
    Toolbar3.Buttons(2).Enabled = False
    Toolbar3.Buttons(3).Enabled = False
    Toolbar3.Buttons(4).Enabled = True
    Toolbar3.Buttons(5).Enabled = False
    frRoom3.Enabled = False
    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")
        lblCharge3 = .Fields("Charge")
        lblDaysIncurred3 = .Fields("DaysIncurred")
    End With
End If
If s6 = "R" Then
    Toolbar3.Buttons(1).Enabled = False
    Toolbar3.Buttons(2).Enabled = True
    Toolbar3.Buttons(3).Enabled = False
    Toolbar3.Buttons(4).Enabled = False
    Toolbar3.Buttons(5).Enabled = True
    frRoom3.Enabled = False
    With dtStatus3.Recordset
        .Index = "seeker"
        .Seek "=", "6"
    End With
    If dtStatus3.Recordset.NoMatch = False Then
        With dtStatus3.Recordset
            txtName3 = .Fields("Name")
            txtAddress3 = .Fields("Address")
            txtAge3 = .Fields("Age")
            cmdGender3 = .Fields("Gender")
            txtNationality3 = .Fields("Nationality")
            lblDateReserved3 = .Fields("DateReserved")
        End With
    End If
End If
If s6 = "U" Then
    Toolbar3.Buttons(1).Enabled = False
    Toolbar3.Buttons(2).Enabled = False
    Toolbar3.Buttons(3).Enabled = True
    Toolbar3.Buttons(4).Enabled = False
    Toolbar3.Buttons(5).Enabled = True
    frRoom3.Enabled = False
    With dtStatus3.Recordset
        .Index = "seeker"
        .Seek "=", "6"
    End With
    If dtStatus3.Recordset.NoMatch = False Then
        With dtStatus3.Recordset
            txtName3 = .Fields("Name")
            txtAddress3 = .Fields("Address")
            txtAge3 = .Fields("Age")
            cmdGender3 = .Fields("Gender")
            txtNationality3 = .Fields("Nationality")
            lblDateReserved3 = .Fields("DateReserved")
            lblDateIn3 = .Fields("DateIn")
            s6 = .Fields("Status")
        End With
    End If
End If
If s6 = "O" Then
    Toolbar3.Buttons(1).Enabled = False
    Toolbar3.Buttons(2).Enabled = False
    Toolbar3.Buttons(3).Enabled = False
    Toolbar3.Buttons(4).Enabled = True
    Toolbar3.Buttons(5).Enabled = False
    frRoom3.Enabled = False
    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
End If
Timer1.Enabled = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    '***** Reserve *****
    Case 1
        If txtName1 = "" Or _
            txtAddress1 = "" Or _
            txtAge1 = "" Or _
            txtNationality1 = "" Then
            MsgBox "Please fill in the form properly", vbInformation, "Form Error"
                txtName1.SetFocus
            Exit Sub
        Else
            lblDateReserved1 = Format(Date, "mmmm dd, yyyy")
            With dtStatus1.Recordset
                .Index = "seeker"
                .Seek "=", "4"
            End With
            If dtStatus1.Recordset.NoMatch = False Then
                dtStatus1.Recordset.Edit
                With dtStatus1.Recordset
                    .Fields("Name") = txtName1
                    .Fields("Address") = txtAddress1
                    .Fields("Age") = txtAge1
                    .Fields("Nationality") = txtNationality1
                    .Fields("DateReserved") = lblDateReserved1
                    .Fields("Gender") = cmdGender1
                    .Fields("Status") = "R"
                    .Fields("DateIn") = ""
                    .Fields("DateOut") = ""
                    .Fields("I") = ""
                    .Fields("Charge") = "0.0"
                    .Fields("DaysIncurred") = ""
                End With
                dtStatus1.Recordset.Update
                Timer1.Enabled = True
                frmRooms.Timer1.Enabled = True
            End If
        End If
    '***** Check In *****
    Case 2
        If txtName1 = "" Or _
            txtAddress1 = "" Or _
            txtAge1 = "" Or _
            txtNationality1 = "" Then
            MsgBox "Please fill in the form properly", vbInformation, "Form Error"
                txtName1.SetFocus
            Exit Sub
        Else
            With dtStatus1.Recordset
                .Index = "seeker"
                .Seek "=", "4"
            End With
            If dtStatus1.Recordset.NoMatch = False Then
                lblDateIn1 = Format(Date, "mmmm dd, yyyy")
                dtStatus1.Recordset.Edit
                With dtStatus1.Recordset
                    .Fields("Name") = txtName1
                    .Fields("Address") = txtAddress1
                    .Fields("Age") = txtAge1
                    .Fields("Nationality") = txtNationality1
                    .Fields("DateReserved") = lblDateReserved1
                    .Fields("Gender") = cmdGender1
                    .Fields("Status") = "U"
                    .Fields("DateIn") = lblDateIn1
                    .Fields("DateOut") = ""
                    .Fields("I") = Format(Date, "dd")
                    .Fields("Charge") = "0.0"
                    .Fields("DaysIncurred") = ""
                End With
                dtStatus1.Recordset.Update
                Timer1.Enabled = True
                frmRooms.Timer1.Enabled = True
            End If
        End If
    '***** Check Out *****
    Case 3
        With dtStatus1.Recordset
            .Index = "seeker"
            .Seek "=", "4"
        End With
        If dtStatus1.Recordset.NoMatch = False Then
            lblDateOut1 = Format(Date, "mmmm dd, yyyy")
            o4 = Format(Date, "dd")
            With dtStatus1.Recordset
                i4 = .Fields("I")
            End With
            c4 = o4 - i4
            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 c4 = 0 Then
                c4 = rSD
                lblDaysIncurred1 = 1
            Else
                lblDaysIncurred1 = c4
                c4 = c4 * rSD
            End If
            lblCharge1 = c4
            dtStatus1.Recordset.Edit
            With dtStatus1.Recordset
                .Fields("Name") = txtName1
                .Fields("Address") = txtAddress1
                .Fields("Age") = txtAge1
                .Fields("Gender") = cmdGender1
                .Fields("Nationality") = txtNationality1
                .Fields("DateReserved") = lblDateReserved1
                .Fields("DateIn") = lblDateIn1
                .Fields("DateOut") = lblDateOut1
                .Fields("DaysIncurred") = lblDaysIncurred1
                .Fields("Charge") = c4
                .Fields("Status") = "O"
            End With
            dtStatus1.Recordset.Update
            Data1.Recordset.AddNew
            With Data1.Recordset
                .Fields("RoomNUmber") = "1"
                .Fields("RoomType") = "Standard [Double]"
                .Fields("Name") = txtName1
                .Fields("Address") = txtAddress1
                .Fields("Age") = txtAge1
                .Fields("Gender") = cmdGender1
                .Fields("Nationality") = txtNationality1
                .Fields("DateReserved") = lblDateReserved1
                .Fields("DateIn") = lblDateIn1
                .Fields("DateOut") = lblDateOut1
                .Fields("DaysIncurred") = lblDaysIncurred1
                .Fields("RatePerDay") = rSD
                .Fields("Charge") = c4
            End With
            Data1.Recordset.Update
            Timer1.Enabled = True
            frmRooms.Timer1.Enabled = True
        End If
    '***** New *****
    Case 4
        frRoom1.Enabled = True
        Toolbar1.Buttons(1).Enabled = True
        Toolbar1.Buttons(2).Enabled = True
        Toolbar1.Buttons(4).Enabled = False