unit LoginUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TfrmLogin = class(TForm)
    btnEnter: TButton;
    ledtUsername: TLabeledEdit;
    ledtPassword: TLabeledEdit;
    btnExit: TButton;
    procedure btnEnterClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  frmLogin: TfrmLogin;

implementation

{$R *.dfm}

Uses
  TeacherMenuUnit , StudentMenuUnit;

procedure TfrmLogin.btnEnterClick(Sender: TObject);
begin

  //Teacher login entry
  if (ledtUsername.Text = 'BMartin') AND (ledtPassword.Text = 'Glucose') then  //username and password prerequisites
  Begin
    ShowMessage('Login Successful');
    frmTeacherMenu.Show;  //displays teacher menu form
  End

  //Student login entry
  Else If (ledtUsername.Text = 'UWaraich') AND (ledtPassword.Text = 'Cellulose') then  //username and password prerequisites
    Begin
    ShowMessage('Login Successful');
    frmStudentMenu.Show; //displays student menu form
    End

  //Incorrect username/password
  Else
    Begin
      if Application.Messagebox('Incorrect Login Details, Please Try Again','Incorrect',
                                  MB_RetryCancel or MB_IconError)
        = IDCancel then
        Begin
          Close;   //closes the form when 'Cancel' is clicked in messagebox
        End
      Else
       ledtUsername.Text := ''; //clears username
       ledtPassword.Text := ''; //clears password
    End;
//put the above in 3.7 reviewed section: say you will put in prototype 2
//think of something clever

end;

procedure TfrmLogin.btnExitClick(Sender: TObject);
begin
  frmLogin.Close; //closes login form
end;

end.