Ошибка при авторизации пользователей в Делфи

[курбанниязов]

при авторизации пользователей выдает ошибку.

procedure TForm21.Button1Click(Sender: TObject);
DataModule1. AdoQuery1.SQL.Clear;
  DataModule1. AdoQuery1.SQL.Add('SELECT * FROM Авторизация WHERE Логин = ' + QuotedStr(DBLookupComboBox1.Text));
  DataModule1. AdoQuery1.Active := true;
  DataModule1. AdoQuery1.ExecSQL;
  DataModule1. AdoQuery1.First;

  if(DataModule1. AdoQuery1.FieldByName('Пароль').AsString = DBEdit1.Text) then
  begin
    if(DBLookupComboBox1.Text = 'Администратор') then isSotrudnik := true
    else isSotrudnik := false;

    if(DBLookupComboBox1.Text = 'Сотрудник') then
    begin
      isSotrudnik := true;
      isAdmin := true;
    end
    else isСотрудник := false;

    UserName := DBLookupComboBox1.Text;
    Form2.Show;
    Form21.Hide;
    DataModule1.ADOConnection1.Connected := false;
  end
  else MessageBox(Handle, 'Неверный логин или пароль!', 'Ошибка', MB_ICONERROR);

  DataModule1. AdoQuery1.Active := false;
end;

end;
end.

[Streletz]

при авторизации пользователей выдает ошибку.

Что именно за ошибка? Ошибку в студию!

[курбанниязов]

Сообщение от Streletz

Что именно за ошибка? Ошибку в студию!

[Error] Unit21.pas(73): Left side cannot be assigned to
[Error] Unit21.pas(74): Incompatible types: 'String' and 'Boolean'
[Error] Unit21.pas(74): Illegal character in input file: 'н' ($ED)
[Error] Unit21.pas(74): Statement expected, but expression of type 'Boolean' found
[Error] Unit21.pas(78): Statement expected but 'IS' found

[Streletz]

К сожалению, сложно сказать что-либо точно не видя объявления переменных. Однако, в этом участке кода:

    if(DBLookupComboBox1.Text = 'Сотрудник') then
    begin
      isSotrudnik := true;
      isAdmin := true;
    end
    else isСотрудник := false;

Упорно напрашивается сделать

    if(DBLookupComboBox1.Text = 'Сотрудник') then
    begin
      isSotrudnik := true;
      isAdmin := true;
    end
    else isSotrudnik := false;

Извините, не хочу Вас обидеть, но в целом, вообще, на самом деле, очень странный код. Согласно ему, все пользователи входят в систему с правами администратора.

[Stilet]

Да уж... код действительно требует топки...

procedure TForm21.Button1Click(Sender: TObject);
with  AdoQuery1 do begin
  SQL.Text:='SELECT * FROM Авторизация WHERE Логин = :log and Пароль=:pass';
  Parameters.ParamByName('log').Value:=DBLookupComboBox1.Text;
  Parameters.ParamByName('pass').Value:=DBEdit1.Text;
  Open
   if not eof then begin
   isAdmin :=(DBLookupComboBox1.Text = 'Администратор');
   isSotrudnik :=(DBLookupComboBox1.Text = 'Сотрудник');
  else begin
   MessageBox(Handle, 'Неверный логин или пароль!', 'Ошибка', MB_ICONERROR);
  end;
  close;
end;

    UserName := DBLookupComboBox1.Text;
    Form2.Show;
    Form21.Hide;

end;

при авторизации пользователей выдает ошибку.

Давай будем учиться называть вещи своими именами - при авторизации у тебя никакой ошибки не выдает. Потому что эти ошибки, что ты привел являются ошибками компиляции.

Извините, не хочу Вас обидеть, но в целом, вообще, на самом деле, очень странный код. Согласно ему, все пользователи входят в систему с правами администратора.

Кстати да. Может так нужно?:

   isAdmin :=(FieldByName('статус').AsString = 'Администратор');
   isSotrudnik :=(FieldByName('статус').AsString = 'Сотрудник');

Где поле "статус" выдуманное мной. подразумевающее роль юзера в той табице.