📄 frmfindid.pas
字号:
unit FrmFindId;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmFindUserId=class(TForm)
IdGrid: TStringGrid;
Panel1: TPanel;
EdFindId: TEdit;
Label1: TLabel;
BtnFindAll: TButton;
Button1: TButton;
BtnEdit: TButton;
Button2: TButton;
procedure FormCreate(Sender : TObject);
procedure BtnFindAllClick(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure BtnEditClick(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure EdFindIdKeyPress(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmFindUserId: TFrmFindUserId;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmFindUserId.FormCreate(Sender : TObject);
begin
(*
0047E568 53 push ebx
0047E569 8BD8 mov ebx, eax
0047E56B BA02000000 mov edx, $00000002
0047E570 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
0047E576 E8A5BFFFFF call 0047A520
* Possible String Reference to: '帐号'
|
0047E57B 68F4E64700 push $0047E6F4
0047E580 33C9 xor ecx, ecx
0047E582 33D2 xor edx, edx
0047E584 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E58A E80DE1FFFF call 0047C69C
* Possible String Reference to: '密码'
|
0047E58F 6804E74700 push $0047E704
0047E594 33C9 xor ecx, ecx
0047E596 BA01000000 mov edx, $00000001
0047E59B 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E5A1 E8F6E0FFFF call 0047C69C
* Possible String Reference to: '用户名称'
|
0047E5A6 6814E74700 push $0047E714
0047E5AB 33C9 xor ecx, ecx
0047E5AD BA02000000 mov edx, $00000002
0047E5B2 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E5B8 E8DFE0FFFF call 0047C69C
* Possible String Reference to: '身份证号'
|
0047E5BD 6828E74700 push $0047E728
0047E5C2 33C9 xor ecx, ecx
0047E5C4 BA03000000 mov edx, $00000003
0047E5C9 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E5CF E8C8E0FFFF call 0047C69C
* Possible String Reference to: '生日'
|
0047E5D4 683CE74700 push $0047E73C
0047E5D9 33C9 xor ecx, ecx
0047E5DB BA04000000 mov edx, $00000004
0047E5E0 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E5E6 E8B1E0FFFF call 0047C69C
* Possible String Reference to: '问题一'
|
0047E5EB 684CE74700 push $0047E74C
0047E5F0 33C9 xor ecx, ecx
0047E5F2 BA05000000 mov edx, $00000005
0047E5F7 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E5FD E89AE0FFFF call 0047C69C
* Possible String Reference to: '答案一'
|
0047E602 685CE74700 push $0047E75C
0047E607 33C9 xor ecx, ecx
0047E609 BA06000000 mov edx, $00000006
0047E60E 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E614 E883E0FFFF call 0047C69C
* Possible String Reference to: '问题二'
|
0047E619 686CE74700 push $0047E76C
0047E61E 33C9 xor ecx, ecx
0047E620 BA07000000 mov edx, $00000007
0047E625 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E62B E86CE0FFFF call 0047C69C
* Possible String Reference to: '答案二'
|
0047E630 687CE74700 push $0047E77C
0047E635 33C9 xor ecx, ecx
0047E637 BA08000000 mov edx, $00000008
0047E63C 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E642 E855E0FFFF call 0047C69C
* Possible String Reference to: '电话'
|
0047E647 688CE74700 push $0047E78C
0047E64C 33C9 xor ecx, ecx
0047E64E BA09000000 mov edx, $00000009
0047E653 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E659 E83EE0FFFF call 0047C69C
* Possible String Reference to: '移动电话'
|
0047E65E 689CE74700 push $0047E79C
0047E663 33C9 xor ecx, ecx
0047E665 BA0A000000 mov edx, $0000000A
0047E66A 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E670 E827E0FFFF call 0047C69C
* Possible String Reference to: '备注一'
|
0047E675 68B0E74700 push $0047E7B0
0047E67A 33C9 xor ecx, ecx
0047E67C BA0B000000 mov edx, $0000000B
0047E681 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E687 E810E0FFFF call 0047C69C
* Possible String Reference to: '备注二'
|
0047E68C 68C0E74700 push $0047E7C0
0047E691 33C9 xor ecx, ecx
0047E693 BA0C000000 mov edx, $0000000C
0047E698 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E69E E8F9DFFFFF call 0047C69C
* Possible String Reference to: '创建时间'
|
0047E6A3 68D0E74700 push $0047E7D0
0047E6A8 33C9 xor ecx, ecx
0047E6AA BA0D000000 mov edx, $0000000D
0047E6AF 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E6B5 E8E2DFFFFF call 0047C69C
* Possible String Reference to: '最后登录时间'
|
0047E6BA 68E4E74700 push $0047E7E4
0047E6BF 33C9 xor ecx, ecx
0047E6C1 BA0E000000 mov edx, $0000000E
0047E6C6 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E6CC E8CBDFFFFF call 0047C69C
* Possible String Reference to: '电子邮箱'
|
0047E6D1 68FCE74700 push $0047E7FC
0047E6D6 33C9 xor ecx, ecx
0047E6D8 BA0F000000 mov edx, $0000000F
0047E6DD 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047E6E3 E8B4DFFFFF call 0047C69C
0047E6E8 5B pop ebx
0047E6E9 C3 ret
*)
end;
procedure TFrmFindUserId.BtnFindAllClick(Sender : TObject);
begin
(*
0047E808 55 push ebp
0047E809 8BEC mov ebp, esp
0047E80B 81C4A8FEFFFF add esp, $FFFFFEA8
0047E811 53 push ebx
0047E812 56 push esi
0047E813 57 push edi
0047E814 33C9 xor ecx, ecx
0047E816 898DA8FEFFFF mov [ebp+$FFFFFEA8], ecx
0047E81C 894DFC mov [ebp-$04], ecx
0047E81F 8BD8 mov ebx, eax
0047E821 33C0 xor eax, eax
0047E823 55 push ebp
0047E824 6876E94700 push $0047E976
***** TRY
|
0047E829 64FF30 push dword ptr fs:[eax]
0047E82C 648920 mov fs:[eax], esp
0047E82F 33C0 xor eax, eax
0047E831 55 push ebp
* Possible String Reference to: '槠Z⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -