Как запаролить форму

← →
Nicky © (2006-05-10 20:09) [0]

Есть программа. Нужно, чтобы при открытии опрашивало имя и пароль с возможность регистрировать новых пользователей.
Если можно, подробно опишите процесс.

← →
Desdechado © (2006-05-10 20:24) [1]

1. открытие
2. спрашивание пароля
3. сравнение пароля
4. при необходимости регистрация нового
5. хз, в тз не описано

это хотел?

запаролить форму - это жутко

← →
Nicky © (2006-05-10 20:46) [2]

Я хотела подробное описание действий, а не издевательство!
Мне надо-надо

← →
Anatoly Podgoretsky © (2006-05-10 21:50) [3]

Ну ты его получила

← →
Gydvin © (2006-05-10 22:11) [4]

ну что то типа: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin form2.Show; form1.Enabled:=false; end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormHide(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; a:boolean; implementation uses Unit1; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin if edit1.Text="Edit1" then a:=true; hide; end; procedure TForm2.FormCreate(Sender: TObject); begin a:=false; end; procedure TForm2.FormHide(Sender: TObject); begin if a=false then form1.Close else form1.Enabled:=true; end; end.

← →
Nicky © (2006-05-10 22:24) [5]

Ну ведь начинать надо было паролить на главной форме, чтобы входить на вторую, а уменя главная уже есть. И шо делать?

← →
Gydvin © (2006-05-10 22:29) [6]

а зачем такое шаманство? блокируй главную пароль вводи на второй

← →
Мефисто (2006-05-10 22:37) [7]

Вторя форма - шовмодал, а первая визибле в False или Hide

← →
Nicky © (2006-05-11 23:21) [8]

OK. Сделала как написано. Скрыла главную форму, сделала модальную.
При проверке кода модальная форма закрывается(подтверждает пароль), а главная появляется в трее и не реагирует на мои действия.

← →
Nicky © (2006-05-12 23:09) [9]

Теперь сделала так:
Form1
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.ShowModal;
end;

Form2
procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.Text="123" then Form2.Close;
Form1.Show;
end;

А как новых юзеров регистрировать? Где сохраняются их пароли?

← →
Asail (2006-05-13 14:32) [10]

А это уж тебе решать... Например, в БД, в файле (текстовом или бинарном), в регистрах и т.д. При необходимости можно кодировать данные. Короче, все зависит от задачи и необходимой степени защиты.

А может кто напишет код как совместить ввод пароля в Edit, выбор пользователя через ComboBox, а сохранение паролей, наприм. в Memo.
А чтобы ввести нового юзера наверн. нужна какая-нибуть кнопка типа "сохранить"? или все автоматически?

А чтобы ввести нового юзера наверн. нужна какая-нибуть кнопка типа "сохранить"? или все автоматически?

Как ты думаешь это все работает? Просто кинул кнопку, загадал желание и "все автоматически" получится?

Надо как-то хранить(в базе в файле...) записи Логин-Пароль. Надо ими управлять итд.... Целое дело.

Ну так я же понимаю, что не все так просто, вот и прошу дать код. А то все поверхностно и поверхностно, а дальше догадывайся как умеешь. Код, который дал тов. Gydvin только на ввод определенного пароля в Edit и то у меня не покатил. Просто сталкиваюсь с подобным впервые, а очень хотца сделать

http://gydvin6.narod.ru/Test.rar

Я сегодня добрый )))))

Благодарю! ;)

Как запаролить форму Найти похожие ветки