frame_ubusinesscenter.pas

来自「企业信息管理系统程序框架」· PAS 代码 · 共 47 行

unit frame_uBusinessCenter;

interface
uses
  Forms;
type
  Tframe_BusinessCenter = class(TObject)
  public
    function getTradeClass(tradeid: string): TFormclass;virtual;
    function getDefaultClass(tradeid:string):TFormClass;
  protected
  end;
var
  BusinessCenter: Tframe_BusinessCenter;
implementation

uses frame_role, frame_user, frame_chgpwd, frame_right;


{ Tframe_BusinessCenter }


function Tframe_BusinessCenter.getDefaultClass(
  tradeid: string): TFormClass;
begin
   result:=nil;
  if tradeid='0009000001' then
    result:=Tframe_frmRole;
  if tradeid='0009000002' then
    result:=Tframe_frmuser;
  if tradeid='0009000003' then
    result:=Tframe_frmRight;
  if tradeid='0009000004' then
    result:=Tframe_frmchgpwd;

end;

function TFrame_businessCenter.getTradeClass(tradeid: string): TFormclass;
begin

end;
initialization
  BusinessCenter:=Tframe_BusinessCenter.Create;

end.