unit4.pas

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

004DB56D   8D45D0                 lea     eax, [ebp-$30]
004DB570   B1FE                   mov     cl, $FE

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB572   E865A3F2FF             call    004058DC
004DB577   FF75DC                 push    dword ptr [ebp-$24]
004DB57A   FF75D8                 push    dword ptr [ebp-$28]
004DB57D   FF75D4                 push    dword ptr [ebp-$2C]
004DB580   FF75D0                 push    dword ptr [ebp-$30]
004DB583   8D45C0                 lea     eax, [ebp-$40]

* Possible String Reference to: '碟片编号长度'
|
004DB586   BA40B84D00             mov     edx, $004DB840

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB58B   E83CA3F2FF             call    004058CC
004DB590   FF75CC                 push    dword ptr [ebp-$34]
004DB593   FF75C8                 push    dword ptr [ebp-$38]
004DB596   FF75C4                 push    dword ptr [ebp-$3C]
004DB599   FF75C0                 push    dword ptr [ebp-$40]

* Reference to control Tsystemset.ADOQuery1 : TADOQuery
|
004DB59C   8B8378030000           mov     eax, [ebx+$0378]

* Reference to field TADOQuery.OFFS_0178
|
004DB5A2   8B8078010000           mov     eax, [eax+$0178]
004DB5A8   50                     push    eax
004DB5A9   8B00                   mov     eax, [eax]
004DB5AB   FF90AC000000           call    dword ptr [eax+$00AC]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
004DB5B1   E88AB3F2FF             call    00406940

* Reference to control Tsystemset.UpDown3 : TUpDown
|
004DB5B6   8B834C030000           mov     eax, [ebx+$034C]

* Reference to: ComCtrls.TCustomUpDown.GetPosition(TCustomUpDown):Smallint;
|
004DB5BC   E89F55FAFF             call    00480B60
004DB5C1   0FBFD0                 movsx   edx, ax
004DB5C4   8D45B0                 lea     eax, [ebp-$50]
004DB5C7   B1FE                   mov     cl, $FE

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB5C9   E80EA3F2FF             call    004058DC
004DB5CE   FF75BC                 push    dword ptr [ebp-$44]
004DB5D1   FF75B8                 push    dword ptr [ebp-$48]
004DB5D4   FF75B4                 push    dword ptr [ebp-$4C]
004DB5D7   FF75B0                 push    dword ptr [ebp-$50]
004DB5DA   8D45A0                 lea     eax, [ebp-$60]

* Possible String Reference to: '会员编号长度'
|
004DB5DD   BA58B84D00             mov     edx, $004DB858

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB5E2   E8E5A2F2FF             call    004058CC
004DB5E7   FF75AC                 push    dword ptr [ebp-$54]
004DB5EA   FF75A8                 push    dword ptr [ebp-$58]
004DB5ED   FF75A4                 push    dword ptr [ebp-$5C]
004DB5F0   FF75A0                 push    dword ptr [ebp-$60]

* Reference to control Tsystemset.ADOQuery1 : TADOQuery
|
004DB5F3   8B8378030000           mov     eax, [ebx+$0378]

* Reference to field TADOQuery.OFFS_0178
|
004DB5F9   8B8078010000           mov     eax, [eax+$0178]
004DB5FF   50                     push    eax
004DB600   8B00                   mov     eax, [eax]
004DB602   FF90AC000000           call    dword ptr [eax+$00AC]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
004DB608   E833B3F2FF             call    00406940

* Reference to control Tsystemset.UpDown4 : TUpDown
|
004DB60D   8B8350030000           mov     eax, [ebx+$0350]

* Reference to: ComCtrls.TCustomUpDown.GetPosition(TCustomUpDown):Smallint;
|
004DB613   E84855FAFF             call    00480B60
004DB618   0FBFD0                 movsx   edx, ax
004DB61B   8D4590                 lea     eax, [ebp-$70]
004DB61E   B1FE                   mov     cl, $FE

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB620   E8B7A2F2FF             call    004058DC
004DB625   FF759C                 push    dword ptr [ebp-$64]
004DB628   FF7598                 push    dword ptr [ebp-$68]
004DB62B   FF7594                 push    dword ptr [ebp-$6C]
004DB62E   FF7590                 push    dword ptr [ebp-$70]
004DB631   8D4580                 lea     eax, [ebp-$80]

* Possible String Reference to: '管理员编号长度'
|
004DB634   BA70B84D00             mov     edx, $004DB870

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB639   E88EA2F2FF             call    004058CC
004DB63E   FF758C                 push    dword ptr [ebp-$74]
004DB641   FF7588                 push    dword ptr [ebp-$78]
004DB644   FF7584                 push    dword ptr [ebp-$7C]
004DB647   FF7580                 push    dword ptr [ebp-$80]

* Reference to control Tsystemset.ADOQuery1 : TADOQuery
|
004DB64A   8B8378030000           mov     eax, [ebx+$0378]

* Reference to field TADOQuery.OFFS_0178
|
004DB650   8B8078010000           mov     eax, [eax+$0178]
004DB656   50                     push    eax
004DB657   8B00                   mov     eax, [eax]
004DB659   FF90AC000000           call    dword ptr [eax+$00AC]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
004DB65F   E8DCB2F2FF             call    00406940

* Reference to control Tsystemset.RadioButton1 : TRadioButton
|
004DB664   8B8360030000           mov     eax, [ebx+$0360]
004DB66A   8B10                   mov     edx, [eax]

* Reference to method TRadioButton.GetChecked()
|
004DB66C   FF92C4000000           call    dword ptr [edx+$00C4]
004DB672   84C0                   test    al, al
004DB674   746E                   jz      004DB6E4
004DB676   8D8570FFFFFF           lea     eax, [ebp+$FFFFFF70]
004DB67C   BA01000000             mov     edx, $00000001
004DB681   B101                   mov     cl, $01

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB683   E854A2F2FF             call    004058DC
004DB688   FFB57CFFFFFF           push    dword ptr [ebp+$FFFFFF7C]
004DB68E   FFB578FFFFFF           push    dword ptr [ebp+$FFFFFF78]
004DB694   FFB574FFFFFF           push    dword ptr [ebp+$FFFFFF74]
004DB69A   FFB570FFFFFF           push    dword ptr [ebp+$FFFFFF70]
004DB6A0   8D8560FFFFFF           lea     eax, [ebp+$FFFFFF60]

* Possible String Reference to: '是否收办证费'
|
004DB6A6   BA88B84D00             mov     edx, $004DB888

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB6AB   E81CA2F2FF             call    004058CC
004DB6B0   FFB56CFFFFFF           push    dword ptr [ebp+$FFFFFF6C]
004DB6B6   FFB568FFFFFF           push    dword ptr [ebp+$FFFFFF68]
004DB6BC   FFB564FFFFFF           push    dword ptr [ebp+$FFFFFF64]
004DB6C2   FFB560FFFFFF           push    dword ptr [ebp+$FFFFFF60]

* Reference to control Tsystemset.ADOQuery1 : TADOQuery
|
004DB6C8   8B8378030000           mov     eax, [ebx+$0378]

* Reference to field TADOQuery.OFFS_0178
|
004DB6CE   8B8078010000           mov     eax, [eax+$0178]
004DB6D4   50                     push    eax
004DB6D5   8B00                   mov     eax, [eax]
004DB6D7   FF90AC000000           call    dword ptr [eax+$00AC]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
004DB6DD   E85EB2F2FF             call    00406940
004DB6E2   EB69                   jmp     004DB74D
004DB6E4   8D8550FFFFFF           lea     eax, [ebp+$FFFFFF50]
004DB6EA   33D2                   xor     edx, edx
004DB6EC   B101                   mov     cl, $01

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB6EE   E8E9A1F2FF             call    004058DC
004DB6F3   FFB55CFFFFFF           push    dword ptr [ebp+$FFFFFF5C]
004DB6F9   FFB558FFFFFF           push    dword ptr [ebp+$FFFFFF58]
004DB6FF   FFB554FFFFFF           push    dword ptr [ebp+$FFFFFF54]
004DB705   FFB550FFFFFF           push    dword ptr [ebp+$FFFFFF50]
004DB70B   8D8540FFFFFF           lea     eax, [ebp+$FFFFFF40]

* Possible String Reference to: '是否收办证费'
|
004DB711   BA88B84D00             mov     edx, $004DB888

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB716   E8B1A1F2FF             call    004058CC
004DB71B   FFB54CFFFFFF           push    dword ptr [ebp+$FFFFFF4C]
004DB721   FFB548FFFFFF           push    dword ptr [ebp+$FFFFFF48]
004DB727   FFB544FFFFFF           push    dword ptr [ebp+$FFFFFF44]
004DB72D   FFB540FFFFFF           push    dword ptr [ebp+$FFFFFF40]

* Reference to control Tsystemset.ADOQuery1 : TADOQuery
|
004DB733   8B8378030000           mov     eax, [ebx+$0378]

* Reference to field TADOQuery.OFFS_0178
|
004DB739   8B8078010000           mov     eax, [eax+$0178]
004DB73F   50                     push    eax
004DB740   8B00                   mov     eax, [eax]
004DB742   FF90AC000000           call    dword ptr [eax+$00AC]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
004DB748   E8F3B1F2FF             call    00406940
004DB74D   8D952CFFFFFF           lea     edx, [ebp+$FFFFFF2C]

* Reference to control Tsystemset.Edit5 : TEdit
|
004DB753   8B835C030000           mov     eax, [ebx+$035C]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004DB759   E80ED8F6FF             call    00448F6C
004DB75E   8B952CFFFFFF           mov     edx, [ebp+$FFFFFF2C]
004DB764   8D8530FFFFFF           lea     eax, [ebp+$FFFFFF30]

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB76A   E85DA1F2FF             call    004058CC
004DB76F   FFB53CFFFFFF           push    dword ptr [ebp+$FFFFFF3C]
004DB775   FFB538FFFFFF           push    dword ptr [ebp+$FFFFFF38]
004DB77B   FFB534FFFFFF           push    dword ptr [ebp+$FFFFFF34]
004DB781   FFB530FFFFFF           push    dword ptr [ebp+$FFFFFF30]
004DB787   8D851CFFFFFF           lea     eax, [ebp+$FFFFFF1C]

* Possible String Reference to: '办证费'
|
004DB78D   BAA0B84D00             mov     edx, $004DB8A0

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
004DB792   E835A1F2FF             call    004058CC
004DB797   FFB528FFFFFF           push    dword ptr [ebp+$FFFFFF28]
004DB79D   FFB524FFFFFF           push    dword ptr [ebp+$FFFFFF24]
004DB7A3   FFB520FFFFFF           push    dword ptr [ebp+$FFFFFF20]
004DB7A9   FFB51CFFFFFF           push    dword ptr [ebp+$FFFFFF1C]

* Reference to control Tsystemset.ADOQuery1 : TADOQuery
|
004DB7AF   8B8378030000           mov     eax, [ebx+$0378]

* Reference to field TADOQuery.OFFS_0178
|
004DB7B5   8B8078010000           mov     eax, [eax+$0178]
004DB7BB   50                     push    eax
004DB7BC   8B00                   mov     eax, [eax]
004DB7BE   FF90AC000000           call    dword ptr [eax+$00AC]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
004DB7C4   E877B1F2FF             call    00406940
004DB7C9   C605A09D580000         mov     byte ptr [$00589DA0], $00
004DB7D0   8BD6                   mov     edx, esi
004DB7D2   8BC3                   mov     eax, ebx

* Reference to: Unit4.Proc_004DACB4
|
004DB7D4   E8DBF4FFFF             call    004DACB4
004DB7D9   33C0                   xor     eax, eax
004DB7DB   5A                     pop     edx
004DB7DC   59                     pop     ecx
004DB7DD   59                     pop     ecx
004DB7DE   648910                 mov     fs:[eax], edx

****** FINALLY
|
004DB7E1   681AB84D00             push    $004DB81A