unit upass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InvokeRegistry, StdCtrls, DB, DBClient, ExtCtrls, Grids,
  DBGrids, ADODB,  kxiancommon;

type
  TPassEditDlg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    NewPass: TEdit;
    edtAccount: TEdit;
    Panel1: TPanel;
    btnOK: TButton;
    btnCancel: TButton;
    adoqUser: TADOQuery;
    Label3: TLabel;
    PassCheck: TEdit;
    Label4: TLabel;
    OldPass: TEdit;
    ADOQedit: TADOQuery;
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private

end;

implementation

{$R *.dfm}
{ TPassDlg }

procedure TPassEditDlg.btnOKClick(Sender: TObject);
var sOldPass, sNewPass, sNewCheck :string;
begin
    sOldPass := OldPass.Text;
    sNewPass := Trim(NewPass.Text);
    sNewCheck :=  Trim(passCheck.Text);
    if sNewPass<> sNewCheck then
    begin
        showmessage('新密碼和驗(yàn)證密碼不一致，請(qǐng)重新輸入');
        exit;
    end;
    with adoqUser do
    begin
        Parameters.ParamByName('userName').Value := sUserName;
        Parameters.ParamByName('Password').Value := sOldPass;
        if Active then Close;
        Open;
        if RecordCount > 0 then
        begin//change the pass
                close;
                adoqedit.sql.text :='update users set password =' + snewpass +' where userName =' + quotedStr(sUserName);
                adoqedit.execSql;
                adoqedit.close;
                ModalResult := mrCancel;
        end
        else  showmessage('密碼不正確，請(qǐng)重新輸入');
    end;

end;

procedure TPassEditDlg.FormCreate(Sender: TObject);
begin
        adoquser.Connection := adocwdkz;
        adoqedit.Connection := adocwdkz;
        edtAccount.Text := sUserName;
end;

end.