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

Вниз

плиз   Найти похожие ветки 

 
SERGX   (2001-10-27 18:25) [0]

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


 
Anatoly Podgoretsky   (2001-10-27 19:20) [1]

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


 
stasev   (2001-10-28 14:10) [2]

V glavnoi forme pichech:

procedure TfmMain.FormCreate(Sender: TObject);
begin
fmIPaddress := TfmIPIPaddress.Create(Application); //Sozdaech formy (mogno skopirovat iz faila proekta *.dpr)
fmIPIPaddress.ShowModal;
// fmIPIPaddress.Update;



fmIPIPaddress.Free; // Pri vixode osvobogdaetsia

end;


 
stasev   (2001-10-28 19:19) [3]

Nemnogo ochibsia :(

Sozdaech formy, kotoryy xochech pokazat - fmIPaddress, zatem v glavnoi forme na sobitee onCreate dobavliaech...

procedure TfmMain.FormCreate(Sender: TObject);
begin
fmIPaddress := TfmIPIPaddress.Create(Application); //Sozdaech formy(mogno skopirovat iz faila proekta *.dpr - no tam nado ybrat eti stroki!!!)
fmIPaddress.ShowModal;
// Zdes bydech sidet poka ona ne zakroetsia!!!
fmIPaddress.Free; // Pri vixode osvobogdaetsia

end;

Prochy prochenie za povtor :(



 
Андрей   (2001-10-29 16:19) [4]

Поставь RXLib или ABCProfessional. там это есть и много еще чего.


 
T2   (2001-10-30 03:25) [5]

Подробнее вопрос пожалуйста.


 
Anatoly Podgoretsky   (2001-10-30 08:59) [6]

И сними это дикое требование насчет менюшки


 
Dimanych   (2001-10-30 09:29) [7]

Ты все-таки чуть-чуть обшибся с терминологией.
Мне кажется, что тебе нужно окно, в котором есть два компонента: TEdit(имя пользователя) и TMaskEdit(пароль). Вместо TEdit можно использовать TDBCombobox. Только нужно узнать как его подключить к Access. Окно делаешь обычным юнитом, а в очереди его ставишь вторым. В своем юните в разделе interface создаешь константу mrError = -20 (любое число меньшее -8). При неправильном ответе на пароль пишешь перед выходом ModalResult := mrError. А дальше в файле .dpr ты пишешь


project My;

uses .......;

begin
Application.Initialize;
...
CreateForm (твое окно);
if ТвоеОкно.ShowModal in [mrCancel, mrError] then
Application.Close;
или
begin
ТвоеОкно.Close;
ГлавноеОкно.Close;
end;
дальнейший текст программы.
end.


 
Николай А. Дубик   (2001-10-30 09:38) [8]

м-да... Ученье - свет, а неученье - чуть свет и на работу...
Скорее всего, вопрошающий (а он назвался ламером) под "меню" понимает то, что при запуске программы должен выскочить запрос логина и пароля (или только пароля). Для этого есть компонент PasswdDialog, его можно взять из Object Repository (просто можно выбрать File|New... и далее выбирать).


 
pasha676   (2001-10-30 11:47) [9]

Как я понял проблема в этом: при запуске програмы вылетает форма. Сначала на нее надо помедитировать, нажать, укусить - вообщем выполнить действие. Потом вылетает основная прога.
Dimanych все правильно написал. Но если ты уж совсем чайник, то не забудь в опциях проекта не делать авто постройку формы запроса пароля. Главное окно программы наоборот - автопостроение должнобыть.
Еще - "дальнейший текст" это как правило Application.Run;
окно с паролем надо не только закрыть но и free-кнуть(впрочем это можно сделать и в самой форме, а не в файле проекта)
и кроме show иногда надо применить метод Update (ТвоеОкно.Update) - особенно если надо не пароли выводить, а картиночки-сплэшики например.


 
Alexander Vasjuk   (2001-10-30 12:57) [10]

Дима Ных.,
можно даже не тратить время на создание главного окна при неправльном пароле:
Application.Initialize;
ТвоеОкно := TТвоеОкно.Create(Application);
if ТвоеОкно.ShowModal = mrOk then Application.CreateForm(...); //Главная форма
ТвоеОкно.Free;

Application.Run;





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

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

Наверх





Память: 0.47 MB
Время: 0.006 c
3-18714
Pavel_s
2002-01-09 14:57
2002.02.07
DBGrid


3-18719
Борис
2002-01-10 09:37
2002.02.07
Пропадают все записи в таблицах


1-18911
kserg@ukr.net
2002-01-23 15:19
2002.02.07
Вопрос по ActionList


1-18797
Super_Drive
2002-01-24 16:58
2002.02.07
Проблема с Chart


14-18972
Дремучий
2001-12-18 23:38
2002.02.07
boom.ru !!! boom-boom!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский