lotus 编程学习笔记.docx
- 文档编号:1395312
- 上传时间:2022-10-22
- 格式:DOCX
- 页数:43
- 大小:36.12KB
lotus 编程学习笔记.docx
《lotus 编程学习笔记.docx》由会员分享,可在线阅读,更多相关《lotus 编程学习笔记.docx(43页珍藏版)》请在冰豆网上搜索。
lotus编程学习笔记
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)
相关主题
@IsDocBeingLoaded
@IsDocBeingMailed
@IsDocBeingRecalculated
@IsDocBeingSaved
用NotesDocument后台类改变UI文档的域值
-------------------------------------------
SubClick(SourceAsButton)
'改变当前文档中的Main_Status域值
DimworkspaceAsNewNotesUIWorkspace
DimuidocAsNotesUIDocument
DimdocAsNotesDocument
Setuidoc=workspace.CurrentDocument
Setdoc=uidoc.Document
doc.Main_Status="5"
Calldoc.Save(True,True)
EndSub
将当前文档置于编辑模式中
-----------------------------
@Command([EditDocument];"1")
使用LotusScript获得群组中的用户列表
---------------------------------------
Declarations
DimcountAsInteger
DimpersonsListAsString
DimgroupsList
DimtgAsInteger
DimxyAsInteger
SubInitialize
'Theadvantateofthiscodeisthatwecanprocessanynestedgroupswithoutanysizelimitaions.
DimsessionAsNewnotessession
DimwsAsNewnotesuiworkspace
DimuidocAsNotesUIDocument
DimdbAsnotesdatabase
DimnamesdbAsnotesdatabase
DimgroupdocAsnotesdocument
DimgroupviewAsnotesview
DiminsidegroupdocAsnotesdocument
DiminsidegroupsAsnotesview
DimdocAsnotesdocument
DimcurviewAsnotesview
DimnewlistList
Setdb=session.CurrentDatabase
Setnamesdb=session.GetDatabase(db.Server,"names.nsf")
Setgroupview=namesdb.GetView("($Users)")
Setinsidegroups=namesdb.getview("($VIMGroups)")
Setcurview=db.getview("second")
Setuidoc=ws.CurrentDocument
Setdoc=curview.getfirstdocument'youcansetyourowndochere.Thisthebackenddocumentforthecurrentlyopeneduidoc.Youcanfindotheralternativestorunthisagent.
groupName$=uidoc.FieldGetText("names")'Hereweareenteringthegrouporpersonnames.
DimritemAsVariant
Setritem=doc.GetFirstItem("all")'Herewearegoingtostorethegroupextractedpeople'sname
'Calluidoc.FieldSetText("saveoptions","1")
Calluidoc.FieldSetText("Total","")'Herewewilllistthetotalparticipantlist.
Calluidoc.FieldSetText("all","")'makingthefieldnulltoprintanewvalue.
Calluidoc.Save
Calluidoc.reload
Calluidoc.save
ForallentryIndoc.names
gtype=group(entry)'CheckingwhethertheentryisagrouporPeople.
Ifgtype="Group"Then
tg=tg+1
groups(tg)=entry
Else
Calladdtolist(entry)'Ifentryisaperson,thenaddingtoalistcalledPeople.
EndIf
EndForall
'nowwehavegottwolistsoneis
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- lotus 编程学习笔记 编程 学习 笔记