lotusnotes常用代码

《lotusnotes常用代码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、lotusnotes常用代码lotusnotes常用代码1.检测当前用户是不是文档的创建者,如果不是,不允许编辑文档。SubQuerymodechange(SourceAsNotesuidocument,ContinueAsVariant)DimsessionAsNewNotesSessionDimdocAsnotesdocumentDimuserNameAsNewNotesName(session.UserName)Setdoc=source.documentIfNot(source.EditMode)T

2、henIf(doc.authors(0)=username.CANONICAL)Thencontinue=TrueElseMsgbox"您不是此文档的创建人,不可以修改!",0,"文档数据库"continue=FalseEndIfEndIfEndSub2.退出时检测关键的域不能为空SubClick(SourceAsButton)DimwAsNewnotesuiworkspaceDimuidocAsnotesuidocumentDimdocAsnotesdocumentSetuidoc=w.curre

3、ntdocumentname1=uidoc.fieldgettext("name")Ifname1=""ThenMessagebox"姓名不能为空!",0,"通讯录"ExitSubEndIfCalluidoc.saveCalluidoc.closeEndSub3.用私有视图来显示需要当前用户处理的文档,用以下视图公式:注意建立视图时不要选中"保存到本地"选项,否则调试不便.SELECTForm="收文1"&NextApprover=@Name([CN];@V3UserName)4.N

4、otes中Active控件当文档中添加OLE或其他通用的ActiveX控件后,在文档的script编辑框右侧中,会自动添加各种属性和方法在notes的类列表中.在script中声明该对象的方法如下:SubPostopen(SourceAsNotesuidocument)DimwasnotesuiworkspaceDimuidocasnotesuidocumentDimaaAsVariantSetw=NewnotesuiworkspaceSetuidoc=w.currentdocumentSetaa=uido

5、c.getObject("Chart")'该句为ole对象声明,注意Chart是你给对象起的名字'接下来你就可以通过aa.**来调用其方法和属性了.EndSub5.以下是script错误陷阱代码SubsubnameOnErrorGotoErrcode'下面添加你的程序代码ExitSubErrcode:Msgbox"错误("&Cstr(Err)&")->"&Error$(Err),16,"错误提示"ExitSubEndSub6.是否保存在表单中设定一个域,名称为saveoption下列公

6、式添加到返回按钮中,决定文件退出是否保存FIELDsaveoptions:="1";保存FIELDsaveoptions:="0";不保存7.用公式弹出对话框,按确定继续,取消返回.@If(@DialogBox("表单名";[AutoHorzFit]:[AutoVertFit];"表单标题");"";@Return(""))8.用script弹出对话框,按确定继续,取消返回DimwasnotesuiworkspaceIfNotw.dialogbox("表单名",True,True

7、,False,True,False,False,"填写")Thendoc.close'用户按取消退出ExitSubEndIf9.视图中删除文档语句@Command([EditClear]);@Command([ViewRefreshFields])10.检测是否是周末Dimdtasnotesdatetimecalldt.setnowIfWeekday(dt.lslocaltime)=7Then'是周六耶,dt.adjustday(2)'加两天到星期一ElseifWeekday(dt.lslocal

8、time)=1Then'周日加一天dt.adjustday(1)EndIf11.得到当前的服务器和路径公式:ResideServer:=@Subset(@DbName;1);CurrentPath:=@Subset(@DbName;-1);DirOnly:=@If(@Contains(CurrentPath;"\\");@LeftBack(CurrentPath;"\\")+"\\";