17.  Add the following command buttons to the Course Registration Form: [AC 9.21-9.24]

            Save

            Undo

            Return to the Student Screen

 

18.  Add the following command buttons to the Instructor Form:

            Save

            Undo

            Return to the Instructor Screen

 

19.    Create the following macro for the On Click property of the Enter button in the Login Screen: [AC 9.05-9.21]


 

 



20.    Create the following macro for the Instructor Screen:

 

 

21.  Create a similar macro as above for the Student Screen

 

22.  Create the following USER table:

            USER(UserName, Password, Type)

                        Where UserName = Student# if Type=student

                                    UserName = InstName if Type=instructor

 

 

 

 

 


23.  Create the corresponding menu bars and tool bars for each of these screens: Login, Instructor, and Student

            Login screen: Login & Quit

            Instructor/Student screen: Data Entry, View Report, & Return

                       

24.  Change the Startup properties in the University database so that

            Login screen will be opened automatically when the database opens:

 

           

 

25.  Convert the Login macro to VBA code:

            Tools à Macro à Convert Macros to Visual Basic


26.  Change the converted VBA code such that any user is allowed only 3 trials in entering their password:

           

(1)  Add the following declaration statement:

            Dim User As String

 

(2)  Replace the code for Password validation with the following:           

User = DLookup("[Password]", "USER", "[UserName]=Forms![Login]![UserName]")

            If ChkPwd(User) = 3 Then

                  Call FlagUser(Forms![login]![UserName])

                  Application.Quit

            End If

        End If

 

(3)  Type in the function ChkPwd:

Function ChkPwd(UserPD As String) As Integer

'To validate a user's password

 

Dim counter As Integer

Dim Pwd As String

 

counter = 1

Do While counter < 3

    Pwd = InputBox("Invalid Password.  Please reenter")

    If Pwd <> UserPD Then

        counter = counter + 1

    Else

        Exit Do

    End If

Loop

ChkPwd = counter

End Function

 

 

27.  Deactivate the user whenever his/her password has been invalidated:

 

(1)  Type in the subroutine FlagUser

Sub FlagUser(ID As String)

'A Subroutine to deactive a user

 

Dim db As Database

Dim rec As DAO.Recordset

Dim criterion As String

 

Set db = CurrentDb()

Set rec = db.OpenRecordset("USER")

rec.Index = "PrimaryKey"

rec.Seek "=", ID

rec.Edit

rec("Type") = "deactivated"

rec.Update

rec.Close

 

End Sub

 

(2)  Issue a message for a deactivated user:

        User = DLookup("[Type]", "USER", "[UserName]=Forms![Login]![UserName]")

        Select Case User

            Case "student"

                DoCmd.OpenForm "StudentSrn", acNormal, "", "", , acNormal

            Case "instructor"

                DoCmd.OpenForm "InsSrn", acNormal, "", "", acReadOnly, acNormal

            Case "deactivated"

                MsgBox "User Account is Deactivated.  Please see Administrator"

                Application.Quit