unit7.pas

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

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tmemclass=class(TForm)
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    ListView1: TListView;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    procedure FormCreate(Sender : TObject);
    procedure ListView1Click(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure SpeedButton5Click(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure SpeedButton3Click(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 SpeedButton4Click(Sender : TObject);
    procedure SpeedButton6Click(Sender : TObject);
    procedure ToolButton11Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure ToolButton10Click(Sender : TObject);
    procedure _PROC_0051B398(Sender : TObject);
    procedure _PROC_0051C56F(Sender : TObject);
    procedure _PROC_0051C719(Sender : TObject);
    procedure _PROC_0051C748(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  memclass: Tmemclass;

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

implementation

{$R *.DFM}

procedure Tmemclass.FormCreate(Sender : TObject);
begin
(*
0051B7AC   53                     push    ebx
0051B7AD   56                     push    esi
0051B7AE   83C4F8                 add     esp, -$08
0051B7B1   8BF2                   mov     esi, edx
0051B7B3   8BD8                   mov     ebx, eax
0051B7B5   B201                   mov     dl, $01

* Reference to control Tmemclass.ADOQuery1 : TADOQuery
|
0051B7B7   8B8308030000           mov     eax, [ebx+$0308]
0051B7BD   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_0178
|
0051B7BF   FF9178010000           call    dword ptr [ecx+$0178]
0051B7C5   54                     push    esp

* Reference to control Tmemclass.ADOQuery1 : TADOQuery
|
0051B7C6   8B8308030000           mov     eax, [ebx+$0308]

* Reference to field TADOQuery.OFFS_0178
|
0051B7CC   8B8078010000           mov     eax, [eax+$0178]
0051B7D2   50                     push    eax
0051B7D3   8B00                   mov     eax, [eax]
0051B7D5   FF5034                 call    dword ptr [eax+$34]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051B7D8   E863B1EEFF             call    00406940
0051B7DD   66833C2400             cmp     word ptr [esp], +$00
0051B7E2   7530                   jnz     0051B814
0051B7E4   8D442404               lea     eax, [esp+$04]
0051B7E8   50                     push    eax

* Reference to control Tmemclass.ADOQuery1 : TADOQuery
|
0051B7E9   8B8308030000           mov     eax, [ebx+$0308]

* Reference to field TADOQuery.OFFS_0178
|
0051B7EF   8B8078010000           mov     eax, [eax+$0178]
0051B7F5   50                     push    eax
0051B7F6   8B00                   mov     eax, [eax]
0051B7F8   FF5050                 call    dword ptr [eax+$50]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051B7FB   E840B1EEFF             call    00406940
0051B800   66837C240400           cmp     word ptr [esp+$04], +$00
0051B806   750C                   jnz     0051B814
0051B808   8BD6                   mov     edx, esi
0051B80A   A1389F5800             mov     eax, dword ptr [$00589F38]

* Reference to : Tmemclass._PROC_0051B398()
|
0051B80F   E884FBFFFF             call    0051B398
0051B814   33C9                   xor     ecx, ecx
0051B816   8BD6                   mov     edx, esi
0051B818   A1389F5800             mov     eax, dword ptr [$00589F38]

* Reference to: Unit7.Proc_0051B77C
|
0051B81D   E85AFFFFFF             call    0051B77C
0051B822   33D2                   xor     edx, edx

* Reference to control Tmemclass.SpeedButton2 : TSpeedButton
|
0051B824   8B8348030000           mov     eax, [ebx+$0348]
0051B82A   8B08                   mov     ecx, [eax]

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

* Reference to control Tmemclass.SpeedButton3 : TSpeedButton
|
0051B831   8B834C030000           mov     eax, [ebx+$034C]
0051B837   8B08                   mov     ecx, [eax]

* Reference to method TSpeedButton.SetEnabled(Boolean)
|
0051B839   FF5164                 call    dword ptr [ecx+$64]
0051B83C   59                     pop     ecx
0051B83D   5A                     pop     edx
0051B83E   5E                     pop     esi
0051B83F   5B                     pop     ebx
0051B840   C3                     ret

*)
end;

procedure Tmemclass.ListView1Click(Sender : TObject);
begin
(*
0051B844   55                     push    ebp
0051B845   8BEC                   mov     ebp, esp
0051B847   B90A000000             mov     ecx, $0000000A
0051B84C   6A00                   push    $00
0051B84E   6A00                   push    $00
0051B850   49                     dec     ecx
0051B851   75F9                   jnz     0051B84C
0051B853   51                     push    ecx
0051B854   53                     push    ebx
0051B855   56                     push    esi
0051B856   57                     push    edi
0051B857   8955FC                 mov     [ebp-$04], edx
0051B85A   8BD8                   mov     ebx, eax
0051B85C   33C0                   xor     eax, eax
0051B85E   55                     push    ebp

* Possible String Reference to: '锽嗩