传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 668|回复: 1

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

[复制链接]

624

帖子

2145

钻石

1359

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
114 小时
发表于 2018-12-2 22:26:00 | 显示全部楼层 |阅读模式
飘逸传奇登录器源代码-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.


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

回复

使用道具 举报

201

帖子

136

钻石

223

积分

中级GM

Rank: 2

在线时间
22 小时
发表于 2020-8-30 21:38:29 | 显示全部楼层
八五GM论坛,传奇GM基地,积分及VIP用户组升级说明
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|八五GM论坛专业的传奇私服GM技术交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

|网站地图
快速回复 快速发帖 返回顶部 返回列表