unit34.pas

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

unit Unit34;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tlentandback=class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ToolBar1: TToolBar;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit2: TEdit;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    Edit1: TEdit;
    GroupBox4: TGroupBox;
    Label7: TLabel;
    Label11: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit3: TEdit;
    ListView1: TListView;
    ListView2: TListView;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    SpeedButton3: TSpeedButton;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    RadioButton6: TRadioButton;
    RadioButton5: TRadioButton;
    Label24: TLabel;
    Label13: TLabel;
    Label12: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label21: TLabel;
    Label16: TLabel;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label6: TLabel;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Edit6: TEdit;
    Label8: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label9: TLabel;
    Edit7: TEdit;
    GroupBox5: TGroupBox;
    Label10: TLabel;
    Label14: TLabel;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    Edit8: TEdit;
    ListView3: TListView;
    ListView4: TListView;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    GroupBox6: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    BitBtn2: TBitBtn;
    SpeedButton6: TSpeedButton;
    Label15: TLabel;
    Edit11: TEdit;
    Label22: TLabel;
    Label23: TLabel;
    Edit12: TEdit;
    Label25: TLabel;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    procedure ToolButton4Click(Sender : TObject);
    procedure ToolButton5Click(Sender : TObject);
    procedure ToolButton11Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure Edit2KeyPress(Sender : TObject);
    procedure ListView1Click(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure Edit3KeyPress(Sender : TObject);
    procedure RadioButton2Click(Sender : TObject);
    procedure SpeedButton3Click(Sender : TObject);
    procedure ListView2Click(Sender : TObject);
    procedure RadioButton10Click(Sender : TObject);
    procedure Edit6KeyPress(Sender : TObject);
    procedure ListView3Click(Sender : TObject);
    procedure SpeedButton4Click(Sender : TObject);
    procedure ListView4Click(Sender : TObject);
    procedure SpeedButton5Click(Sender : TObject);
    procedure Edit8KeyPress(Sender : TObject);
    procedure SpeedButton6Click(Sender : TObject);
    procedure Edit2Enter(Sender : TObject);
    procedure Edit2Exit(Sender : TObject);
    procedure Edit1Enter(Sender : TObject);
    procedure Edit1Exit(Sender : TObject);
    procedure Edit3Enter(Sender : TObject);
    procedure Edit3Exit(Sender : TObject);
    procedure DateTimePicker1Enter(Sender : TObject);
    procedure DateTimePicker1Exit(Sender : TObject);
    procedure Edit4Enter(Sender : TObject);
    procedure Edit4Exit(Sender : TObject);
    procedure Edit5Enter(Sender : TObject);
    procedure Edit5Exit(Sender : TObject);
    procedure ToolButton10Click(Sender : TObject);
    procedure DateTimePicker2Enter(Sender : TObject);
    procedure DateTimePicker2Exit(Sender : TObject);
    procedure Edit7Enter(Sender : TObject);
    procedure Edit7Exit(Sender : TObject);
    procedure Edit6Enter(Sender : TObject);
    procedure Edit6Exit(Sender : TObject);
    procedure Edit8Enter(Sender : TObject);
    procedure Edit8Exit(Sender : TObject);
    procedure PageControl1Change(Sender : TObject);
    procedure FormActivate(Sender : TObject);
    procedure _PROC_0057C829(Sender : TObject);
    procedure _PROC_0057D259(Sender : TObject);
    procedure _PROC_0057D7FD(Sender : TObject);
    procedure _PROC_005813C0(Sender : TObject);
    procedure _PROC_0058183C(Sender : TObject);
    procedure _PROC_0058186C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  lentandback: Tlentandback;

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

implementation

{$R *.DFM}

procedure Tlentandback.ToolButton4Click(Sender : TObject);
begin
(*

* Reference to control Tlentandback.TabSheet1 : TTabSheet
|
0057E22C   8B80FC020000           mov     eax, [eax+$02FC]

* Reference to: Controls.TControl.Show(TControl);
|
0057E232   E85DB2ECFF             call    00449494
0057E237   C3                     ret

*)
end;

procedure Tlentandback.ToolButton5Click(Sender : TObject);
begin
(*

* Reference to control Tlentandback.TabSheet2 : TTabSheet
|
0057E238   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Controls.TControl.Show(TControl);
|
0057E23E   E851B2ECFF             call    00449494
0057E243   C3                     ret

*)
end;

procedure Tlentandback.ToolButton11Click(Sender : TObject);
begin
(*
0057E244   A170A05800             mov     eax, dword ptr [$0058A070]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0057E249   E8E278EEFF             call    00465B30
0057E24E   C3                     ret

*)
end;

procedure Tlentandback.FormCreate(Sender : TObject);
begin
(*
0057E250   55                     push    ebp
0057E251   8BEC                   mov     ebp, esp
0057E253   6A00                   push    $00
0057E255   6A00                   push    $00
0057E257   53                     push    ebx
0057E258   8BD8                   mov     ebx, eax
0057E25A   33C0                   xor     eax, eax
0057E25C   55                     push    ebp
0057E25D   6800E45700             push    $0057E400

***** TRY
|
0057E262   64FF30                 push    dword ptr fs:[eax]
0057E265   648920                 mov     fs:[eax], esp
0057E268   B201                   mov     dl, $01

* Reference to control Tlentandback.ADOQuery1 : TADOQuery
|
0057E26A   8B8370030000           mov     eax, [ebx+$0370]
0057E270   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_0178
|
0057E272   FF9178010000           call    dword ptr [ecx+$0178]
0057E278   B201                   mov     dl, $01

* Reference to control Tlentandback.ADOQuery2 : TADOQuery
|
0057E27A   8B8374030000           mov     eax, [ebx+$0374]
0057E280   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_0178
|
0057E282   FF9178010000           call    dword ptr [ecx+$0178]
0057E288   B201                   mov     dl, $01

* Reference to control Tlentandback.ADOQuery3 : TADOQuery
|
0057E28A   8B8378030000           mov     eax, [ebx+$0378]
0057E290   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_0178
|
0057E292   FF9178010000           call    dword ptr [ecx+$0178]
0057E298   8D55FC                 lea     edx, [ebp-$04]

* Reference to Tgetin instance
|
0057E29B   A1B0845800             mov     eax, dword ptr [$005884B0]
0057E2A0   8B00                   mov     eax, [eax]

* Reference to control Tgetin.ComboBox1 : TComboBox
|
0057E2A2   8B801C030000           mov     eax, [eax+$031C]