fidhum.pas

翎风世界..传奇服务端..DELPHI源代码 包括DBServer,LogDataServer,LoginGate,LoginSrv,M2Server等..内容齐全.

unit FIDHum;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Grids, Buttons,HumDB,Grobal2;
type
  TFrmIDHum=class(TForm)
    Query1: TQuery;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    EdChrName: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    BtnCreateChr: TSpeedButton;
    BtnEraseChr: TSpeedButton;
    BtnChrNameSearch: TSpeedButton;
    IdGrid: TStringGrid;
    ChrGrid: TStringGrid;
    BtnSelAll: TSpeedButton;
    CbShowDelChr: TCheckBox;
    BtnDeleteChr: TSpeedButton;
    BtnRevival: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Button1: TButton;
    Label2: TLabel;
    EdUserId: TEdit;
    BtnDeleteChrAllInfo: TSpeedButton;
    SpeedButton2: TSpeedButton;
    LabelCount: TLabel;
    SpeedButtonEditData: TSpeedButton;
    procedure FormCreate(Sender : TObject);
    procedure BtnChrNameSearchClick(Sender : TObject);
    procedure BtnSelAllClick(Sender : TObject);
    procedure BtnEraseChrClick(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure ChrGridClick(Sender : TObject);
    procedure ChrGridDblClick(Sender : TObject);
    procedure BtnDeleteChrClick(Sender : TObject);
    procedure BtnRevivalClick(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure BtnCreateChrClick(Sender : TObject);
    procedure BtnDeleteChrAllInfoClick(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure RefChrGrid(n08:Integer;HumDBRecord:THumInfo);
    procedure _PROC_004A0805(Sender : TObject);
    procedure _PROC_004A0D29(Sender : TObject);
    procedure _PROC_004A0E3A(Sender : TObject);
    procedure _PROC_004A1025(Sender : TObject);
    procedure _PROC_004A1054(Sender : TObject);
    procedure EdChrNameKeyPress(Sender: TObject; var Key: Char);
    procedure EdUserIdKeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButtonEditDataClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmIDHum: TFrmIDHum;

implementation

uses HUtil32, MudUtil, CreateChr, FDBexpl, viewrcd, EditRcd;


{$R *.DFM}

procedure TFrmIDHum.FormCreate(Sender : TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  IdGrid.Cells[0,0]:='登录帐号';
  IdGrid.Cells[1,0]:='密码';
  IdGrid.Cells[2,0]:='用户名称';
  IdGrid.Cells[3,0]:='ResiRegi';
  IdGrid.Cells[4,0]:='Tran';
  IdGrid.Cells[5,0]:='Secretwd';
  IdGrid.Cells[6,0]:='Adress(cont)';
  IdGrid.Cells[7,0]:='备注';

  ChrGrid.Cells[0,0]:='Index';
  ChrGrid.Cells[1,0]:='Character';
  ChrGrid.Cells[2,0]:='User ID';
  ChrGrid.Cells[3,0]:='Deleted';
  ChrGrid.Cells[4,0]:='Modification Date';
  ChrGrid.Cells[5,0]:='Counter';
  ChrGrid.Cells[6,0]:='Select ID';
end;

procedure TFrmIDHum.Edit2KeyPress(Sender: TObject; var Key: Char);
begin

(*
0049FEAC   55                     push    ebp
0049FEAD   8BEC                   mov     ebp, esp
0049FEAF   83C4F0                 add     esp, -$10
0049FEB2   53                     push    ebx
0049FEB3   33DB                   xor     ebx, ebx
0049FEB5   895DF0                 mov     [ebp-$10], ebx
0049FEB8   894DF8                 mov     [ebp-$08], ecx
0049FEBB   8955F4                 mov     [ebp-$0C], edx
0049FEBE   8945FC                 mov     [ebp-$04], eax
0049FEC1   33C0                   xor     eax, eax
0049FEC3   55                     push    ebp

* Possible String Reference to: '橼6