unit17.pas

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

unit Unit17;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tsalediscmb=class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    RadioButton3: TRadioButton;
    procedure SpeedButton3Click(Sender : TObject);
    procedure ToolButton11Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure ComboBox1Change(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure ComboBox1Enter(Sender : TObject);
    procedure ComboBox1Exit(Sender : TObject);
    procedure Edit2Enter(Sender : TObject);
    procedure Edit2Exit(Sender : TObject);
    procedure Edit1Enter(Sender : TObject);
    procedure Edit1Exit(Sender : TObject);
    procedure Edit1KeyPress(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure ToolButton1Click(Sender : TObject);
    procedure ToolButton2Click(Sender : TObject);
    procedure DBGrid1CellClick(Sender : TObject);
    procedure ToolButton10Click(Sender : TObject);
    procedure _PROC_0053A3A1(Sender : TObject);
    procedure _PROC_0053A3DC(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  salediscmb: Tsalediscmb;

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

implementation

{$R *.DFM}

procedure Tsalediscmb.SpeedButton3Click(Sender : TObject);
begin
(*
00538E70   A1B09F5800             mov     eax, dword ptr [$00589FB0]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00538E75   E8B6CCF2FF             call    00465B30
00538E7A   C3                     ret

*)
end;

procedure Tsalediscmb.ToolButton11Click(Sender : TObject);
begin
(*
00538E7C   A1B09F5800             mov     eax, dword ptr [$00589FB0]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00538E81   E8AACCF2FF             call    00465B30
00538E86   C3                     ret

*)
end;

procedure Tsalediscmb.FormCreate(Sender : TObject);
begin
(*
00538E88   53                     push    ebx
00538E89   8BD8                   mov     ebx, eax
00538E8B   B201                   mov     dl, $01

* Reference to control Tsalediscmb.ADOQuery1 : TADOQuery
|
00538E8D   8B8308030000           mov     eax, [ebx+$0308]
00538E93   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_0178
|
00538E95   FF9178010000           call    dword ptr [ecx+$0178]

* Reference to control Tsalediscmb.ADOQuery1 : TADOQuery
|
00538E9B   8B8308030000           mov     eax, [ebx+$0308]

* Reference to: DB.TDataSet.Close(TDataSet);
|
00538EA1   E86EF2F6FF             call    004A8114

* Reference to control Tsalediscmb.ADOQuery1 : TADOQuery
|
00538EA6   8B8308030000           mov     eax, [ebx+$0308]

* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00538EAC   E88B6EF8FF             call    004BFD3C

* Possible String Reference to: 'select * from [出售碟片档案] where 
|                                [丢失数量]=-1999'
|
00538EB1   BAE08E5300             mov     edx, $00538EE0
00538EB6   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_2C
|
00538EB8   FF512C                 call    dword ptr [ecx+$2C]

* Reference to control Tsalediscmb.ADOQuery1 : TADOQuery
|
00538EBB   8B8308030000           mov     eax, [ebx+$0308]

* Reference to: DB.TDataSet.Open(TDataSet);
|
00538EC1   E842F2F6FF             call    004A8108
00538EC6   B8B49F5800             mov     eax, $00589FB4

* Possible String Reference to: '编号'
|
00538ECB   BA1C8F5300             mov     edx, $00538F1C

* Reference to: System.@LStrAsg(void;void;void;void);
|
00538ED0   E89BB9ECFF             call    00404870
00538ED5   5B                     pop     ebx
00538ED6   C3                     ret

*)
end;

procedure Tsalediscmb.ComboBox1Change(Sender : TObject);
begin
(*
00538F24   55                     push    ebp
00538F25   8BEC                   mov     ebp, esp
00538F27   6A00                   push    $00
00538F29   6A00                   push    $00
00538F2B   6A00                   push    $00
00538F2D   53                     push    ebx
00538F2E   8BD8                   mov     ebx, eax
00538F30   33C0                   xor     eax, eax
00538F32   55                     push    ebp

* Possible String Reference to: '閬办