Lotus Domino Designer 8.5常用代码

用于Lotus Domino Designer 8.5 网络开发

常用代码吐血整理

先创建热点按钮，再粘这些公式，凡是有command的全是公式，一般在客户机上运行。

1.确定

即保存所输入的内容

@Command([FileSave])（保存文档）

2.取消

只要创建，热点按钮，下面的简单操作，然后修改域中的值，再取消

3.热点按钮跳转到

1.帧结构

@Command([OpenFrameset];"标题2")

2.视图

@Command([OpenView];"小时代评价")

3.页面

@Command([OpenPage];"进入论坛")

4.视图中获取当前日期

@created

5.向用户发出警告

@Prompt([Ok];"恭喜：";"提交成功！快去看看其他网友的贴吧！");

前面的分号，是上面的，后面的下面的

6.保存文档

@Command([FileSave]);

7.关闭当前窗口

@Command([CloseWindow]);

8.新用户注册

@If(昵称="";@Do(@Prompt([Ok];"错误";"昵称不能为空");@Return(""));@Success);

@If(密码="";@Do(@Prompt([Ok];"错误";"密码不能为空");@Return(""));@Success);

@If(确认密码="";@Do(@Prompt([Ok];"错误";"确认密码不能为空");@Return(""));@Success);

@If(邮箱="";@Do(@Prompt([Ok];"错误：";"邮箱不能为空");@Return(""));@Success);

@If(@Contains(@GetDocField(@Text( @DocumentUniqueID) ;邮箱 );"@");@Success;@Failure("请输入正确的邮件地址")); @If(确认密码=密码;@Do(@Prompt([Ok];"恭喜：";"所有信息输入成功");@Command([FileSave]));

@Do(@Prompt([Ok];"错误：";"密码不一致");@Return(""))); @Command([FileSave]);

@Command([Compose];"登录")

9.登录

这一段是客户机上的lotusscript,不是公式了

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace

Dim uidb As NotesUIDatabase

Set uidb = workspace.CurrentDatabase

Dim session As New NotesSession

Dim db As NotesDatabase

Dim view As NotesView

Dim note As NotesDocument

Dim subj As Variant

Dim keys(0 To 1) As String

Set db=session.CurrentDatabase

Set view = db.GetView("用户列表")

Dim user As String

Dim pass As String

user = Inputbox("请输入用户名")

pass = Inputbox("输入密码")

Set doc= view.GetFirstDocument

Set doc2= view.GetFirstDocument

If doc.HasItem("昵称") Then

While Not(doc Is Nothing)

Set item = doc.GetFirstItem("昵称")

Set item2 = doc2.GetFirstItem("密码")

msg=item.Text & "您好！登录成功，光影客有您发出的星光啦O(∩_∩)O~ "

If (item.Text() = user)And(item2.Text() = pass) Then

Messagebox msg

Call workspace.OpenPage("进入论坛")

End

End If

Set doc = view.GetNextDocument(doc)

Set doc2 = view.GetNextDocument(doc2)

Wend

End If

End Sub

注意登录前要把视图上的空格删去

其它的就是代码的组合了，把他们组合起来，能做提交，检查是不是空的，保存文档，若有别人的作品，用Designer打开，直接拷贝即可。