097715 / Исходники / Магазин бытовой техники / Ad_reg

//Модуль регистрации пользователя как директора (ввода пароля директора)
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.