sourcecode.txt

一个国外的宾馆管理程序

    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

Dim i As Integer
Private Sub Command1_Click()
If txtUsername = "admin" And txtPassword = "admin" Then
    i = 0
    Unload Me
    frmAdministrator.Show 1
Else
    If txtUsername = "" Or txtPassword = "" Then
        MsgBox "Please fill in the boxes!", vbCritical, "Security Error"
        txtUsername.SetFocus
        Exit Sub
    Else
        With Data1.Recordset
            .Index = "seeker"
            .Seek "=", txtUsername
        End With
        If Data1.Recordset.NoMatch = False Then
            With Data1.Recordset
                pass = .Fields("Password")
            End With
            If txtPassword = pass Then
                i = 0
                Unload Me
                frmAdministrator.Show 1
            Else
                If MsgBox("Invalid password!", vbCritical + vbRetryCancel, "Access Denied") = vbRetry Then
                    txtPassword = ""
                    txtPassword.SetFocus
                    Exit Sub
                Else
                    i = 0
                    Unload Me
                End If
            End If
        Else
            If MsgBox("Invalid username!", vbCritical + vbRetryCancel, "Access Denied") = vbRetry Then
                txtUsername = ""
                txtUsername.SetFocus
                Exit Sub
            Else
                i = 0
                Unload Me
            End If
        End If
    End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
i = 1
Data1.DatabaseName = App.Path + "\" + "Admins.mdb"
Data1.RecordSource = "Existing"
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Set fromadminsecurity = Nothing
Cancel = i
End Sub

Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
If KeyCode = 27 Then Unload Me
End Sub
Private Sub txtUsername_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then Unload Me
End Sub

Private Sub mClients_Click()
Unload frmMasterList
frmMasterList.Show
End Sub

Private Sub MDIForm_Load()
adm = 0
Top = 0
Left = 0
frmMasterList.Show
End Sub
Private Sub mExit_Click()
If MsgBox("You are about to quit this application. Are you sure?", vbOKCancel + vbInformation, "Confirm Logoff") = vbOK Then
    End
Else
    Exit Sub
End If
End Sub
Private Sub mFamilyDouble_Click()
Unload frmFamilyDouble
frmFamilyDouble.Show
End Sub
Private Sub mFamilyTriple_Click()
Unload frmFamilyTriple
frmFamilyTriple.Show
End Sub

Private Sub mRoomRates_Click()
adm = 2
frmAdminSecurity.Show 1
End Sub

Private Sub mRoomStat_Click()
Unload frmRooms
frmRooms.Show
End Sub

Private Sub mSecurity_Click()
adm = 1
frmAdminSecurity.Show 1
End Sub

Private Sub mStanDouble_Click()
Unload frmStanDouble
frmStanDouble.Show
End Sub
Private Sub mStanSingle_Click()
Unload frmStanSingle
frmStanSingle.Show
End Sub
Private Sub mVipDouble_Click()
Unload frmVipSingle
frmVipSingle.Show
End Sub
Private Sub mVipSingle_Click()
Unload frmVipDouble
frmVipDouble.Show
End Sub

Private Sub Timer1_Timer()
frmSystemSecurity.Show 1
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
lblDate.Caption = Format(Date, "mmmm dd, yyyy")
lblTime.Caption = Format(Time, "hh:dd:ss am/pm")
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 1
        Unload frmStanDouble
        Unload frmStanSingle
        frmStanSingle.Show
        frmStanDouble.Show
    Case 2
        Unload frmVipSingle
        Unload frmVipDouble
        frmVipSingle.Show
        frmVipDouble.Show
    Case 3
        Unload frmFamilyDouble
        Unload frmFamilyTriple
        frmFamilyDouble.Show
        frmFamilyTriple.Show
    Case 4
        Unload frmMasterList
        frmMasterList.Show
    Case 5
        Unload frmRooms
        frmRooms.Show
    Case 6
        adm = 0
        frmAdminSecurity.Show 1
    Case 7
    
    Case 8
        If MsgBox("You are about to quit this application. Are you sure?", vbOKCancel + vbInformation, "Confirm Logoff") = vbOK Then
            End
        Else
            Exit Sub
        End If
End Select
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Top = 0
Left = 0
Data1.DatabaseName = App.Path + "\" + "MasterList.mdb"
Data1.RecordSource = "Clients"
End Sub

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