ERPCore实现原理（二）

程序初始化后，就创建主窗体

procedure TMain.FormCreate(Sender: TObject);

begin



  TObjFactoryEx.Create([IMainForm,IFormMgr],self);



  SetSysSkin(dxSkinController);



  if not LoadSysModule then exit;

  LoadUserModule;



  if not Sys.Login.Login then

  begin

    Application.ShowMainForm:=False;

    Application.Terminate;

  end;



  Sys.ERPInit.InitSYS;

  Sys.ERPInit.InitMenu(dxBarManager);



  CloseSplash;

  BringToFront;

End;

 

主窗体创建时做了以下事情

1.通过实例工厂，将主窗体Self与接口IMainForm,IFormMgr绑定，

这样当访问这两接口时就会调用主窗体里的实现代码，有关类厂将在后期讲解

2.设置系统皮肤

3.加载系统模块和用户模块，这里进行了模块管理

4.系统登陆

5.系统初始化（和用户相关）

 

先说说接口吧，一切从这里开始，先说说一些初学者不好理解的地方

在SysModuleMgr.pas里有一段代码

 

procedure TTangramModule.UnInstall;

var Reg:IRegistry;

begin

  if FModuleCls<>nil then

  begin

    Reg:=SysService as IRegistry;

    FModuleCls.UnRegisterModule(Reg);

  end;

end;

 

其中 SysService 是TSysService对象

TSysService=Class(TObject,IInterface,ISysService)

与IRegister接口没有任何继承关系，可为什么可以直接 as 呢？

这是因为TSysService重新实现了IInterface接口

 

function TSysService.QueryInterface(const IID: TGUID; out Obj): HResult;

var aFactory:TFactory;

begin

  Result:=E_NOINTERFACE;

  if self.GetInterface(IID,Obj) then

    Result:=S_OK

  else begin

    aFactory:=FactoryManager.FindFactory(IID);

    if Assigned(aFactory) then

    begin

      aFactory.prepare(FParam);

      Result:=aFactory.GetIntf(IID,Obj);

    end;

  end;

end;

查询接口时，会先通过GUID搜索，当搜索不到时会到工厂管理搜索

在这个框架下，接口都会先注册到工厂，这也是为什么任何框架下地模块都可以调用到不同模块的接口

而 as 操作会调用接口查询QueryInterface

所以才有SysService as IRegistry这一幕