dblogdlg.pas

音像租赁管理系统 进行音像店的日常工作管理!

004CB120   51                     push    ecx
004CB121   51                     push    ecx
004CB122   53                     push    ebx
004CB123   56                     push    esi
004CB124   8BF2                   mov     esi, edx
004CB126   8BD8                   mov     ebx, eax
004CB128   33C0                   xor     eax, eax
004CB12A   55                     push    ebp
004CB12B   68C6B24C00             push    $004CB2C6

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

* Reference to TApplication instance
|
004CB136   8B0D24835800           mov     ecx, [$00588324]
004CB13C   8B09                   mov     ecx, [ecx]
004CB13E   B201                   mov     dl, $01

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

* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|           or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
004CB145   E85269F9FF             call    00461A9C
004CB14A   8945F8                 mov     [ebp-$08], eax
004CB14D   33D2                   xor     edx, edx
004CB14F   55                     push    ebp
004CB150   689CB24C00             push    $004CB29C

***** TRY
|
004CB155   64FF32                 push    dword ptr fs:[edx]
004CB158   648922                 mov     fs:[edx], esp
004CB15B   8D55F4                 lea     edx, [ebp-$0C]
004CB15E   A1947F5800             mov     eax, dword ptr [$00587F94]

* Reference to: System.LoadResString(PResStringRec):String;
|
004CB163   E8B4BBF3FF             call    00406D1C
004CB168   8B55F4                 mov     edx, [ebp-$0C]
004CB16B   8B45F8                 mov     eax, [ebp-$08]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004CB16E   E829DEF7FF             call    00448F9C
004CB173   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.Bevel : TBevel
|
004CB176   8B80F4020000           mov     eax, [eax+$02F4]
004CB17C   33D2                   xor     edx, edx

* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004CB17E   E809DDF7FF             call    00448E8C
004CB183   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.DatabaseName : TLabel
|
004CB186   8B80F8020000           mov     eax, [eax+$02F8]
004CB18C   33D2                   xor     edx, edx

* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004CB18E   E8F9DCF7FF             call    00448E8C
004CB193   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.Label3 : TLabel
|
004CB196   8B8010030000           mov     eax, [eax+$0310]
004CB19C   33D2                   xor     edx, edx

* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
004CB19E   E8E9DCF7FF             call    00448E8C
004CB1A3   8B45F8                 mov     eax, [ebp-$08]

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

* Reference to field TPanel.Height : Integer
|
004CB1AC   8B504C                 mov     edx, [eax+$4C]
004CB1AF   8B4DF8                 mov     ecx, [ebp-$08]
004CB1B2   8B89F4020000           mov     ecx, [ecx+$02F4]
004CB1B8   2B5144                 sub     edx, dword ptr [ecx+$44]

* Reference to: Controls.TControl.SetHeight(TControl;Integer);
|
004CB1BB   E864D5F7FF             call    00448724
004CB1C0   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.OKButton : TButton
|
004CB1C3   8B80FC020000           mov     eax, [eax+$02FC]

* Reference to field TButton.Top : Integer
|
004CB1C9   8B5044                 mov     edx, [eax+$44]
004CB1CC   8B4DF8                 mov     ecx, [ebp-$08]
004CB1CF   8B89F4020000           mov     ecx, [ecx+$02F4]
004CB1D5   2B5144                 sub     edx, dword ptr [ecx+$44]

* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
004CB1D8   E8FBD4F7FF             call    004486D8
004CB1DD   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.CancelButton : TButton
|
004CB1E0   8B8000030000           mov     eax, [eax+$0300]

* Reference to field TButton.Top : Integer
|
004CB1E6   8B5044                 mov     edx, [eax+$44]
004CB1E9   8B4DF8                 mov     ecx, [ebp-$08]
004CB1EC   8B89F4020000           mov     ecx, [ecx+$02F4]
004CB1F2   2B5144                 sub     edx, dword ptr [ecx+$44]

* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
004CB1F5   E8DED4F7FF             call    004486D8
004CB1FA   8B45F8                 mov     eax, [ebp-$08]

* Reference to field TLoginDialog.Height : Integer
|
004CB1FD   8B504C                 mov     edx, [eax+$4C]
004CB200   8B45F8                 mov     eax, [ebp-$08]

* Reference to control TLoginDialog.Bevel : TBevel
|
004CB203   8B80F4020000           mov     eax, [eax+$02F4]
004CB209   2B5044                 sub     edx, dword ptr [eax+$44]
004CB20C   8B45F8                 mov     eax, [ebp-$08]

* Reference to: Controls.TControl.SetHeight(TControl;Integer);
|
004CB20F   E810D5F7FF             call    00448724
004CB214   8B13                   mov     edx, [ebx]
004CB216   8B45F8                 mov     eax, [ebp-$08]

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

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004CB21F   E878DDF7FF             call    00448F9C
004CB224   C645FF00               mov     byte ptr [ebp-$01], $00
004CB228   833B00                 cmp     dword ptr [ebx], +$00
004CB22B   7511                   jnz     004CB23E
004CB22D   8B45F8                 mov     eax, [ebp-$08]

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

* Reference to: Forms.TCustomForm.SetActiveControl(TCustomForm;TWinControl);
|
004CB239   E8928FF9FF             call    004641D0
004CB23E   8B45F8                 mov     eax, [ebp-$08]
004CB241   8B10                   mov     edx, [eax]

* Reference to method TLoginDialog.ShowModal()
|
004CB243   FF92E8000000           call    dword ptr [edx+$00E8]
004CB249   48                     dec     eax
004CB24A   753A                   jnz     004CB286
004CB24C   8D55F0                 lea     edx, [ebp-$10]
004CB24F   8B45F8                 mov     eax, [ebp-$08]

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

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004CB258   E80FDDF7FF             call    00448F6C
004CB25D   8B55F0                 mov     edx, [ebp-$10]
004CB260   8BC3                   mov     eax, ebx

* Reference to: System.@LStrAsg(void;void;void;void);
|
004CB262   E80996F3FF             call    00404870
004CB267   8D55EC                 lea     edx, [ebp-$14]
004CB26A   8B45F8                 mov     eax, [ebp-$08]

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

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004CB273   E8F4DCF7FF             call    00448F6C
004CB278   8B55EC                 mov     edx, [ebp-$14]
004CB27B   8BC6                   mov     eax, esi

* Reference to: System.@LStrAsg(void;void;void;void);
|
004CB27D   E8EE95F3FF             call    00404870
004CB282   C645FF01               mov     byte ptr [ebp-$01], $01
004CB286   33C0                   xor     eax, eax
004CB288   5A                     pop     edx
004CB289   59                     pop     ecx
004CB28A   59                     pop     ecx
004CB28B   648910                 mov     fs:[eax], edx

****** FINALLY
|
004CB28E   68A3B24C00             push    $004CB2A3
004CB293   8B45F8                 mov     eax, [ebp-$08]

* Reference to: System.TObject.Free(TObject);
|
004CB296   E81587F3FF             call    004039B0
004CB29B   C3                     ret


* Reference to: System.@HandleFinally;
|
004CB29C   E9A38EF3FF             jmp     00404144
004CB2A1   EBF0                   jmp     004CB293

****** END
|
004CB2A3   33C0                   xor     eax, eax
004CB2A5   5A                     pop     edx
004CB2A6   59                     pop     ecx
004CB2A7   59                     pop     ecx
004CB2A8   648910                 mov     fs:[eax], edx

****** FINALLY
|
004CB2AB   68CDB24C00             push    $004CB2CD
004CB2B0   8D45EC                 lea     eax, [ebp-$14]
004CB2B3   BA02000000             mov     edx, $00000002

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004CB2B8   E88395F3FF             call    00404840
004CB2BD   8D45F4                 lea     eax, [ebp-$0C]

* Reference to: System.@LStrClr(void;void);
|
004CB2C0   E85795F3FF             call    0040481C
004CB2C5   C3                     ret


* Reference to: System.@HandleFinally;
|
004CB2C6   E9798EF3FF             jmp     00404144
004CB2CB   EBE3                   jmp     004CB2B0

****** END
|
004CB2CD   8A45FF                 mov     al, byte ptr [ebp-$01]
004CB2D0   5E                     pop     esi
004CB2D1   5B                     pop     ebx
004CB2D2   8BE5                   mov     esp, ebp
004CB2D4   5D                     pop     ebp
004CB2D5   C3                     ret

*)
end;

procedure TLoginDialog._PROC_004CB320(Sender : TObject);
begin
(*

* Reference to TScreen instance
|
004CB320   8B1594865800           mov     edx, [$00588694]
004CB326   8B12                   mov     edx, [edx]
004CB328   92                     xchg    eax, edx

* Reference to: Forms.TScreen.SetCursor(TScreen;TCursor);
|
004CB329   E852BFF9FF             call    00467280
004CB32E   C3                     ret

*)
end;

procedure TLoginDialog._PROC_004CB330(Sender : TObject);
begin
(*
004CB330   55                     push    ebp
004CB331   8BEC                   mov     ebp, esp
004CB333   33C0                   xor     eax, eax
004CB335   55                     push    ebp

* Possible String Reference to: '殛嶓