| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как запаролить форму [D7, Paradox]

Nicky ©   (2006-05-10 20:09:00) 

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

---

Nicky   (2006-05-14 22:22:00) [1]

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

---

Gydvin   (2006-05-14 16:39:00) [2]

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

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

---

Nicky   (2006-05-14 15:34:00) [3]

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

---

Kolan   (2006-05-14 14:26:00) [4]

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

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

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

---

Nicky   (2006-05-14 14:11:00) [5]

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

---

Asail   (2006-05-13 14:32:00) [6]

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

---

Nicky   (2006-05-12 23:09:00) [7]

Теперь сделала так:
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;

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

---

Nicky   (2006-05-11 23:21:00) [8]

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

---

Мефисто   (2006-05-10 22:37:00) [9]

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

---

Gydvin   (2006-05-10 22:29:00) [10]

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

---

Nicky   (2006-05-10 22:24:00) [11]

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

---

Gydvin   (2006-05-10 22:11:00) [12]

ну что то типа:

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.


---

Anatoly Podgoretsky   (2006-05-10 21:50:00) [13]

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

---

Nicky   (2006-05-10 20:46:00) [14]

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

---

Desdechado   (2006-05-10 20:24:00) [15]

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

это хотел?

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

---

Наверх