4. Note背后

绝地灬酷狼 2022-05-14 11:09 131阅读 0赞

如前所述，Notes数据库的核心就是其中保存各种数据的通用结构note。Notes提供的很多功能都是建立在这种结构上，我们开发的应用程序也是围绕着它的应用，同时受益于和受制于它的特点。之后的几篇文章，我都会介绍一些关于这位幕后主角的信息。

在Notes数据库中,我们会接触到各种不同形式的数据。在workspace（工作台）上，可以看到数据库的图标；在视图里，可以看到文档列表；打开其中一个，可以看到文档的内容；通过相应的菜单命令，可以在对话框中看到存取控制列表和复制公式等等；在designer（设计器）里可以看到表单、代理和脚本库。所有这些数据在形式上和功能上是如此不同，但是在数据库中都是以同样的结构note保存。文档（document）作为用户note、数据note的同义词，是我们很熟悉的。对于开发和管理人员，有趣和值得注意的是，设计元素与文档从技术上说没有多少差别。或者说在Notes程序的眼中，它们只是同一种东西的不同子类，在读取、修改、保存和删除等操作上没有差别。我们在desinger中已经可以看到这一点的表现，各种设计元素的列表和显示文档的视图就十分相似，在每个设计元素的属性中，还可以看到和文档一样的域列表。我们甚至可以创建一个视图，显示设计元素。在给出这样一个例子前，我们先看看Notes是怎样区分各种note的。

Notes程序将note分成下面这些类型。

<table> 
 <tbody> 
  <tr> 
   <td>类型</td> 
   <td>说明</td> 
   <td>NOTE_CLASS</td> 
   <td>单复数</td> 
  </tr> 
  <tr> 
   <td>ACL</td> 
   <td>设定数据库的存取权限。</td> 
   <td>0x0040</td> 
   <td>单个</td> 
  </tr> 
  <tr> 
   <td>Document</td> 
   <td>用户文档。</td> 
   <td>0x0001</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Design</td> 
   <td>设计note集合，即NotesNoteCollection。</td> 
   <td>0x0020</td> 
   <td>&nbsp;</td> 
  </tr> 
  <tr> 
   <td>Field</td> 
   <td>共享域（字段）</td> 
   <td>0x0400</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Filter</td> 
   <td>代理、代理数据、大纲、脚本库、数据库脚本都归在此类型下。</td> 
   <td>0x0200</td> 
   <td>&nbsp;</td> 
  </tr> 
  <tr> 
   <td>Agent</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Agent Data</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Outline</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Script Library</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Database Script</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>单个</td> 
  </tr> 
  <tr> 
   <td>Form</td> 
   <td>表单、子表单、页面、帧结构集、图片资源、Java资源、共享操作、XPage都归在此类型下。</td> 
   <td>0x0004</td> 
   <td>&nbsp;</td> 
  </tr> 
  <tr> 
   <td>Form</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Subform</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Page</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Frameset</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Image Resource</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Java Resource</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Shared Action</td> 
   <td>所有共享操作保存在唯一的note里。</td> 
   <td>&nbsp;</td> 
   <td>单个</td> 
  </tr> 
  <tr> 
   <td>Xpage</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Icon</td> 
   <td>设定数据库的图标、标题和分类。</td> 
   <td>0x0010</td> 
   <td>单个</td> 
  </tr> 
  <tr> 
   <td>Info</td> 
   <td>设定“关于数据库”的帮助。</td> 
   <td>0x0002</td> 
   <td>单个</td> 
  </tr> 
  <tr> 
   <td>Help</td> 
   <td>设定“使用数据库”的帮助。</td> 
   <td>0x0100</td> 
   <td>单个</td> 
  </tr> 
  <tr> 
   <td>Help Index</td> 
   <td>设定Notes产品帮助信息的索引。</td> 
   <td>0x0080</td> 
   <td>单个</td> 
  </tr> 
  <tr> 
   <td>ReplFormula</td> 
   <td>设定复制公式。</td> 
   <td>0x0800</td> 
   <td>单个</td> 
  </tr> 
  <tr> 
   <td>View</td> 
   <td>视图、文件夹、导航器都归在此类型下。</td> 
   <td>0x0008</td> 
   <td>&nbsp;</td> 
  </tr> 
  <tr> 
   <td>View</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Folder</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
  <tr> 
   <td>Navigator</td> 
   <td>&nbsp;</td> 
   <td>&nbsp;</td> 
   <td>多个</td> 
  </tr> 
 </tbody> 
</table>

“NOTE\_CLASS”是Notes程序中代表不同note类型的代码，这里用16进制表示。

“单复数”列指的是该类型的note在数据库中只能有一个还是可以有多个。

可以看出程序中Notes对note的分类，特别是设计元素，与我们在开发中认识的分类有很大的不同。表单、子表单、页面、XPage这些都是Form类型的note在应用上的分类。实际上从功能的角度我们也能体会到它们中的一些除了某些特性，确实是相同的。比如子表单除了不能单独，显示与表单完全一样；页面除了不能插入域用于保存和显示文档，与表单的功能也一致。视图和文件夹的情况也类似。

另外还可以看出，NOTE\_CLASS是被设计成可以参与“或”运算的标志位。这样既可以用单个NOTE\_CLASS确定某个类型的note，也可以用任意多个NOTE\_CLASS的“或”组合代表多种note。比如将所有设计元素的NOTE\_CLASS组合起来，就成为代表数据库中所有设计note的标志位0x7ffe，再与0x0001做“或”运算，就成为表示所有note的0x7fff。NOTE\_CLASS还被用来表示其他一些含义，比如0x8000表示某类note中的默认个体，0x1000表示私有设计note。

下一个问题是，Notes程序如何区分具有相同NOTE\_CLASS的不同设计元素。答案是借助于另一个文本型的标志——$Flags条目（item）。每个设计元素中都有一个$Flags条目，它被用于保存很多重要的行为信息，其中一个字符表示一个特性，有些特性只适用于一种NOTE\_CLASS，有些则对所有note都适用。通过查看设计元素的属性，可以在它们的域列表中找到$Flags。下面举几个例子：

‘A’ – FORM，说明一个子表单在增加子表单的列表中。

‘a’ -- VIEW，说明一个视图不包含任何文件夹中的文档。

‘w’ -- 所有，说明这个设计note对Web客户端隐藏。

‘\#’ – FORM，说明这是一个帧结构集。

可以看出，确定某种设计元素的类型与描述其他特性被混合在一起，而字符的数量是有限的，所以当新特性和新类型不断被增加时，这种编码方式的资源很快会被耗尽。于是Notes开始采用“模式”，也即具有特殊功能的字符与普通字符的组合，来表示某种信息。比如用”+sh.”表示脚本库。

以上这些描述可能会显得距离太遥远,下面就来看一个实际应用的例子。

我们建一个视图来显示设计元素。不妨把视图命名为($DesignElements)，别名为$DesignElements。视图选择公式（View Selection）需要由我们想包含的元素种类来决定。下表列出了每种设计元素对应的NOTE\_CLASS和所需的选择公式（引自[Make a Notes view list design elements][]）。

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div> 
     <strong>设计元素种类</strong> 
    </div> </td> 
   <td> 
    <div> 
     <strong>NOTE_CLASS( 16进制 )</strong> 
    </div> </td> 
   <td> 
    <div> 
     <strong>选择公式(R8.5)</strong> 
    </div> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> !@Matches($Flags; "*{UWy#i:|@Kgz}*") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> View </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> View (8) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> !@Matches($Flags; "*{FG^}*") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Folder </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> View (8) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "F") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Agent </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> !@Matches($Flags; "*{QXstmz{}*") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Image </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "i") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Subform </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "U") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Outline </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "m") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Frameset </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "#") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Page </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "W") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Script Library (excluding Web Service Consumers) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Matches($Flags; "*{sh}*") &amp; !@Contains($FlagsExt; "W") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Stylesheet </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "=") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Theme </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "g") &amp; @Contains($Flags; "`") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Composite Application </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "|") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Wiring Properties </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; ":") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Web Service Consumer </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($FlagsExt; "W") &amp; @Matches($Flags; "*{sh}*") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Web Service Provider </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "{") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> XPage </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "g") &amp; @Contains($Flags; "K") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Custom Control </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "g") &amp; @Contains($Flags; ";") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> File Resource </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "g") &amp; !@Matches($Flags; "*{~K[];`}*") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Hidden File Resource (created by XPage build) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "g") &amp; @Contains($Flags; "~") &amp; !@Matches($Flags; "*{~K[];`}*") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Shared Field </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Field (400) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> N/A </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Shared Action </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "y") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Database Icon </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Icon (10) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> N/A </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Help About Document </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Help About (2) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> N/A </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Help Using Document </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Help Using (100) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> N/A </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Database Script </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "t") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Data Connection </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "k") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Navigator </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> View (8) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "G") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Applet </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "@") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Shared Column </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> View (8) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "^") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> DB2 Access View </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Form (4) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "z") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Stored full-text query </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "O") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Agent Data Note </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Filter (200) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> @Contains($Flags; "X") </li> 
    </ul> </td> 
  </tr> 
  <tr> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> Database ACL </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> ACL (40) </li> 
    </ul> </td> 
   <td> 
    <ul style="padding-left:0pt"> 
     <li> N/A </li> 
    </ul> </td> 
  </tr> 
 </tbody> 
</table>

因为每个设计元素的名称都保留在一个$Title条目中，所以可以建一个名称列，公式为：

$Title

根据需要和喜好，还可以添加“最近修改人”，“最近修改时间”等列。

针对含有代码的设计元素（代理、脚本库等）我们还可以显示它们使用的编程语言，公式为：

f:=$Flags;  
@If(@Contains(f; "s");  
@If(@Contains(f; "j");  
"Java";  
@IsAvailable("$ScriptLib");  
"LotusScript";"");  
@Contains(f; "j"); "Java";  
@Contains(f; "L"); "LotusScript";  
@Contains(f; "f"); "Formula";  
"")

现在在Notes中显示这个视图，什么都没有！因为在视图中还有一个开关——$FormulaClass条目，这是一个文本条目，保存的是视图中包含的note的NOTE\_CLASS值，用来显示文档的普通视图的这个条目的值为"1"，而要成为显示设计元素的特殊视图，这个条目的值需要被改成相应的NOTE\_CLASS值。比如要显示FORM类型的note,就要改成"4"；而要显示所有设计note，则要改成"32766"。怎样修改一个设计元素中的条目呢？答案是与修改一个文档一样，只要我们获得了指向这个视图的NotesDocument，就可以用我们熟悉的修改文档条目的方法。那么怎样获得这个NotesDocument呢？我们可以用GetView方法获得这个视图，但它是一个NotesView对象，无法获得底层的note中的条目。作为用户文档的NotesDocument往往是从一个视图中取得，而现在用于包含设计元素的视图还没有完成。我们只能使用在数据库中获取某个note的更基本的方法GetDocumentByUNID。幸运的是，NotesView有一个UniversalID属性，正是底层的note的Universal ID。这样，我们就可以写出下面的代码，修改DesignElements视图的$FormulaClass条目。考虑到今后可能会对这个视图做修改，而在某些版本（例如6.5）的设计器中,每次视图在被保存时，$FormulaClass条目都会被自动恢复成"1"，所以我们将这段代码放在视图的一个按钮中，每次修改视图之后，都在Notes客户端运行一次。

Option Public 
    Option Declare
    Sub Initialize
    	Dim s As New NotesSession
    	Dim db As NotesDatabase
    	Set db=s.CurrentDatabase
    	Dim view As NotesView
    		Set view=db.GetView("$DesignElements")
    	If view Is Nothing Then
    	Exit Sub
    	End If
    
    	Dim viewDoc As NotesDocument
    	Set viewDoc=db.GetDocumentByUNID(view.UniversalID)
    	'将$FormulaClass改成任何希望包含的设计元素对应的值。
    	Call viewDoc.ReplaceItemValue("$FormulaClass","4")
    	Call viewDoc.Sign()
    	Call viewDoc.Save(True,False)
    
    	Dim ws As New NotesUIWorkspace
    	Call ws.ViewRebuild()
    End Sub

最后需要指出的是，因为需要同时使用NOTE\_CLASS和选择公式才能确定某些设计元素的类型，所以如果将上述视图的$FormulaClass改成对应所有设计note的”32766”，将无法使用一个公式列准确地显示哪些是表单、视图和代理等类型，这些类型的选择公式使用了!@Match()，在没有限定NOTE\_CLASS的情况下，会互相冲突。如果将表单的判定公式放在列的计算公式的前面，则视图等其它元素会被归类成表单；将视图或代理的判定公式放在前面也会出现类似的情况。所以要使这个视图显示的内容最准确有效，还是应该限定$FormulaClass为某个具体的NOTE\_CLASS值。

[Make a Notes view list design elements]: http://www-10.lotus.com/ldd/ddwiki.nsf/dx/view-of-design-elements.htm