Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.06.2013, 01:06
bakalim bakalim вне форума
Прохожий
 
Регистрация: 13.06.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию авторизация

Всем привет! Народ помогите плиз, я новичок, но кое как осилил одно приложение. Осталось одна, ситуация которую не знаю как решить...
При запуске приложения сначала должна открываться форма авторизации, если логин и пароль верный то запускается слэш форма с картинкой, и после ее главная форма. Подскажите как реализовать. Что самое интересное в гугле полно инфы по отдельности, но ни слова как связать эту цепочку из трех форм... Буду признателен за помощь!
Ответить с цитированием
  #2  
Старый 13.06.2013, 01:12
bakalim bakalim вне форума
Прохожий
 
Регистрация: 13.06.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

может у кого есть исходник где такое реализовано... как не крутил не получилось...выдает ошибку...
Ответить с цитированием
  #3  
Старый 13.06.2013, 07:34
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,088
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от bakalim
может у кого есть исходник где такое реализовано... как не крутил не получилось...выдает ошибку...

Основной вопрос - откуда берется логин и пароль для проверки того, что ввел пользователь. В принципе, ничто не мешает "сесть" на OnCreate главной формы и, если что, вызвать Halt для закрытия приложения.

Код:
procedure TForm1.Create(Sender : TObject);
var
  I : Integer;
  ASplashForm : TSplashForm;
begin
  With TLoginForm.Create(Application) Do
    Begin
      If (Execute <> mrOK) And (Login <> 'username') And (Password <> 'pwd') Then Halt(0);
      Free;
    End;

  ASplashForm := TSplashForm.Create(Application);  
  ASplashForm.Show;
  ASplashForm.Update;
  For I := 1 to 100 Do
    Begin
      ASplashForm.ProgressBar1.Position := I;
      ASplashForm.Update;
    End;
  ASplashForm.Close;
  ASplashForm.Free;
end;

Execute, Login и Password соответсвенно метод и свойства TLoginForm.
На TSplashForm лежит TProgressBar.
Ответить с цитированием
  #4  
Старый 13.06.2013, 11:02
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Знакомая ситуация. Тут вся фишка в том, что вы должны проверку на логин, пароль реализовать до запуска основного приложения. Откройте исходник проекта и там уже делайте эту проверку и в случае успеха уже запускайте главное окно приложения.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 17.06.2013, 16:35
bakalim bakalim вне форума
Прохожий
 
Регистрация: 13.06.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Спасибо всем за советы! у меня проблема только в том как эти три формы связать, сами формы у меня готовы. дело в том что если в опциях проекта делаю главной форму авторизации все ок, после авторизации запускается форма меню, но если я пытаюсь с формы авторизации, в служае верной авторизации вызвать форму -заставку, то тут то и возникает проблема...
Ответить с цитированием
  #6  
Старый 17.06.2013, 20:06
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Я вам о том и говорю. Неправильно пытаться авторизацию встраивать в основное приложение. Можно, но сразу получите кучу проблем. Свернуть окно логина нормально не сможете, закрыть его тоже красиво не выйдет и есть еще кучка проблем главного окна приложения.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:55.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025