Лабораторная работа: Создание программы авторизации пользователя с помощью пароля

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form2.dbedit1.Clear; form2.dbedit2.Clear;

form2.dbedit3.Clear; form2.dbedit4.Clear;

Form2.Edit1.Clear; Form2.Show;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form3.Show;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrls, jpeg, ExtCtrls, Grids,

DBGrids, Buttons;

type

TForm2 = class(TForm)