Курсовая ( Мюнсберга и Когана ) / Unit3

unit Unit3;

interface

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

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

var
  FAuth: TFAuth;

implementation

{$R *.dfm}

uses Unit2;

procedure TFAuth.Button1Click(Sender: TObject);
begin
with FStart.ADOQTest do
  begin
    SQL.Clear;
    SQL.Add('SELECT * FROM Code');
    Active := TRUE;
    if (Edit1.Text = FieldByName('Parol').AsString) then
      begin
        FStart.BNew.Visible := TRUE;
        FStart.BDel.Visible := TRUE;
        FStart.BRes.Visible := TRUE;
        FAuth.Close;
      end
    else
      ShowMessage('Неверный пароль!');
  end;
end;

end.