lotus 编程学习笔记.docx

资源描述

lotus 编程学习笔记.docx

《lotus 编程学习笔记.docx》由会员分享，可在线阅读，更多相关《lotus 编程学习笔记.docx（43页珍藏版）》请在冰豆网上搜索。

lotus 编程学习笔记.docx

lotus编程学习笔记

用NotesDatabase.search方法来统计符合条件的文档个数

-------------

SubClick（SourceAsButton）

DimsessionAsNewNotesSession

DimdbAsNotesDatabase

DimcollectionAsNotesDocumentCollection

'要搜索的文档的起始时间

DimdateTimeAsNewNotesDateTime（"01/01/96"）

Setdb=session.CurrentDatabase

'Search的第一个参数是用公式语言表达的搜索条件

Setcollection=db.Search（"Form='qj'",dateTime,0）

Messageboxcollection.Count

EndSub

提示邮箱信息的代码

------------------------------

DimsAsNewNotesSession

DimdbAsNotesDatabase

DimunameAsString

DimmailfilelocAsVariant

ConstMB_OK=1

ConstMB_ICONINFORMATION=64

boxtype&=MB_OK+MB_ICONINFORMATION

Setdb=s.CurrentDatabase

uname=s.CommonUserName

srvname=Evaluate（"@Name（[CN];@Subset（@MailDBName;1））"）

mailfileloc=Evaluate（"@Subset（@MailDBName;-1）"）

DimmydbAsNewNotesDatabase（Cstr（srvname（0））,Cstr（mailfileloc（0）））

Msgbox"Server:

"&srvname（0）&Chr$（13）_

&"Dbdirectoryanddbname:

"&mailfileloc（0）&Chr$（13）&Chr$（13）_

&"Thesizeofyourmailfileis:

&Round（mydb.Size/1048576,2）&"Mb",boxtype&,"Mailfileof"&uname&"..."

建立/获取/修改简要表文档

-----------------------------------

示例4-2展示了怎样建立、获取、和修改简要表文档的示例。

如果没有找到这个描述文

档docProfile那么就会建立它，然后，它就会检查这个文档中的值Company字段。

如果没有设置这个字段，那么就会对其进行更新，并且保存新值。

如果已经进行了设置

那么就不会再进行更多的处理。

示例4-2建立/获取/修改简要表文档

SubInitialize

DimsessionAsNewNotesSession

DimdbAsNotesDatabase

DimdocProfileAsNotesDocument

DimsAuthorAsString

DimitemCompanyAsNotesItem

Setdb=session.CurrentDatabase

SetdocProfile=db.GetProfileDocument（"Profiles",session.UserName）

SetitemCompany=docProfile.GetFirstItem（"Company"）

IfitemCompanyIsNothingThen

docProfile.Company="ConCrea"

CalldocProfile.save（True,False）

EndIf

EndSub

用公式打开“关于数据库”、“使用数据库”文档

-----------------------------------------

@Command（[HelpAboutDatabase]）

@Command（[HelpUsingDatabase]）

让组合框下拉时有一个空值可以选

--------------------------------

@Explode（@Char（255）:

"男":

"女"）

用Messagebox判断用户做出的选择

--------------------------------

SubClick（SourceAsButton）

answer%=Messagebox（"Doyouwanttocontinue?

",36,"Continue?

"）

Ifanswer%=6Then

Messagebox"YouclikedOK!

Else

Messagebox"YouclikedNO!

EndIf

EndSub

@IsDocBeingEdited

-------------------------

检查文档的当前状态，如果文档正在被编辑，则返回1（True）；否则返回0（False）。

语法

@IsDocBeingEdited

返回值

flag

布尔型

1（True）表示正在编辑该文档

0（False）表示不在编辑该文档

用法

该函数不能用于列公式、选择公式、代理、表单公式或视图操作公式中。

常用于按钮公式、隐藏公式、域公式和表单操作公式中。

例：

tmp:

=@if（@IsDocBeingEdited;"在编辑状态";"不在编辑状态"）;

@prompt（[OK];"提示是否在编辑状态";tmp）