Lotus Domino Designer 8.5常用代码.docx

用于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打开，直接拷贝即可。