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_004CAFE8(Sender : TObject);
    procedure _PROC_004CB118(Sender : TObject);
    procedure _PROC_004CB320(Sender : TObject);
    procedure _PROC_004CB330(Sender : TObject);
    procedure _PROC_004CB360(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
(*
004CB2D8   53                     push    ebx
004CB2D9   56                     push    esi
004CB2DA   8BD8                   mov     ebx, eax

* Reference to control TLoginDialog.Panel : TPanel
|
004CB2DC   8B83F0020000           mov     eax, [ebx+$02F0]

* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
004CB2E2   E889D6F7FF             call    00448970

* Reference to control TLoginDialog.DatabaseName : TLabel
|
004CB2E7   8BB3F8020000           mov     esi, [ebx+$02F8]

* Reference to field TLabel.Width : Integer
|
004CB2ED   8B5648                 mov     edx, [esi+$48]
004CB2F0   035640                 add     edx, [esi+$40]
004CB2F3   3BC2                   cmp     eax, edx
004CB2F5   7F24                   jnle    004CB31B

* Reference to control TLoginDialog.Panel : TPanel
|
004CB2F7   8B83F0020000           mov     eax, [ebx+$02F0]

* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
004CB2FD   E86ED6F7FF             call    00448970
004CB302   8BD0                   mov     edx, eax

* Reference to control TLoginDialog.DatabaseName : TLabel
|
004CB304   8B83F8020000           mov     eax, [ebx+$02F8]
004CB30A   2B5040                 sub     edx, dword ptr [eax+$40]
004CB30D   83EA05                 sub     edx, +$05

* Reference to control TLoginDialog.DatabaseName : TLabel
|
004CB310   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference to: Controls.TControl.SetWidth(TControl;Integer);
|
004CB316   E8E5D3F7FF             call    00448700
004CB31B   5E                     pop     esi
004CB31C   5B                     pop     ebx
004CB31D   C3                     ret

*)
end;

procedure TLoginDialog._PROC_004CAFE8(Sender : TObject);
begin
(*
004CAFE8   55                     push    ebp
004CAFE9   8BEC                   mov     ebp, esp
004CAFEB   83C4F0                 add     esp, -$10
004CAFEE   53                     push    ebx
004CAFEF   56                     push    esi
004CAFF0   57                     push    edi
004CAFF1   33DB                   xor     ebx, ebx
004CAFF3   895DF0                 mov     [ebp-$10], ebx
004CAFF6   895DF4                 mov     [ebp-$0C], ebx
004CAFF9   8BF9                   mov     edi, ecx
004CAFFB   8BDA                   mov     ebx, edx
004CAFFD   8BF0                   mov     esi, eax
004CAFFF   33C0                   xor     eax, eax
004CB001   55                     push    ebp
004CB002   6804B14C00             push    $004CB104

***** TRY
|
004CB007   64FF30                 push    dword ptr fs:[eax]
004CB00A   648920                 mov     fs:[eax], esp

* Reference to TApplication instance
|
004CB00D   8B0D24835800           mov     ecx, [$00588324]
004CB013   8B09                   mov     ecx, [ecx]
004CB015   B201                   mov     dl, $01

* Reference to class TLoginDialog
|
004CB017   A190AC4C00             mov     eax, dword ptr [$004CAC90]

* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|           or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
004CB01C   E87B6AF9FF             call    00461A9C
004CB021   8945F8                 mov     [ebp-$08], eax
004CB024   33C0                   xor     eax, eax
004CB026   55                     push    ebp
004CB027   68E2B04C00             push    $004CB0E2

***** TRY
|
004CB02C   64FF30                 push    dword ptr fs:[eax]
004CB02F   648920                 mov     fs:[eax], esp
004CB032   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.DatabaseName : TLabel
|
004CB035   8B80F8020000           mov     eax, [eax+$02F8]
004CB03B   8BD6                   mov     edx, esi

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004CB03D   E85ADFF7FF             call    00448F9C
004CB042   8B13                   mov     edx, [ebx]
004CB044   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.UserName : TEdit
|
004CB047   8B8018030000           mov     eax, [eax+$0318]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004CB04D   E84ADFF7FF             call    00448F9C
004CB052   C645FF00               mov     byte ptr [ebp-$01], $00
004CB056   807D0800               cmp     byte ptr [ebp+$08], $00
004CB05A   7412                   jz      004CB06E
004CB05C   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.UserName : TEdit
|
004CB05F   8B8018030000           mov     eax, [eax+$0318]
004CB065   33D2                   xor     edx, edx
004CB067   8B08                   mov     ecx, [eax]

* Reference to method TEdit.SetEnabled(Boolean)
|
004CB069   FF5164                 call    dword ptr [ecx+$64]
004CB06C   EB16                   jmp     004CB084
004CB06E   833B00                 cmp     dword ptr [ebx], +$00
004CB071   7511                   jnz     004CB084
004CB073   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.UserName : TEdit
|
004CB076   8B9018030000           mov     edx, [eax+$0318]
004CB07C   8B45F8                 mov     eax, [ebp-$08]

* Reference to: Forms.TCustomForm.SetActiveControl(TCustomForm;TWinControl);
|
004CB07F   E84C91F9FF             call    004641D0
004CB084   8B45F8                 mov     eax, [ebp-$08]
004CB087   8B10                   mov     edx, [eax]

* Reference to method TLoginDialog.ShowModal()
|
004CB089   FF92E8000000           call    dword ptr [edx+$00E8]
004CB08F   48                     dec     eax
004CB090   753A                   jnz     004CB0CC
004CB092   8D55F4                 lea     edx, [ebp-$0C]
004CB095   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.UserName : TEdit
|
004CB098   8B8018030000           mov     eax, [eax+$0318]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004CB09E   E8C9DEF7FF             call    00448F6C
004CB0A3   8B55F4                 mov     edx, [ebp-$0C]
004CB0A6   8BC3                   mov     eax, ebx

* Reference to: System.@LStrAsg(void;void;void;void);
|
004CB0A8   E8C397F3FF             call    00404870
004CB0AD   8D55F0                 lea     edx, [ebp-$10]
004CB0B0   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.Password : TEdit
|
004CB0B3   8B8014030000           mov     eax, [eax+$0314]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004CB0B9   E8AEDEF7FF             call    00448F6C
004CB0BE   8B55F0                 mov     edx, [ebp-$10]
004CB0C1   8BC7                   mov     eax, edi

* Reference to: System.@LStrAsg(void;void;void;void);
|
004CB0C3   E8A897F3FF             call    00404870
004CB0C8   C645FF01               mov     byte ptr [ebp-$01], $01
004CB0CC   33C0                   xor     eax, eax
004CB0CE   5A                     pop     edx
004CB0CF   59                     pop     ecx
004CB0D0   59                     pop     ecx
004CB0D1   648910                 mov     fs:[eax], edx

****** FINALLY
|
004CB0D4   68E9B04C00             push    $004CB0E9
004CB0D9   8B45F8                 mov     eax, [ebp-$08]

* Reference to: System.TObject.Free(TObject);
|
004CB0DC   E8CF88F3FF             call    004039B0
004CB0E1   C3                     ret


* Reference to: System.@HandleFinally;
|
004CB0E2   E95D90F3FF             jmp     00404144
004CB0E7   EBF0                   jmp     004CB0D9

****** END
|
004CB0E9   33C0                   xor     eax, eax
004CB0EB   5A                     pop     edx
004CB0EC   59                     pop     ecx
004CB0ED   59                     pop     ecx
004CB0EE   648910                 mov     fs:[eax], edx

****** FINALLY
|
004CB0F1   680BB14C00             push    $004CB10B
004CB0F6   8D45F0                 lea     eax, [ebp-$10]
004CB0F9   BA02000000             mov     edx, $00000002

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004CB0FE   E83D97F3FF             call    00404840
004CB103   C3                     ret


* Reference to: System.@HandleFinally;
|
004CB104   E93B90F3FF             jmp     00404144
004CB109   EBEB                   jmp     004CB0F6

****** END
|
004CB10B   8A45FF                 mov     al, byte ptr [ebp-$01]
004CB10E   5F                     pop     edi
004CB10F   5E                     pop     esi
004CB110   5B                     pop     ebx
004CB111   8BE5                   mov     esp, ebp
004CB113   5D                     pop     ebp
004CB114   C20400                 ret     $0004

*)
end;

procedure TLoginDialog._PROC_004CB118(Sender : TObject);
begin
(*
004CB118   55                     push    ebp
004CB119   8BEC                   mov     ebp, esp
004CB11B   33C9                   xor     ecx, ecx
004CB11D   51                     push    ecx
004CB11E   51                     push    ecx
004CB11F   51                     push    ecx