fidhum.pas

传奇服务端代码 DBServerSQL.rar 通讯部分

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;
    BtnChrIDSearch: TButton;
    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);
    procedure BtnChrIDSearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmIDHum: TFrmIDHum;

implementation

uses
  HUtil32, MudUtil, DBShare, 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