Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;





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




Наверх





Память: 0.73 MB
Время: 0.039 c
1-18864           VID                   2002-01-22 11:43  2002.02.07  
Передача и ПОЛУЧЕНИЕ команд от одной проги к другой.


1-18805           Sergey001             2002-01-24 18:34  2002.02.07  
Компонент ListView с независимым свойством Font


1-18913           Reals                 2002-01-21 19:53  2002.02.07  
Как подцепить в процедуру копирования файла ProgressBar...


3-18746           sasa_ch               2002-01-09 09:55  2002.02.07  
PLS


3-18779           nikols                2002-01-09 10:49  2002.02.07  
Вызов хранимой процедуры из пакета Oracle через BDE