dbtools.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit DBTools;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmDBTool=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    GridMirDBInfo: TStringGrid;
    GroupBox2: TGroupBox;
    GridHumDBInfo: TStringGrid;
    TabSheet2: TTabSheet;
    ButtonStartRebuild: TButton;
    LabelProcess: TLabel;
    TimerShowInfo: TTimer;
    GroupBox3: TGroupBox;
    CheckBoxDelDenyChr: TCheckBox;
    CheckBoxDelAllItem: TCheckBox;
    CheckBoxDelAllSkill: TCheckBox;
    CheckBoxDelBonusAbil: TCheckBox;
    CheckBoxDelLevel: TCheckBox;
    ProgressBar: TProgressBar;
    Label1: TLabel;
    LabelProcessPercent: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender : TObject);
    procedure ButtonStartRebuildClick(Sender : TObject);
    procedure TimerShowInfoTimer(Sender : TObject);
    procedure CheckBoxDelDenyChrClick(Sender : TObject);
    procedure CheckBoxDelLevelClick(Sender : TObject);
    procedure CheckBoxDelAllItemClick(Sender : TObject);
    procedure CheckBoxDelAllSkillClick(Sender : TObject);
    procedure CheckBoxDelBonusAbilClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmDBTool: TfrmDBTool;

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

implementation

{$R *.DFM}

procedure TfrmDBTool.FormCreate(Sender : TObject);
begin
(*
0049F268   53                     push    ebx
0049F269   8BD8                   mov     ebx, eax

* Possible String Reference to: '参数'
|
0049F26B   68E0F34900             push    $0049F3E0
0049F270   33C9                   xor     ecx, ecx
0049F272   33D2                   xor     edx, edx
0049F274   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F27A   E8F503FFFF             call    0048F674

* Possible String Reference to: '内容'
|
0049F27F   68F0F34900             push    $0049F3F0
0049F284   33C9                   xor     ecx, ecx
0049F286   BA01000000             mov     edx, $00000001
0049F28B   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F291   E8DE03FFFF             call    0048F674

* Possible String Reference to: '文件位置'
|
0049F296   6800F44900             push    $0049F400
0049F29B   B901000000             mov     ecx, $00000001
0049F2A0   33D2                   xor     edx, edx
0049F2A2   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F2A8   E8C703FFFF             call    0048F674

* Possible String Reference to: '文件标识'
|
0049F2AD   6814F44900             push    $0049F414
0049F2B2   B902000000             mov     ecx, $00000002
0049F2B7   33D2                   xor     edx, edx
0049F2B9   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F2BF   E8B003FFFF             call    0048F674

* Possible String Reference to: '记录总数'
|
0049F2C4   6828F44900             push    $0049F428
0049F2C9   B903000000             mov     ecx, $00000003
0049F2CE   33D2                   xor     edx, edx
0049F2D0   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F2D6   E89903FFFF             call    0048F674

* Possible String Reference to: '有效数量'
|
0049F2DB   683CF44900             push    $0049F43C
0049F2E0   B904000000             mov     ecx, $00000004
0049F2E5   33D2                   xor     edx, edx
0049F2E7   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F2ED   E88203FFFF             call    0048F674

* Possible String Reference to: '删除数量'
|
0049F2F2   6850F44900             push    $0049F450
0049F2F7   B905000000             mov     ecx, $00000005
0049F2FC   33D2                   xor     edx, edx
0049F2FE   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F304   E86B03FFFF             call    0048F674

* Possible String Reference to: '更新日期'
|
0049F309   6864F44900             push    $0049F464
0049F30E   B906000000             mov     ecx, $00000006
0049F313   33D2                   xor     edx, edx
0049F315   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F31B   E85403FFFF             call    0048F674

* Possible String Reference to: '参数'
|
0049F320   68E0F34900             push    $0049F3E0
0049F325   33C9                   xor     ecx, ecx
0049F327   33D2                   xor     edx, edx
0049F329   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F32F   E84003FFFF             call    0048F674

* Possible String Reference to: '内容'
|
0049F334   68F0F34900             push    $0049F3F0
0049F339   33C9                   xor     ecx, ecx
0049F33B   BA01000000             mov     edx, $00000001
0049F340   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F346   E82903FFFF             call    0048F674

* Possible String Reference to: '文件位置'
|
0049F34B   6800F44900             push    $0049F400
0049F350   B901000000             mov     ecx, $00000001
0049F355   33D2                   xor     edx, edx
0049F357   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F35D   E81203FFFF             call    0048F674

* Possible String Reference to: '文件标识'
|
0049F362   6814F44900             push    $0049F414
0049F367   B902000000             mov     ecx, $00000002
0049F36C   33D2                   xor     edx, edx
0049F36E   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F374   E8FB02FFFF             call    0048F674

* Possible String Reference to: '记录总数'
|
0049F379   6828F44900             push    $0049F428
0049F37E   B903000000             mov     ecx, $00000003
0049F383   33D2                   xor     edx, edx
0049F385   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F38B   E8E402FFFF             call    0048F674

* Possible String Reference to: '有效数量'
|
0049F390   683CF44900             push    $0049F43C
0049F395   B904000000             mov     ecx, $00000004
0049F39A   33D2                   xor     edx, edx
0049F39C   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F3A2   E8CD02FFFF             call    0048F674

* Possible String Reference to: '删除数量'
|
0049F3A7   6850F44900             push    $0049F450
0049F3AC   B905000000             mov     ecx, $00000005
0049F3B1   33D2                   xor     edx, edx
0049F3B3   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F3B9   E8B602FFFF             call    0048F674

* Possible String Reference to: '更新日期'
|
0049F3BE   6864F44900             push    $0049F464
0049F3C3   B906000000             mov     ecx, $00000006
0049F3C8   33D2                   xor     edx, edx
0049F3CA   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0049F3D0   E89F02FFFF             call    0048F674
0049F3D5   5B                     pop     ebx
0049F3D6   C3                     ret

*)
end;

procedure TfrmDBTool.ButtonStartRebuildClick(Sender : TObject);
begin
(*
0049F470   53                     push    ebx
0049F471   8BD8                   mov     ebx, eax
0049F473   6A44                   push    $44

* Possible String Reference to: '提示信息'
|
0049F475   B9D8F44900             mov     ecx, $0049F4D8

* Possible String Reference to: '在重建数据库过程中，数据库服务器将