新建 文本文档.txt

来自「蛮不错的图书管理系统,大家可以载着试试看啊」· 文本 代码 · 共 38 行

unit global;

interface
uses dbtables;


var username,userno:string;
    dbname:String;
    exbook_num:integer;
    p_books,p_days:integer;
    p_money:real;
    p_betdays:integer;  //新书时间间隔
    function isborrowed(b_no:string):boolean;



implementation

    procedure init();
    begin
      dbname:='D:\STUDY\Dephi7\book\library.mdb' ;
    end;

    function isborrowed(b_no:string):boolean;
     var t:ttable;
    begin
      // t:=ttable.Create(nil);
      // t.DatabaseName:=dbname;
       t.TableName:='borrow_info';
       t.Open;
       t.SetKey;
       t.FieldByName('图书编号').AsString:=b_no;
       if t.GotoKey then result:=true else result:=false;
       t.Close;
       t.Free;
     end;
end.