frmadministrator.frm

一个国外的宾馆管理程序

      End
      Begin VB.Menu mRoom 
         Caption         =   "&Room Rates"
      End
      Begin VB.Menu mExit 
         Caption         =   "E&xit"
      End
   End
End
Attribute VB_Name = "frmAdministrator"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdAddnew_Click()
frSearchEngine.Enabled = False
frDatas.Enabled = True
cmdAddnew.Enabled = False
cmdDelete.Enabled = False
cmdEdit.Enabled = False
cmdSave.Enabled = True
cmdUpdate.Enabled = False
txtSearchEngine = ""
txtUsername = ""
txtPassword = ""
txtConfirm = ""
txtUsername.SetFocus
End Sub

Private Sub cmdDelete_Click()
If txtUsername = "" Then
    MsgBox "No current record to delete!", vbCritical, "Delete Error"
    Exit Sub
Else
    With Data2.Recordset
        .Index = "seeker"
        .Seek "=", txtUsername
    End With
    If Data2.Recordset.NoMatch = False Then
        If MsgBox("You are about to delete " & txtUsername & " in the list. are you sure?", vbOKCancel + vbInformation, "Confirm Delete") = vbOK Then
            Data2.Recordset.Delete
            DBGrid1.Refresh
        Else
            Exit Sub
        End If
    End If
End If
cmdRefresh_Click
End Sub

Private Sub cmdEdit_Click()
If txtUsername = "" Then
    MsgBox "No current record to edit", vbCritical, "Edit Error"
    Exit Sub
Else
    frSearchEngine.Enabled = False
    frDatas.Enabled = True
    cmdAddnew.Enabled = False
    cmdDelete.Enabled = False
    cmdEdit.Enabled = False
    cmdSave.Enabled = False
    cmdUpdate.Enabled = True
    With Data2.Recordset
        .Index = "seeker"
        .Seek "=", txtUsername
    End With
    If Data2.Recordset.NoMatch = False Then
        With Data2.Recordset
            user = .Fields("Username")
        End With
    End If
    txtUsername.SetFocus
End If
End Sub

Private Sub cmdFDUpdate_Click()
If txtFD <> 0 Then
    With Data1.Recordset
        .Index = "seeker"
        .Seek "=", "FamilyDouble"
    End With
    If Data1.Recordset.NoMatch = False Then
        Data1.Recordset.Edit
        With Data1.Recordset
            .Fields("PerDay") = txtFD
        End With
        Data1.Recordset.Update
    End If
    txtFD = ""
    Timer1.Enabled = True
    frmRooms.Timer1.Enabled = True
Else
    MsgBox "Invalid Entry!", vbCritical, "Update Error"
        txtFD = ""
        txtFD.SetFocus
    Exit Sub
End If
End Sub

Private Sub cmdFTUpdate_Click()
If txtFT <> 0 Then
    With Data1.Recordset
        .Index = "seeker"
        .Seek "=", "FamilyTriple"
    End With
    If Data1.Recordset.NoMatch = False Then
        Data1.Recordset.Edit
        With Data1.Recordset
            .Fields("PerDay") = txtFT
        End With
        Data1.Recordset.Update
    End If
    txtFT = ""
    Timer1.Enabled = True
    frmRooms.Timer1.Enabled = True
Else
    MsgBox "Invalid Entry!", vbCritical, "Update Error"
        txtFT = ""
        txtFT.SetFocus
    Exit Sub
End If
End Sub

Private Sub cmdRefresh_Click()
txtSearchEngine = ""
txtPassword = ""
txtUsername = ""
txtConfirm = ""
cmdAddnew.Enabled = True
cmdEdit.Enabled = True
cmdDelete.Enabled = True
cmdSave.Enabled = False
cmdUpdate.Enabled = False
frSearchEngine.Enabled = True
frDatas.Enabled = False
txtSearchEngine.SetFocus
End Sub

Private Sub cmdSave_Click()
If txtUsername = "" Or txtPassword = "" Or txtConfirm = "" Then
    MsgBox "Please fill in the boxes properly!", vbCritical, "Save Error"
    txtUsername.SetFocus
    Exit Sub
Else
    With Data2.Recordset
        .Index = "seeker"
        .Seek "=", txtUsername
    End With
    If Data2.Recordset.NoMatch = True Then
        If txtConfirm = txtPassword Then
            Data2.Recordset.AddNew
            With Data2.Recordset
                .Fields("Username") = txtUsername
                .Fields("Password") = txtPassword
            End With
            Data2.Recordset.Update
            DBGrid1.Refresh
        Else
            MsgBox "Confirmed password does not match your password!", vbCritical, "Save Error"
            txtConfirm = ""
            txtConfirm.SetFocus
            Exit Sub
        End If
    Else
        MsgBox "Username already exist!", vbCritical, "Save Error"
        txtUsername = ""
        txtUsername.SetFocus
        Exit Sub
    End If
End If
cmdRefresh_Click
End Sub

Private Sub cmdSDUpdate_Click()
If txtSD <> 0 Then
    With Data1.Recordset
        .Index = "seeker"
        .Seek "=", "StandardDouble"
    End With
    If Data1.Recordset.NoMatch = False Then
        Data1.Recordset.Edit
        With Data1.Recordset
            .Fields("PerDay") = txtSD
        End With
        Data1.Recordset.Update
    End If
    txtSD = ""
    Timer1.Enabled = True
    frmRooms.Timer1.Enabled = True
Else
    MsgBox "Invalid Entry!", vbCritical, "Update Error"
        txtSD = ""
        txtSD.SetFocus
    Exit Sub
End If
End Sub

Private Sub cmdSSUpdate_Click()
If txtSS <> 0 Then
    With Data1.Recordset
        .Index = "seeker"
        .Seek "=", "StandardSingle"
    End With
    If Data1.Recordset.NoMatch = False Then
        Data1.Recordset.Edit
        With Data1.Recordset
            .Fields("PerDay") = txtSS
        End With
        Data1.Recordset.Update
    End If
    txtSS = ""
    Timer1.Enabled = True
    frmRooms.Timer1.Enabled = True
Else
    MsgBox "Invalid Entry!", vbCritical, "Update Error"
        txtSS = ""
        txtSS.SetFocus
    Exit Sub
End If
End Sub

Private Sub cmdVDUpdate_Click()
If txtVD <> 0 Then
    With Data1.Recordset
        .Index = "seeker"
        .Seek "=", "VIPDouble"
    End With
    If Data1.Recordset.NoMatch = False Then
        Data1.Recordset.Edit
        With Data1.Recordset
            .Fields("PerDay") = txtVD
        End With
        Data1.Recordset.Update
    End If
    txtVD = ""
    Timer1.Enabled = True
    frmRooms.Timer1.Enabled = True
Else
    MsgBox "Invalid Entry!", vbCritical, "Update Error"
        txtVD = ""
        txtVD.SetFocus
    Exit Sub
End If
End Sub

Private Sub cmdVSUpdate_Click()
If txtVS <> 0 Then
    With Data1.Recordset
        .Index = "seeker"
        .Seek "=", "VIPSingle"
    End With
    If Data1.Recordset.NoMatch = False Then
        Data1.Recordset.Edit
        With Data1.Recordset
            .Fields("PerDay") = txtVS
        End With
        Data1.Recordset.Update
    End If
    txtVS = ""
    Timer1.Enabled = True
    frmRooms.Timer1.Enabled = True
Else
    MsgBox "Invalid Entry!", vbCritical, "Update Error"
        txtVS = ""
        txtVS.SetFocus
    Exit Sub
End If
End Sub

Private Sub Command1_Click()
frRoomRates.Visible = False
End Sub

Private Sub Command2_Click()
frSecurity.Visible = False
End Sub

Private Sub DBGrid1_Click()
Timer2.Enabled = True
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\" + "Rooms.mdb"
Data1.RecordSource = "Rate"
Data2.DatabaseName = App.Path + "\" + "Admins.mdb"
Data2.RecordSource = "Existing"
If adm = 1 Then
        frSecurity.Visible = True
        frRoomRates.Visible = False
End If
If adm = 2 Then
        frSecurity.Visible = False
        frRoomRates.Visible = True
End If
End Sub

Private Sub mExit_Click()
Unload Me
End Sub

Private Sub mRoom_Click()
frSecurity.Visible = False
frRoomRates.Visible = True
End Sub

Private Sub mSystemSec_Click()
frSecurity.Visible = True
frRoomRates.Visible = False
End Sub

Private Sub Timer1_Timer()
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "StandardSingle"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        txtSSO = .Fields("PerDay")
    End With
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "StandardDouble"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        txtSDO = .Fields("PerDay")
    End With
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "VIPSingle"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        txtVSO = .Fields("PerDay")
    End With
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "VIPDouble"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        txtVDO = .Fields("PerDay")
    End With
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "FamilyDouble"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        txtFDO = .Fields("PerDay")
    End With
End If
With Data1.Recordset
    .Index = "seeker"
    .Seek "=", "FamilyTriple"
End With
If Data1.Recordset.NoMatch = False Then
    With Data1.Recordset
        txtFTO = .Fields("PerDay")
    End With
End If
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
On Error GoTo error_2
user = Data2.Recordset.Fields("Username")
txtSearchEngine = user
error_2:
Timer2.Enabled = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 1
        frRoomRates.Visible = False
        frSecurity.Visible = True
    Case 2
        frRoomRates.Visible = True
        frSecurity.Visible = False
    Case 3
        Unload Me
End Select
End Sub

Private Sub txtFD_Change()
If IsNumeric(txtFD) = True Then
    cmdFDUpdate.Enabled = True
Else
    cmdFDUpdate.Enabled = False
End If
End Sub

Private Sub txtFT_Change()
If IsNumeric(txtFT) = True Then
    cmdFTUpdate.Enabled = True
Else
    cmdFTUpdate.Enabled = False
End If
End Sub

Private Sub txtSD_Change()
If IsNumeric(txtSD) = True Then
    cmdSDUpdate.Enabled = True
Else
    cmdSDUpdate.Enabled = False
End If
End Sub

Private Sub txtSearchEngine_Change()
With Data2.Recordset
    .Index = "seeker"
    .Seek ">=", txtSearchEngine
End With
On Error GoTo error_1
With Data2.Recordset
    txtUsername = .Fields("Username")
    txtPassword = .Fields("Password")
End With
error_1:
End Sub

Private Sub txtSS_Change()
If IsNumeric(txtSS) = True Then
    cmdSSUpdate.Enabled = True
Else
    cmdSSUpdate.Enabled = False
End If
End Sub

Private Sub txtVD_Change()
If IsNumeric(txtVD) = True Then
    cmdVDUpdate.Enabled = True
Else
    cmdVDUpdate.Enabled = False
End If
End Sub

Private Sub txtVS_Change()
If IsNumeric(txtVS) = True Then
    cmdVSUpdate.Enabled = True
Else
    cmdVSUpdate.Enabled = False
End If
End Sub