Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:097715 / Исходники / Магазин бытовой техники / Ad_reg
.pas //Модуль регистрации пользователя как директора (ввода пароля директора)
unit Ad_reg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TRegistr = class(TForm)
Edit1: TEdit;
Label1: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Registr: TRegistr;
passw, in_pass:string;
function deshif(filename, pas: string):string; external 'shifr.dll';
implementation
uses Main;
{$R *.dfm}
//Завершение программы при отказе ввода
procedure TRegistr.SpeedButton2Click(Sender: TObject);
begin
Application.Terminate;
end;
//Проверка пароля
procedure TRegistr.SpeedButton1Click(Sender: TObject);
begin
if FileExists('password.psw') then
begin
passw:=deshif('password.psw','23031985');
if in_pass=passw then
begin
Registr.Visible:=false;
MainForm.Timer1.Enabled:=true;
MainForm.ShowModal;
end;
end
else MessageDlg('Файл с паролями не найден!',mtError,[mbok],0);
end;
//Отображение "*" вместо символов пароля
procedure TRegistr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
SpeedButton1Click(registr)
else
if key<>#8 then
begin
in_pass:=in_pass+key;
key:='*';
end
else delete(in_pass,length(in_pass),1);
end;
//Создание формы
procedure TRegistr.FormCreate(Sender: TObject);
begin
in_pass:='';
end;
//Скрытие основной формы
procedure TRegistr.FormActivate(Sender: TObject);
begin
MainForm.Visible:=false;
end;
end.
unit Ad_reg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TRegistr = class(TForm)
Edit1: TEdit;
Label1: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Registr: TRegistr;
passw, in_pass:string;
function deshif(filename, pas: string):string; external 'shifr.dll';
implementation
uses Main;
{$R *.dfm}
//Завершение программы при отказе ввода
procedure TRegistr.SpeedButton2Click(Sender: TObject);
begin
Application.Terminate;
end;
//Проверка пароля
procedure TRegistr.SpeedButton1Click(Sender: TObject);
begin
if FileExists('password.psw') then
begin
passw:=deshif('password.psw','23031985');
if in_pass=passw then
begin
Registr.Visible:=false;
MainForm.Timer1.Enabled:=true;
MainForm.ShowModal;
end;
end
else MessageDlg('Файл с паролями не найден!',mtError,[mbok],0);
end;
//Отображение "*" вместо символов пароля
procedure TRegistr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
SpeedButton1Click(registr)
else
if key<>#8 then
begin
in_pass:=in_pass+key;
key:='*';
end
else delete(in_pass,length(in_pass),1);
end;
//Создание формы
procedure TRegistr.FormCreate(Sender: TObject);
begin
in_pass:='';
end;
//Скрытие основной формы
procedure TRegistr.FormActivate(Sender: TObject);
begin
MainForm.Visible:=false;
end;
end.
Соседние файлы в папке Магазин бытовой техники