Форум: "Система";
Текущий архив: 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.46 MB
Время: 0.007 c