Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Add Comment
Please, Sign In to add comment