report.pas

现在家庭藏书越来越多

unit report;

interface

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

type
  TForm7 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;
  booklist7:tbooklist;
implementation
uses
main,req;
{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);
begin
 booklist7:=tbooklist.create;
 booklist7.connect.adoquery:=adoquery1;
 booklist7.connect.dbgrid:=dbgrid1;
 booklist7.connect.datasource2:=datasource1;
 booklist7.connect.displayquery;
 booklist7.displaybookdbgrid(dbgrid1);
 datetimepicker1.Date:=now;
 datetimepicker2.Date:=now;
end;

procedure TForm7.FormDestroy(Sender: TObject);
begin
 booklist7.Free;
 booklist7:=nil;
end;

procedure TForm7.Button1Click(Sender: TObject);
begin
  booklist7.searchfromdate(combobox1.Text,strtoint(formatdatetime('yyyymmdd',datetimepicker1.Date)),strtoint(formatdatetime('yyyymmdd',datetimepicker2.Date)));
  booklist7.displaybookdbgrid(dbgrid1);
   if booklist7.connect.isnotnull then
    messagedlg('共查到'+inttostr(booklist7.connect.adoquery.RecordCount)+'个记录!',mtinformation,[mbok],0)
      else
     messagedlg('没有您要的记录!',mtinformation,[mbok],0);

end;

procedure TForm7.Button2Click(Sender: TObject);
begin
  form9.QuickRep1.DataSet:=adoquery1;
  form9.QRDBText1.DataSet:=adoquery1;
  form9.QRDBText1.DataField:='图书编号';
  form9.QRDBText2.DataSet:=adoquery1;
  form9.QRDBText2.DataField:='书名';
  form9.QRDBText3.DataSet:=adoquery1;
  form9.QRDBText3.DataField:='是否借出';
  form9.QRLabel2.Caption:='时间从'+formatdatetime('yyyy/mm/dd',datetimepicker1.Date)+'到'+formatdatetime('yyyy/mm/dd',datetimepicker2.Date)+'的'+combobox1.Text;
  form9.QRLabel6.Caption:='共用'+inttostr(adoquery1.RecordCount)+'条记录';
  form9.QuickRep1.Preview;
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
  messagedlg('这个版本不提供数据导出！',mtinformation,[mbok],0);
end;

end.