global.pas

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

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


    function isborrowed(b_no:string):boolean;

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