checkborrow.pas

蛮不错的图书管理系统,大家可以载着试试看啊

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 图书编号=:no');
    q2.ParamByName('no').AsString:=bno;
    q2.Open;
    if q2.FieldByName('借出时间').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.图书编号,a.书名,a.类别,a.作者,a.出版社,a.入库时间,b.借出时间,b.图书卡号 from book_info a ,borrow_info b where a.图书编号=b.图书编号 and b.借出时间>=:btime and b.借出时间<=:dtime order by b.图书卡号' );
   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('图书编号').AsString;
       subitems.add(q1.fieldbyname('书名').AsString);
       subitems.add(q1.fieldbyname('类别').AsString);
       subitems.add(q1.fieldbyname('作者').AsString);
       subitems.add(q1.fieldbyname('出版社').AsString);
       subitems.add(q1.fieldbyname('入库时间').AsString);
       subitems.add(q1.fieldbyname('借出时间').AsString);
       subitems.add(q1.fieldbyname('图书卡号').AsString);
       if isextime(caption) then
       subitems.add('是') else    subitems.add('否');
      end;
     q1.Next;
    end;
   q1.close;
end;

end.