chgpassword.pas

SunwayERP框架(支持Plugin)

unit ChgPassword;

interface

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

type
  TfrmChgPassword = class(TfrmBaseDlgForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChgPassword: TfrmChgPassword;

implementation

uses Main;

{$R *.dfm}

procedure TfrmChgPassword.btnOkClick(Sender: TObject);
var
  TmpQuery:TADOQuery;
begin
  inherited;
  TmpQuery:=TADOQuery.Create(Self);
  with TmpQuery do
    begin
      Connection:=frmMain.ADOConn;
      SQL.Text:='Select * from USERS where USERID='''+Main.UserID+'''';
      Open;
      if Trim(Edit1.Text)<>Fieldbyname('USERPASSWORD').AsString then
        begin
          Messagebox(Handle,'原密码不正确，无法更改密码！','操作失败',mb_okcancel+mb_iconError);
          TmpQuery.Free;
          Exit;
        end;
      if Trim(Edit2.Text)<>Trim(Edit3.Text) then
        begin
          Messagebox(Handle,'新密码与校验密码不符，无法更改密码！','操作失败',mb_okcancel+mb_iconError);
          TmpQuery.Free;
          Exit;
        end;
      Edit;
      Fieldbyname('USERPASSWORD').AsString:=Trim(Edit2.Text);
      Post;
      Messagebox(Handle,'密码修改成功，请妥善保存您的新密码！','系统提示',mb_ok+mb_iconInformation);
      ModalResult:=mrok;
    end;
  TmpQuery.Free;
end;

end.