global.pas

来自「好多上载非界面和非WEB源码」· PAS 代码 · 共 34 行

unit global;

interface
Uses dbtables;
var
  username,userpwd:string;
  dbname:string;
  exbook_num:integer;
  p_books,p_days:integer;
  p_money:real;
  p_betdays:integer;
  plvisible:boolean;
  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.