как разбить код на 2 части

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

1. Такая задача надо разбить на 2 части !!! Первое (Программа для Администратора) Где администратор даёт права на привилегии , логин и пароль
2. Программа для пользователя из который заходить своего (Логин и Пароль)
После авторизации через условие определяем что кому доступно.
как это реализовать правильно
Вот сам код куда что вставить нада подскажите((

procedure TForm21.Button1Click(Sender: TObject);
var
  log: String;
begin
  log := DBLookupComboBox1.Text;
  with AdoQuery1, Parameters do
  begin
    SQL.Text:='SELECT * FROM Авторизация  WHERE ( Логин= :логин) and (Пароль = :пароль)';
    ParamByName('логин').Value := log;
    ParamByName('пароль').Value := Edit1.Text;
    Open;
    if RecordCount > 0 then
    begin
      if FieldValues['Логин'] = '1111' then
        showmessage('Вход в систему под Администратором выполнен.')
      else
        showmessage('Вход в систему Выполнен.');
 
      Form21.Hide;
      Form1.Show;
    end else
    begin
      SQL.Text:='SELECT * FROM Авторизация';
      Open;
      Edit1.Clear;
      showmessage('Веден неверный пароль!!!');
    end;
  end;     end;
end.

[Stilet]

как это реализовать правильно

Админу БД не нужно такое приложение. Все права и доступы по хорошему задаются админом при взаимодействии с тулзами самой СУБД. Для него ничего писать не надо.

Вот сам код куда что вставить нада подскажите

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

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

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

Админу БД не нужно такое приложение. Все права и доступы по хорошему задаются админом при взаимодействии с тулзами самой СУБД. Для него ничего писать не надо.

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

как сделать чтоб чтобы пользователь мог открывать только определеные формы в проекте

[Stilet]

Ох... Вообще-то такие вопросы решаются на этапе проектирования, а не написания кода.
В твоем случае - никак )
Если бы я проектировал такое, то видимо я бы делал все с помошью плагинов (это не формы). Есдинственное что могу тебе предложить, это хранить в базе пользователей поле, в котором будет список форм (всмысле их имен). А если юзер хочет запустить некую форму в событии скажем OnShow или OnActivate считывать это поле и сверять - есть ли в нем TForm(self).name;
Если нет - выводить сообщение и закрывать форму.

[Mad_Cat]

вставлю свои 5 копеек
есть 2 роли : Админ и Юзер
заведем поле : куда будем ставить 0 - если юзер и 1 - если админ
Формочки, я так понимаю, вызываются кнопачками, так вот у этих кнопачек есть свойство Tag, куда можно записать 0, если кнопка доступна для юзера и 1, если для админа
И после авторизации(мы считаем циферки из нашего поля же) и делаем все кнопки у которых tag<=этой циферки доступными, а остальные не доступными соответственно и усе!
слово кнопачки написано так специально