在 Lotus Notes 8 中开发复合应用

　　NSF 组件中操作的实现

　　现在我们为 ImageDescForm 来具体实现 ShowImageDesc 操作。该操作将接收到一个值为新闻编号 ImageNewsID 的属性 NewsIDChanged，然后在表单中显示新闻编号为 ImageNewsID 的新闻文档的标题，作者，正文等信息。

　　熟悉 Notes 的人知道，Notes 开发中本来就有操作(Action)这种设计元素，为了与之区分，我们称 NSF 组件中的复合应用操作为 WSDL 操作(WSDL Action)。在设计时为了便于 Notes 开发人员使用，创建 WSDL 操作的步骤沿袭了 Notes 操作的创建方法。

　　因此，为了实现这个名为 ShowImageDesc 的 WSDL 操作，我们首先要在 ImageDescForm 表单中创建一个普通 Notes 操作 ImageIDChangedAction。

　　图 11. 在 Domino Designer 中定义 WSDL 操作

　　

　　在该操作的高级属性中，我们会发现一个新增设置：“组合设置”，在这里可以选择之前在 WSDL 中定义的操作 ShowImageDesc。通过这样一步简单的操作，一个普通的 Notes 操作 ImageIDChangedAction 就成为了一个 WSDL 操作，实现了ShowImageDesc。(一般情况下，建议将这个操作在操作条上隐藏)。

　　图 12. 在组合设置中选择对应的操作名

　　

　　接下来我们需要在该操作的 click 事件中添加代码，实现下列内容：

• 　　接收属性 NewsIDChanged;
• 　　根据属性 NewsIDChanged 的值，在新闻库中查找到对应新闻编号的新闻文档;
• 　　将该新闻文档的对应域值显示在 ImageDescForm 表单上。

　　由于后两步对 Lotus 开发人员并不陌生，这里就不再赘述，在此仅列出接收属性 NewsIDChanged 的 LotusScript 代码，这是整个 WSDL 操作实现过程中最核心的部分：

　　清单 4. 接收属性并执行操作的 Lotusscript 代码

Sub Click(Source As Button)     ...     On Error 4719 Goto err4719     Dim pb As NotesPropertyBroker     Set pb = session.getPropertyBroker() // 获取 PropertyBroker 对象     Dim pbInputProperty As NotesProperty     Dim pbcontext As Variant     pbContext = pb.InputPropertyContext     Set pbInputProperty = pbContext(0) // 获取属性     Dim InputPropertyName As String     InputPropertyName = pbInputProperty.Name     Dim pbvalue As Variant     pbValue = pb.GetPropertyValue(InputPropertyName) // 获取属性值     ...     // 对该属性值进行处理，在表单中显示相应文档标题，作者和内容。     …     Exit Sub err4719:     Print "Error" & Str(Err) & ": " &Error$     Messagebox "error"     ... End Sub

　　如上，通过 Notes 8 中提供的 PropertyBroker 相关的类和方法，WSDL 操作 ShowImageDesc 操作可以获得属性 NewsIDChanged 的值，存放到变量 pbValue 中。在此基础上，可以对该值进行处理，在表单中显示相应文档标题，作者和内容。

　　通过 定义属性和操作，发布属性，实现操作，我们得到了两个 NSF 组件：ImageNewsList 和 ImageDescForm。对广大 Notes 用户而言，将 Notes 元素封装成组件的好处在于：用户可以充分利用现有的 Notes 数据库，以模块化，组件化的 SOA 思想对它们加以改造。