feeutil.pas

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

unit FeeUtil;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Grids, Buttons, ExtCtrls;

type
  TFrmFeeUtil = class(TForm)
    Panel1:     TPanel;
    FGrid:      TStringGrid;
    EdFindID:   TEdit;
    Label1:     TLabel;
    Label2:     TLabel;
    EdFindPC:   TEdit;
    OpenDialog1: TOpenDialog;
    Label3:     TLabel;
    BtnConvert: TSpeedButton;
    BtnFindId:  TSpeedButton;
    BtnFindIdAll: TSpeedButton;
    BtnFindGroup: TSpeedButton;
    BtnFindPCAll: TSpeedButton;
    BtnAddRcd:  TSpeedButton;
    BtnDelRcd:  TSpeedButton;
    BtnChangeRcd: TSpeedButton;
    BtnBack:    TSpeedButton;
    LbPlus:     TLabel;
    procedure BtnConvertClick(Sender: TObject);
    procedure BtnFindIDClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FGridDrawCell(Sender: TObject);
    procedure FGridKeyPress(Sender: TObject);
    procedure EdFindIDKeyPress(Sender: TObject);
    procedure EdFindPCKeyPress(Sender: TObject);
    procedure FormKeyDown(Sender: TObject);
    procedure BtnBackClick(Sender: TObject);
    procedure _PROC_0049DA40(Sender: TObject);
    procedure _PROC_0049DB75(Sender: TObject);
    procedure _PROC_0049DEE4(Sender: TObject);
    procedure _PROC_0049DF14(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmFeeUtil: TFrmFeeUtil;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TFrmFeeUtil.BtnConvertClick(Sender: TObject);
begin
(*
0049D748   55                     push    ebp
0049D749   8BEC                   mov     ebp, esp
0049D74B   83C4F0                 add     esp, -$10
0049D74E   33C9                   xor     ecx, ecx
0049D750   894DF0                 mov     [ebp-$10], ecx
0049D753   8955F4                 mov     [ebp-$0C], edx
0049D756   8945FC                 mov     [ebp-$04], eax
0049D759   33C0                   xor     eax, eax
0049D75B   55                     push    ebp

* Possible String Reference to: '閐^