Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];

Вниз

Форма авторизации   Найти похожие ветки 

 
parovoZZ ©   (2006-05-07 21:57) [0]

Что-то не понял как сделать так, чтобы при запуске программы показывалась форма авторизации? Главной я её делать не хочу. Как модальное окно - без проблем, но глаза мозолит главное окно.


 
Джо ©   (2006-05-07 22:12) [1]

В файле проекта, сразу же после begin:

 AuthForm := TAuthForm.Create(nil);
 try
   if AuthForm.ShowModal = IDOK then
   begin
     //
     // проверяем данные авторизации
     // если неверны, то делаем Exit
     //
   end
   else
     Exit; // пользователь не нажал OK
 finally
   AuthForm.Free;
 end;


Весь остальной код следует за этим. Форме нет надобности оставлять в списке автосоздаваемых.


 
Marser ©   (2006-05-07 22:15) [2]

Хотя бы вот так
Application.ShowMainForm:=false


 
parovoZZ ©   (2006-05-08 20:24) [3]

А у меня ж ещё есть на главной форме ADOConnection и AdoCommand. Чтобы авторизоваться, мне надо подключиться к базе данных, а без create главной формы я не смогу воспользоваться ими. А кидать туда ещё адошки не хотца ради такого пустяка.


 
Гаврила ©   (2006-05-08 20:49) [4]

Можешь вызвать форму авторизации как рах в onCreate главной формы


 
Джо ©   (2006-05-09 00:49) [5]

> А у меня ж ещё есть на главной форме ADOConnection и AdoCommand

А ты их не туда клади, а на датамодуль.


 
parovoZZ ©   (2006-05-16 21:58) [6]


> А ты их не туда клади, а на датамодуль.

И пришлось полпроекта править :)


> Application.ShowMainForm:=false

Чой-то не работает


 
parovoZZ ©   (2006-05-26 00:10) [7]

Ну хорошо, а как быть, если я захочу перелогиниться? Мне надо основную форму с глаз долой убрать, а форму авторизации показать.
Visible := False?


 
Asail   (2006-05-26 01:56) [8]

Открывай форму с логином модально


 
tesseract ©   (2006-05-26 09:22) [9]


> Можешь вызвать форму авторизации как рах в onCreate главной
> формы

лучше навреное  в OnShow.


 
Alarm ©   (2006-05-26 10:13) [10]

>parovoZZ ©   (26.05.06 00:10) [7]
Ну хорошо, а как быть, если я захочу перелогиниться?


По меньшей мере странное желание?
Для чего же тогда авторизация, если пользователь может так "легко" перелогиниться?


 
parovoZZ ©   (2006-05-26 10:28) [11]

Пришёл другой человек, или админ))


 
Alarm ©   (2006-05-26 10:32) [12]

Логичнее, на мой взгляд, все-таки нормально завершать приложение


 
saxon   (2006-05-26 11:15) [13]

2 parovoZZ ©

Одно из (на мой взгляд) хороших вариантов - через OnIdle
Перед Application.Run; переписываешь OnIdle, а в нем его же чистишь и делаешь свою работу.


 
parovoZZ ©   (2006-05-27 15:54) [14]


> Джо ©   (09.05.06 00:49) [5]
> > А у меня ж ещё есть на главной форме ADOConnection и AdoCommandА
> ты их не туда клади, а на датамодуль.


А у датамодуля нет нэндла. Как быть? Мне б мессаги ещё половить.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.011 c
1-1146652023
Бормодед
2006-05-03 14:27
2006.06.11
Правильный превью


2-1148443939
poha
2006-05-24 08:12
2006.06.11
Прозрачность ToolBar.


2-1148216522
Tempora
2006-05-21 17:02
2006.06.11
Есть ли компонент...


2-1147024647
parovoZZ
2006-05-07 21:57
2006.06.11
Форма авторизации


1-1146891942
chizra
2006-05-06 09:05
2006.06.11
Установка Delphi5 поверх Delphi6





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский