upublic.~pas

来自「智能试卷生成系统 Delphi----试卷生成系统代码 用户名：sa 密码」· ~PAS 代码 · 共 28 行

unit uPublic;

interface

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

Const

  UserIDLength = 10;
  CodeLength = 10;
  GroupIDLength = 2;


var
  DBName : string='';           //数据库路径
  
  //根据具体的情况，可以对借阅天数和罚金设定进行进一步编程
  OutDay : integer= 60;         //暂时设定书籍可以借阅60天
  FineDay : Extended = 0.1;     //暂时设定借书超期每日罚金0.1元

implementation




end.