- 1、本文档共26页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
最近下载
- 行车组织ATS系统使用说明书.docx VIP
- 上海市2024年春季高三英语统一考试试题(含解析).pdf VIP
- 手术电灼伤的原因分析.pptx VIP
- 专题5.2双角平分线模型.docx
- 四川省绵阳市2024年下半年事业单位 招才引智第一批招聘(成都场)(37人)笔试备考题库及答案解析.docx
- 妇产科的疾病和手术操作编码的填写培训课件.pptx
- 部编版语文四年级上册 多音字组词积累汇总.doc VIP
- 第六单元自主阅读推荐《聊斋志异》 统编版语文九年级上册.pptx VIP
- 2024年必威体育精装版义务教育数学新课程标准考试测试题库及参考答案 .pdf VIP
- 导游生涯发展展示.pptx VIP
文档评论(0)