unit34.pas

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

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0057E2A8   E8BFACECFF             call    00448F6C
0057E2AD   8B55FC                 mov     edx, [ebp-$04]

* Reference to control Tlentandback.Edit1 : TEdit
|
0057E2B0   8B8344030000           mov     eax, [ebx+$0344]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0057E2B6   E8E1ACECFF             call    00448F9C
0057E2BB   33C0                   xor     eax, eax

* Reference to GlobalVar_0058A074
|
0057E2BD   A374A05800             mov     dword ptr [$0058A074], eax
0057E2C2   33C0                   xor     eax, eax
0057E2C4   890578A05800           mov     [$0058A078], eax
0057E2CA   89057CA05800           mov     [$0058A07C], eax
0057E2D0   33C0                   xor     eax, eax

* Reference to GlobalVar_0058A080
|
0057E2D2   A380A05800             mov     dword ptr [$0058A080], eax

* Reference to: Unit_004081C8.Proc_0040B284
|
0057E2D7   E8A8CFE8FF             call    0040B284
0057E2DC   83C4F8                 add     esp, -$08
0057E2DF   DD1C24                 fstp    qword ptr [esp]
0057E2E2   9B                     wait

* Reference to control Tlentandback.DateTimePicker1 : TDateTimePicker
|
0057E2E3   8B833C030000           mov     eax, [ebx+$033C]

* Reference to: ComCtrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
0057E2E9   E82EE1F0FF             call    0048C41C
0057E2EE   BA14E45700             mov     edx, $0057E414

* Reference to control Tlentandback.Edit4 : TEdit
|
0057E2F3   8B839C030000           mov     eax, [ebx+$039C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0057E2F9   E89EACECFF             call    00448F9C
0057E2FE   BA14E45700             mov     edx, $0057E414

* Reference to control Tlentandback.Edit5 : TEdit
|
0057E303   8B83A0030000           mov     eax, [ebx+$03A0]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0057E309   E88EACECFF             call    00448F9C
0057E30E   33D2                   xor     edx, edx

* Reference to control Tlentandback.SpeedButton1 : TSpeedButton
|
0057E310   8B8368030000           mov     eax, [ebx+$0368]
0057E316   8B08                   mov     ecx, [eax]

* Reference to method TSpeedButton.SetEnabled(Boolean)
|
0057E318   FF5164                 call    dword ptr [ecx+$64]
0057E31B   33D2                   xor     edx, edx

* Reference to control Tlentandback.SpeedButton2 : TSpeedButton
|
0057E31D   8B836C030000           mov     eax, [ebx+$036C]
0057E323   8B08                   mov     ecx, [eax]

* Reference to method TSpeedButton.SetEnabled(Boolean)
|
0057E325   FF5164                 call    dword ptr [ecx+$64]
0057E328   8D55F8                 lea     edx, [ebp-$08]

* Reference to Tgetin instance
|
0057E32B   A1B0845800             mov     eax, dword ptr [$005884B0]
0057E330   8B00                   mov     eax, [eax]

* Reference to control Tgetin.ComboBox1 : TComboBox
|
0057E332   8B801C030000           mov     eax, [eax+$031C]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0057E338   E82FACECFF             call    00448F6C
0057E33D   8B55F8                 mov     edx, [ebp-$08]

* Reference to control Tlentandback.Edit7 : TEdit
|
0057E340   8B83D0030000           mov     eax, [ebx+$03D0]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0057E346   E851ACECFF             call    00448F9C
0057E34B   33C0                   xor     eax, eax

* Reference to GlobalVar_0058A084
|
0057E34D   A384A05800             mov     dword ptr [$0058A084], eax
0057E352   33C0                   xor     eax, eax
0057E354   890588A05800           mov     [$0058A088], eax
0057E35A   89058CA05800           mov     [$0058A08C], eax
0057E360   33C0                   xor     eax, eax

* Reference to GlobalVar_0058A090
|
0057E362   A390A05800             mov     dword ptr [$0058A090], eax

* Reference to: Unit_004081C8.Proc_0040B284
|
0057E367   E818CFE8FF             call    0040B284
0057E36C   83C4F8                 add     esp, -$08
0057E36F   DD1C24                 fstp    qword ptr [esp]
0057E372   9B                     wait

* Reference to control Tlentandback.DateTimePicker2 : TDateTimePicker
|
0057E373   8B83C8030000           mov     eax, [ebx+$03C8]

* Reference to: ComCtrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
0057E379   E89EE0F0FF             call    0048C41C
0057E37E   BA14E45700             mov     edx, $0057E414

* Reference to control Tlentandback.Edit9 : TEdit
|
0057E383   8B8310040000           mov     eax, [ebx+$0410]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0057E389   E80EACECFF             call    00448F9C
0057E38E   BA14E45700             mov     edx, $0057E414

* Reference to control Tlentandback.Edit10 : TEdit
|
0057E393   8B8314040000           mov     eax, [ebx+$0414]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0057E399   E8FEABECFF             call    00448F9C
0057E39E   BA14E45700             mov     edx, $0057E414

* Reference to control Tlentandback.Edit11 : TEdit
|
0057E3A3   8B8324040000           mov     eax, [ebx+$0424]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0057E3A9   E8EEABECFF             call    00448F9C
0057E3AE   BA14E45700             mov     edx, $0057E414

* Reference to control Tlentandback.Edit12 : TEdit
|
0057E3B3   8B8330040000           mov     eax, [ebx+$0430]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0057E3B9   E8DEABECFF             call    00448F9C
0057E3BE   33D2                   xor     edx, edx

* Reference to control Tlentandback.SpeedButton4 : TSpeedButton
|
0057E3C0   8B83F4030000           mov     eax, [ebx+$03F4]
0057E3C6   8B08                   mov     ecx, [eax]

* Reference to method TSpeedButton.SetEnabled(Boolean)
|
0057E3C8   FF5164                 call    dword ptr [ecx+$64]
0057E3CB   33D2                   xor     edx, edx

* Reference to control Tlentandback.SpeedButton5 : TSpeedButton
|
0057E3CD   8B83F8030000           mov     eax, [ebx+$03F8]
0057E3D3   8B08                   mov     ecx, [eax]

* Reference to method TSpeedButton.SetEnabled(Boolean)
|
0057E3D5   FF5164                 call    dword ptr [ecx+$64]
0057E3D8   33D2                   xor     edx, edx

* Reference to control Tlentandback.PageControl1 : TPageControl
|
0057E3DA   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference to: ComCtrls.TCustomTabControl.SetTabIndex(TCustomTabControl;Integer);
|
0057E3E0   E8B7ABEFFF             call    00478F9C
0057E3E5   33C0                   xor     eax, eax
0057E3E7   5A                     pop     edx
0057E3E8   59                     pop     ecx
0057E3E9   59                     pop     ecx
0057E3EA   648910                 mov     fs:[eax], edx

****** FINALLY
|
0057E3ED   6807E45700             push    $0057E407
0057E3F2   8D45F8                 lea     eax, [ebp-$08]
0057E3F5   BA02000000             mov     edx, $00000002

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0057E3FA   E84164E8FF             call    00404840
0057E3FF   C3                     ret


* Reference to: System.@HandleFinally;
|
0057E400   E93F5DE8FF             jmp     00404144
0057E405   EBEB                   jmp     0057E3F2

****** END
|
0057E407   5B                     pop     ebx
0057E408   59                     pop     ecx
0057E409   59                     pop     ecx
0057E40A   5D                     pop     ebp
0057E40B   C3                     ret

*)
end;

procedure Tlentandback.BitBtn1Click(Sender : TObject);
begin
(*
0057E418   A170A05800             mov     eax, dword ptr [$0058A070]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0057E41D   E80E77EEFF             call    00465B30
0057E422   C3                     ret

*)
end;

procedure Tlentandback.Edit2KeyPress(Sender : TObject);
begin
(*
0057E424   55                     push    ebp
0057E425   8BEC                   mov     ebp, esp
0057E427   51                     push    ecx
0057E428   B905000000             mov     ecx, $00000005
0057E42D   6A00                   push    $00
0057E42F   6A00                   push    $00
0057E431   49                     dec     ecx
0057E432   75F9                   jnz     0057E42D
0057E434   874DFC                 xchg    [ebp-$04], ecx
0057E437   53                     push    ebx
0057E438   56                     push    esi
0057E439   8BDA                   mov     ebx, edx
0057E43B   8BF0                   mov     esi, eax
0057E43D   33C0                   xor     eax, eax
0057E43F   55                     push    ebp

* Possible String Reference to: '榭Y