lotus模糊查询

原创 2007年09月28日 16:16:00

 

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

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

ztree模糊查询

  • 2017-09-12 09:27
  • 834KB
  • 下载

模糊查询,搜索成员列表

  • 2015-08-18 17:31
  • 992KB
  • 下载

solr之~模糊查询

有的时候,我们一开始不可能准确地知道搜索的关键字在 Solr 中查询出的结果是什么,因此,Solr 还提供了几种类型的模糊查询。模糊匹配会在索引中对关键字进行非精确匹配。例如,有的人可能想要搜索某个前...

全库模糊查询

  • 2016-01-18 16:09
  • 794B
  • 下载

模糊查询的例子

  • 2014-03-21 11:09
  • 310KB
  • 下载

MongoVUE模糊查询,更新单个字段

介绍: MongoDB是数据库,MongoVUE是图形化界面,类似mysql和navicate,oracle和plsql 目前我知道的:Mongo的特点,Json格式,C++底层,区分大小...

无刷新模糊查询

iBATIS模糊查询

  • 2014-07-23 22:08
  • 17KB
  • 下载

Oracle中Like与Instr模糊查询性能大比拼

instr(title,'手册')>0  相当于  title like '%手册%'   instr(title,'手册')=1  相当于 ...

js模糊查询

内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)