【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“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.
上一篇:
ChangePassWordUnit.pas
下一篇:
ASP小区停车管理系统(Access)(含录像)