|
|
Lotus Script是一种面向对象的语言。
使用它时，需要理解Notes类的继承和包含。
1.继承
比较容易理解。所谓类的继承，子类（派生类）继承其父类的属性和方法。
比如 NotesRichTextItem 是 NotesItem 的子类，所以 NotesRichTextItem
类的实例（对象）可以使用 NotesItem 的所有属性和方法。
2.包含
这个概念不太好理解。
所谓包含是一种概念上的包含，即Notes的对象是一个容器（container），它
包含了其中的对象。例如，我们使用 NotesSession 对象来创建 NotesDatabase
对象，并且 NotesDatabase 对象创建 NotesDocument 对象。这是因为
NotesSession 包含了 NotesDatabase,而 NotesDatabase 包含了 NotesDocumen
t。
关闭一个容器（container），它其中的对象也会被关闭。
这使得我们很多时候 使用Lotus Script 编程时会有疑惑，明显的得到了对象
突然就变为Null了，这是为什么啊？
请见下面一段程序:
Sub Click(Source as Button)
Dim session as New NotesSession
Dim db as NotesDatabase
set db = session.GetDatabase(servername , dbname)
' set getDocs = db.Alldocuments
Dim dc1 as NotesDocumentCollection
' set dc1 = getDocs("Myserver" , "MyTestDb.nsf")
Set dc1 = db.Alldocuments
msgbox "Ok It's Work Well!"
End Sub
会发生什么结果呢？
你会看到一个窗口。"OK It's Work Well!"
然而你把上面一段程序写成
Function getDocs(servername As String , dbname As String) as NotesDocu
mentCollection
Dim session as New NotesSession
Dim db as NotesDatabase
set db = session.GetDatabase(servername , dbname)
set getDocs = db.Alldocuments
End Function
Sub Click(Source as Button)
Dim dc1 as NotesDocumentCollection
set dc1 = getDocs("Myserver" , "MyTestDb.nsf")
msgbox "Ok It's Work Well!"
End Sub
会发生什么结果呢？
实际上这个程序运行时，会产生一个“Object Not Set”的运行错误！
尽管这时在逻辑上看不出区别。但实际上是错误的。
因为 db 在函数 getDocs中得到的，退出了getDocs函数，就自动关闭了，
而此时 db 包含的文档集合也关闭了。所以会产生运行错误。
（当然这也涉及到变量的工作范围，用在这里只表示一下包含的关系）
还有许多情况是这样的：
比如
set doc = db.createdocument
之后 set db = .......
此时 db先关闭，在重新设置，doc 也自动关闭，值为Null.
--------
原著：丁香书
转载于：bbs.163.com
|
|
