unit4.pas

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

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tsystemset=class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    UpDown3: TUpDown;
    UpDown4: TUpDown;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Edit5: TEdit;
    RadioButton1: TRadioButton;
    Label7: TLabel;
    RadioButton2: TRadioButton;
    Label5: TLabel;
    Label8: TLabel;
    Edit6: TEdit;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender : TObject);
    procedure SpeedButton3Click(Sender : TObject);
    procedure ToolButton5Click(Sender : TObject);
    procedure ToolButton1Click(Sender : TObject);
    procedure ToolButton2Click(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure RadioButton2Click(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure Edit1Enter(Sender : TObject);
    procedure Edit1Exit(Sender : TObject);
    procedure Edit2Enter(Sender : TObject);
    procedure Edit2Exit(Sender : TObject);
    procedure Edit3Enter(Sender : TObject);
    procedure Edit3Exit(Sender : TObject);
    procedure Edit4Enter(Sender : TObject);
    procedure Edit4Exit(Sender : TObject);
    procedure Edit6Enter(Sender : TObject);
    procedure Edit6Exit(Sender : TObject);
    procedure Edit5Enter(Sender : TObject);
    procedure Edit5Exit(Sender : TObject);
    procedure ToolButton4Click(Sender : TObject);
    procedure _PROC_004DAD98(Sender : TObject);
    procedure _PROC_004DBA9D(Sender : TObject);
    procedure _PROC_004DBACC(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  systemset: Tsystemset;

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

implementation

{$R *.DFM}

procedure Tsystemset.FormCreate(Sender : TObject);
begin
(*
004DB420   53                     push    ebx
004DB421   56                     push    esi
004DB422   8BF2                   mov     esi, edx
004DB424   8BD8                   mov     ebx, eax
004DB426   B201                   mov     dl, $01

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

* Possible reference to virtual method TADOQuery.OFFS_0178
|
004DB430   FF9178010000           call    dword ptr [ecx+$0178]
004DB436   C605A09D580000         mov     byte ptr [$00589DA0], $00
004DB43D   8BD6                   mov     edx, esi
004DB43F   8BC3                   mov     eax, ebx

* Reference to: Unit4.Proc_004DACB4
|
004DB441   E86EF8FFFF             call    004DACB4
004DB446   8BD6                   mov     edx, esi
004DB448   8BC3                   mov     eax, ebx

* Reference to : Tsystemset._PROC_004DAD98()
|
004DB44A   E849F9FFFF             call    004DAD98
004DB44F   5E                     pop     esi
004DB450   5B                     pop     ebx
004DB451   C3                     ret

*)
end;

procedure Tsystemset.SpeedButton3Click(Sender : TObject);
begin
(*
004DB454   A19C9D5800             mov     eax, dword ptr [$00589D9C]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004DB459   E8D2A6F8FF             call    00465B30
004DB45E   C3                     ret

*)
end;

procedure Tsystemset.ToolButton5Click(Sender : TObject);
begin
(*
004DB460   A19C9D5800             mov     eax, dword ptr [$00589D9C]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004DB465   E8C6A6F8FF             call    00465B30
004DB46A   C3                     ret

*)
end;

procedure Tsystemset.ToolButton1Click(Sender : TObject);
begin
(*
004DB46C   C605A09D580000         mov     byte ptr [$00589DA0], $00

* Reference to: Unit4.Proc_004DACB4
|
004DB473   E83CF8FFFF             call    004DACB4
004DB478   C3                     ret

*)
end;

procedure Tsystemset.ToolButton2Click(Sender : TObject);
begin
(*
004DB47C   C605A09D580001         mov     byte ptr [$00589DA0], $01

* Reference to: Unit4.Proc_004DACB4
|
004DB483   E82CF8FFFF             call    004DACB4
004DB488   C3                     ret

*)
end;

procedure Tsystemset.RadioButton1Click(Sender : TObject);
begin
(*
004DB48C   53                     push    ebx
004DB48D   8BD8                   mov     ebx, eax
004DB48F   B201                   mov     dl, $01

* Reference to control Tsystemset.Label6 : TLabel
|
004DB491   8B8358030000           mov     eax, [ebx+$0358]
004DB497   8B08                   mov     ecx, [eax]

* Reference to method TLabel.SetEnabled(Boolean)
|
004DB499   FF5164                 call    dword ptr [ecx+$64]
004DB49C   B201                   mov     dl, $01

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

* Reference to method TEdit.SetEnabled(Boolean)
|
004DB4A6   FF5164                 call    dword ptr [ecx+$64]
004DB4A9   B201                   mov     dl, $01

* Reference to control Tsystemset.Label7 : TLabel
|
004DB4AB   8B8364030000           mov     eax, [ebx+$0364]
004DB4B1   8B08                   mov     ecx, [eax]

* Reference to method TLabel.SetEnabled(Boolean)
|
004DB4B3   FF5164                 call    dword ptr [ecx+$64]
004DB4B6   5B                     pop     ebx
004DB4B7   C3                     ret

*)
end;

procedure Tsystemset.RadioButton2Click(Sender : TObject);
begin
(*
004DB4B8   53                     push    ebx
004DB4B9   8BD8                   mov     ebx, eax
004DB4BB   33D2                   xor     edx, edx

* Reference to control Tsystemset.Label6 : TLabel
|
004DB4BD   8B8358030000           mov     eax, [ebx+$0358]
004DB4C3   8B08                   mov     ecx, [eax]

* Reference to method TLabel.SetEnabled(Boolean)
|
004DB4C5   FF5164                 call    dword ptr [ecx+$64]
004DB4C8   33D2                   xor     edx, edx

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

* Reference to method TEdit.SetEnabled(Boolean)
|
004DB4D2   FF5164                 call    dword ptr [ecx+$64]
004DB4D5   33D2                   xor     edx, edx

* Reference to control Tsystemset.Label7 : TLabel
|
004DB4D7   8B8364030000           mov     eax, [ebx+$0364]
004DB4DD   8B08                   mov     ecx, [eax]

* Reference to method TLabel.SetEnabled(Boolean)
|
004DB4DF   FF5164                 call    dword ptr [ecx+$64]
004DB4E2   5B                     pop     ebx
004DB4E3   C3                     ret

*)
end;

procedure Tsystemset.SpeedButton2Click(Sender : TObject);
begin
(*
004DB4E4   55                     push    ebp
004DB4E5   8BEC                   mov     ebp, esp
004DB4E7   B91C000000             mov     ecx, $0000001C
004DB4EC   6A00                   push    $00
004DB4EE   6A00                   push    $00
004DB4F0   49                     dec     ecx
004DB4F1   75F9                   jnz     004DB4EC
004DB4F3   51                     push    ecx
004DB4F4   53                     push    ebx
004DB4F5   56                     push    esi
004DB4F6   8BF2                   mov     esi, edx
004DB4F8   8BD8                   mov     ebx, eax
004DB4FA   33C0                   xor     eax, eax
004DB4FC   55                     push    ebp
004DB4FD   6813B84D00             push    $004DB813

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

* Reference to control Tsystemset.UpDown1 : TUpDown
|
004DB508   8B8344030000           mov     eax, [ebx+$0344]

* Reference to: ComCtrls.TCustomUpDown.GetPosition(TCustomUpDown):Smallint;
|
004DB50E   E84D56FAFF             call    00480B60
004DB513   0FBFD0                 movsx   edx, ax
004DB516   8D45F0                 lea     eax, [ebp-$10]
004DB519   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;
|
004DB51B   E8BCA3F2FF             call    004058DC
004DB520   FF75FC                 push    dword ptr [ebp-$04]
004DB523   FF75F8                 push    dword ptr [ebp-$08]
004DB526   FF75F4                 push    dword ptr [ebp-$0C]
004DB529   FF75F0                 push    dword ptr [ebp-$10]
004DB52C   8D45E0                 lea     eax, [ebp-$20]

* Possible String Reference to: '管理员密码长度'
|
004DB52F   BA28B84D00             mov     edx, $004DB828

* 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;
|
004DB534   E893A3F2FF             call    004058CC
004DB539   FF75EC                 push    dword ptr [ebp-$14]
004DB53C   FF75E8                 push    dword ptr [ebp-$18]
004DB53F   FF75E4                 push    dword ptr [ebp-$1C]
004DB542   FF75E0                 push    dword ptr [ebp-$20]

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

* Reference to field TADOQuery.OFFS_0178
|
004DB54B   8B8078010000           mov     eax, [eax+$0178]
004DB551   50                     push    eax
004DB552   8B00                   mov     eax, [eax]
004DB554   FF90AC000000           call    dword ptr [eax+$00AC]

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

* Reference to control Tsystemset.UpDown2 : TUpDown
|
004DB55F   8B8348030000           mov     eax, [ebx+$0348]

* Reference to: ComCtrls.TCustomUpDown.GetPosition(TCustomUpDown):Smallint;
|
004DB565   E8F655FAFF             call    00480B60
004DB56A   0FBFD0                 movsx   edx, ax