global.~pas

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

unit global;

interface
  uses dbtables;
var
  username,userpwd:string;//登录用户信息
  dbname:string;//数据库的路径
  exbook_num:integer;
  P_books,P_days:integer;//每人最大借书数和每本书可拥有天数
  p_momey:real;//每超时一天的罚金
  p_betdays:integer;//新书推荐的时间间隔
  p4visible:boolean;//标识主窗口中的panel4是否可见(用在窗口加密中)

  function isborrowed(b_no:string):boolean;//判断图书是否被借出

implementation
function isborrowed(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;
   if t.GotoKey then result:=true else result:=false;
   t.Close;
   t.Free ;
end;

end.