unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tgetin=class(TForm)
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    Bevel3: TBevel;
    Label5: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Image1: TImage;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Edit2: TEdit;
    procedure FormCreate(Sender : TObject);
    procedure Formdestroy(Sender : TObject);
    procedure BitBtn2Click(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure ComboBox1Enter(Sender : TObject);
    procedure ComboBox1Exit(Sender : TObject);
    procedure Edit1Enter(Sender : TObject);
    procedure Edit1Exit(Sender : TObject);
    procedure _PROC_004D8F1F(Sender : TObject);
    procedure _PROC_004D93E0(Sender : TObject);
    procedure _PROC_004D9424(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  getin: Tgetin;

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

implementation

{$R *.DFM}

procedure Tgetin.FormCreate(Sender : TObject);
begin
(*
004D8C7C   55                     push    ebp
004D8C7D   8BEC                   mov     ebp, esp
004D8C7F   B909000000             mov     ecx, $00000009
004D8C84   6A00                   push    $00
004D8C86   6A00                   push    $00
004D8C88   49                     dec     ecx
004D8C89   75F9                   jnz     004D8C84
004D8C8B   53                     push    ebx
004D8C8C   56                     push    esi
004D8C8D   8BD8                   mov     ebx, eax
004D8C8F   33C0                   xor     eax, eax
004D8C91   55                     push    ebp

* Possible String Reference to: '閣豺