Логин форма.

← →
Xmen (2007-04-16 16:30) [0]

Привет мастера.
Как можно сделать так чтобы пользователь запуская прогу сначала набирал логин и парол, и когда этот логин и парол соответствует той что хранится в базе потом загружался главная форма, а логин форма закрывался.
У меня получается так сначала появляется сплеш экран а потом логин форма и когда правильно набран парол и логи то открывается основная форма но дело в том что логин форма остаётся зади основной формы, то есть она стоновиться главной формой проекта.

← →
ANB © (2007-04-16 16:32) [1]

Сделать в свойствах проекта главной формой основную форму. А форму логина вызвать, например, по OnShow основной формы.
ЗЫ. Каким боком это к базам ? Явно в раздел "Начинающим"

← →
Xmen (2007-04-16 16:43) [2]

>>ЗЫ. Каким боком это к базам ? Явно в раздел "Начинающим"
Ну ладно я это понял.
У меня прога работает с базо и поэтому здесь решил написать.

>>Сделать в свойствах проекта главной формой основную форму. А форму >>логина вызвать, например, по OnShow основной формы.

Ну тогда и основная форма появится, а мне нужно чтобы он появилься до основной формы.

← →
Jan1 (2007-04-16 17:09) [3]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619925&n=16

← →
Xmen (2007-04-17 08:41) [4]

> Jan1 (16.04.07 17:09) [3]
> http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619925&n=16

Я уже сделал давно по этому примеру сплеш экран (об этом уже писал), но мне нужен логин форма.

← →
Jan1 (2007-04-17 10:12) [5]

> Я уже сделал давно по этому примеру сплеш экран (об этом
> уже писал), но мне нужен логин форма.

кто мешает сделать "логин форма" по подобию сплеша?

← →
Xmen (2007-04-17 10:45) [6]

Но в одной форме как может быт 2 сплеша? Тоесть уменяже сплеш экран уже есть.
try
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.Initialize;
Application.Title := "Канцелярия";
Application.CreateForm(TDMKanc, DMKanc);
Application.CreateForm(TLoginForm, LoginForm);
Application.CreateForm(TMain, Main);
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TFindForm, FindForm);
Application.CreateForm(TAboutForm, AboutForm);
Application.CreateForm(THisobot, Hisobot);
Application.CreateForm(TBook, Book);
Application.CreateForm(TFishka, Fishka);
Application.CreateForm(TSeachForm, SeachForm);
Application.CreateForm(TNazOlForm, NazOlForm);
Application.CreateForm(TEdits, Edits);
Application.CreateForm(TFormIjro, FormIjro);
Application.CreateForm(THisobot2, Hisobot2);
Application.CreateForm(TNazQaytForm, NazQaytForm);
Application.CreateForm(TInfoForm, InfoForm);
Application.CreateForm(TBookForm, BookForm);
Application.CreateForm(TAdminsForm, AdminsForm);
Application.CreateForm(TIjrochiForm, IjrochiForm);
Application.CreateForm(TBulimForm, BulimForm);
Application.CreateForm(TNazOl1Form, NazOl1Form);
Application.CreateForm(TKontrolForm, KontrolForm);
SplashForm.Hide;
finally
SplashForm.Free;
end;
Application.Run;
если можеш напримере этого покажи.

← →
Jan1 (2007-04-17 10:55) [7]

Ну кто тебе мешает, показать логин форма предварительно сделав
SplashForm.Hide;
? А когда логин и пароль введут, то сделать уже логин форма Hide, а сплеш - шоу?

← →
Jan1 (2007-04-17 10:57) [8]

> Application.CreateForm(TDMKanc, DMKanc);
> Application.CreateForm(TLoginForm, LoginForm);
> Application.CreateForm(TMain, Main);
> Application.CreateForm(TMainForm, MainForm);
> Application.CreateForm(TFindForm, FindForm);
> Application.CreateForm(TAboutForm, AboutForm);
> Application.CreateForm(THisobot, Hisobot);
> Application.CreateForm(TBook, Book);
> Application.CreateForm(TFishka, Fishka);
> Application.CreateForm(TSeachForm, SeachForm);
> Application.CreateForm(TNazOlForm, NazOlForm);
> Application.CreateForm(TEdits, Edits);
> Application.CreateForm(TFormIjro, FormIjro);
> Application.CreateForm(THisobot2, Hisobot2);
> Application.CreateForm(TNazQaytForm, NazQaytForm);
> Application.CreateForm(TInfoForm, InfoForm);
> Application.CreateForm(TBookForm, BookForm);
> Application.CreateForm(TAdminsForm, AdminsForm);
> Application.CreateForm(TIjrochiForm, IjrochiForm);
> Application.CreateForm(TBulimForm, BulimForm);
> Application.CreateForm(TNazOl1Form, NazOl1Form);
> Application.CreateForm(TKontrolForm, KontrolForm);

Кстати зачем тебе все эти формы? Шоб було?

← →
Xmen (2007-04-17 11:19) [9]

Они там у меня автоматом получаются.
А что их нужно в Avialebels Form переводит?

← →
Jan1 (2007-04-17 11:31) [10]

> А что их нужно в Avialebels Form переводит?

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

> А форму >>логина вызвать, например, по OnShow основной формы.
>
>
> Ну тогда и основная форма появится, а мне нужно чтобы он
> появилься до основной формы.

А попробовать ? Я наоборот один раз мудохался, чтобы у меня появилась главная форма, а уже поверх нее - модальная для логина.

← →
Xmen (2007-04-17 16:00) [12]

> А попробовать ? Я наоборот один раз мудохался, чтобы у меня
> появилась главная форма, а уже поверх нее - модальная для
> логина.

это уменя запроста получается а вот наоборот упс

← →
Xmen (2007-04-18 08:52) [13]

Спосибо всем получился.
Может кому нибуд тоже пригодится.

SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
LoginForm:=TLoginForm.Create(Application);
Application.Initialize;
Application.CreateForm(TDMKanc, DMKanc);
SplashForm.Free;
if LoginForm.Showmodal=mrOk then
begin
Application.CreateForm(TMain, Main);
end
else Application.Terminate;
LoginForm.Free;
Application.Run;

← →
Jan1 (2007-04-18 09:02) [14]

а где потерял try finally?

Логин форма. Найти похожие ветки