unit37.pas

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

unit Unit37;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Ttodaysale=class(TForm)
    ToolBar1: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    Label4: TLabel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    procedure ToolButton11Click(Sender : TObject);
    procedure ToolButton10Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure Edit3Enter(Sender : TObject);
    procedure Edit3Exit(Sender : TObject);
    procedure _PROC_00582994(Sender : TObject);
    procedure _PROC_005829C4(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  todaysale: Ttodaysale;

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

implementation

{$R *.DFM}

procedure Ttodaysale.ToolButton11Click(Sender : TObject);
begin
(*
00581FC0   A1A0A05800             mov     eax, dword ptr [$0058A0A0]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00581FC5   E8663BEEFF             call    00465B30
00581FCA   C3                     ret

*)
end;

procedure Ttodaysale.ToolButton10Click(Sender : TObject);
begin
(*
00581FCC   55                     push    ebp
00581FCD   8BEC                   mov     ebp, esp
00581FCF   6A00                   push    $00
00581FD1   6A00                   push    $00
00581FD3   33C0                   xor     eax, eax
00581FD5   55                     push    ebp

* Possible String Reference to: '轼