📄 fidhum.pas
字号:
unit FIDHum;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmIDHum=class(TForm)
Label3: TLabel;
EdChrName: TEdit;
Label4: TLabel;
BtnCreateChr: TSpeedButton;
BtnEraseChr: TSpeedButton;
BtnChrNameSearch: TSpeedButton;
IdGrid: TStringGrid;
ChrGrid: TStringGrid;
BtnSelAll: TSpeedButton;
CbShowDelChr: TCheckBox;
BtnDeleteChr: TSpeedButton;
BtnRevival: TSpeedButton;
SpeedButton1: TSpeedButton;
Label2: TLabel;
EdUserId: TEdit;
BtnDeleteChrAllInfo: TSpeedButton;
SpeedButton2: TSpeedButton;
LabelCount: TLabel;
SpeedButtonEditData: TSpeedButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
BtnChrAccountSearch: 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 BtnCreateChrClick(Sender : TObject);
procedure BtnDeleteChrAllInfoClick(Sender : TObject);
procedure SpeedButton2Click(Sender : TObject);
procedure RefChrGrid(Sender : TObject);
procedure EdChrNameKeyPress(Sender : TObject);
procedure EdUserIdKeyPress(Sender : TObject);
procedure SpeedButtonEditDataClick(Sender : TObject);
procedure BtnChrAccountSearchClick(Sender : TObject);
procedure _PROC_004D6367(Sender : TObject);
procedure _PROC_004D67D0(Sender : TObject);
procedure _PROC_004D6988(Sender : TObject);
procedure _PROC_004D70E0(Sender : TObject);
procedure _PROC_004D7110(Sender : TObject);
procedure _PROC_004D7118(Sender : TObject);
procedure _PROC_004D719E(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmIDHum: TFrmIDHum;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmIDHum.FormCreate(Sender : TObject);
begin
(*
004D5D84 53 push ebx
004D5D85 8BD8 mov ebx, eax
004D5D87 33D2 xor edx, edx
004D5D89 8B8344030000 mov eax, [ebx+$0344]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D5D8F E8D8B3F8FF call 0046116C
004D5D94 33D2 xor edx, edx
004D5D96 8B8348030000 mov eax, [ebx+$0348]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D5D9C E8CBB3F8FF call 0046116C
* Possible String Reference to: '登录帐号'
|
004D5DA1 68005F4D00 push $004D5F00
004D5DA6 33C9 xor ecx, ecx
004D5DA8 33D2 xor edx, edx
004D5DAA 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5DB0 E8BF98FBFF call 0048F674
* Possible String Reference to: '密码'
|
004D5DB5 68145F4D00 push $004D5F14
004D5DBA 33C9 xor ecx, ecx
004D5DBC BA01000000 mov edx, $00000001
004D5DC1 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5DC7 E8A898FBFF call 0048F674
* Possible String Reference to: '用户名称'
|
004D5DCC 68245F4D00 push $004D5F24
004D5DD1 33C9 xor ecx, ecx
004D5DD3 BA02000000 mov edx, $00000002
004D5DD8 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5DDE E89198FBFF call 0048F674
* Possible String Reference to: 'ResiRegi'
|
004D5DE3 68385F4D00 push $004D5F38
004D5DE8 33C9 xor ecx, ecx
004D5DEA BA03000000 mov edx, $00000003
004D5DEF 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5DF5 E87A98FBFF call 0048F674
* Possible String Reference to: 'Tran'
|
004D5DFA 684C5F4D00 push $004D5F4C
004D5DFF 33C9 xor ecx, ecx
004D5E01 BA04000000 mov edx, $00000004
004D5E06 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5E0C E86398FBFF call 0048F674
* Possible String Reference to: 'Secretwd'
|
004D5E11 685C5F4D00 push $004D5F5C
004D5E16 33C9 xor ecx, ecx
004D5E18 BA05000000 mov edx, $00000005
004D5E1D 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5E23 E84C98FBFF call 0048F674
* Possible String Reference to: 'Adress(cont)'
|
004D5E28 68705F4D00 push $004D5F70
004D5E2D 33C9 xor ecx, ecx
004D5E2F BA06000000 mov edx, $00000006
004D5E34 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5E3A E83598FBFF call 0048F674
* Possible String Reference to: '备注'
|
004D5E3F 68885F4D00 push $004D5F88
004D5E44 33C9 xor ecx, ecx
004D5E46 BA07000000 mov edx, $00000007
004D5E4B 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5E51 E81E98FBFF call 0048F674
* Possible String Reference to: '索引号'
|
004D5E56 68985F4D00 push $004D5F98
004D5E5B 33C9 xor ecx, ecx
004D5E5D 33D2 xor edx, edx
004D5E5F 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5E65 E80A98FBFF call 0048F674
* Possible String Reference to: '人物名称'
|
004D5E6A 68A85F4D00 push $004D5FA8
004D5E6F 33C9 xor ecx, ecx
004D5E71 BA01000000 mov edx, $00000001
004D5E76 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5E7C E8F397FBFF call 0048F674
* Possible String Reference to: '登录帐号'
|
004D5E81 68005F4D00 push $004D5F00
004D5E86 33C9 xor ecx, ecx
004D5E88 BA02000000 mov edx, $00000002
004D5E8D 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5E93 E8DC97FBFF call 0048F674
* Possible String Reference to: '是否禁用'
|
004D5E98 68BC5F4D00 push $004D5FBC
004D5E9D 33C9 xor ecx, ecx
004D5E9F BA03000000 mov edx, $00000003
004D5EA4 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5EAA E8C597FBFF call 0048F674
* Possible String Reference to: '禁用时间'
|
004D5EAF 68D05F4D00 push $004D5FD0
004D5EB4 33C9 xor ecx, ecx
004D5EB6 BA04000000 mov edx, $00000004
004D5EBB 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5EC1 E8AE97FBFF call 0048F674
* Possible String Reference to: '操作计数'
|
004D5EC6 68E45F4D00 push $004D5FE4
004D5ECB 33C9 xor ecx, ecx
004D5ECD BA05000000 mov edx, $00000005
004D5ED2 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5ED8 E89797FBFF call 0048F674
* Possible String Reference to: '人物英雄'
|
004D5EDD 68F85F4D00 push $004D5FF8
004D5EE2 33C9 xor ecx, ecx
004D5EE4 BA06000000 mov edx, $00000006
004D5EE9 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D5EEF E88097FBFF call 0048F674
004D5EF4 5B pop ebx
004D5EF5 C3 ret
*)
end;
procedure TFrmIDHum.BtnChrNameSearchClick(Sender : TObject);
begin
(*
004D604C 55 push ebp
004D604D 8BEC mov ebp, esp
004D604F 83C4B4 add esp, -$4C
004D6052 53 push ebx
004D6053 56 push esi
004D6054 33C9 xor ecx, ecx
004D6056 894DFC mov [ebp-$04], ecx
004D6059 8BD8 mov ebx, eax
004D605B 33C0 xor eax, eax
004D605D 55 push ebp
004D605E 6838614D00 push $004D6138
***** TRY
|
004D6063 64FF30 push dword ptr fs:[eax]
004D6066 648920 mov fs:[eax], esp
004D6069 8D55FC lea edx, [ebp-$04]
004D606C 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004D6072 E8C5B0F8FF call 0046113C
004D6077 8B8314030000 mov eax, [ebx+$0314]
004D607D BA01000000 mov edx, $00000001
* Reference to: Grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
004D6082 E87174FBFF call 0048D4F8
004D6087 33D2 xor edx, edx
004D6089 55 push ebp
004D608A 681B614D00 push $004D611B
***** TRY
|
004D608F 64FF32 push dword ptr fs:[edx]
004D6092 648922 mov fs:[edx], esp
004D6095 A1C07C4E00 mov eax, dword ptr [$004E7CC0]
004D609A 8B00 mov eax, [eax]
|
004D609C E85FB70000 call 004E1800
004D60A1 84C0 test al, al
004D60A3 745C jz 004D6101
004D60A5 A1C07C4E00 mov eax, dword ptr [$004E7CC0]
004D60AA 8B00 mov eax, [eax]
004D60AC 8B55FC mov edx, [ebp-$04]
|
004D60AF E8D4B70000 call 004E1888
004D60B4 85C0 test eax, eax
004D60B6 7C49 jl 004D6101
004D60B8 8D4DB4 lea ecx, [ebp-$4C]
004D60BB 8B15C07C4E00 mov edx, [$004E7CC0]
004D60C1 8B12 mov edx, [edx]
004D60C3 92 xchg eax, edx
|
004D60C4 E813B80000 call 004E18DC
004D60C9 8BF0 mov esi, eax
004D60CB 85F6 test esi, esi
004D60CD 7C32 jl 004D6101
004D60CF 8B831C030000 mov eax, [ebx+$031C]
004D60D5 8B10 mov edx, [eax]
004D60D7 FF92C8000000 call dword ptr [edx+$00C8]
004D60DD 84C0 test al, al
004D60DF 740E jz 004D60EF
004D60E1 8D4DB4 lea ecx, [ebp-$4C]
004D60E4 8BD6 mov edx, esi
004D60E6 8BC3 mov eax, ebx
* Reference to : TFrmIDHum.RefChrGrid()
|
004D60E8 E8AF0B0000 call 004D6C9C
004D60ED EB12 jmp 004D6101
004D60EF 807DEA00 cmp byte ptr [ebp-$16], $00
004D60F3 750C jnz 004D6101
004D60F5 8D4DB4 lea ecx, [ebp-$4C]
004D60F8 8BD6 mov edx, esi
004D60FA 8BC3 mov eax, ebx
* Reference to : TFrmIDHum.RefChrGrid()
|
004D60FC E89B0B0000 call 004D6C9C
004D6101 33C0 xor eax, eax
004D6103 5A pop edx
004D6104 59 pop ecx
004D6105 59 pop ecx
004D6106 648910 mov fs:[eax], edx
****** FINALLY
|
004D6109 6822614D00 push $004D6122
004D610E A1C07C4E00 mov eax, dword ptr [$004E7CC0]
004D6113 8B00 mov eax, [eax]
|
004D6115 E842B70000 call 004E185C
004D611A C3 ret
* Reference to: System.@HandleFinally;
|
004D611B E930E2F2FF jmp 00404350
004D6120 EBEC jmp 004D610E
****** END
|
004D6122 33C0 xor eax, eax
004D6124 5A pop edx
004D6125 59 pop ecx
004D6126 59 pop ecx
004D6127 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[嬪]脥@'
|
004D612A 683F614D00 push $004D613F
004D612F 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004D6132 E8C1E8F2FF call 004049F8
004D6137 C3 ret
* Reference to: System.@HandleFinally;
|
004D6138 E913E2F2FF jmp 00404350
004D613D EBF0 jmp 004D612F
****** END
|
004D613F 5E pop esi
004D6140 5B pop ebx
004D6141 8BE5 mov esp, ebp
004D6143 5D pop ebp
004D6144 C3 ret
*)
end;
procedure TFrmIDHum.BtnSelAllClick(Sender : TObject);
begin
(*
004D6148 55 push ebp
004D6149 8BEC mov ebp, esp
004D614B 83C4AC add esp, -$54
004D614E 53 push ebx
004D614F 56 push esi
004D6150 57 push edi
004D6151 33C9 xor ecx, ecx
004D6153 894DFC mov [ebp-$04], ecx
004D6156 8BD8 mov ebx, eax
004D6158 33C0 xor eax, eax
004D615A 55 push ebp
* Possible String Reference to: '樾囹⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -