文档介绍：门户网站开发手册 1. 功能概述如何使伙伴二次开发的程序很好地和产品集成在一起?需要满足什么条件的程序才能和门户集成?如何开发一个满足这个条件的程序?本文将为您解答这些问题。 2. 名词解释 菜单调整工具功能:调整菜单位置;新增、修改、删除菜单(除 U8 系统菜单外)。菜单调整工具在 UAP 中,通过菜单“工具- > 菜单调整工具”进入。 文件位置:在 U8 安装目录的 Portal 目录里。该文件其实是一个 xml 文件,可以用任何文本编辑器打开。其内容描述了双击每个末级菜单项目时需要调用的物理程序。 3. 如何开发可与门户集成的 VB dll 代码修改 引用工程 UFPortalProxyInterface 文件位置: U8 安装路径\ Portal\ 相关代码修改 clsProductFacade 文件为门户的入口文件,即在 文件后 assembly 项所对应的类名。如下所描述的: <idt id= ’ Test01 ’ type= ’0’ assembly= ’ ’/> 首先, 中 assembly 属性描述的对应类要实现接口 ILoginalbe 。比如 中描述了如下信息: <idt id= ’ Test01 ’ type= ’0’ assembly= ’ ’/> 则要在 clsProductFacade 中实现 ILoginable 接口。即用代码: Implements 然后在该接口的实现函数中转发调用原先工程中的 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_Log Off () 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() AsBoolean Ifg_bLogined =True Then ILoginable_Login =True Exit Function End If If((Not g_business IsNothing) And g_bLogined =False) Then Dim oLoginTmp AsObject Set oLoginTmp =() Set g_oLogin =oLoginTmp ILoginable_Login =Login(oLoginTmp) If(ILoginable_Login =True) Then g_bLogined =True End If Else ILoginable_Login =Not g