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.