Разграничение прав доступа

[Len@09]

Всем привет!
К своей программе я создала форму для ввода пользователя и пароля.
В Access создала таблицу: ТаблицаПользователи. В ней создала 2-х пользователей: User и Инспектор и задала им пароли. В Delphi создала новую форму, поместила на нее ADOConnection1, ADOQuery (UserQuery), Edit1(LoginEdit) Edit2(PasswordEdit), 2 кнопки (Вход и Отмена).
Подскажите, как сделать, чтоб у одного пользователя был полный доступ, а у другого только просмотр?

[Stilet]

А что значит "полный доступ"?
Ввел пользователь пароль, прога пусть его анализирует и в зависимости от него выполняет или не выполняет команды.

[Len@09]

Наверное, не правильно был задан вопрос. У меня 2 пользователя, одному из них можно только просматривать данные, которые занес другой пользователь.

[BARNEY]

ну создай 2 ADOConnection и ADOQuery

в первом случаи одни команды в другом другие и всё

[Len@09]

В Access создала еще одну таблицу:
Пользователиогранич.
Key – Счетчик
Логин – Текстовый
Пароль – Текстовый
Доступ – Логический.
Завела пользователя и задала ему пароль. В Delphi в DataModule4 добавила 2 DataSource и 2 ADOTable (User и Userogran), все подключила.
По кнопке Вход такой код:

procedure TUserForm.SpeedButton1Click(Sender: TObject);
begin
If (LoginEdit.Text<>'') and (PasswordEdit.Text<>'') then 
 begin
 UserQuery.Active:=false;
 UserQuery.Parameters.ParamByName('log').Value:=LoginEdit.Text;
 UserQuery.Active:=true;
   If UserQuery.RecordCount<>0 then
     begin
      If UserQuery.FieldByName('Пароль).AsString=PasswordEdit.Text then begin
         login:=LowerCase(LoginEdit.Text);
         If UserQuery.FieldByName('Доступ').AsString='True' then  Form1.ShowModal
            else Dostup:=false;
             Close;
       end
          else Showmessage('Пароль не верный!');
     end;
 end
    else ShowMessage('Введите имя пользователя и пароль');
end;

По этой кнопке, второго пользователя (User) вобще не пускает.
Подскажите, может что-то не доделала?

[Evgeniy26]

Посмотри безопасность в Access. Настраивай всю политику безопасности на уровне БД. Зачем что-то мудрить если уже все сделано. Microsoft Office Access 2007 -> Входишь в свою базу -> Работа с базами данных -> Пользователи и разрешения -> Разрешения, и там если я не ошибаюсь на уровне каждой таблицы можно настроить разрешения, для определенного пользователя.

[Len@09]

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

ну создай 2 ADOConnection и ADOQuery

в первом случаи одни команды в другом другие и всё

Создала 2 ADOConnection и ADOQuery (UserQuery и UserQuery1).
Теперь с кодом проблемы. По кнопке Вход теперь такой код:

procedure TUserForm.SpeedButton1Click(Sender: TObject);
begin
If (LoginEdit.Text<>'') and (PasswordEdit.Text<>'') then //поля не пустые
 begin
 UserQuery.Active:=false;
 UserQuery.Parameters.ParamByName('log').Value:=LoginEdit.Text;
 UserQuery.Active:=true;
   If UserQuery.RecordCount<>0 then
     begin
      If UserQuery.FieldByName('Пароль').AsString=PasswordEdit.Text then 
begin
         login:=LowerCase(LoginEdit.Text);
         If UserQuery.FieldByName('Доступ').AsString='True' then  Form1.ShowModal//есть доступ
            else Dostup:=false;
            Close;
      end
          else Showmessage('Пароль не верный!');
     end;
 end
    else ShowMessage('Введите имя пользователя и пароль!')//пустые поля
end

or

If (LoginEdit.Text<>'') and (PasswordEdit.Text<>'') then //поля не пустые
begin
 UserQuery1.Active:=false;
 UserQuery1.Parameters.ParamByName('log').Value:=LoginEdit.Text;
 UserQuery1.Active:=true;
   If UserQuery1.RecordCount<>0 then
     begin
      If UserQuery1.FieldByName('Пароль').AsString=PasswordEdit.Text then
      begin
         login:=LowerCase(LoginEdit.Text);
         If UserQuery1.FieldByName('Доступ').AsString='True' then  Form1.ShowModal//есть доступ
            else Dostup:=false;
            Close;
      end
          else Showmessage('Пароль не верный!');
     end;
end;
end.

Что тут не так?

[soleil@mmc]

1) было бы интересно посмотреть на текст запроса
2) Close; будет выполняться всегда - если пароль неверный и если юзер закрыл форму Form1

[Len@09]

Select*
From ТаблицаПользователи
Where Логин Like:Log

При компиляции выдает такие ошибки:
[Error] Unit14.pas(87): Operator not applicable to this operand type
[Error] Unit14.pas(90): ';' expected but '.' found
[Error] Unit14.pas(92): Declaration expected but end of file found
[Fatal Error] NalogProject.dpr(20): Could not compile used unit 'Unit14.pas'

[Stilet]

[Error] Unit14.pas(87): Operator not applicable to this operand type

На какой строке то эти ошибки выползают?