Сравнить поле - Boolean (логического) типа

[viks1]

Есть поле access (поле так и называется) в таблице users
Хочу сделать сравнение ,

procedure TForm5.FormCreate(Sender: TObject);
begin
DataModule2.ADOQuery2.Active:=false;
DataModule2.ADOQuery2.SQL.Clear;
DataModule2.ADOQuery2.SQL.Add('SELECT * FROM users');
DataModule2.ADOQuery2.SQL.Add('WHERE login="'+Form1.Elog.text+'" and access=True');
DataModule2.ADOQuery2.Active:=true;
if DataModule2.ADOQuery2.RecordCount <> 0
then
onn:=true else onn:=false;
if onn then
closepanel.Visible:=true;
end;

Если в данном пользователе есть доступ (в поле access галочка если стоит) то кнопка включится
точнее переменной сначале присвою True ну и тд....

Как мне сравнить с полем access ? мой запрос не работает access=True

[eval]

access<>0 .

[Yurk@]

procedure TForm5.FormCreate(Sender: TObject);
begin
  DataModule2.ADOQuery2.Close;
  DataModule2.ADOQuery2.SQL.Text := 'SELECT * FROM users WHERE login = :login');
  DataModule2.ADOQuery2.Parameters.ParamByName('login').Values := Form1.Elog.Text;
  DataModule2.ADOQuery2.Open;
  if DataModule2.ADOQuery2.RecordCount <> 0 then
    ClosePanel.Visible := ADOQuery2.FieldByName('access').asBoolean;
end;

[viks1]

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

access<>0 .

не работает все равно

[eval]

Что значит все равно не работает?

[viks1]

Сообщение от Yurk@

procedure TForm5.FormCreate(Sender: TObject);
begin
  DataModule2.ADOQuery2.Close;
  DataModule2.ADOQuery2.SQL.Text := 'SELECT * FROM users WHERE login = :login');
  DataModule2.ADOQuery2.Parameters.ParamByName('login').Values := Form1.Elog.Text;
  DataModule2.ADOQuery2.Open;
  if DataModule2.ADOQuery2.RecordCount <> 0 then
    ClosePanel.Visible := ADOQuery2.FieldByName('access').asBoolean;
end;

и так тоже...

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

Что значит все равно не работает?

ошибки не выдает, но и результата тоже...

[eval]

ну значит таких нет, при чем тут не работает..
откройте аксес и тупо там пропишите SELECT * FROM users WHERE [access]<>0
что выдает?

[viks1]

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

ну значит таких нет, при чем тут не работает..
откройте аксес и тупо там пропишите SELECT * FROM users WHERE [access]<>0
что выдает?

всем спасибо, я использовал

ClosePanel.Visible := DataModule.ADOQuery1.FieldByName('access').asBoolean;

сработало.

я его вставил аж при входе

begin

DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('SELECT * FROM users');
DataModule2.ADOQuery1.SQL.Add('WHERE login="'+Elog.text+'" and password="'+Epass.text+'"');
DataModule2.ADOQuery1.Active:=true;
if DataModule2.ADOQuery1.RecordCount <> 0
then begin
form5.Show ;
Form5.ClosePanel.Visible := DataModule2.ADOQuery1.FieldByName('access').asBoolean;
end
  else
ShowMessage('NO FOUND!')
end

[Yurk@]

эмм .... а в п. №3 не то же самое написано?