cf_changepass.pas

来自「《delphi数据库设计与实例开发》随书光盘」· PAS 代码 · 共 73 行

unit cf_changepass;

interface

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

type
  Tcfra_changepass = class(TFrame)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    e_oldpass: TEdit;
    e_newpass: TEdit;
    e_passok: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfra_changepass: Tcfra_changepass;

implementation
uses publicvar,datam;

{$R *.dfm}



procedure Tcfra_changepass.BitBtn1Click(Sender: TObject);
var
  kl:variant;
  pass:string;
begin
  kl:=dm.ado_user.lookup('user_name',username,'user_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('user_name',username,[]);
  dm.ado_user.Edit;
  dm.ado_user.FieldByName('user_pass').asstring:=e_newpass.text;
  dm.ado_user.post;
  application.messagebox(pchar('密码修改成功！'),pchar('提示')
  ,MB_ICONINFORMATION);
end;




end.