?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -