unit Welcome;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, HomePage, LogicGates,
  OtherTopics, Quiz;

type
  TWelcomePage = class(TForm)
    welcomeBtn: TButton;
    Password: TEdit;
    EXIT: TButton;
    Username: TEdit;
    procedure welcomeBtnClick(Sender: TObject);
    procedure EXITClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WelcomePage: TWelcomePage;

implementation

{$R *.dfm}

procedure TWelcomePage.EXITClick(Sender: TObject);
begin
  WelcomePage.Close;
end;

procedure TWelcomePage.welcomeBtnClick(Sender: TObject);
begin
  // This section checks to see if the passwords/usernames match  and if they do it opens all the forms
  if (Username.Text = 'Admin') and (Password.Text = '123') then
  begin
    HomePage1.show;
    Logicgatepage.show;
    OtherPage.show;
    QuizPage.show;
  end
  else
  Begin
    if (Username.Text = '') and (Password.Text = '') then
    begin
      Homepage1.Show; //e Homepage
      WelcomePage.Visible := false; // Hides this form
    end
    else
      showmessage('Incorrect Login');
  End;
end;

end.