U8门户开发手册

U8门户开发手册1. 功能概述如何使伙伴二次开发的程序很好地和U8产品集成在一起？需要满足什么条件的程序才能和门户集成？如何开发一个满足这个条件的程序？本文将为您解答这些问题。

2. 名词解释2.1菜单调整工具功能：调整菜单位置；新增、修改、删除菜单（除U8系统菜单外）。

菜单调整工具在UAP中，通过菜单“工具－>菜单调整工具”进入。

2.2 idt.dll文件位置：在U8安装目录的Portal目录里。

该文件其实是一个xml文件，可以用任何文本编辑器打开。

其内容描述了双击每个末级菜单项目时需要调用的物理程序。

在872版本里，idt.dll并不在安装盘里，而是U8门户第一次运行时通过UFSystem..UA_IDT表里的内容动态生成的。

当UFSystem..UA_IDT有变化时，U8门户会重新生成idt.dll文件。

有了这种机制后，菜单调整工具就可以通过维护UFSystem..UA_IDT里的内容，从而达到维护idt.dll的目的。

3. 如何开发可与门户集成的VB dll3.1代码修改3.1.1引用工程UFPortalProxyInterface文件位置：U8安装路径\Portal\UFPortalProxyInterface.dll3.1.2相关代码修改clsProductFacade文件为门户的入口文件，即在idt.dll文件后assembly项所对应的类名。

如下所描述的：<idt id=’Test01’ type=’0’ assembly=’TestU8Prj.clsProductFacade’/>首先，idt.dll中assembly属性描述的对应类要实现接口ILoginalbe。

比如idt.dll中描述了如下信息：<idt id=’Test01’ type=’0’ assembly=’TestU8Prj.clsProductFacade’/>则要在clsProductFacade中实现ILoginable接口。

即用代码：Implements UFPortalProxyInterface.ILoginable然后在该接口的实现函数中转发调用原先工程中的Login,CallFunction,Logoff三个方法，具体参见后附的例子。

在左树启动一项命令时依次调用Login和CallFunction。

在门户退出或在权限管理中结束该产品时调用LogOff。

子系统必须自己维护是否已经进行了子系统登录过程，业务系统须维护子系统是否已经登录。

Login对象从g_business中通过调用GetVBclsLogin方法获得。

各接口含义如下：1、Login接口( Private Function ILoginable_Login() As Boolean )，不管弹出的是模式窗体还是非模式窗体，此接口在成功登录后须返回True,而且要保证登录成功后，第二次调用此接口时也要返回True。

只有在登录失败后方可返回False。

也就是说此接口返回值的含义是是否已经成功登录子系统。

2、LogOff接口( Private Function ILoginable_LogOff() As Boolean )，此接口的含义是执行LogOff过程，如查成功使该子系统牌LogOff状态返回True，否则返回False。

也就是说，如果该子统还未登录，则真接返回False就可以了。

如果系统处于已经登录的过程，则执行业务组原有所需的LogOff过程，如果执行功能，正确LogOff了子系统，则返回True，否则返回False。

如果在实际程序中没有此过程，则直接返回True即可。

3、CallFunction接口(Private Function ILoginable_CallFunction() As Boolean)。

如果861产品没有子系统登录过程的产品，此值须返回True.4、对于显示模式窗体的产品，如果已经申请了任务，请在模式窗体退出时自已清除任务。

实现这三个方法的例子如下：Private Function ILoginable_Login() As BooleanIf g_bLogined = True ThenILoginable_Login = TrueExit FunctionEnd IfIf ((Not g_business Is Nothing) And g_bLogined = False) Then Dim oLoginTmp As ObjectSet oLoginTmp = g_business.GetVBclsLogin()Set g_oLogin = oLoginTmpILoginable_Login = Login(oLoginTmp)If (ILoginable_Login = True) Theng_bLogined = TrueEnd IfElseILoginable_Login = Not g_business Is NothingEnd IfEnd FunctionPrivate Function ILoginable_LogOff() As BooleanIf (g_bLogined = True) ThenILoginable_LogOff = LogOff()If (ILoginable_LogOff = True) Then g_bLogined = FalseEnd IfElseILoginable_LogOff = TrueEnd IfEnd Function3.1.2.1增加Business属性可读可写，且对大小写敏感。

此属性维护一个对于此业务工程全局变量，以实现和VB程序和870Portal的交互。

参考实现如下：Public Property Get Business() As ObjectSet Business = g_businessEnd PropertyPublic Property Set Business(busVal As Object)Set g_business = busValEnd Property3.1.2.2增加全局变量新建一module文件，并加入如下全局变量：Public g_business As ObjectPublic g_bLogined As Boolean3.1.3三种窗体3.1.3.1修改嵌入Portal的窗体文件原来有MdiExtender控件的窗体要嵌入Portal的窗体修改方法：调用CreateFormEnv方法调用ShowForm方法每个窗体都要有方法ExitForm3.1.3.2修改第一次弹出就是模态的窗体可以直接使用通过采用VB窗体的Form.Show (vbModal)的方式，也调用ShowForm方法来显示此窗体。

3.1.3.3由嵌入Portal的窗体弹出的窗体，不作修改，如果是模式窗体，请在此窗体上加入UFFormPartner控件3.1.4 UFToolbar的修改3.1.4.1在Settoolbar之前将g_business传入3.1.4.2在Settoolbar之前设置Tag信息设置微软Toolbar每个Button的Tag信息调用CreatePortalToolbarTag方法设置示例button.Tag =CreatePortalToolbarTag(“ICON_NEW”,”ICOMMON”,”PortalToolbar”) 注意：严禁创建多次3.1.4.2.1图标人机工程部给出完整的图标，并制定相应文件的命名规格放在%U8SOFT%的icons目录下直接使用图标的文件名(不需扩展名)3.1.4.2.2分组常用(ICOMMON)：如打开、保存等编辑(IEDIT)：如增行、拷贝单元格等处理(IDEAL)：如审核、分单等查询(ISEARCH)：如过滤、联查等3.1.4.2.3类型PortalToolbar，目前填入此值即可。

3.1.4.3在窗体的Unload事件中加入Set UFToolbar1.Business = Nothing3.1.5中间过程3.1.5.1判断窗体是否打开FormIsOpened3.1.5.2设置并激活某个已经存在的窗体SetFormActive3.1.5.3在显示过程中(窗体已经显示)关闭自身窗体CloseForm3.2常见问题程序已经修改，双击门户节点时没有反应，调用状态进不了VB程序；未正确修改clsProductFacade文件；窗体已经嵌入到Portal中，但Toolbar的相关信息未转移到门户的工具栏上；是否正确设置了每个Button的Tag信息；3.3参考3.3.1 ShowForm显示嵌入Portal的窗体Public Function ShowForm(ByVal obj As Object, ByVal SubID As String, ByVal sKey As String, Optional modalable As Boolean = False, Optional DockToProtal As Boolean = True, Optional ByVal vfd As Object) As Stringobj: Form对象；SubID: 子产品号；sKey: Key,注意不能是form的Hwnd,在窗体的生命周期中，此值必须唯一；modalable: 该窗体是否为Model窗口；DockToProtal : 是否要嵌入到Portal中；vfd: 由CreateFormEnv对象的返回对象；3.3.2 CreateFormEnv初始化嵌入Portal的环境Public Function CreateFormEnv(ByVal sKey As String, ByRef formObj As Object) As VBFormDescriptorsKey: Key,注意不能是form的Hwnd,在窗体的生命周期中，此值必须唯一；formObj: Form对象3.3.3 CloseForm关闭一个已经打开的窗体Public Function CloseForm(ByVal sKey As String, ByVal obj As Object)sKey: Key,注意不能是form的Hwnd,在窗体的生命周期中，此值必须唯一obj: Form对象。

3.3.4 FormIsOpened判断某个Key值的窗体是否已经打开Public Function FormIsOpened(ByVal sKey As String)sKey: Key,注意不能是form的Hwnd,在窗体的生命周期中，此值必须唯一；3.3.5 CreatePortalToolbarTag创建Toolbar的Tag信息Public Function CreatePortalToolbarTag(Image As String, actionSet As String, toolbarType As String) As StringImage按钮的图片actionSet分组toolbarType分组Toolbar的类型3.3.6 SetFormActive使某个窗口成为当前窗口Public Function SetFormActive(ByVal sKey As String, ByVal obj As Object)sKey: Key,注意不能是form的Hwnd,在窗体的生命周期中，此值必须唯一obj: Form对象3.4挂接菜单4. 如何开发可与门户集成的.NET User Control.net user control 与门户集成需要建立实现INetUserControl 接口的组件4.1通过 建立一个项目类型为类库的项目此处项目名称为ProductSample4.2继承门户中类NetLoginable在该项目中添加以下DLL的引用Windows.Form.dllU8安装路径\Framework\UFSoft.U8.Framework.Login.UI.dllU8安装路径\Interop\Interop.U8Login.dllU8安装路径\Interop\ Interop.UFPortalProxyInterface.dllU8安装路径\Portal\UFIDA.U8.Portal.Framework.dllU8安装路径\Portal\UFIDA.U8.Portal.Proxy.dllU8安装路径\Portal\mon.dll在项目中新建一个类，该类需要继承类NetLoginable，并重写其中的两个方法，示例如下：public override object CallFunction(string cMenuId, string cMenuName, string cAuthId, string cCmdLine){INetUserControl mycontrol = new MyNetUserControl();mycontrol.Title = "SSSS";base.ShowEmbedControl(mycontrol, cMenuId, true);return null;}public override bool SubSysLogin(){Return true;}4.3 实现接口INetUserControl在项目中再新建一个类，该类实现接口INetUserControl，INetUserControl接口有三个属性(EditorPart、EditorInput、Title)和三个方法(CreatControl、CreatToolbar、CloseEvent)，详细说明：4.3.1 EditorPart属性原型声明：NetEditor EditorPart { get;set;}对于二次开发人员，这个是只读属性，严禁为该属性赋值。