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

//Модуль смены пароля администратора
unit Ad_change_pass;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;

type
TChangePass = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

procedure shif(filename, pas, input: string); external 'shifr.dll';
function deshif(filename, pas: string):string; external 'shifr.dll';


var
ChangePass: TChangePass;
pass, new_pass: string;
implementation

{$R *.dfm}

//Закрытие формы
procedure TChangePass.SpeedButton2Click(Sender: TObject);
begin
ChangePass.Close;
end;

//Смена пароля
procedure TChangePass.SpeedButton1Click(Sender: TObject);
begin
pass:=deshif('password.psw','23031985');
if LabeledEdit1.Text<>'' then
if LabeledEdit1.Text=pass then
if (pass<>LabeledEdit2.Text) then
if (LabeledEdit2.Text=LabeledEdit3.Text)and(LabeledEdit2.Text<>'') then
begin
new_pass:=LabeledEdit2.Text;
shif('password.psw','23031985',new_pass);
MessageDlg('Пароль успешно изменен!',mtInformation,[mbok],0);
ChangePass.Close;
end
else MessageDlg('Новые пароли не совпадают, либо не заданы!',mtInformation,[mbok],0)
else MessageDlg('Новый пароль совпадает со старым!',mtInformation,[mbok],0)
else MessageDlg('Не верный пароль!',mtInformation,[mbok],0);
end;

end.