unit checkborrow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, jpeg, ExtCtrls, DB, DBTables, Buttons;

type
  Tche = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    ListView1: TListView;
    q1: TQuery;
    BitBtn1: TBitBtn;
    q2: TQuery;
    GroupBox2: TGroupBox;
    d1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    d2: TDateTimePicker;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    function isextime(bno:string):boolean;
  public
    { Public declarations }
  end;

var
  che: Tche;

implementation
      uses gl,additionalinfo;
{$R *.dfm}

procedure Tche.FormShow(Sender: TObject);
begin
    listview1.Items.Clear;
end;

function Tche.isextime(bno:string):boolean;
begin
    q2.Close;
    q2.sql.Clear;
    q2.SQL.Add('select * from borrow_info where 圖書(shū)編號(hào)=:no');
    q2.ParamByName('no').AsString:=bno;
    q2.Open;
    if q2.FieldByName('借出時(shí)間').AsDateTime+p_days<date then result:=true
     else result:=false;
    q2.Close;
end;

procedure Tche.ListView1DblClick(Sender: TObject);
begin
     if(listview1.selected<>nil) then
      begin
         additionalinfofrm.addinfo(listview1.selected.caption,listview1.selected.subitems[6]);
         additionalinfofrm.show;
      end;
end;

procedure Tche.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tche.BitBtn2Click(Sender: TObject);
begin
     q1.SQL.Clear;
   q1.SQL.add('select a.圖書(shū)編號(hào),a.書(shū)名,a.類別,a.作者,a.出版社,a.入庫(kù)時(shí)間,b.借出時(shí)間,b.圖書(shū)卡號(hào) from book_info a ,borrow_info b where a.圖書(shū)編號(hào)=b.圖書(shū)編號(hào) and b.借出時(shí)間>=:btime and b.借出時(shí)間<=:dtime order by b.圖書(shū)卡號(hào)' );
   q1.ParamByName('btime').AsDatetime:=d1.Date;
   q1.ParamByName('dtime').AsDatetime:=d2.Date;
   q1.Open;
   listview1.Items.Clear;
   q1.First;
   while not q1.Eof do
     begin
      with listview1.Items.add do
      begin
       caption:=q1.fieldbyname('圖書(shū)編號(hào)').AsString;
       subitems.add(q1.fieldbyname('書(shū)名').AsString);
       subitems.add(q1.fieldbyname('類別').AsString);
       subitems.add(q1.fieldbyname('作者').AsString);
       subitems.add(q1.fieldbyname('出版社').AsString);
       subitems.add(q1.fieldbyname('入庫(kù)時(shí)間').AsString);
       subitems.add(q1.fieldbyname('借出時(shí)間').AsString);
       subitems.add(q1.fieldbyname('圖書(shū)卡號(hào)').AsString);
       if isextime(caption) then
       subitems.add('是') else    subitems.add('否');
      end;
     q1.Next;
    end;
   q1.close;
end;

end.