|
飘逸传奇登录器源代码-delphi源码
unit ChangePassword;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, ImgBtn, StdCtrls, Mask, RzEdit;
type
TChangePsForm = class(TForm)
MainImage: TImage;
ConfirBtn: TImgBtn;
CanceBtn: TImgBtn;
Label1: TLabel;
RzEdit1: TRzEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
RzEdit2: TRzEdit;
RzEdit3: TRzEdit;
RzEdit4: TRzEdit;
procedure CanceBtnClick(Sender: TObject);
procedure Open();
procedure ConfirBtnClick(Sender: TObject);
procedure MainImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ChangePsForm: TChangePsForm;
implementation
uses MainUnit;
{$R *.dfm}
procedure TChangePsForm.Open;
begin
RzEdit1.Text := '';
RzEdit2.Text := '';
RzEdit3.Text := '';
RzEdit4.Text := '';
ConfirBtn.Enabled:=True;
ShowModal;
end;
procedure TChangePsForm.CanceBtnClick(Sender: TObject);
begin
Close;
end;
procedure TChangePsForm.ConfirBtnClick(Sender: TObject);
var
uid, passwd, newpasswd: string;
begin
uid:=Trim(RzEdit1.Text);
passwd:=Trim(RzEdit2.Text);
newpasswd:=Trim(RzEdit3.Text);
if uid = '' then begin
Application.MessageBox('登录帐号输入不正确!!!','提示信息',MB_OK + MB_ICONINFORMATION);
RzEdit1.SetFocus;
exit;
end;
if passwd = '' then begin
Application.MessageBox('旧密码输入不正确!!!','提示信息',MB_OK + MB_ICONINFORMATION);
RzEdit2.SetFocus;
exit;
end;
if newpasswd = '' then begin
Application.MessageBox('新密码输入不正确!!!','提示信息',MB_OK + MB_ICONINFORMATION);
RzEdit3.SetFocus;
exit;
end;
if RzEdit3.Text = RzEdit4.Text then begin
MainForm.SendChgPw (uid, passwd, newpasswd);
ConfirBtn.Enabled:=False;
end else begin
Application.MessageBox('二次输入的密码不匹配!!!。','提示信息', MB_Ok);
RzEdit4.SetFocus;
end;
end;
procedure TChangePsForm.MainImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;
end.
|
|