c_changepass.pas

《delphi数据库设计与实例开发》随书光盘

unit c_changepass;

interface

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

type
  Tcfrm_changepass = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    e_oldpass: TEdit;
    e_newpass: TEdit;
    e_passok: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_changepass: Tcfrm_changepass;

implementation
uses publicvar,datam;

{$R *.dfm}

procedure Tcfrm_changepass.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   begin
    key:=#0;
    perform(wm_nextdlgctl,0,0);
   end;
end;

procedure Tcfrm_changepass.FormActivate(Sender: TObject);
begin
e_oldpass.SetFocus();
end;

procedure Tcfrm_changepass.BitBtn1Click(Sender: TObject);
var
  kl:variant;
  pass:string;
begin
  kl:=dm.ado_user.lookup('username',username,'pass');
  if varisnull(kl) then pass:='' else pass:=kl;
  if e_oldpass.text<>pass then
    begin
     application.messagebox(pchar('原密码录入错，请重新录入！'),pchar('提示')
     ,MB_ICONEXCLAMATION);
     e_oldpass.text:='';
     e_oldpass.SetFocus();
     exit;
    end;
  if e_newpass.text<>e_passok.Text then
    begin
     application.messagebox(pchar('新密码与确认密码不一致，请重新录入！')
     ,pchar('提示'),0+MB_ICONEXCLAMATION);
     e_newpass.text:='';
     e_passok.text:='';
     e_newpass.SetFocus();
     exit;
    end;
  dm.ado_user.Locate('username',username,[]);
  dm.ado_user.Edit;
  dm.ado_user.FieldByName('pass').asstring:=e_newpass.text;
  dm.ado_user.post;
  application.messagebox(pchar('密码修改成功！'),pchar('提示')
  ,MB_ICONINFORMATION);
  close;
end;

procedure Tcfrm_changepass.BitBtn2Click(Sender: TObject);
begin
 close;
end;

procedure Tcfrm_changepass.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dm.ADO_user.Active:=false;
 release;
end;

procedure Tcfrm_changepass.FormCreate(Sender: TObject);
begin
  dm.ADO_user.Open;
end;

end.