Domino学习笔记.doc

1：ODMA(Open Document Management API)compliance,符合开放文档管理API标准，允许用户在他们惯用的应用软件中使用Domino.Doc的功能，比如在Microsoft Office和Lotus SmartSuite中，用户可以用这些应用软件在Domino.Doc中打开和保存文挡。 2：Security,提供在文挡库，档案库，binder和文档中的多种安全层次。 3：Check-in and check-out,当多个用户在同时编辑和管理同一个文档的时候，（签入和签出）功能能保证文档的完整和安全。 4：能在文档库中查找多个档案并且能以单一的视图返回结果。 5：能存储文档的多个版本，保证能灵活全面清楚地查看在文档在审核过程中各个步骤的情况。 6：生命周期（策划、回顾、批准、发布和归档文档）的管理功能。 7：Lotus Workflow integration.与Lotus Workflow集成，能进行工作流进展和作业状态的管理。 8：Sametime integration.与Sametime集成，提供了文档编辑和管理状态的实时传输。 9：与Windows Explorer集成，用熟悉的文件管理系统进行Domino.Doc的工作。 10：灵活支持所有终端用户的Web browser。 11：支持在不同的域之间的数据访问。 12：服务器到服务器端的分布式档案库及其内容的远端定位。 Domino.Doc 的结构： The Site Administration Database Domino.Doc 提供 the Site Administration database，并且提供Site Administrator的角色，来创建和管理数据库(libraries)，它是Domino.Doc结构的基础。 The Library The Library是进入Domino.Doc的端口，它是用户登录文档存储系统和存取文档的“main view”和“home page”。管理员通过管理功能进行设置或更改library-wide的定义，创建和管理文档库，设置文档的属性和流程编联类型的定义等工作。 File rooms The file room提供逻辑分类的方法使得档案库中的数据搜索更易于进行。所有的档案库都包含在一个文件库(File rooms)中，当用户创建一个档案库时，可以将其加入到一个已有的文件库中或者创建一个新的文件库来容纳此档案库。一个档案库可以属于多个文件库。虽然文件库是一个很重要的部分，但是它没有安全设置和属性定义的功能。实际上，一个File room是不可被删除的，只是在它里面没有档案或数据交互时，它从逻辑上消失了而已。 File cabinets Domino.Doc使用档案库来组织和管理binder和文档。档案库由存于Domino服务器中的Notes数据库(*.nsf)组成，因为档案库是*.nsf文件，因此一些用来向文档中输入信息(meta-data)时必需的Notes格式就与文档的内容一起被存于档案库中。同时，用于存取信息的视图和使与文档相关的过程自动化的应用逻辑也被包含进来。包含了这些组成部分，就可以说档案库中的内容是安好的。所以，应用逻辑，消息，数据和应用设计部分组成了一个单一的统一的结构。Domino.Doc在这个架购的基础上提供单一的、逻辑的视图来存储、检索、管理和分布所有Domino.Doc中包含的文档。 由于档案库是Notes数据库，所以它们除了包含用户档案以外，还包括了Domino.Doc的应用设计组件： Forms?用来输入概要信息到一个文档中和用来可视化文档。 Views?用来排列和归类文档。 Application logic?用于自动进行文档管理。 当创建一个档案库时，Domino.Doc初始创建了两个数据库，一个用来存储binder定义（binder database），另一个用来存储文档（document database），管理员或档案库创建者，可以选择将所有的数据都存储到同一个文档库中，也可以在第一个文档库满了的时候创建一个附加的数据库。虽然Domino.Doc Administrators和Domino.Doc档案库创建者都可以创建和管理档案库，但是只有Domino.Doc Administrators能删除档案库。 Binders The Domino.Doc binder是存在于档案库中的用于组织文档结构的容器。 每个binder都有使文档组织和检索更容易进行的属性，系统生成的关联每个binder的属性包括标题、类型、起草者、创建日期、修改日期和文档数量。 用户定义的属性可以应用于任一binder，甚至档案库中可有可无的bander类型。那些动态从属于bander的系统属性的应用属性，就是区分各种类型的bander的关键之处。 binder有存取规则来限制授权用户。访问包含binders的文档被binder存取规则所限制，因为一个bander的内容就是一个binder所包含的设置状态，一个用户必须同时拥有对binder和文档的编辑权限才能在binder中添加和移除一个文档。 可以通过check-in/check-out功能来修改binder的安全设置和属性。 一个binder只能存在于一个档案库中。 Binders作为Domino.Doc的组成部分使组织大型的文档集合更为容易。 每个binder都有一个存储于其父library数据库中的定义文件。 Documents A document是Domino.Doc中被管理的信息，它可以是一个像word文档或一个电子表格、一个对象或者是一个Notes文档。它提供一个具有描述性的标题并且被保存在档案库中的一个binder中。 每个文档都有利于文档组织和检索的属性或元数据，其描述性信息被存储在文档库中。其系统属性关联到每一个文档，并且可以被引用，比如：文档的作者，创建日期，最后修改的日期或文档标题。应用属性用来区分每个单独的应用，它也可以被引用，比如：工程名，文档类型或者文档序列号。这些属性都是可配置的。 对文档内容的访问权限可以按授权管理者、编辑者和读者来划分。可以从文档本身或文档管理者定义的文档安全层次中继承某些属性，并通过由这些属性决定的档案库或binder的层次来控制访问权限。 Domino.Doc的check-in/check-out功能保证了在同一时刻只能有一个用户修改文档。当一个文档被check-out，它就被锁在Domino.Doc中了，当它再次被check-in时，就可以对它进行新的更改，可以进行被定为新的版本，或者进行更新。 如果用户没有在主档案库中进行操作或者不能连接到主档案库，那么Domino.Doc就会向主档案库发送一个check-out请求。因此，用户只能取得一个对文档操作的临时锁，来对文档的复本进行编辑。如果在check-out的请求被发送之后，文档被某个用户修改，则这个用户将被告知在工作复本和主文档之间存在着尚未被解决的差异（冲突），用户即可以取消更改，也可以选择将更改合并到主文档当中。创建新的master libraries需要准备的信息 library名称 library内容的binder表的默认控制器 library设计模板 档案库设计模板 服务器管理员和档案库创建者 别名和地址库 SMTP网关的外部域（如果有） 如果有HTTP用户，需要HTTP主机名 Domino.Doc工作组名称 当创建一个档案库时提供一个隶属于指定服务器的档案库创建者 授予Domino.Doc更新公用通讯录（PNAB）的权限 设定即时集成功能 添加library到R5域目录 添加library至R5搜索范围 创建library复本需要的信息 提供创建library复本的服务器名 如果有HTTP用户，提供HTTP信息 提供事务处理数据库路径每个library都是一个拥有独立存取控制器的存储器体系结构。当不能在两个library之间共享文档时，我们可以将文档和档案库从一个library中移到另一个library中。 library都创建于library摸板和档案库摸板，包括： Library database（librarynameLib.nsf） Configuration database(librarynameCfg.nsf) Log database(librarynameLog.nsf) Documentation databases 所有的libraries共享相同的事物处理数据库（ddmtrans.nsf）因为多个libraries可能存在于同一个数据字典中，并且数据库的名称依赖于libraries，因此，library的名称必须唯一。 当创建第一个library时，Domino.Doc默认的数据库的名称分别为： DominoDoc1Lib.nsf(library database) DominoDoc1Dfg.nsf(configuration database) DominoDoc1Log.nsf(log database) 依次类推。 或者也可以自己定义数据库名称，比如说在设置的过程中使用了Cinthina作为library的名称，则生成的数据库的名称如下： CinthinaLib.nsf(library database) CinthinaDfg.nsf(configuration database) CinthinaLog.nsf(log database) 默认的设计模板为： domdoc.ntf(library design template) filecab.ntf(file cabinet template) 不可修改/尚未修改的为： ddmtrans.nsf ddmadmgd.nsf ddmusrgd.nsf 模板均为可自定义的。从演示档案来看，利用Domino.Doc 和 Lotus.Workflow 做文档管理和工作流应用确实是很方便的事实，基本上不用我我们来编程，只需要创建相应的输入窗体和管理流程模板。其重点是如何表达并优化相关的工作流程，以及呈现良好的界面和操作习惯给用户，这也是难点所在。另外一点是在.Doc管理中不能很好的实现文件预览，面对PPE做出的CAD等文件，只有开启主应用程序来浏览，而无法用类似DDE链接之类快速预览，这是一个不足。从资料中知：Domino.Doc共支持四种类型的客户机端访问手段： Lotus Notes Clients Web浏览器 支持ODMA的应用软件 通过Domino.Doc API定制的客户机 Domino.Doc 文檔管理的特性： 1.分布式编辑 Domino.Doc 利用Domino 的复制技术使不同部门的人员能够在本地服务器上操作文档，并保持文档在整个分布式企业内部保持其一直性。 2.全面的文档管理 Domino.Doc 支持所有的主要文档管理特性，包括签入/签出、版本管理、跨所有管理的内容的全文检索、审核跟踪、简要表、文档改变的邮件通知及其它特性。 3.生命周期管理 Domino.Doc 在一个应用中可以有效管理文档的整个生命周期，包括编写、评阅、审批、发布和归档。 4.选择你喜欢的客户端 你可以利用Web浏览器或Notes客户端在网上进行文档的协同工作。也可以在Lotus Word Pro,Microsoft Word 或其它ODMA兼容的应用程序中，直接利用应用菜单中的命令，访问和存储Domino.Doc中的文档。Lotus Notes 是Lotus(莲花)公司的旗舰产品，于1989年问世。1995年WEB功能被添加到服务器软件中后，LOTUS公司将这种与互联网紧密结合的全新服务器软件更名为DOMINO。其主要实现以下功能： 1、共享信息 2、实现工作流程 3、信息存储 4、访问INTERNET 5、收发电子邮件 6、管理个人通讯簿 7、移动用户功能 8、时间管理和任务管理 第一节： 1.1 应用程序： Domino的应用程序包含一或多个数据库，可以使用LOTUS NOTES或WEB共享、收集、跟踪并组织信息。其包括广泛的商业解决方案： 。工作流 。跟踪 。协作 。数据集成 。个人化 。全球化(DOMINO GLOBAL WORKBENCH) 1.2 数据库 。模板：讨论、文檔集、MICROSOFT OFFICE文档集、个人日志、站点注册、工作室 1.3 设计元素 DOMINO应用程序的基本构件。 元素典型用途代理、操作、小程序、脚本库自动完成任务并处理信息页面、窗体、小程序、子窗体、共享字段、视力和活页夹收集、组织、控制并显示数据帧结构集、小程序、导航器、大纲、图像映像、热点以及按钮提供应用程序导航图像、导航器、图像映像增强美感设计书签、设计窗格、设计列表、菜单栏、工具的便捷图标、窗口附签、设计操作按钮、工作窗格一、重要的几个概念： 1、共享操作、非共享操作、代理、视图列、域(窗体域)； 2、域数据类型：日期/时间、数值、对话列表、复选框、单选按钮、列表框、组合框、RTF文本、作者、读者、密码、公式、时区、颜色； 3、域的类型：计算、显示时计算、创建时计算、可编辑； 4、元素：窗体、帧、大纲、页面、视图； 5、规划应用程序：Notes论证、密码加密、Domino目录(个人、组、位置、服务器)、用户ID、WEB认证、用户数目等因素。 二、Lotus Domino安装： 安装了Domino主程序6.5.3、DDM6.5.1、WorkFlow6.5.1、SameTime6.5.1、Designer & Administrator Client。安装过程很方便，不用重新启动服务器。安装SameTime时要求终止Lotus服务,且要求机器内存配置为512M以上。 三、观看了Workflow开发动画教程，看起来用Lotus开发也不是一件简单的事情：(。1.ACL等级 0-没有权限；1-储存者；2-读者；3-作者；4-编辑者；5-设计师；6-管理员 2.数据类型 integer,long,single,double,currency,string 3.类型转换 Ccur-转货币；Cdat-转日期；Cdbl-转双精数；Cint-转整数；Cstr-转字符串 4.NotesUIDcument Events 当使用者在目前文件执行特定动作时会触发一些事件，设计师可以在事件中撰写程序以启动特定的运算。 Queryopen PostOpen Querymodechange Postmodechange Querysave Postsave Queryclose 使用Querysave Events 此事件会在文件储存前启动，通常是用来检查使用者输入的字段值是否正确，若不正确再执行其它动作。 使用Postopen Events 此事件会在文件开启前启动，通常是用来告知使用者文件的信息，或是警告使用此文件的限制。 5.操作示例 。开启数据库(存取目前数据库，使用CurrentDatabase属性；存取其它数据库，使用GetDatabase方法) Dim s As New NotesSession Dim db As NotesDatabase Dim db2 As NotesDatabase Set db = s.CurrentDatabase Set db2 = s.GetDatabase(“server01”,”discuss.nsf”) 。开启视界 当数据库对象启动后，您可以使用NotesDatabase类别的GetView方法来开启数据库中的任何视界。 Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Set db = s.CurrentDatabase Set v = s.GetView(“Topics”) 6.LotusScript的循环架构 LotusScript提供了几种循环架构，可以依照条件来执行指定的动作。 当扫描视界搜寻特定文件时，可以使用下列的循环： =Do While (not) . Loop =Do Until . Loop 更多内容，请下载 /Files/james.wong/LotusScript PPT.rar。 一、文本的解释和搜索处理： 1、Left LeftBack Right RightBack Middle MiddleBack Word SSN=123-45-6789 left (ssn,3) -123 leftback(ssn,8) -123 right(ssn,4) -6789 rightback(ssn,7) -6789 middle(ssn,4,2)-45 middleback(ssn,8,2)-45 word(ssn,-,3) -6789 以-号分割的第三部分 2、randomstring:text(integer(998*random+1) 3、判断字符串是否包含字符：contains(string,searchstring) 二、列表的处理(List) 1、列表的加法与乘加： List1:a:b:c List2:x:y: List1+List2=ax:by:c List1*+List2=ax:ay:bx:by:cx:cy 2、使用数组操作列表(仅可引用，不可赋值)： FirstValue := List11 3、比较列表值： count(List1) 返回列表的字符串个数3,当字符串为0时返回1 elements(List1) 返回列表的字符串个数3,当字符串为0时返回0 member(List1,b)返回位置2 IsMember / IsnotMember Compare (List1:List2) 比较列表的大小，返回1,0,-1 keywords(List1:List2)返回List2出现在List1中的值 4、编辑列表值： unique(List1:List2) 合并两个列表，多个重复值将合并为一个 sort subset(List1:Number) 取Number指定序列的值 replace(List1:Value1:ReplaceValue) 替换列表值 transform(List1:X:LowerCase(X) 格式化列表，X充当中间变量 5、转换列表值： explode (red blue black; ) 将字符串以空格分解为列表 inplode(List1;,) 以，号合并列表值为字符串“a,b,c” explode(日期) 2005-3-18-2005-3-22 将分解为5个日期而非2个 三、函数： 1、循环处理函数： for (n:=1;n=number;n:=n+1;statements) while(nnumber;statements;n:=n+1) dowhile(statements;n:=n+1;n=number) 最少一次 四、错误处理： 1、statusbar显示开发错误信息 2、iserror iferror return 3、用户警示语句：prompt dialogbox 五、布局区域： 可容纳文本、域、图片、图片按钮等元素，只适于NOTES客户端(WEB不支持) 六、设计视图： 1、定义背景图片 2、设计分行图标：可使用内定序号和文件名称，可使用数组形式显示多个图标(只能是同一类图标(自定义或预设图标) 3、隐藏列(直接隐藏或使用公式) 4、视图中设置颜色：RGB或“0000FF”，可定义值显示颜色 5、取某列的值必须取他的域名而非列名 6、嵌入视图的使用 7、嵌入编辑器 8、saveoptions保留域的作用(1、强制保存；0、强制取消) 七、样式表(CSS)的应用 八、小技巧： 在文件中加件$KeepPrivate=1时，即有禁止复制、转呈、打印的限制一、常用命令： Command 与 PostedCommand 的区别在于Command发生在后续指令之前，而PostedCommand在等待其它指令执行完以后才开始执行！ If(Command(FileOpenDatabase; NEWSUBJ); ; Return();开启数据库 Command(OpenView;Customers); 打开一个视图 PostedCommand(Compose;PersonData)；打开窗体并开始编辑 Command(EditDocument )；开启编辑模式 Command(MoveToTrash)；做删除文文件标记，F9后即删除 Command(RefreshWindow )；刷新窗体，相当于F9动作 Command(FileCloseWindow)；关闭本文档，可用一个隐藏计算域(SaveOptions)设置保存与否 Command(EditGotoField; Subject); 自动跳到subject域 Command(EditInsertText; New subject);为当前域写入一个值 二、解析邮件地址：Name 与 username 1.返回Mary Tsen/Illustration/格式 Name(ABBREVIATE;AUTHOR) 2.返回Mary Tsen Name(CANONICALIZE;Mary Tsen) 3.返回详细层级 CN=MaryTsen/ OU=Illustration/OU=Documentation/O=Acme/C=US Name(CANONICALIZE;Mary Tsen/) 4.返回Mary Tsen的对话框，如果AUTHOR值为: CN=Mary Tsen/OU=Illustration/O=Acme. Prompt(OK; Common Name; Name(CN; AUTHOR) 5.返回层级 Name(OU2;AUTHOR) 6.返回USAcmeR&DDevelopmentDocumentationIllustration层级. Name(TOKEYWORD;AUTHOR) 7.返回外部邮件地址Streitfeld, Sara (Miami) . Name(LP;User_Name) 8.返回外部邮件地址Streitfeld, Sara (Miami) Streitfeld, Sara (Miami) . Name(Phrase;User_Name) 9.返回外部邮件地址 SSStreitfeld, Sara (Miami) . Name(ADDRESS821;User_Name) 10.返回层级Cam/Lotus (John Doe/Cam/Lotus). Name(HIERARCHYONLY;User_Name) 下面的没用过。不知何解 11.This example returns secretary, the LDAP AttributeType name for the Domino term, assistant. Name(TOAT;assistant) 12.This example returns Internet Address, the Domino term equivalent to the LDAP AttributeType name mail. Name(TOFIELD;mail) 13.This example returns Number, the Domino term equivalent to the LDAP data type, Integer. Name(TODATATYPE;Integer) 14.This example returns Directory String, the syntax used in the LDAP directory for the Domino data type Text. Name(TOSYNTAX;Text) 取Names.nsf中的部门 Prompt(OK; Department : ; Department is : + DbLookup(Notes:NoCache;Subset(DbName;1):names.nsf;($Users); LowerCase(UserName); Department) Prompt(OK; Department : ; Department is : + DbLookup(Notes:NoCache;Subset(DbName;1):names.nsf;People; james.wong; Department) 一、对视图（VIEW）的操作 Sub Initialize Dim session As New NotesSession 定义当前的存储 Dim db As NotesDatabase设置当前的数据库 Dim dc As NotesDocumentCollection 定义当前文文件集合 Dim doc As NotesDocument 定义单个文档 Dim item As NotesItem 定义单个项目 Set db = session.CurrentDatabase 取得当前数据库 Set dc = db.UnprocessedDocuments 取得待处理的文文件集合 Set doc = dc.GetFirstDocument 取得首个操作文档 REM Get first FooBar item Set item = doc.GetFirstItem(FooBar) 取得首个名为FooBar的项目 While Not(item Is Nothing) Messagebox item.Text, item.Name 显示项目的值和名称 REM Remove item from memory Call item.Remove 从内存移除此项目 REM Get next FooBar item Set item = doc.GetFirstItem(FooBar)取得下一个名为FooBar的项目 Wend End Sub 二、取已选值 Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase Dim dsSel As NotesDocumentCollection Set dsSel = db.UnProcessedDocuments dsSel 就是你所选的所有文件(集合) (若无打勾则是有黑框的单一文件, 但仍要下列步骤才能取出文件数据) Dim d As NotesDocument Set d = dsSel.GetFirstDocument do until d is nothing d.字段名称(0). 用于字段是单一值 Forall V in d.字段名称 . 用于字段是多重值 Vtmp = V End Forall set d = dsSel.GetNextDocument(d) loop 三、常用代码 1.检测当前用户是不是文档的创建者,如果不是,不允许编辑文档。Sub Querymodechange(Source As Notesuidocument Continue As Variant) Dim session As New NotesSession Dim doc As notesdocument Dim userName As New NotesName(session.UserName) Set doc=source.document If Not ( source.EditMode ) Then If ( doc.authors(0) = username.CANONICAL ) Then continue=True Else Msgbox 您不是此文档的创建人,不可以修改!,0,文档数据库 continue=False End If End If End Sub 2.退出时检测关键的域不能为空 Sub Click(Source As Button) Dim w As New notesuiworkspace Dim uidoc As notesuidocument Dim doc As notesdocument Set uidoc=w.currentdocument name1=uidoc.fieldgettext(name) If name1= Then Messagebox 姓名不能为空!,0,通讯录 Exit Sub End If Call uidoc.save Call uidoc.close End Sub 3.用私有视图来显示需要当前用户处理的文档,用以下视图公式: 注意建立视图时不要选中保存到本地选项,否则调试不便. SELECT Form = 收文1 & NextApprover=Name(CN;V3UserName) 4.Notes中Active控件 当文档中添加OLE或其它通用的ActiveX控件后,在文档的script编辑框右侧中,会自动添 加各种属性和方法在notes的类列表中.在script中声明该对象的 方法如下: Sub Postopen(Source As Notesuidocument Dim w as notesuiworkspace Dim uidoc as notesuidocument Dim aa As Variant Set w =New notesuiworkspace Set uidoc =w.currentdocument Set aa=uidoc. getObject(Chart)该句为ole对象声明,注意Chart是你给对象起的名 字 接下来你就可以通过aa.*来调用其方法和属性了. End Sub 5.是否保存 在表单中设定一个域,名称为saveoption 下列公式添加到返回按钮中,决定文件退出是否保存 FIELD saveoptions:=1; 保存 FIELD saveoptions:=0; 不保存 6.用公式弹出对话框,按确定继续,取消返回. If(DialogBox(表单名;AutoHorzFit:AutoVertFit;表单标题);Return( ) 7.用script弹出对话框,按确定继续,取消返回 Dim w as notesuiworkspace If Not w.dialogbox(表单名,True,True,False,True,False,False,填写) Then doc.close用户按取消退出 Exit Sub End If 8.视图中删除文档语句 Command(EditClear); Command(ViewRefreshFields) 9.检测是否是周末 Dim dt as notesdatetime call dt.setnow If Weekday(dt.lslocaltime)=7 Then是周六耶, dt.adjustday(2) 加两天到星期一 Elseif Weekday(dt.lslocaltime)=1 Then周日加一天 dt.adjustday(1) End If 10.得到当前的服务器和路径 公式: ResideServer := Subset(DbName; 1) CurrentPath := Subset(DbName; -1) DirOnly := If(Contains(CurrentPath; ); LeftBack(CurrentPath; ) + ; ); DbFile := DirOnly + *.NSF; 11.得到当前用户名 公式:Name(CN;V3UserName) script:Dim s as notessession Dim myname as newnotesname(s.username) messagebox mon 12.得到当前日期公式: today date(created) script:Dim dt as notesdatetime Set dt=New notesdatetime() Call dt.setnow 13.常用全局对象声明 -对象变量- Dim w As NotesUIWorkspace Dim s As NotesSession Dim db As NotesDatabase Dim view As NotesView Dim uidoc As NotesUIdocument Dim doc As Notesdocument Dim item As NotesItem Dim dt As NotesDateTime Dim username as notesname 14.一些计算域,开始时没有值,如果不给它一个值会报错,以下公式给计算域赋值 if(Bfield=;0;Bfield)15.特殊字符 char(13)可以在prompt提示框中显示回车 script中用函数chr(13) 16.【Lotus编程域操作】对话列表框-使用公式从SQL Server数据库中读取数据 （1）读数据：DbCommand(odbc:nocache;数据库服务器名;用户名;密码;sql语句) （2）分级读：a:=order_moid1; If(order_moid1=;DbCommand(odbc:nocache;domino;cadiec;cadiec1234;select name from ptype where leveal=1)+|+DbCommand(odbc:nocache;domino;cadiec;cadiec1234;select typeid from ptype where leveal=1);If(Elements(DbCommand(odbc:nocache;domino;cadiec;cadiec1234;select name from ptype where parid=+order_moid1+);DbCommand(odbc:nocache;domino;cadiec;cadiec1234;select name from ptype where parid=+order_moid1+)+|+DbCommand(odbc:nocache;domino;cadiec;cadiec1234;select typeid from ptype where parid=+order_moid1+);DbCommand(odbc:nocache;domino;cadiec;cadiec1234;select name from ptype where typeid=+a+)+|+DbCommand(odbc:nocache;domino;cadiec;cadiec1234;select typeid from ptype where typeid=+a+) 如何抓群组内的成员名单books = session.AddressBooks done = FalseForall b In booksIf ( b.IsPublicAddressBook ) And ( Not done ) ThenCall b.Open( , )Set view = b.GetView( Groups )Set tmpdoc = view.GetDocumentByKey(GroupName)If Not ( tmpdoc Is Nothing ) Thenitemvalue = tmpdoc.GetItemValue( ListName )If (itemvalue(0)=GroupName) Thenuser = tmpdoc.GetItemValue( Members )Forall m In userSet notesName = New NotesName(m )If (IsGroup(notesName) ThenCall send_to_group(doc,notesName,itype,currentLog)Else Call send_to_user(doc,notesName,itype,currentLog)End IfEnd ForallEnd IfEnd IfEnd IfEnd Forall数据库的存取一、简单的Access数据库存取(ODBC)Sub Click(Source As Button)Dim conn As New ODBCConnection Dim tqry As New ODBCQuery Dim trst As New ODBCResultSet Dim ProdCode As StringDim js As Long Dim msg As String If Not conn.ConnectTo(ERP2002,hjj,sss) ThenMsgbox Could not connect to ERP2002!,46,Erro