changpwdfrm.pas

仓储管理系统学习。大家共同探讨学习。大家共同进步。

unit ChangpwdFrm;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  StdCtrls;

type
  TfrmChangpwd = class(TForm)

    lblOldPassWord: TLabel;
    lblNewPassWord: TLabel;
    lblConfirmPassWord: TLabel;

    edtOldPassWord: TEdit;
    edtNewPassWord: TEdit;
    edtConfirmPassWord: TEdit;

    btnOK: TButton;
    btnCancel: TButton;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses ConstUnt;
{$R *.DFM}

procedure TfrmChangpwd.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #$1b then
    Close;
end;

procedure TfrmChangpwd.btnOKClick(Sender: TObject);
begin
  LogonInf.PassWord := edtOldPassWord.Text;
  if not LogonInf.PWDCorrect then
  begin
    MessageBox(Handle, PChar(Format(UserNameIsEmpty, ['登陆'])),
      MsgI, Msg1IBTN);
    Exit;  
  end;
  if edtNewPassWord.Text <> edtConfirmPassWord.Text then
  begin
    MessageBox(Handle, PChar(PassWordNotSame), MsgE, Msg1WBTN);
    Exit;
  end;

  LogonInf.NewPassWord := edtConfirmPassWord.Text;

  if LogonInf.ChangePwd then
    MessageBox(Handle,
      PChar(Format(ChnagePwdSuccess, [LogonInf.userName])),
        MsgI, Msg1IBTN);

  
end;

end.