gl.pas

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

unit gl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
   tgf=class(tform)
   q1: TQuery;
   DataSource1: TDataSource;

  private
    { Private declarations }

  public
    { Public declarations }
     
    function isborrowed(b_no:string):boolean;

  end;
  
var
    gf : Tgf;
  username,userno:string;
    hot:string;
    ti:integer;
    dbname:String;
    exbook_num:integer;
    p_books,p_days:integer;
    p_money:real;
    p_betdays:integer;  //新书时间间隔




implementation

{$R *.dfm}
function Tgf.isborrowed(b_no:string):boolean;
begin

       //t1.Open;
       //t1.SetKey;
       //t1.FieldByName('图书编号').AsString:=b_no;
     //if t1.GotoKey then result:=true else result:=false;
      //t1.Close;
      q1.Close;
      q1.SQL.Clear;
      
      q1.SQL.Add('select * from borrow_info where 图书编号='''+b_no+'''');
      q1.Open;
       if not q1.IsEmpty  then result:=true else result:=false;
      q1.Close;

     end;

end.