U8开发之CS门户集成..docx

U8开发之C/S门户集成知识库属性适用产品门户支持版本V11.0 ; V10.1; V10.0; V890;行业通用关键字门户集成，二次开发最后更新时间2013.03.25作者魏军政摘要通过企业应用平台（简称门户），企业员工可以通过单一的访问入口访问企业的各种信息，定义自己的业务工作，并设计自己的工作流程。企业应用平台通过各类导航执行具体的功能，通过桌面提供快捷常用功能和快捷报表信息，通过边框区提供辅助功能。什么是门户？门户（Portal）：原意是指正门、房屋的出入口；现多用与互联网的门户网站，是指集成了多样化内容服务的Web站点，又称为网络门户；我们这里所说的门户是指客户服务器结构（C/S）的应用程序的入口，集成了用友U8应用的绝大部分内容，为用户提供了一个单一的入口。U8门户是一个开放的平台，可以支持用户进行二次开发，以拓展U8的功能，满足用户个性化的业务场景。目标本文主要介绍使用门户提供的开发框架进行二次开发的相关事项，以方便将用户个性化的应用集成到U8门户中，以解决U8标准产品不提供的、用户实际工作需要的问题。门户可以做什么？门户可以将用户开发的程序，通过门户提供的扩展机制，集成到门户中。具体支持如下几种方式的扩展：将使用VB开发的组件集成到门户将使用.Net开发的UserControl集成到门户将独立运行的Exe程序集成到门户将使用.Net开发的ViewPart集成到门户如何开发可与门户集成的VB dll？代码修改（890/10.0/10.1）第一步：引用UFPortalProxyInterface.dll组件然后在工程中增加实现接口的类,例如：Person实现接口ILoginable Option Explicit修改1 实现接口Implements UFPortalProxyInterface.ILoginablePrivate Function ILoginable_CallFunction(ByValcMenuId As String, ByValcMenuName As String, ByValcAuthId As String, ByValcCmdLine As String) As Object End FunctionPrivate Function ILoginable_Login() As BooleanMsgBox Log on ILoginable_Login = TrueEnd FunctionPrivate Function ILoginable_LogOff() As BooleanMsgBox Log offEnd Function各接口含义如下：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)。如果您的应用没有子系统登录过程的产品，此值须返回True.第二步：增加Business属性可读可写，且对大小写敏感。此属性维护一个对于此业务工程全局变量，以实现和VB程序和Portal的交互。参考实现如下：增加Business属性 Option Explicit修改2增加Business属性Public Property Get Business() As ObjectSet Business = g_businessEnd PropertyPublic Property Set Business(busVal As Object)Set g_business = busValEnd Property第三步：增加全局变量新建一module文件，并加入如下全局变量增加Business属性 Option Explicit修改3增加g_business全局变量Public