notice.pas

现在家庭藏书越来越多

unit notice;

interface

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

type
  TForm8 = class(TForm)
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;
  booklist8:tbooklist;
implementation
uses
main;
{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);
begin
  booklist8:=tbooklist.create;
  booklist8.connect.adoquery2:=adoquery1;
  booklist8.connect.datasource2:=datasource1;
  booklist8.connect.dbgrid:=dbgrid1;
  if booklist8.connect.noticequery2 then
  messagedlg('共有'+inttostr(booklist8.connect.adoquery2.RecordCount)+'本图书到期未还,请通知对方还书！',mtinformation,[mbok],0)
  else
  begin
  messagedlg('目前没有指定时间未归还的图书！',mtinformation,[mbok],0);
  end;
  booklist8.displaybookdbgrid2(dbgrid1);
end;

procedure TForm8.FormDestroy(Sender: TObject);
begin
  booklist8.Free;
  booklist8:=nil;
end;

end.