upublic.pas

来自「此为一个用delphi语言编写的人事管理系统」· PAS 代码 · 共 24 行

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.