unit uPublic;

interface

uses
  classes, comctrls, registry,Sysutils,windows,Printers,Dialogs;

Const

  UserIDLength = 10;        //借書人號為10位
  CodeLength = 10;          //書號為10位
  GroupIDLength = 2;        //身份類別最多為兩位數

var
  DBName : string='';           //數據庫路徑
  
  //根據具體的情況，可以對借閱天數和罰金設定進行進一步編程
  OutDay : integer= 60;         //暫時設定書籍可以借閱60天
  FineDay : Extended = 0.1;     //暫時設定借書超期每日罰金0.1元

implementation

end.