Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.007 c