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 

lotus中常用的公式

一,Field用法 语法: FIELD fieldName:=value 1.必须使用Field来修改域的值,否则变量将被当成临时变量来处理。 2.将一个值指定给当前文档中的一个域。如果域不存在,则创...
  • Guo_QJ
  • Guo_QJ
  • 2017年09月30日 18:22
  • 108

Lotus Domino开发心得(一)

—- Lotus Domino 是当今办公自动化系统的主流开发平台之一,目前大部分企业和机构都在使用Lotus Domino 开发自己的无纸办公系统。在开发过程中,我积累了一些小技巧,现在公布出来,希...
  • withwangzhen
  • withwangzhen
  • 2010年10月11日 09:20
  • 4057

操作Lotus Notes数据库

今天,异构数据环境已经是一个普遍存在的问题,Windows常用开放数据库互连标准ODBC进行数据交换与操作,后来微软又推出了ADO技术,例如用VB操作Oracle、Sybase和SQL Server等...
  • Mobidogs
  • Mobidogs
  • 2007年03月14日 12:32
  • 3049

lotus 服务器常用命令大全

Broadcast message           向该服务器的用户广播消息Broadcast message usernames 向该服务器的某一用户广播消息Dbcache Flush     ...
  • tanxinlian
  • tanxinlian
  • 2006年04月30日 12:51
  • 1585

Lotus Notes常用Formula总结(1)

Lotus 公式 (一) l        访问用户环境 用户环境是包含数据库的服务器或工作站,数据库包括以下内容: 复制公式、由新邮件到达时或定时触发的代理、选择公式或列公式。否...
  • wodemingzisiweiwei
  • wodemingzisiweiwei
  • 2013年07月30日 11:22
  • 1640

Lotus Notes 7.0找不到服务器路径

已经提示你了:unable to find path to server或者不能找到服务器路径。看看能否ping通服务器。到服务器的解析是否正确。点击左上角的文件选项卡打开数据库,然后在服务器里面直接...
  • zlhn55
  • zlhn55
  • 2017年02月08日 09:22
  • 1099

关于exploit-db上的针对Lotus domino控制台绕过的漏洞的解释

控制台绕过的条件: 1. 安装domino程序 2. 停止当前运行的服务 nserver.exe -c exit 3. 开启domino 控制台(默认启动是没有的)启动方式是 c:\lotu...
  • cnbird2008
  • cnbird2008
  • 2011年12月04日 19:10
  • 2823

lotus中format用法大全

Format用法详解 Format$(Now,"EEOA") 只要这么一句~~~~~就可以得到“ 二○○六年五月二十六日” 亏我还得写得那么多。。。 所以对FORMAT函数进行研究,参照HEL...
  • liuchang__
  • liuchang__
  • 2017年01月19日 11:16
  • 415

邮件服务器配置(notes篇):lotus notes 9.0.1安装及配置

1.安装 环境:windows server  2008 64 1)lotus notes  9.0.1下载: https://www-01.ibm.com/marketing/iwm/iwm/we...
  • zs15yy
  • zs15yy
  • 2017年07月11日 14:47
  • 1083

Lotus Domino/Notes 中的安全技术

1 引言   Lotus Domino/Notes 是世界主流的企业级通讯、协同计算和Internet/Intranet平台,在办公自动化系统研究和建设以及企业信息系统集成方面处于领先地位。它之所以在...
  • wangdeq
  • wangdeq
  • 2006年06月07日 11:32
  • 1181
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:lotus模糊查询
举报原因:
原因补充:

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