飘逸传奇登录器源代码-delphi源码

八五论坛

飘逸传奇登录器源代码-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.

游客，如果您要查看本帖隐藏内容请回复

jxw208

八五GM论坛,传奇GM基地,积分及VIP用户组升级说明