LotusDominoR5开发心得讲述.doc

  1. 1、本文档共14页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
LotusDominoR5开发心得讲述

Lotus Domino R5 开发心得 ---- Lotus Domino 是当今办公自动化系统的主流开发平台之一,目前大部分企业和机构都在使用Lotus Domino 开发自己的无纸办公系统。不久前,我参加的一个OA 系统开发项目就是使用Lotus Domino R5 开发的。在开发过程中,我积累了一些小技巧,现在公布出来,希望能给相关人士提供一些帮助。?? ---- 一. Lotus Domino 与关系数据库的互操作?? ---- 在项目开发过程中,遇到的第一个棘手的问题是:如何把原先的关系型数据库中的内容全部导入 Domino 中?因为企业现在的所有数据都集中在一个关系型数据库中,因此希望Notes库能与旧的关系库互操作,而不必在数据库转换上浪费更多人力。?? ---- 此外,由于Lotus Notes是非结构化的数据库,而关系数据库属于结构化数据库,因此要实现两者的互操作或数据导入/导出势必需要一个专门的转换程序,而这个程序一般来说都属于附加品,要么由Lotus提供,要么由数据库厂商提供,如Lotus Notes与Oracle数据库之间的转换就有专门的程序(Pump)。一般在购买Lotus产品的时候Lotus公司不会提供此类产品,如果需要可以单独购买。而对于企业来说,如果企业数据存放在不止一个关系库中,那么就需要购买若干个此类产品,而且还不一定能买的到,因此能否通过Lotus Script编写一个通用的数据库转换程序就成为本次开发的难点之一。?? ---- 解决这个问题用到了Lotus Domino R5 中提供的三个Lotus Notes 对象类:ODBCConnection(ODBC 连接)、ODBCQuery(ODBC 查询)以及ODBCResultSet(ODBC结果集)。应用这三个类并辅以Lotus Script语言就能实现与关系数据库的互操作问题。?? ---- 具体解决方法如下:?? ---- 第一步 在控制面板——32位ODBC数据源中建立用户数据源Test;?? ---- 第二步 在Domino R5中新建一个数据库Try,并建立一个空白表单Connection,此表单没有任何内容,然后在表单上创建一个“操作”,起名为“Read”;?? ---- 第三步 在“Read”操作的编程窗口中选择编程语言为Lotus Script;?? ---- 第四步 在编程窗口的对象窗口中点击“Option”事件,并写入如下脚本:?? ---- Uselsx *lsxodbc // 使用Lotus Script 扩展对象中的ODBC类?? ---- 第五步 选中“Declare”事件,在其中写入:?? ? ?? ?? ? Dim session As NotesSession ? ?? ?? ? Dim db As NotesDataBase ? ?? ?? ? Dim doc As NotesDocument ? ?? ?? ? Dim qry As ODBCQuery ? ?? ?? ? Dim result As ODBCResultSet ? ?? ?? ? Dim con As ODBCConnection ? ?? ?? ? 定义程序中使用到的各种对象。 第六步 选中“Click”事件,在其中写入: ??Sub Click(Source As Button) ??#39; Set New Value ? ?Set session = New NotesSession ? ?Set con = New ODBCConnection?? // 新建ODBCConnection对象实例 ? ?Set qry = New ODBCQuery?? // 新建ODBCQuery对象实例 ? ?? ?? ?? ?? ???Set result = New ODBCResultSet // 新建ODBCResultSet对象实例 ??#39; 取得当前数据库信息 ? ?Set db = session.CurrentDataBase ? ?Set doc = New NotesDocument(db)?? // 新建文档 ? ?doc.form = connection?? // 新建文档的表单指向connection ? ?Call con.Disconnect()?? // 保证con对象当前没有连接其他数据源 ? ?If con.ConnectTo(test) Then?? // 如果连接成功 ? ?Set qry.connection = con?? // 将建立好连接的con交给query对象 ? ?? ? qry.SQL = SELECT

您可能关注的文档

文档评论(0)

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

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

1亿VIP精品文档

相关文档