U8门户开发手册(内部资料).doc

  1. 1、本文档共26页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
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 dll 3.1代码修改 3.1.1引用工程UFPortalProxyInterface 文件位置:U8安装路径\Portal\UFPortalProxyInterface.dll 3.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也就是说此接口返回值的含义是是否已经成功登录子系统。( Private Function ILoginable_LogOff() As Boolean ),此接口的含义是执行LogOff过程,如查成功使该子系统牌LogOff状态返回True,否则返回False。也就是说,如果该子统还未登录,则真接返回False就可以了。如果系统处于已经登录的过程,则执行业务组原有所需的LogOff过程,如果执行功能,正确LogOff了子系统,则返回True,否则返回False。如果在实际程序中没有此过程,则直接返回True即可。 3、CallFunctionPrivate Function ILoginable_CallFunction() As Boolean)。如果861产品没有子系统登录过程的产品,此值须返回True. 、对于显示模式窗体的产品,在模式窗体退出自清除任务。Private Function ILoginable_Login() As Boolean If g_bLogined = True Then ILoginable_Login = True Exit Function End If If ((Not g_business Is Nothing) And g_bLogined = False) Then Dim oLoginTmp As Object Set oLoginTmp = g_business.GetVBclsLogin() Set g_oLogin = oLoginTmp ILoginable_Login = Login(oLoginTmp) If (ILoginable_Login = True) Then g_bLogined = True E

文档评论(0)

xcs88858 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档