uni_passwordchange.~pas

来自「一个非常不错的经费报销管理软件」· ~PAS 代码 · 共 64 行

unit Uni_PasswordChange;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, XPMenu, Buttons, Grids, DBGrids;

type
  TFrm_PasswordChange = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    XPMenu1: TXPMenu;
    BtnOK: TBitBtn;
    BtnCancel: TBitBtn;
    procedure BtnCancelClick(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_PasswordChange: TFrm_PasswordChange;

implementation
USES Uni_DM,Uni_Function;
{$R *.dfm}

procedure TFrm_PasswordChange.BtnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_PasswordChange.BtnOKClick(Sender: TObject);
begin
  IF Edit1.Text<>DM.bsLoginUser.FieldByName('cPassword').AsString
  THEN BEGIN
    MessageBoxInfo('旧密码不对，如果忘记密码，请与管理员联系');
    Exit;
  END;
  
  IF Edit2.Text<>Edit3.Text
  THEN BEGIN
    MessageBoxInfo('请重新确认新密码');
    Exit;
  END;

  DM.bsLoginUser.Edit;
  DM.bsLoginUser.FieldByName('cPassword').AsString:=Edit2.Text;
  DM.bsLoginUser.Post;
  MessageBoxInfo('密码修改成功');
  Close;


end;

end.