modifypass.pas

适合Delphi初学者使用。其中涉及XML文件导入

unit ModifyPass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, genModal, DBGridEh, StdCtrls, Mask, DBCtrlsEh, DBLookupEh;

type
  TfrmModifyPass = class(TFormGenModal)
    dlUser: TDBLookupComboboxEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    btnOK: TButton;
    btnCancel: TButton;
    edtOldPass: TEdit;
    edtNewPass: TEdit;
    edtConfirmPass: TEdit;
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmModifyPass: TfrmModifyPass;

implementation

uses gendm, genFunc, md5;

{$R *.dfm}

procedure TfrmModifyPass.btnCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmModifyPass.btnOKClick(Sender: TObject);
var
  sSQL: string;
begin
  inherited;
  if dlUser.Text = '' then
  begin
    Exit;
  end;
  if Trim(edtNewPass.Text) <> Trim(edtConfirmPass.Text) then
  begin
    Application.MessageBox(PChar('两个密码必须输入一致。'), PChar('警告'), MB_ICONWARNING + MB_OK);
    Exit;
  end;
  DM.QueUser.Locate('ID', dlUser.KeyValue, []);
  m_sName := DM.QueUser.FieldByName('PWD').AsString;
  if GetMD5String(Trim(edtOldPass.Text)) <> m_sName then
  begin
    Application.MessageBox(PChar('旧密码输入出错。'), PChar('警告'), MB_ICONWARNING + MB_OK);
    Exit;
  end;
  sSQL := 'update [User] set PWD = ' + QuotedStr(GetMD5String(Trim(edtNewPass.Text))) + ' where ID = ' + IntToStr(dlUser.KeyValue);
  DM.ADOCon.Execute(sSQL);
  DM.QueUser.Requery();
  Close;
end;

end.