Авторизация

[Алекс Миско]

Доброго времени. Подскажите такую вещь. Есть комбик, эдит и кнопочка.
Комбик заполняется логинами, а эдит соотвессно для пасворда.
Есть бд и таблица system в ней юзвери(un),пасворды(pw), и права(access, соовтетствено юзверь и админ)

При нажатии на копку идет авторизация. Не могли бы вы подсказать как при подгрузке даты в комбик грузить не всех юзверей а только тех у кого в access'e стоит админ?

Вот код моей подгрузки(подкючение через ADO)

procedure Tsettingslog.FormCreate(Sender: TObject);
begin
with ADOQuery1 do
  begin
     Combobox1.Clear;
    SQL.Text:= 'SELECT un FROM system';// с этим работает но светятся все юзвери
{ SQL.Text:= 'SELECT un FROM system where access=admin'; - этот код запроса как я предполагал должен был сработать и влить в бокс только админов? но увы :(} 
    Open;

    if IsEmpty then Exit;
    First;
    while not Eof do
      begin
        Combobox1.Items.Add(FieldByName('un').AsString);
        Next;
      end;
  end;
end;

[Stilet]

Ну и какого же типа поле Access?

[Алекс Миско]

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

Ну и какого же типа поле Access?

обычное текстовое (дабы меньше гемора)

[AlexMas]

Сообщение от Алекс Миско

обычное текстовое (дабы меньше гемора)

SQL.Text:= 'SELECT un FROM system where access=admin';

SQL.Text:= 'SELECT un FROM system where access=''admin''';

не прокатывает? =)

Проверяй запросы, в аксесе это легко сделать. Да и в других СУБД не не проблема.

[Stilet]

SQL.Text:= 'SELECT un FROM system where access=trim('+Quotedstr('admin')+')';

[Алекс Миско]

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

SQL.Text:= 'SELECT un FROM system where access=''admin''';

не прокатывает? =)

Проверяй запросы, в аксесе это легко сделать. Да и в других СУБД не не проблема.

Все сработало! Спасибо Огромное!

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

SQL.Text:= 'SELECT un FROM system where access=trim('+Quotedstr('admin')+')';

тоже работает)) Спасибо

[ych_del]

Где есть документ? Какого типа документ?

Отвлеченный вопрос: а зачем всё-таки поле ACCESS делать строковым? Чем не устраивает INT?