unit10.pas

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

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tbiao=class(TForm)
    ToolBar1: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ListView1: TListView;
    ADOQuery1: TADOQuery;
    procedure UpDown1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure UpDown2Click(Sender : TObject);
    procedure ListView1Click(Sender : TObject);
    procedure ToolButton11Click(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure SpeedButton3Click(Sender : TObject);
    procedure SpeedButton5Click(Sender : TObject);
    procedure SpeedButton2Click(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 ToolButton10Click(Sender : TObject);
    procedure SpeedButton4Click(Sender : TObject);
    procedure _PROC_00520820(Sender : TObject);
    procedure _PROC_00520844(Sender : TObject);
    procedure _PROC_00520BAD(Sender : TObject);
    procedure _PROC_00520BC0(Sender : TObject);
    procedure _PROC_00520BC7(Sender : TObject);
    procedure _PROC_00520BD6(Sender : TObject);
    procedure _PROC_00520BE9(Sender : TObject);
    procedure _PROC_00521C2C(Sender : TObject);
    procedure _PROC_00521D9D(Sender : TObject);
    procedure _PROC_00521DCC(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  biao: Tbiao;

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

implementation

{$R *.DFM}

procedure Tbiao.UpDown1Click(Sender : TObject);
begin
(*
00520E58   55                     push    ebp
00520E59   8BEC                   mov     ebp, esp
00520E5B   6A00                   push    $00
00520E5D   6A00                   push    $00
00520E5F   6A00                   push    $00
00520E61   6A00                   push    $00
00520E63   6A00                   push    $00
00520E65   53                     push    ebx
00520E66   56                     push    esi
00520E67   8BD8                   mov     ebx, eax
00520E69   33C0                   xor     eax, eax
00520E6B   55                     push    ebp

* Possible String Reference to: '槿1