关闭

lotus模糊查询

1142人阅读 评论(0) 收藏 举报

 

我这个是有 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 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:159475次
    • 积分:2066
    • 等级:
    • 排名:第18568名
    • 原创:31篇
    • 转载:55篇
    • 译文:0篇
    • 评论:26条
    文章分类
    最新评论