frame_ubusinesscenter.~pas

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

unit frame_uBusinessCenter;

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

uses frame_role, frame_user, frame_chgpwd, frame_right;


{ Tframe_BusinessCenter }


function TFrame_businessCenter.getTradeClass(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;
initialization
  BusinessCenter:=Tframe_BusinessCenter.Create;

end.