carry.pas

现在家庭藏书越来越多

unit carry;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, mybook, StdCtrls, DB, ADODB;

type
  TForm5 = class(TForm)
    grp2: TGroupBox;
    lbl1: TLabel;
    edt1: TEdit;
    btn1: TButton;
    btn2: TButton;
    dbgrd1: TDBGrid;
    qry1: TADOQuery;
    ds1: TDataSource;
    ds2: TDataSource;
    qry2: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  booklist5:tbooklist;
implementation
 uses
 main;
{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);
begin
 booklist5:=tbooklist.create;
 booklist5.connect.adoquery:=qry1;
 booklist5.connect.adoquery2:=qry2;
 booklist5.connect.dbgrid:=dbgrd1;
 booklist5.connect.datasource2:=ds2;
 booklist5.connect.datasource:=ds1;
 booklist5.connect.doconnection;
 booklist5.connect.displayquery;
 booklist5.displaybookdbgrid(dbgrd1);
end;

procedure TForm5.FormDestroy(Sender: TObject);
begin
 booklist5.Free;
 booklist5:=nil;
end;

procedure TForm5.btn1Click(Sender: TObject);
begin
 booklist5.searchbook(trim(edt1.Text));
end;

procedure TForm5.btn2Click(Sender: TObject);
begin
 booklist5.callbackbook;
end;

end.