mybusinesscenter.pas

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

unit myBusinessCenter;

interface
uses
  dialogs,SysUtils,forms,Windows,frame_uBusinessCenter;
type
  TmyBusinessCenter = class(Tframe_BusinessCenter)
  public
    function getTradeClass(tradeid: string): TFormclass; override;
  protected
  end;

implementation

uses uFrmLoginDuty, uFrmUserRole, frame_user, frame_role, frame_right,
  uFrmJieBan, uFrmBanBie;



{ Tframe_BusinessCenter }


function TmybusinessCenter.getTradeClass(tradeid: string): TFormclass;
begin
  result:=getDefaultClass(tradeid);
  if tradeid='0001000001' then
    result:=TfrmLoginDuty
  else if tradeid='0009000003' then
    result:=Tframe_frmRight
   else if tradeid= '0009000001' then
  result:=Tframe_frmuser
   else if tradeid= '0009000002' then
  result:=Tframe_frmrole
  else if tradeid= '0001000002' then
  result:=Tfrm_jieban
  else if tradeid= '0008000001' then
  result:=Tfrm_banbie;

{  else if tradeid='0001000003' then
    result:=Tfrmproducttypeinfo
  else if tradeid='0001000001' then
    result:=Tfrmcityinfo
  else if tradeid='0002000001' then
    result:=Tfrmbuyinfo
  else if tradeid='0003000001' then
    result:=Tfrmfindbuy
  else if tradeid='0001000004' then
    result:=TfrmRole
    }
  ;
  if Result=nil then
   showmessage(tradeid);
           
end;
initialization
  if BusinessCenter<>nil then begin
    freeandNil(BusinessCenter);
  end;
  BusinessCenter:=TmyBusinessCenter.Create;

end.