frm_changepwdu.~pas

来自「学生公寓管理系统 很好的设计 呵呵 绝对很好」· ~PAS 代码 · 共 72 行

unit frm_changePwdU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ClassesU,Control_OperatorU;

type
  Tfrm_changePwd = class(TForm)
    edt_oldpwd: TEdit;
    Label1: TLabel;
    edt_newpwd: TEdit;
    Label2: TLabel;
    edt_newpwd1: TEdit;
    Label3: TLabel;
    btn_ok: TButton;
    btn_cancel: TButton;
    procedure btn_cancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    currentUser:TOperator;
  end;

var
  frm_changePwd: Tfrm_changePwd;

implementation

{$R *.dfm}

procedure Tfrm_changePwd.btn_cancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_changePwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_changePwd.btn_okClick(Sender: TObject);
begin
if(self.edt_oldpwd.Text<>currentUser.pwd) then
  begin
    MessageBox(Handle, '原密码不正确！', '信息', MB_ICONEXCLAMATION);
    exit;
  end;
if(self.edt_newpwd.Text <>self.edt_newpwd1.Text) then
  begin
    MessageBox(Handle, '新密码不统一！', '信息', MB_ICONEXCLAMATION);
    exit;
  end;
if(trim(self.edt_newpwd.Text)='') then
  begin
    MessageBox(Handle, '密码不能为空！', '信息', MB_ICONEXCLAMATION);
    exit;
  end;
if Control_OperatorU.ChangePwd(trim(self.edt_newpwd.Text),currentUser.id)then
  begin
    MessageBox(Handle, '修改成功！', '信息', MB_ICONASTERISK);
  end
else
  MessageBox(Handle, '更改失败！', '信息', MB_ICONEXCLAMATION);
end;

end.