操作Domino数据库的设计元素

在Domino的数据库中有数据文档和设计文档两种文档。设计文档包括单，视图，代理等，这些组成了
一个数据库设计。标准的Notes类库能够很容易的访问数据文档，但是却没有提供任何方法来访问设计
文档。下面的这个DatabaseDesign类可以让我们使用LotusScript来访问设计文档，返回的是NotesDocument
对象。

要使用这个类，我们把DBDesign这个script库拷贝到数据库中。
下面是这个类的代码：

End Class

创建DatabaseDesign对象的方法

End Function

我们可以通过类中提供的属性和方法来操作数据库中的设计元素，比如：
1.使用createDatabaseDesign方法来获取一个DatabaseDesign对象

Dim session as New NotesSession
Dim db as NotesDatabase
Dim dbDesign as DatabaseDesign
Set db = session.currentDatabase
Set dbDesign = createDatabaseDesign( db)

2.通过formDocuments属性来获取所有表单

Dim forms as variant
forms = dbDesign.formDocuments

3.打印出表单的标题

If Not IsEmpty( forms) Then
Forall formdoc In forms
print formdoc.getItemValue( "$Title")(0) 
end Forall

4.通过方法getFormByName获取到指定的表单

Dim form as NotesDocument
set form = dbDesign.getFormByName( "MyForm")
If Not form Is Nothing Then
'do something with form here
End If

5.使用 NotesDocument.copyToDatabase 方法可以拷贝设计元素到其他数据库中

dim otherdb as new NotesDatabase( "server", "file.nsf")
set form = dbDesign.getFormByName( "FormToCopy")
If Not form Is Nothing Then
dim formcopy as NotesDocument
set formcopy = form.copytodatabase(otherdb)
call formcopy.save(true, true)
End If

下面一段代码实现使用服务器上指定邮箱模板来更新本地PersonalMailBox的个人邮箱设计：

注意：1.使用这段代码的时候，需要将服务器上的模板的软删除功能关闭（”数据库---属性---高级---允许软删除“前的复选框勾掉），否则
多人同时运行这段代码的时候会出现“Notes error:someone else modified this document at the same time”的错误提示。
2.上面的方法把原来的设计删除了，又拷贝了新的设计，这样设计的文档ID就变了。