fateconsts.pas

来自「用delphi+intraweb写的简单报表系统（activeform使用技术）」· PAS 代码 · 共 26 行

unit FateConsts;

interface

uses
  Forms, SysUtils, Classes;

const
  MaxNameLength = 8;

type
  TDB = record
    User: string; //登录SQL用户名
    Pass: string; //用户口令
    Server: string; //服务器名
    name: string; //数据库名
  end;

const
  DBFile = 'setupdb.ini';
  DBName = 'Fate';

implementation

end.