lotus模糊查询

最新推荐文章于 2019-10-11 16:09:03 发布

ukeychen

最新推荐文章于 2019-10-11 16:09:03 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： Lotus Notes 文章标签： lotus integer string 数据库

本文链接：https://blog.youkuaiyun.com/ukeychen/article/details/1805216

Lotus Notes 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个使用Lotus Notes代理编写的模糊查询函数。通过弹出对话框获取用户输入，利用视图FileReceive_Form中的browserQueryOS字段进行模糊匹配，并在Notes数据库中查找相关信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我这个是有 louts 代理写的一个模糊查询的函数
这是我今天花了半天的时间才搞顶的。感觉网上信息少了点，就贴出来了，呵呵……

1。首先弹出对话框，用户在该对话框中输入要查询的用户名字
2。获得输入信息，然后在数据库中进行模糊查询
3。关键是查询语句(文中黑体字所示)，他语句大家可以不管
4。其代码如下

Sub Initialize

'定义变量
Dim workspace As New NotesUIWorkspace
Dim response As Variant '获取用户输入数据
Dim dialogBox As String 'messagebox的标题
Dim userName As String '示例的用户名
Dim seach_userName As String '具体进行搜索的用户名
'指定数据库
Dim db As New NotesDatabase("devserver1/Demo/HZSZF/CN","esoa/document/fileinner.nsf")
Dim collection As NotesDocumentCollection
Dim count_read As Integer
Dim count_noread As Integer
'初始化变量
count_read=0
count_noread=0
userName = "曹胜男"
dialogBox = "查询结果"

'跳出一个prompt，让用户输入名字，按确定后进行查询
response = workspace.Prompt (PROMPT_OKCANCELEDIT,"输入名称", "例如："+userName, username)
'根据输入情况，进行处理
If Isempty (response) Then'用户点击，取消按钮
  Messagebox "你没有进行查询！", , dialogBox
Elseif response="请输入你要统计的人员名称" Or response="" Then'用户点击，取消按钮
  Messagebox "请输入人员名称！", , dialogBox
Else
  username=response

  '设置查询语句，查询的是已读信息
  '其中视图为：FileReceive_Form；查询条件为：该视图中的browserQueryOS中含有 username
  searchFormula = |Form = "FileReceive_Form" & @contains(browserQueryOS;"|+username+|")|
  Set collection = db.Search(searchFormula,Nothing,0)
  count_read=collection.Count

  searchFormula = |Form = "FileReceive_Form" & @contains(browserPostOS;"|+username+|")|
  Set collection = db.Search(searchFormula,Nothing,0)
  count_noread=collection.Count

  '输出结果
  Messagebox userName &" 已读：" & count_read & "件未读：" & count_noread & "件", , dialogBox


End If

End Sub