changepwd.pas

ERP 一段源码,也许你会用到,在一个朋友处拿来的.

{//标题：服装MRP系统
 //时间：2002.5
 //内容：修改密码模块。
 //修改：
}
unit ChangePwd;

interface

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

type
  TfrmChangePwd = class(TfrmBase)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChangePwd: TfrmChangePwd;

implementation

uses ServerDm;
{$R *.dfm}

procedure TfrmChangePwd.BitBtn2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmChangePwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  action := caFree;
  frmChangePwd := nil;
end;

procedure TfrmChangePwd.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if Uppercase(edit1.Text) <> sUserPwd then
    raise Exception.Create('旧密码不对！');
  if Uppercase(edit2.Text) <> Uppercase(edit3.Text) then
    raise Exception.Create('验证错误！');
  if dmServer.adodssysmangager.Locate('sID', iUserID, []) then
  begin
    dmServer.adodssysmangager.Edit;
    dmServer.adodssysmangager.FieldByName('sPassWord').AsString := Edit2.Text;
    dmServer.adodssysmangager.Post;
    sUserPwd := UpperCase(edit2.Text);
    messageDlg('密码修改成功！', mtInformation, [mbOk], 0);
  end;
end;

end.