U8开发之CS门户集成.doc

C/S门户集成摘要通过企业应用平台(简称门户),企业员工可以通过单一的访问入口访问企业的各种信息,定义自己的业务工作,并设计自己的工作流程。企业应用平台通过各类导航执行具体的功能,通过桌面提供快捷常用功能和快捷报表信息,通过边框区提供辅助功能。什么是门户?门户(Portal):原意是指正门、房屋的出入口;现多用与互联网的门户网站,是指集成了多样化内容服务的Web站点,又称为网络门户;我们这里所说的门户是指客户服务器结构(C/S)的应用程序的入口,集成了用友U8应用的绝大部分内容,为用户提供了一个单一的入口。U8门户是一个开放的平台,可以支持用户进行二次开发,以拓展U8的功能,满足用户个性化的业务场景。目标本文主要介绍使用门户提供的开发框架进行二次开发的相关事项,以方便将用户个性化的应用集成到U8门户中,以解决U8标准产品不提供的、用户实际工作需要的问题。门户可以做什么?门户可以将用户开发的程序,通过门户提供的扩展机制,集成到门户中。具体支持如下几种方式的扩展:?(890/)第一步:,例如:Person实现接口ILoginable OptionExplicit'(ByValcMenuIdAsString,ByValcMenuNameAsString,ByValcAuthIdAsString,mdLineAsString)AsObjectEndFunctionPrivateFunctionILoginable_Login()AsBooleanMsgBox"Logon"ILoginable_Login=TrueEndFunctionPrivateFunctionILoginable_LogOff()AsBooleanMsgBox"Logoff"EndFunction  各接口含义如下:1、Login接口(PrivateFunctionILoginable_Login()AsBoolean),不管弹出的是模式窗体还是非模式窗体,此接口在成功登录后须返回True,而且要保证登录成功后,第二次调用此接口时也要返回True。只有在登录失败后方可返回False。也就是说此接口返回值的含义是是否已经成功登录子系统。2、LogOff接口(PrivateFunctionILoginable_LogOff()AsBoolean),此接口的含义是执行LogOff过程,如查成功使该子系统LogOff状态返回True,否则返回False。也就是说,如果该子统还未登录,则真接返回False就可以了。如果系统处于已经登录的过程,则执行业务组原有所需的LogOff过程,如果执行功能,正确LogOff了子系统,则返回True,否则返回False。如果在实际程序中没有此过程,则直接返回True即可。3、CallFunction接口(PrivateFunctionILoginable_CallFunction()AsBoolean)。如果您的应用没有子系统登录过程的产品,:增加Business属性可读可写,且对大小写敏感。此属性维护一个对于此业务工程全局变量,以实现和VB程序和Portal的交互。参考实现如下:增加Business属性 OptionExplicit'修改2增加Business属性PublicPropertyGetBusiness()AsObjectSetBusiness=g_businessEndPropertyPublicPropertySetBusiness(busValAsObject)Setg_business=busValEndProperty  第三步:增加全局变量新建一module文件,并加入如下全局变量增加Business属性 OptionExplicit'修改3增加g_business全局变量Publicg_businessAsObjectPublicg_bLoginedAsBoolean  第四步:修改窗体1、修改嵌入Portal的窗体文件原来有MdiExtender控件的窗体,要嵌入Portal的窗体修改方法:调用CreateFormEnv方法调用ShowForm方法每个窗体都要有方法ExitForm2、修改第一次弹出就是模态的窗体可以直接