плиз

← →
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;

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