unit19.pas

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

unit Unit19;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tnoin=class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    ToolBar1: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    procedure FormCreate(Sender : TObject);
    procedure ToolButton11Click(Sender : TObject);
    procedure DBGrid1CellClick(Sender : TObject);
    procedure ToolButton10Click(Sender : TObject);
    procedure _PROC_0053E921(Sender : TObject);
    procedure _PROC_0053E950(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  noin: Tnoin;

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

implementation

{$R *.DFM}

procedure Tnoin.FormCreate(Sender : TObject);
begin
(*
0053E228   55                     push    ebp
0053E229   8BEC                   mov     ebp, esp
0053E22B   B907000000             mov     ecx, $00000007
0053E230   6A00                   push    $00
0053E232   6A00                   push    $00
0053E234   49                     dec     ecx
0053E235   75F9                   jnz     0053E230
0053E237   51                     push    ecx
0053E238   53                     push    ebx
0053E239   8BD8                   mov     ebx, eax
0053E23B   33C0                   xor     eax, eax
0053E23D   55                     push    ebp

* Possible String Reference to: '閭]