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

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

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

password [D6, Win95/98]

shok © (2003-01-15 09:34:00)
Люди помогите. Есть форма её нужно показать после правильного ввода пароля.

Calm (2003-01-15 12:06:00) [1]
I>
> Юра (15.01.03 11:56)

Действительно так. Это не хороший стиль.

Юра (2003-01-15 11:56:00) [2]
> Axis_of_Evil

Меня глючит но по-моему на дельфикингдоме сильно не рекомендовали делать запрос пароля в dpr, а хотя бы OnShow формы.

shok (2003-01-15 11:53:00) [3]
Спасибо Axis_of_Evil все работает!

Axis_of_Evil (2003-01-15 11:47:00) [4]
Слухай все сюда:
в dpr:

program Initalize;

uses
Forms,
Dialogs,
Controls,
MainFrm in "MainFrm.pas" {MainForm};

{$R *.RES}

var
Password: String;
begin
if InputQuery("Password", "Enter your password", PassWord) then
if Password = "D4DG" then
begin
// Other initialization routines can go here.
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end
else
MessageDlg("Incorrect Password, terminating program", mtError, [mbok], 0);
end.

Calm (2003-01-15 11:26:00) [5]
2 shok

Есть такое понятие как "мышление специалиста терминами предметной области".
Т.е. если электронщик говорит "оптронная развязка", то обычный человек (не электротехник) в уме это переводит в известные ему понятия (ага, это такое устройство, которое делает то-то и то-то). Но для электронщика это естественное понятие.

Для каждого, кто тебе подказал, решение данной задачи элементарно. А тебе для понимания нужно более подробно объяснить. Это значит, что у тебя еще не достаточно квалификации и опыта. Это не говорит о том, что в твоей голове чего-то не хватает или плохо работает. Все придет с опытом. А его надо получать самому. Это такая штука, которую не получишь в посылке по почте.
Читай книги, пиши проги и все получится. Но не мгновенно. И не надо просить, что тебе все сделали другие.
Есть уровень знанияи уровень понимания. Если ты получишь абсолютно готовый пример, ты будешь знать, как он работает. Если ты сделаешь это сам, то будешь понимать, как это работает. Чувствуешь разницу?

Удачи!

P.S. Чего это я так? Да просто устроил себе небольшой перерывчик :)

shok (2003-01-15 11:24:00) [6]
Мне нужен код и подробное описание на все ПОМОГИТЕ!!!!!

shok (2003-01-15 11:12:00) [7]
Мне код нужен на все это (этот не работает) и подробное описание
ПОМОГИТЕ!

Skier (2003-01-15 10:58:00) [8]
>shok
Сделай форму для ввода пароля - главной формой приложения...
так проще всего... :)
Ну а вообще форму для ввода пароля нужно использовать в *.dpr - файле

Reindeer Moss Eater (2003-01-15 10:57:00) [9]
Люди НЕ ФИГА НЕ РАБОТАЕТ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Может у неё(у того, кто не работает нифига) день нерабочий? :)

shok (2003-01-15 10:54:00) [10]
Люди НЕ ФИГА НЕ РАБОТАЕТ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

neXt (2003-01-15 10:17:00) [11]
В TPasswordForm на OnOk что-нибудь вроде
cPwd := "мой секретный пароль:) весь из себя инкриптед"; ... begin ModalResult := mrNone; if medtPwd.Text = cPwd then ModalResult := mrOk; end;

Delirium^.Tremens (2003-01-15 10:14:00) [12]
У тебя батонов на клаве не хватает? Или ты действительно так пишешь?

shok (2003-01-15 10:11:00) [13]
Не хочу быть навящивым но можно подробно и кде тут сам пароль?

Calm (2003-01-15 10:06:00) [14]
var PasswordForm:TPasswordForm; MainForm:TMainForm; begin PasswordForm:=TPasswordForm.Create(application); if PasswordForm.ShowModal=mrOk then begin MainForm:=TMainForm.Create(Application); MainForm.Show; end; PasswordForm.Free; end;

shok (2003-01-15 09:49:00) [15]
Можно пожалуйста весь код...

neXt (2003-01-15 09:38:00) [16]
Если Правильно(Пароль) То Форма.Показать();

Наверх

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