mgrquery.pas

delphi编写的图书管理系统,一般的管理系统

unit mgrquery;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls,dbtables;

type
  Tmgrqfrm = class(TForm)
    GroupBox1: TGroupBox;
    Bevel1: TBevel;
    ListView1: TListView;
    Label1: TLabel;
    Label2: TLabel;
    fspdbtn1: TButton;
    fspdbtn3: TButton;
    Button4: TButton;
    fspdbtn2: TButton;
    procedure exitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  function isextime(b_no:string):boolean;//判断图书是否超时未还
  procedure querybookinfo(flg:integer);//根据不同的flg查询
  public
    { Public declarations }
  end;

var
  mgrqfrm: Tmgrqfrm;

implementation
  uses global,owner;
{$R *.dfm}

function tmgrqfrm.isextime(b_no:string):boolean;
var t:ttable;
begin
  t:=ttable.Create(nil);
  t.DatabaseName :=dbname ;
  t.TableName :='borrow_info.db';
  t.Open;
  t.SetKey ;
  t.FieldByName('图书编号').AsString :=b_no;
  t.GotoKey;
  if t.FieldByName('借出时间').AsDateTime+p_days<date then result:=true
  else result:=false;
  t.Close;
  t.Free ;
end;

procedure tmgrqfrm.querybookinfo(flg:integer);
var q:tquery;
    t:ttable;
begin
  q:=tquery.Create(nil);
  q.DatabaseName :=dbname ;
  t:=ttable.Create(nil);
  t.DatabaseName :=dbname ;
  t.TableName :='borrow_info.db';
  case flg of
  1:q.SQL.Add('select * from book_info where 图书编号 in '+
  '(select 图书编号 from borrow_info)');
  2:q.SQL.Add('select * from book_info where 图书编号 not in'+
  '(select 图书编号 from borrow_info)');
  3:begin
  q.SQL.Add('select * from book_info where 图书编号 in '+
  '(select 图书编号 from borrow_info where 借出时间<:tt)');
  q.ParamByName('tt').AsDate :=date-p_days;
  end;
  end;
  q.Open;
  listview1.Items.Clear ;
  while not q.Eof do
  begin
  with listview1.Items.Add do
    begin
    caption:=q.fieldbyname('图书编号').AsString ;
    subitems.Add(q.fieldbyname('书名').AsString);
    subitems.Add(q.fieldbyname('类别').AsString);
    subitems.Add(q.fieldbyname('作者').AsString);
    subitems.Add(q.fieldbyname('出版社').AsString);
    subitems.Add(q.fieldbyname('出版时间').AsString);
    subitems.Add(q.fieldbyname('入库时间').AsString);
    case flg of
    1:begin
      subitems.Add('是');
      t.Open;
      t.SetKey ;
      t.FieldByName('图书编号').AsString :=caption;
      t.GotoKey ;
      subitems.Add(t.fieldbyname('借出时间').AsString);
      subitems.Add(t.fieldbyname('学生证号').AsString);
      if isextime(caption) then subitems.Add('是') else subitems.Add('否');
      end;
    2:subitems.Add('否');
    3:begin
      subitems.Add('是');  //已借出
      t.Open;
      t.SetKey ;
      t.FieldByName('图书编号').AsString :=caption;
      t.GotoKey ;
      subitems.Add(t.fieldbyname('借出时间').AsString);
      subitems.Add(t.fieldbyname('学生证号').AsString);
      subitems.Add('是');
      end;
    end;
    end;
  q.next;
  end;
  label1.Caption :='共'+inttostr(listview1.Items.Count)+'条记录';
  t.Close ;
  t.Free ;
  q.Close ;
  q.Free ;
end;



procedure Tmgrqfrm.exitBtnClick(Sender: TObject);
begin
close;
end;

procedure Tmgrqfrm.FormShow(Sender: TObject);
begin
listview1.Items.Clear ;
label1.Caption :='共0条记录';
end;

procedure Tmgrqfrm.ListView1DblClick(Sender: TObject);
begin
if(listview1.Selected<>nil)and(listview1.Selected.SubItems.Count=10)then
begin
ownerfrm.addinfo(listview1.Selected.Caption,listview1.Selected.SubItems[8]);
ownerfrm.ShowModal ;
end;
end;

procedure Tmgrqfrm.Button4Click(Sender: TObject);
begin
close;
end;

end.