changepwd.~pas

来自「Barcode And LabelPrint」· ~PAS 代码 · 共 67 行

unit ChangePWD;

interface

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

type
  TfrmChangePWD = class(TfrmDailogBase)
    bbtOk: TBitBtn;
    bbtCancel: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtOld: TEdit;
    edtNew: TEdit;
    edtValidate: TEdit;
    Bevel1: TBevel;
    procedure bbtOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChangePWD: TfrmChangePWD;

implementation

Uses Global;
{$R *.dfm}

procedure TfrmChangePWD.bbtOkClick(Sender: TObject);
begin
  inherited;
if UpperCase(edtOld.Text)<>G_sPWD then
   Raise Exception.Create('原密码不正确！');
if UpperCase(edtNew.Text)<>UpperCase(edtValidate.Text) then
   Raise Exception.Create('验证密码与新密码不同！');
try
with dmClient.dsetUser do
if Locate('fID',G_iUserId,[]) then
   begin
   Edit;
   FieldbyName('fPWD').AsString :=edtValidate.Text;
   Post;
   end;
except
on E:Exception do
   Raise Exception.Create('修改密码失败！'+#13#10+E.Message);
end;
G_sPWD:=UpperCase(edtValidate.Text);
MessageDlg('密码修改成功！',mtInformation,[mbOk],0);
end;

procedure TfrmChangePWD.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
frmChangePWD:=Nil;
end;

end.