LotusScript中数据库文档操作

LotusScript中数据库文档操作

一、表单

表单事件

 

QueryOpen '在表单打开前产生的事件    
PostOpen '在文档找开后和用户获得输入焦点前发生    
PostRecalc '在当前文档在重新计算之前，在文档上的所有公式执行之后发生    
QuerySave '在文档保存之前发生    
QueryModeChange '将当前的文档改变模式时发生，如只读模式改成编辑模式    
PostModeChange '在当前的文档改变模式之后发生    
QueryClose '在数据库关闭之前发生

子程序如下：

Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)    
         '代码
End Sub    

 

Source '是一个正在访问的当前文档的NotesUIDocument对象    
Mode 'True表示表单(文档)是在编辑模式下打开    
Isnewdoc 'True表示表单是新的    
Continue '是否继续，若是QueryOpen则停止表单的打开，若是QuerySave则停止保存操作

二、对数据库文档操作的基本步骤

1、访问数据库

NotesSession类代表当前script的Notes环境。它提供访问环境变量、地址、当前用户的信息、当前Notes平台和版本号等信息。其表达式为：

 

Dim Session As New NotesSession

或

Dim session as NotesSession    
Set session = new NotesSession

访问数据库，其表达式为：

 

Dim db as NotesDatabase    
Set db = Session.CurrentDatabase

2、访问视图

 

Dim view as NotesView    
Set view = NotesDatabase.getView(viewName)

3、在视图中找文档

 

Set NotesDocument = NotesView.getFirstDocument    
Set NotesDocument = NotesView.getNextDocument(NotesDocument)

4、将文档放进一个文件夹中

 

NotesDocument.putInFolder(FolderName) '若文件夹不存在，Notes将创建它

三、选择文档

1、访问当前文档方法

 

Dim session as NotesSession '定义当前工作区    
Set session = new NotesSession '创建当前工作区，此两句可以合成一句    
Dim doc as NotesDocument '定义当前文档对象    
Set doc = session.DocumentContext '创建当前文档对象    
If doc.isNewdoc then '若当前文档是新建的，则显示新建    
    MessageBox( "This is a new document")    
Else '若当前文档不是新建的，则显示已存在    
MessageBox( "This is a existing document")    
End if

2、NotesUIDocument类的一些重定义光标的方法

gotoTop '定义光标在当前文档第一个可编辑的域
gotoBottom gotoNextField gotoPrevField gotoField("filedname")

3、访问文档中多值域数组操作

1)用UBound(FieldName)函数来测定多值域值的个数

 

Dim session as New NotesSession '创建当前工作区    
Dim mymemo as NotesDocument '定义当前文档    
Set mymemo = session.DocumentContext '创建当前文档    
Dim MyValue as Variant '创建一个变量为可变型    
MyValue = mymemo.getItemValue( "Subject") '将当前文档中的Subject域的值赋给变量    
If UBound(MyVale) = 0 Then '若Subject域的值只有一个值时则...    
...    
End If

2)获取域数组中值的方法

 

Dim subj as Variant '设置一个可变型变量    
subj = doc.GetItemValue( "Subject") '用GetItemValue获取文档中的域的多值    
'上一句也可以改成subj = doc.Subject，效果一样    
MessageBox(subj(0)) '访问数组中的值

4、访问数据库中视图文档的例子

 

Dim session as NtoesSession    
Set session = New NotesSession    
Dim db as NotesDatabase    
Set db = session.CurrentDatabase    
Dim view as NotesView    
Dim doc as NotesDocument    
Set view = db.getView( "ByCustomer")    
Set doc = view.getFirstDocument    
Do while Not(doc Is Nothing)    
        MsgBox( "最后访问是在：" & doc.LastAccessed)    
        doc.putInFolder( "PersonalDoc")    
         Set doc = view.getNextDocument(doc)    
Loop    

 

 

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