博客园  :: 首页  :: 联系 :: 订阅 订阅  :: 管理

操作Domino数据库的设计元素

Posted on 2008-05-27 15:46  生鱼片  阅读(2076)  评论(2)  编辑  收藏  举报

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

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

DatabaseDesign类代码


创建DatabaseDesign对象的方法

createDatabaseDesign方法


我们可以通过类中提供的属性和方法来操作数据库中的设计元素，比如：
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的个人邮箱设计：

Sub Click(Source As Button) 
 Dim ss As New NotesSession,ws As New NotesUIWorkspace 
 Dim db As NotesDatabase,doc As NotesDocument 
 Dim docs As Variant 
        '得到personalmailbox的路径 
 Dim   path   As   String   
 path   =   ss.getenvironmentstring("directory",True)   
 path=path+"\PersonalMailBox\" 
 
        '得到当前用户的帐号ID,例如michaelpang 
 namev=ss.UserName 
 namev1=Left(namev,Len(namev)-12) 
 namev2=Right(namev1,Len(namev1)-3) 
 path=path+namev2+".nsf" 
 Msgbox(path) 
 
 Set db = ss.CurrentDatabase 
 Set doc = ws.CurrentDocument.Document         
 If (Messagebox ("你确定要执行取代设计元素吗？",36,"请确认" )  <> 6 ) Then 
  Exit Sub 
 End If 
 
 
        '清空原始系统的设计原色
 Dim TargetDB As NotesDatabase,TargetDBObj As DatabaseDesign 
 Set TargetDB = New NotesDatabase(Local,path) 
 
        'If Not TargetDB.IsOpen Then Messagebox "本地邮箱不能打开!!":UpdateBookmark = False :Goto TheEnd 
 Set TargetDBObj = CreateDatabaseDesign(TargetDB)                 
 docs = TargetDBObj.Alldesigndocuments 
 If Not Isempty( docs)  Then 
  Print "准备删除原始设计文件，共计 " + Cstr(Ubound(docs)+1) " 份文件!!" 
  Forall x In docs 
   x.Remove(True) 
  End Forall         
  Print "完成刪除原系统设计文件!!" 
 Else 
  Print "原系统已无设计文件!!!" 
 End If 
        '取得新系统设计文件         
 Dim SourceDB As NotesDatabase,SourceDBObj As DatabaseDesign 
 Set SourceDB = New NotesDatabase("testmail02/testserver","mail\michaelpang .nsf") 
        'If Not SourceDB.IsOpen Then Print "Source DataBase can't open!!":UpdateBookmark = False :Goto TheEnd 
 Set SourceDBObj = CreateDatabaseDesign(SourceDB)         
 docs = SourceDBObj.Alldesigndocuments 
 Print  "准备更新系统设计文件，共技 " + Cstr(Ubound(docs)+1) " 份文件!!" 
        ' 
        '复制设计到目的系统 
 Forall y In docs 
  Call y.CopyToDatabase(TargetDB) 
 End Forall 
 Messagebox "完成复制设计文件!!" 
TheEnd: 
 Exit Sub 
 
End Sub 

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