frame_sysparam.pas

企业信息管理系统程序框架

unit frame_SysParam;

interface

  uses Forms,frame_DBComponent,frame_UtilFunc;
type
  TFrame_SysParam = class(TObject)
  private
    fSysName: string;
    fVer: string;
    fdbType:string;
    fCopyRight: string;
    fuserSeqn:string;
    fuserID:String;
    fuserName:String;
    fjobSeqn:String;
    fJobName:string;
  public
    dbComponentFactory:TDBComponentFactory;
    constructor Create();
    procedure setSysName(val:String);
  published
    property SysName:String read fSysName write setSysName;
    property Ver:String read fVer write fVer;
    property CopyRight:String read fCopyRight write fCopyRight;
    property userID:String read fuserID write fuserID;
    property userseqn:String read fuserSeqn write fuserSeqn;
    property jobseqn:String read fjobSeqn write fJobSeqn;
    property jobName:String read fjobName write fJobName;
    property userName:String read fuserName write fuserName;
    property dbType:String read fdbType write fdbType;
  end;
Var
  SysParam:TFrame_SysParam;

implementation


constructor TFrame_SysParam.Create();
begin
  fSysName := '系统名称';
  fVer     := '版本号';
  fCopyRight := '版权';

end;
procedure TFrame_SysParam.setSysName(val: String);
begin
  fSysName:=val;
  Application.Title:=val;
end;

initialization
  SysParam:=TFrame_SysParam.Create;
  SysParam.SysName:=readCfg('SysParam','SysName','请配置系统名称!');
  SysParam.Ver:=readCfg('SysParam','Ver','请配置系统版本');
  SysParam.CopyRight:=readCfg('SysParam','CopyRight','请配置版权信息');
  SysParam.dbType:=readCfg('SysParam','dbType','');  
end.