Авторизация и роли Delphi+Mysql

[muserun]

Здравствуйте.
Есть программка в Delphi решающая простой учет поставок товаров,услуг.Работает отлично уже больше года.Сейчас пересоздали на Delphi 10.4.
Программка была однопользовательская и имела базу данных MySQL локально.Работал один человек.Но возникла задача дать доступ к просмотру информации пользователю без прав редактирования.
Что сделано:
- создана удаленная база данных MySQL на удаленном сервере;
- созданы 2 таблицы admin_user и admin_role;
- таблицы связанные admin_role в качестве словаря имеет 3 записи админ,менеджер,пользователь;
- подключение к базе данных через ZEOS Access;
Создали форму frmAuth с edLogin,edPassword,btnAuth. Сразу возникла проблема.
Для открытия формы frmAuth в форме frmGeneral создан код и форма убрана из автосоздания

procedure TfrmGeneral.FormCreate(Sender: TObject);
 begin
  Application.Initialize;
  frmAuth :=TfrmAuth.Create(Application);
  if frmAuth.ShowModal = mrOK then
  begin
    Application.CreateForm(TfrmGeneral, frmGeneral);
    Application.Run;
  end;

Работает так.При запуске программы открывается форма frmAuth.при нажатии на btnAuth открывается форма frmGeneral,форма frmAuth скрывается,но если нажать на форме frmAuth иконку закрытия формы,то она закрывается и все-же открывается форма frmGeneral
Задача сделать вход только зарегистрированным пользователям.Как сделать закрытие программы при закрытии формы frmAuth. Спасибо

[BLACK_RAIN]

А нафига вам Application.Initialize и Application.Run в FormCreate? Каких грибов наелись?

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

Работает так.

никак оно не работает

[muserun]

Так вот и просим помочь.Многопользовательские программки с ролями не делали

[BLACK_RAIN]

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

Так вот и просим помочь.Многопользовательские программки с ролями не делали

При чем тут многопользовательские?
Начнем с простого вопроса. Вы когда-нибудь создавали проект, в котором было две или более формы?

[muserun]

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

[BLACK_RAIN]

Вы уже имеете какой-то опыт в программировании или только что сели?

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

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

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

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

.В настоящей программе мы просто создаем формы.

Вы делаете это в корне не правильно. Создавать формы нужно не так. Где вы взяли этот код?

[muserun]

https://ru.stackoverflow.com/questio...сновной-формой
Код взяли здесь.

[muserun]

Подскажите как нужно создавать формы.

[BLACK_RAIN]

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

https://ru.stackoverflow.com/questio...сновной-формой
Код взяли здесь.

Код, который вы взяли, нужно было писать не в OnCreate

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

Подскажите как нужно создавать формы.

Создайте новый проект VCL Forms Application и нажмите File -> New -> VCL Form Delphi
Будет автоматически создана новая форма и никакого кода писать не нужно.
Как ее показать или скрыть - это вопрос отдельный. Если не разберётесь - спрашивайте.

[muserun]

Да,спасибо....Формы создавать научили. По-сути у нас в основной программе таких форм 32.Каждая решает определенную задачу.От добавления строк в базе данных для словарей и до вывода сводных таблиц базы данных и создания отчетов.Но все-же спасибо. Суть вопроса не в этом. Ни разу не сталкивался с авторизацией в программе.Не было необходимости.Сейчас встала задача сделать таковую. Форму авторизации до создания главной формы вызываем

procedure TfrmGeneral.FormShow(Sender: TObject);
begin
frmAuth.ShowModal;
end;

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

Как ее показать или скрыть - это вопрос отдельный. Если не разберётесь - спрашивайте.

Подскажите...