unit12.pas

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

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tmemmb=class(TForm)
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Bevel1: TBevel;
    Label7: TLabel;
    Label1: TLabel;
    Label9: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    ComboBox1: TComboBox;
    Edit8: TEdit;
    Edit9: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox2: TComboBox;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    Label17: TLabel;
    ComboBox3: TComboBox;
    Label18: TLabel;
    Edit10: TEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure FormCreate(Sender : TObject);
    procedure ComboBox3Enter(Sender : TObject);
    procedure ComboBox3Exit(Sender : TObject);
    procedure Edit10Enter(Sender : TObject);
    procedure Edit10Exit(Sender : TObject);
    procedure Edit10KeyPress(Sender : TObject);
    procedure DBGrid1CellClick(Sender : TObject);
    procedure ToolButton11Click(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure ToolButton2Click(Sender : TObject);
    procedure ToolButton8Click(Sender : TObject);
    procedure ToolButton10Click(Sender : TObject);
    procedure _PROC_00528871(Sender : TObject);
    procedure _PROC_00528CF8(Sender : TObject);
    procedure _PROC_005290A4(Sender : TObject);
    procedure _PROC_0052925C(Sender : TObject);
    procedure _PROC_00529371(Sender : TObject);
    procedure _PROC_005293A0(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  memmb: Tmemmb;

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

implementation

{$R *.DFM}

procedure Tmemmb.FormCreate(Sender : TObject);
begin
(*
00528A18   53                     push    ebx
00528A19   56                     push    esi
00528A1A   8BF2                   mov     esi, edx
00528A1C   8BD8                   mov     ebx, eax
00528A1E   B201                   mov     dl, $01

* Reference to control Tmemmb.ADOQuery1 : TADOQuery
|
00528A20   8B83BC030000           mov     eax, [ebx+$03BC]
00528A26   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_0178
|
00528A28   FF9178010000           call    dword ptr [ecx+$0178]
00528A2E   B101                   mov     cl, $01
00528A30   8BD6                   mov     edx, esi
00528A32   8BC3                   mov     eax, ebx

* Reference to: Unit12.Proc_00528998
|
00528A34   E85FFFFFFF             call    00528998

* Reference to: Unit_004081C8.Proc_0040B284
|
00528A39   E84628EEFF             call    0040B284
00528A3E   83C4F8                 add     esp, -$08
00528A41   DD1C24                 fstp    qword ptr [esp]
00528A44   9B                     wait

* Reference to control Tmemmb.DateTimePicker2 : TDateTimePicker
|
00528A45   8B8370030000           mov     eax, [ebx+$0370]

* Reference to: ComCtrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
00528A4B   E8CC39F6FF             call    0048C41C
00528A50   5E                     pop     esi
00528A51   5B                     pop     ebx
00528A52   C3                     ret

*)
end;

procedure Tmemmb.ComboBox3Enter(Sender : TObject);
begin
(*
00528A54   53                     push    ebx
00528A55   8BD8                   mov     ebx, eax
00528A57   B1FF                   mov     cl, $FF
00528A59   B296                   mov     dl, $96
00528A5B   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
00528A5D   E83EF2EDFF             call    00407CA0
00528A62   8BD0                   mov     edx, eax

* Reference to control Tmemmb.ComboBox3 : TComboBox
|
00528A64   8B83A8030000           mov     eax, [ebx+$03A8]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
00528A6A   E89D06F2FF             call    0044910C
00528A6F   5B                     pop     ebx
00528A70   C3                     ret

*)
end;

procedure Tmemmb.ComboBox3Exit(Sender : TObject);
begin
(*
00528A74   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tmemmb.ComboBox3 : TComboBox
|
00528A79   8B80A8030000           mov     eax, [eax+$03A8]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
00528A7F   E88806F2FF             call    0044910C
00528A84   C3                     ret

*)
end;

procedure Tmemmb.Edit10Enter(Sender : TObject);
begin
(*
00528A88   53                     push    ebx
00528A89   8BD8                   mov     ebx, eax
00528A8B   B1FF                   mov     cl, $FF
00528A8D   B296                   mov     dl, $96
00528A8F   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
00528A91   E80AF2EDFF             call    00407CA0
00528A96   8BD0                   mov     edx, eax

* Reference to control Tmemmb.Edit10 : TEdit
|
00528A98   8B83B0030000           mov     eax, [ebx+$03B0]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
00528A9E   E86906F2FF             call    0044910C
00528AA3   5B                     pop     ebx
00528AA4   C3                     ret

*)
end;

procedure Tmemmb.Edit10Exit(Sender : TObject);
begin
(*
00528AA8   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tmemmb.Edit10 : TEdit
|
00528AAD   8B80B0030000           mov     eax, [eax+$03B0]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
00528AB3   E85406F2FF             call    0044910C
00528AB8   C3                     ret

*)
end;

procedure Tmemmb.Edit10KeyPress(Sender : TObject);
begin
(*
00528ABC   55                     push    ebp
00528ABD   8BEC                   mov     ebp, esp
00528ABF   51                     push    ecx
00528AC0   B90A000000             mov     ecx, $0000000A
00528AC5   6A00                   push    $00
00528AC7   6A00                   push    $00
00528AC9   49                     dec     ecx
00528ACA   75F9                   jnz     00528AC5
00528ACC   51                     push    ecx
00528ACD   874DFC                 xchg    [ebp-$04], ecx
00528AD0   53                     push    ebx
00528AD1   56                     push    esi
00528AD2   8BD9                   mov     ebx, ecx
00528AD4   8955FC                 mov     [ebp-$04], edx
00528AD7   8BF0                   mov     esi, eax
00528AD9   33C0                   xor     eax, eax
00528ADB   55                     push    ebp

* Possible String Reference to: '門错