Как сделать, чтобы с программой могли работать разные пользователи?

[вася радугов]

Работы не боюсь, главное понимать, что делать.
Спасибо.
Можете пояснить кое -что. Что значит "читаете из БД уровень доступа" - как это реализовать?

И как задать при входе параметры интерфейса в соответствии с уровнем доступа?

[Streletz]

Можете пояснить кое -что. Что значит "читаете из БД уровень доступа" - как это реализовать?

Значение уровня доступа для конкретной роли выбирается простым запросом типа select и сохраняется в переменной для последующего использования пока именно этот конкретный пользователь работает с программой.

как задать при входе параметры интерфейса в соответствии с уровнем доступа?

Обычная проверка с использованием оператора if либо case. Для каждой кнопки, меню и т.д. программы проверяете уровень доступа на соответствие требуемому. Если равен или выше, то доступ разрешён, если нет запрещён. Разрешение или запрещение доступа можно легко сделать с помощью свойств Visible или Enabled на выбор.
всё это делаете до того как "рабочая" форма будет показана юзеру. Например, в событии OnShow. Только не используйте для этих целей OnCreate.

[вася радугов]

Создал я новую форму, добавил на нее DBCombobox для ввода логина, DBEdit - для пароля и кнопку. Также создал две таблицы, как вы мне написали: Пользователи и роли.

Получается , что для входа в программу надо проверить уровень доступа. Для этого надо создать запрос. Можете подсказать примерно каким должен быть запрос?

[Streletz]

Получается , что для входа в программу надо проверить уровень доступа.

Естественно, иначе разграничение доступа теряет смысл. Откуда программа узнает, что вместо 1го пользователя в ней теперь работает 2й?

Для этого надо создать запрос.

Об этом я открытым текстом писал в предыдущих постах

Можете подсказать примерно каким должен быть запрос?

Примерно таким:

select [уровень_доступа] from [Роли] inner join [Пользователи] on [Роли].[id]=[Пользователи].[idРоли] where [Пользователи].[Логин]='Админ'

Разумеется, что слово 'Админ' было написано исключительно для примера. В рабочем запросе должен быть либо параметр, который будет принимать значение логина или запрос нужно формировать полностью программно.

[вася радугов]

заменил DBCombobox на Combobox.
Попытался составить вот такой запрос. Подскажите в чем ошибка?

procedure TForm14.BitBtn1Click(Sender: TObject);
 var d: string;
begin
form14.ADOQuery1.Close;
form14.ADOQuery1.SQL.Clear;
form14.ADOQuery1.SQL.Add('SELECT roli.yroven_dostypa');
form14.ADOQuery1.SQL.Add('FROM roli INNER JOIN users ON roli.id = users.id_roli');
form14.ADOQuery1.SQL.Add('where users.login=d');
  d:=ComboBox1.Items[ComboBox1.itemindex];
  form14.ADOQuery1.Open;
end;

[Streletz]

заменил DBCombobox на Combobox.

Это зря. У Вас учётные данные хранятся в БД. Как вы их будете от туда доставать? Можно, конечно, загрузить данные из БД и в ComboBox. Только, вот зачем дотягиваться до левого уха правой рукой.
А, если надо завести нового пользователя?

Подскажите в чем ошибка?

В запрос не передаётся логин.

1. Потому, что переменная внутри текста и поэтому воспринимается как строка.
2. Значение присваивается ей уже после формирования запроса.

Лично я вижу решение приблизительно таким (исправленное подчёркнуто):

procedure TForm14.BitBtn1Click(Sender: TObject);
 var d: string;
begin
form14.ADOQuery1.Close;
form14.ADOQuery1.SQL.Clear;
form14.ADOQuery1.SQL.Add('SELECT roli.yroven_dostypa');
form14.ADOQuery1.SQL.Add('FROM roli INNER JOIN users ON roli.id = users.id_roli');
form14.ADOQuery1.SQL.Add('where users.login='+QuotedStr(DBCombobox1.Items[DBCombobox1.ItemIndex]));
form14.ADOQuery1.Open;
end;

Примерно, как-то так...

[вася радугов]

Спасибо, исправил свой запрос.

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

Обычная проверка с использованием оператора if либо case. Для каждой кнопки, меню и т.д. программы проверяете уровень доступа на соответствие требуемому. Если равен или выше, то доступ разрешён, если нет запрещён. Разрешение или запрещение доступа можно легко сделать с помощью свойств Visible или Enabled на выбор.
OnCreate.

получается для проверки if/case тоже надо создавать запрос?

[Streletz]

Сообщение от вася радугов

получается для проверки if/case тоже надо создавать запрос?

Достаточно просто добавить поля в Ваш запрос и сразу вытащить из обеих таблиц всё, что нужно и сохранить в переменных, а лучше в записи или классе, олицетворяющих текущего пользователя.

[вася радугов]

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

Достаточно просто добавить поля в Ваш запрос и сразу вытащить из обеих таблиц всё, что нужно и сохранить в переменных, а лучше в записи или классе, олицетворяющих текущего пользователя.

А можете, пожалуйста, пояснить с примером, а то мне не очень понятно

[Streletz]

Сообщение от вася радугов

А можете, пожалуйста, пояснить с примером, а то мне не очень понятно

Что именно? Запрос, запись с классом или ещё что-то?..