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

[Serge_Bliznykov]

добавлю свои пять копеек...
Подобные вопросы на форуме уже обсуждались.
Примеры (c) BDA (Различные варианты) можно посмотреть тут:
http://programmersforum.ru/showpost....99&postcount=4
http://programmersforum.ru/showpost....9&postcount=18

p.s. там проверка логина/пароля без использования БД/Query, но, в данном случае, это не принципиально.
Важно взаимодействие окон...

[Streb]

Serge_Bliznykov, Посмотрел все эти примеры. Весь их смысл в том, что форму авторизации делают Available Form. А главная форма, Main Form. Но как я писал до этого, на данном этапе у меня появляется ошибка.

[eval]

вы главное не расстраивайтесь, ну ошибка ну и бог с ней, в конце то концов не конец света, так жеж?
все проходит, пройдет и это.

[Streb]

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

вы главное не расстраивайтесь, ну ошибка ну и бог с ней, в конце то концов не конец света, так жеж?
все проходит, пройдет и это.

Я не расстраиваюсь, а пытаюсь решить возникшую проблему!

[eval]

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

[Streb]

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

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

Во-первых, я не плачу тут, а ищу реальную помощь.
Во-вторых, проблему я уже решил, теперь все работает нормально.

Спасибо всем, кто помогал.

[xxbesoxx]

Сообщение от 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;

Смотрите суда на ссылку !
http://programmersforum.ru/showthrea...11#post1362411

[eval]

Во-первых, я не плачу тут, а ищу реальную помощь.

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

[Streb]

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

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

Вы читаете тему с конца? Или вначале слишком много для Вас текста, что лень прочитать?
В самом начале темы, в самом первом сообщении написано какая ошибка вылазит.
Если Вам нечего сказать по теме, то лучше промолчать.

[Streb]

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

Смотрите суда на ссылку !
http://programmersforum.ru/showthrea...11#post1362411

Спасибо, проблему уже решил!