【文件属性】：
文件名称：Lotus Notes常用代码
文件大小：49KB
文件格式：DOC
更新时间：2013-09-21 03:09:38
Lotus Notes
Lotus Notes常用LotusScript代码
示例：
1.检测当前用户是不是文档的创建者,如果不是,不允许编辑文档。
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim doc As notesdocument
Dim userName As New NotesName(session.UserName)
Set doc=source.document
If Not ( source.EditMode ) Then
If ( doc.authors(0) = username.CANONICAL ) Then continue=True
Else Msgbox \"您不是此文档的创建人,不可以修改!\",0,\"文档数据库\"
continue=False
End If End If End Sub