frmvipsingle.frm

一个国外的宾馆管理程序

            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
        Toolbar1.Buttons(5).Enabled = True
        txtName1.SetFocus
        With dtStatus1.Recordset
            .Index = "seeker"
            .Seek "=", "7"
        End With
        If dtStatus1.Recordset.NoMatch = False Then
            dtStatus1.Recordset.Edit
            With dtStatus1.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
            dtStatus1.Recordset.Update
            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 = ""
                lblCharge1 = .Fields("Charge")
            End With
        End If
    '****** Cancel *****
    Case 5
        With dtStatus1.Recordset
            .Index = "seeker"
            .Seek "=", "7"
        End With
        If dtStatus1.Recordset.NoMatch = False Then
            dtStatus1.Recordset.Edit
            With dtStatus1.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
            dtStatus1.Recordset.Update
            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
            Timer1.Enabled = True
            frmRooms.Timer1.Enabled = True
        End If
    '***** Exit *****
    Case 6
        Unload Me
End Select
End Sub
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    '***** Reserve *****
    Case 1
        If txtName2 = "" Or _
            txtAddress2 = "" Or _
            txtAge2 = "" Or _
            txtNationality2 = "" Then
            MsgBox "Please fill in the form properly", vbInformation, "Form Error"
                txtName2.SetFocus
            Exit Sub
        Else
            lblDateReserved2 = Format(Date, "mmmm dd, yyyy")
            With dtStatus2.Recordset
                .Index = "seeker"
                .Seek "=", "8"
            End With
            If dtStatus2.Recordset.NoMatch = False Then
                dtStatus2.Recordset.Edit
                With dtStatus2.Recordset
                    .Fields("Name") = txtName2
                    .Fields("Address") = txtAddress2
                    .Fields("Age") = txtAge2
                    .Fields("Nationality") = txtNationality2
                    .Fields("DateReserved") = lblDateReserved2
                    .Fields("Gender") = cmdGender2
                    .Fields("Status") = "R"
                    .Fields("DateIn") = ""
                    .Fields("DateOut") = ""
                    .Fields("I") = ""
                    .Fields("Charge") = "0.0"
                    .Fields("DaysIncurred") = ""
                End With
                dtStatus2.Recordset.Update
                Timer1.Enabled = True
                frmRooms.Timer1.Enabled = True
            End If
        End If
    '***** Check In *****
    Case 2
        If txtName2 = "" Or _
            txtAddress2 = "" Or _
            txtAge2 = "" Or _
            txtNationality2 = "" Then
            MsgBox "Please fill in the form properly", vbInformation, "Form Error"
                txtName2.SetFocus
            Exit Sub
        Else
            With dtStatus2.Recordset
                .Index = "seeker"
                .Seek "=", "8"
            End With
            If dtStatus2.Recordset.NoMatch = False Then
                lblDateIn2 = Format(Date, "mmmm dd, yyyy")
                dtStatus2.Recordset.Edit
                With dtStatus2.Recordset
                    .Fields("Name") = txtName2
                    .Fields("Address") = txtAddress2
                    .Fields("Age") = txtAge2
                    .Fields("Nationality") = txtNationality2
                    .Fields("DateReserved") = lblDateReserved2
                    .Fields("Gender") = cmdGender2
                    .Fields("Status") = "U"
                    .Fields("DateIn") = lblDateIn2
                    .Fields("DateOut") = ""
                    .Fields("I") = Format(Date, "dd")
                    .Fields("Charge") = "0.0"
                    .Fields("DaysIncurred") = ""
                End With
                dtStatus2.Recordset.Update
                Timer1.Enabled = True
                frmRooms.Timer1.Enabled = True
            End If
        End If
    '***** Check Out *****
    Case 3
        With dtStatus2.Recordset
            .Index = "seeker"
            .Seek "=", "8"
        End With
        If dtStatus2.Recordset.NoMatch = False Then
            lblDateOut2 = Format(Date, "mmmm dd, yyyy")
            o8 = Format(Date, "dd")
            With dtStatus2.Recordset
                i8 = .Fields("I")
            End With
            c8 = o8 - i8
            With Data2.Recordset
                .Index = "seeker"
                .Seek "=", "VIPSingle"
            End With
            If Data2.Recordset.NoMatch = False Then
                With Data2.Recordset
                rVS = .Fields("PerDay")
                End With
            End If
            If c8 = 0 Then
                c8 = rVS
                lblDaysIncurred2 = 1
            Else
                lblDaysIncurred2 = c8
                c8 = c8 * rVS
            End If
            lblCharge2 = c8
            dtStatus2.Recordset.Edit
            With dtStatus2.Recordset
                .Fields("Name") = txtName2
                .Fields("Address") = txtAddress2
                .Fields("Age") = txtAge2
                .Fields("Gender") = cmdGender2
                .Fields("Nationality") = txtNationality2
                .Fields("DateReserved") = lblDateReserved2
                .Fields("DateIn") = lblDateIn2
                .Fields("DateOut") = lblDateOut2
                .Fields("DaysIncurred") = lblDaysIncurred2
                .Fields("Charge") = c8
                .Fields("Status") = "O"
            End With
            dtStatus2.Recordset.Update
            Data1.Recordset.AddNew
            With Data1.Recordset
                .Fields("RoomNUmber") = "2"
                .Fields("RoomType") = "V.I.P. [Single]"
                .Fields("Name") = txtName2
                .Fields("Address") = txtAddress2
                .Fields("Age") = txtAge2
                .Fields("Gender") = cmdGender2
                .Fields("Nationality") = txtNationality2
                .Fields("DateReserved") = lblDateReserved2
                .Fields("DateIn") = lblDateIn2
                .Fields("DateOut") = lblDateOut2
                .Fields("DaysIncurred") = lblDaysIncurred2
                .Fields("RatePerDay") = rVS
                .Fields("Charge") = c8
            End With
            Data1.Recordset.Update
            Timer1.Enabled = True
            frmRooms.Timer1.Enabled = True
        End If
    '***** New *****
    Case 4
        frRoom2.Enabled = True
        Toolbar2.Buttons(1).Enabled = True
        Toolbar2.Buttons(2).Enabled = True
        Toolbar2.Buttons(4).Enabled = False
        Toolbar2.Buttons(5).Enabled = True
        txtName2.SetFocus
        With dtStatus2.Recordset
            .Index = "seeker"
            .Seek "=", "8"
        End With
        If dtStatus2.Recordset.NoMatch = False Then
            dtStatus2.Recordset.Edit
            With dtStatus2.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
            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 = ""
                lblCharge2 = .Fields("Charge")
            End With
        End If
    '****** Cancel *****
    Case 5
        With dtStatus2.Recordset
            .Index = "seeker"
            .Seek "=", "8"
        End With
        If dtStatus2.Recordset.NoMatch = False Then
            dtStatus2.Recordset.Edit
            With dtStatus2.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
            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 "=", "9"
            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