Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

плиз [D5, Win95/98]

SERGX © (2001-10-27 18:25:00)
Народ помогите ламеру мне надо сделать чтобы призапуске программы выскакивала менюшка и запрашивала имя и пароль ,табличка с пользователями есть в акцесе если у кого есть исходники пришлите заранее благодарен

Alexander Vasjuk (2001-10-30 12:57:00) [1]
Дима Ных.,
можно даже не тратить время на создание главного окна при неправльном пароле: Application.Initialize; ТвоеОкно := TТвоеОкно.Create(Application); if ТвоеОкно.ShowModal = mrOk then Application.CreateForm(...); //Главная форма ТвоеОкно.Free;
Application.Run;

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

Николай А. Дубик (2001-10-30 09:38:00) [3]
м-да... Ученье - свет, а неученье - чуть свет и на работу...
Скорее всего, вопрошающий (а он назвался ламером) под "меню" понимает то, что при запуске программы должен выскочить запрос логина и пароля (или только пароля). Для этого есть компонент PasswdDialog, его можно взять из Object Repository (просто можно выбрать File|New... и далее выбирать).

Dimanych (2001-10-30 09:29:00) [4]
Ты все-таки чуть-чуть обшибся с терминологией.
Мне кажется, что тебе нужно окно, в котором есть два компонента: 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.

Anatoly Podgoretsky (2001-10-30 08:59:00) [5]
И сними это дикое требование насчет менюшки

T2 (2001-10-30 03:25:00) [6]
Подробнее вопрос пожалуйста.

Андрей (2001-10-29 16:19:00) [7]
Поставь RXLib или ABCProfessional. там это есть и много еще чего.

stasev (2001-10-28 19:19:00) [8]
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 :(

stasev (2001-10-28 14:10:00) [9]
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;

Anatoly Podgoretsky (2001-10-27 19:20:00) [10]
Странная идея делать это в меню, а вводить данные то как, меню для этого не особено приспособлено, выбирать что имя из пунктов меню, затем аналогично пароль.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »