Авторизация пользователя

[Streb]

Здравствуйте, Уважаемые Форумчане!
Подскажите, пожалуйста, как правильно сделать форму авторизации.
Вернее авторизацию я сделал, но при закрытии окна авторизации, открывается основная форма.
Как сделать, чтобы при закрытии формы авторизации, закрывалась все программа.
Пытался выбрать Main Form форму авторизации (в project options), но тогда выходит ошибка: "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"
Вот код программы:

procedure TForm9.btn1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='SELECT * FROM alp WHERE login = :p_login AND password = :p_passw';
  if (Trim(Form9.Edt1.Text) <> '') and (Trim(Form9.Edt2.Text) <> '')
  then 
  begin
    ADOQuery1.Parameters.ParamByName('p_login').Value := Form9.Edt1.Text;
    ADOQuery1.Parameters.ParamByName('p_passw').Value := Form9.Edt2.Text;
    try
      ADOQuery1.Open;
    Except
      //ShowMessage('Не удалось открыть таблицу пользователей');
      MessageBox(Handle,PChar('Не удалось открыть таблицу пользователей'),PChar('Ошибка входа'),MB_ICONINFORMATION);
      Exit;
    end;
    if ADOQuery1.RecordCount > 0
    then
    begin
      //ShowMessage('Вход успешно выполнен');
      MessageBox(Handle,PChar('Вход успешно выполнен'),PChar('Добро пожаловать!'),MB_ICONINFORMATION);
      Form9.Visible := False;
      Form1.Visible := True;
      ModalResult := mrOK
    end 
    else
    begin
      //ShowMessage('Неверный логин или пароль.Повторите ввод');
      MessageBox(Handle,PChar('Неверный логин или пароль.Повторите ввод'),PChar('Ошибка авторизации!'),MB_ICONINFORMATION);
      Form9.Edt1.Text := '';
      Form9.Edt2.Text := '';
    end;
  end
  else
    //ShowMessage('Пустые поля логин\пароль не допускаются');
    MessageBox(Handle,PChar('Пустые поля логин\пароль не допускаются'),PChar('Ошибка авторизации!'),MB_ICONINFORMATION);
end;

[Аватар]

Как сделать, чтобы при закрытии формы авторизации, закрывалась все программа.

Даже при успешной авторизации? А вообще закрывайте главную форму.

[Streb]

Аватар, при успешной авторизации основная форма закрываться не должна)
Здесь суть такая, что форму авторизации можно просто закрыть на крестик (не вводя данные авторизации) и откроется основная форма.
Каким образом закрывать главную форму?
Пробовал еще прописать событие FormClose, но не сильно помогло.
Не подскажите, как правильно сделать?

[Streletz]

Можно вместо FormClose посмотреть в сторону метода Hide.

[Streb]

Streletz, не работал с этим методом.
Насколько я понимаю нужно прописать

Form1.Hide;

И куда вставлять этот код? Получается на то же событие FormClose?

[Аватар]

Form9 вызывается по ShowModal, который возвращает modalresult. Вот его анализируйте после закрытия Form9 и поступайте соответственно

[Streletz]

И куда вставлять этот код?

Лучше всего его помесить в код, где обрабатывается успешная авторизация, вместо

Form9.Visible := False;

а Form1 (если я правильно понял, это основная форма программы, с которой работает пользователь) вызвать как

Form1.ShowModal;

После её закрытия, как уже советовали выше, анализировать значение ModalResult и выполнять соответствующие действия.

[eval]

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

[Streb]

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

Лучше всего его помесить в код, где обрабатывается успешная авторизация, вместо

а Form1 (если я правильно понял, это основная форма программы, с которой работает пользователь) вызвать как

Form1.ShowModal;

После её закрытия, как уже советовали выше, анализировать значение ModalResult и выполнять соответствующие действия.

Проделал описанное, ничего не изменилось.
Может я что-то не понял.
Поясните подробнее что это значит.

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

После её закрытия, как уже советовали выше, анализировать значение ModalResult и выполнять соответствующие действия.

[Streletz]

Модальные формы в Delphi