dblogdlg.pas

一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.

unit DBLogDlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TLoginDialog=class(TForm)
    Panel: TPanel;
    Bevel: TBevel;
    DatabaseName: TLabel;
    OKButton: TButton;
    CancelButton: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Password: TEdit;
    UserName: TEdit;
    procedure FormShow(Sender : TObject);
    procedure _PROC_005F7C28(Sender : TObject);
    procedure _PROC_005F7C58(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  LoginDialog: TLoginDialog;

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

implementation

{$R *.DFM}

procedure TLoginDialog.FormShow(Sender : TObject);
begin
(*
005F7BE0   53                     push    ebx
005F7BE1   56                     push    esi
005F7BE2   8BD8                   mov     ebx, eax

* Reference to control TLoginDialog.Panel : TPanel
|
005F7BE4   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
005F7BEA   E8C518E4FF             call    004394B4

* Reference to control TLoginDialog.DatabaseName : TLabel
|
005F7BEF   8BB3D8020000           mov     esi, [ebx+$02D8]

* Reference to field TLabel.Width : Integer
|
005F7BF5   8B5638                 mov     edx, [esi+$38]
005F7BF8   035630                 add     edx, [esi+$30]
005F7BFB   3BC2                   cmp     eax, edx
005F7BFD   7F24                   jnle    005F7C23

* Reference to control TLoginDialog.Panel : TPanel
|
005F7BFF   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: controls.TControl.GetClientWidth(TControl):Integer;
|
005F7C05   E8AA18E4FF             call    004394B4
005F7C0A   8BD0                   mov     edx, eax

* Reference to control TLoginDialog.DatabaseName : TLabel
|
005F7C0C   8B83D8020000           mov     eax, [ebx+$02D8]
005F7C12   2B5030                 sub     edx, dword ptr [eax+$30]
005F7C15   83EA05                 sub     edx, +$05

* Reference to control TLoginDialog.DatabaseName : TLabel
|
005F7C18   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
005F7C1E   E86516E4FF             call    00439288
005F7C23   5E                     pop     esi
005F7C24   5B                     pop     ebx
005F7C25   C3                     ret

*)
end;

procedure TLoginDialog._PROC_005F7C28(Sender : TObject);
begin
(*
005F7C28   55                     push    ebp
005F7C29   8BEC                   mov     ebp, esp
005F7C2B   33C0                   xor     eax, eax
005F7C2D   55                     push    ebp

* Possible String Reference to: '橼洁