login.pas

A data-based tool that can produce questionnaires dynamically which will be used to investigate clie

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses question, bank;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
    if Edit1.Text = 'rex' then
     Form2.Visible := True
    else
     begin
     ShowMessage('Wrong Password, try again!');
     Form1.Visible := True;
     end;
    Edit1.Text:='';
    Form3.Close;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
    Left :=300;
    Top := 300;
end;

end.