changepass.pas

相关的销售服务管理行业的一个软件

unit ChangePass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Buttons, ExtCtrls,Db, DBTables, ADODB,Registry ;

type
  TfrmChangePass = class(Tform)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    NewPass1: TMaskEdit;
    NewPass2: TMaskEdit;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  frmChangePass: TfrmChangePass;
implementation
uses umain,udata,U_DM, SYS_DataModal;
{$R *.DFM}

procedure TfrmChangePass.BitBtn1Click(Sender: TObject);
begin
  if NewPass1.Text <> NewPass2.Text then
  begin
    Application.MessageBox('新密码验证错误','错误',16);
    NewPass2.Text := '';
    NewPass2.SetFocus;
    Exit;
  end;
  Userpassword := NewPass1.Text;
  try
     //Connectdatabase;
     with ADOQuery1 do
       begin
         close;
         SQL.clear;
         SQL.add('select userPass from s_users where UserId =:pm1');
         Parameters[0].value:= UserId ;
         open;
         if not isempty then
         begin
         edit;
         fieldbyname('userpass').AsString :=Userpassword;
         post;
         Application.MessageBox('密码修改成功!','修改密码',MB_OK + MB_ICONINFORMATION);
         end;
       end;
   except
        Application.MessageBox('密码修改失败','错误',MB_OK + MB_ICONERROR);
        exit;
   end;
   close;
end;

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

procedure TfrmChangePass.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    ADOQuery1.Close;
    DM1.ADOCon1.close; 
    frmChangePass:=nil;
    action := cafree;
end;

end.