+ Delphi "Книжный магазин"

procedure TForm1.Button1Click(Sender: TObject);
begin
 DataModule2.ADOQuery1.SQL.Clear;
 DataModule2.ADOQuery1.SQL.Add('SELECT Password FROM Users WHERE login='#39+Edit1.Text+#39);
 DataModule2.ADOQuery1.Open;
 if DataModule2.ADOQuery1.IsEmpty
  then
    ShowMessage('Пользователь '+Edit1.Text+' не найден!')
  else
    if DataModule2.ADOQuery1.FieldByName('Password').value <> Edit2.Text
      then
        ShowMessage('Пароль не верный!')
      else
        begin
          Form1.free;
          Form3.Show;
        end;
 end;

private
    { Private declarations }
  public
    Enter : Boolean;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule2.ADOQuery1.SQL.Text :='SELECT Password FROM Users WHERE login='#39+Edit1.Text+#39;
  DataModule2.ADOQuery1.Open;
  if DataModule2.ADOQuery1.IsEmpty
    then
      ShowMessage('Пользователь '+Edit1.Text+' не найден!')
    else
      if DataModule2.ADOQuery1['Password'] <> Edit2.Text
        then
          ShowMessage('Пароль не верный!')
        else
      Enter := True;
end;