27. 在Lotus Notes中缓存视图中的配置数据提高性能

迷南。 2022-04-10 08:06 155阅读 0赞

一个Lotus Notes应用中常常有各种配置数据保存在专门的视图中。由一个关键字和一个值组成的键—值对，是最常见的形式之一。在程序中使用到它们的时候，可以很方便地通过NotesView. GetDocumentByKey之类的方法或者自定义的函数获取。但是在有些情况下，需要频繁地读取这些配置数据很多次。比如在一个代理中需要根据配置文档中的不同币种的汇率，计算上万条文档中的某个金额时。这时为了提高效率就可以提前将币种和汇率读取到内存中，以后用到的时候便可以免去大量的视图查找和读取文档域值的操作。如下面这个函数所示：

%REM
    	Description: Put keys & values from a view into a dictionary
    %END REM
    Public Function CacheKeyValues(viewName As String, keyField As String, valueField As String)As Dictionary
    	Dim dic As New Dictionary
    	Dim s As New NotesSession
    	Dim view As NotesView
    	Set view=s.Currentdatabase.Getview(viewName)
    	Dim doc As NotesDocument
    	Set doc=view.Getfirstdocument()
    	Do Until doc Is Nothing
    		Call dic.Add(doc.Getitemvalue(keyField)(0), doc.Getitemvalue(valueField)(0))
    		Set doc=view.Getnextdocument(doc)
    	Loop
    	Set CacheKeyValues=dic
    End Function

函数的参数中，viewName是从中获取数据的视图名，keyField是保存“键”的字段名，valueField是保存“值”的字段名。返回的Dictionary是在 [5. 面向对象的LotusScript（一）之Dictionary][5. _LotusScript_Dictionary]一文里给出的自定义类，可以通过Contains，Item等方法查询和获取某个关键字的数据。

[5. _LotusScript_Dictionary]: http://blog.csdn.net/starrow/article/details/8248043