unit16.pas

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

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tlentdiscmb=class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label3: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ADOQuery1: TADOQuery;
    RadioButton3: TRadioButton;
    procedure ComboBox1Change(Sender : TObject);
    procedure ComboBox1Enter(Sender : TObject);
    procedure ComboBox1Exit(Sender : TObject);
    procedure Edit1Enter(Sender : TObject);
    procedure Edit1Exit(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure Edit1KeyPress(Sender : TObject);
    procedure SpeedButton3Click(Sender : TObject);
    procedure ToolButton11Click(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_0053894D(Sender : TObject);
    procedure _PROC_00538988(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  lentdiscmb: Tlentdiscmb;

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

implementation

{$R *.DFM}

procedure Tlentdiscmb.ComboBox1Change(Sender : TObject);
begin
(*
0053774C   55                     push    ebp
0053774D   8BEC                   mov     ebp, esp
0053774F   33C9                   xor     ecx, ecx
00537751   51                     push    ecx
00537752   51                     push    ecx
00537753   51                     push    ecx
00537754   51                     push    ecx
00537755   51                     push    ecx
00537756   53                     push    ebx
00537757   8BD8                   mov     ebx, eax
00537759   33C0                   xor     eax, eax
0053775B   55                     push    ebp

* Possible String Reference to: '楱庆