- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
LOTUS程序精选
LOTUS程序精选1、用程序实现星期的转换:Dim workspace As New NotesUIWorkspaceDim uidoc As NotesUIDocumentDim doc As NotesDocumentDim dateComposedObj As New NotesDateTime(Set uidoc = workspace.CurrentDocumentSet doc = uidoc.DocumentdateComposed = doc.DateComposedthisWeekday = Weekday(dateComposed(0))Select Case thisWeekdayCase 1 : stringWeekday = SundayCase 2 : stringWeekday = MondayCase 3 : stringWeekday = TuesdayCase 4 : stringWeekday = WednesdayCase 5 : stringWeekday = ThursdayCase 6 : stringWeekday = FridayCase 7 : stringWeekday = SaturdayEnd SelectMessagebox (This document was composed on a stringWeekday)2、利用程序增加角色:Dim db As New NotesDatabase (, Inputbox(Name of database)Dim dbACL As NotesACLDim dbACLEntry As NotesACLEntrySet dbACL = db.ACLename = Inputbox(Name of ACL entry?Set dbACLEntry = dbACL.GetEntry(ename)Call dbACL.AddRole(Role Call dbACLEntry.EnableRole(RoledbRoles = dbACLEntry.RolesIf Not(Isempty(dbRoles)) ThenForall dbRole In dbRolesMessagebox Role dbRoleEnd ForallElseMessagebox No roles for this ACL entryEnd IfCall dbACL.save3、用程序删除私有视图:Dim session As New notessessionDim db As notesdatabaseDim doc As notesdocumentSet db=session.currentdatabaseForall i In db.viewsSet doc=db.getDocumentByUNID(v.universalID)viewflag=doc.getItemvalue($flagsIf viewflag(0)=pYV ThenCall i.removeEnd IfEnd Forall4、用程序打开视图:Sub Postopen(Source As Notesuidatabase) Call Source.OpenView(按时间End Sub5、利用程序选择运行指定代理:Dim session As New NotesSessionDim db As NotesDatabaseDim theAgent As NotesAgentDim agentString As StringSet db = session.CurrentDatabaseForall agent In db.Agents agentString = agentString Chr(10) agent.NameEnd Forall Messagebox agentString,, AgentsSet theAgent = db.GetAgent(Inputbox(请输入须运行的代理?)If Not(theAgent Is Nothing) Then Call theAgent.RunElse Messagebox 没有选择代理!End If6、显示数据库的管理者:Dim session As New NotesSessionDim db As NotesDatabaseDim db2 As NotesDatabaseDim dc As NotesDocumentCollectionDi
您可能关注的文档
- GSM网络汽车防盗报警系统设计方案.doc
- GTTA操作规程.doc
- GSM题库to鼎利.doc
- Hadoop环境搭建——集群篇.doc
- H3CWA2200FIT切换成FAT型操作指导.ppt
- GSM网优笔记.ppt
- HeadFirst设计模式摘要.doc
- G五年级数学上期中测试卷15.doc
- Hindi印地语基础学习.doc
- hlookup使用讲解.ppt
- 中国国家标准 GB/T 18233.4-2024信息技术 用户建筑群通用布缆 第4部分:住宅.pdf
- GB/T 18233.4-2024信息技术 用户建筑群通用布缆 第4部分:住宅.pdf
- GB/T 18978.210-2024人-系统交互工效学 第210部分:以人为中心的交互系统设计.pdf
- 《GB/T 18978.210-2024人-系统交互工效学 第210部分:以人为中心的交互系统设计》.pdf
- 中国国家标准 GB/T 18978.210-2024人-系统交互工效学 第210部分:以人为中心的交互系统设计.pdf
- GB/T 16649.2-2024识别卡 集成电路卡 第2部分:带触点的卡 触点的尺寸和位置.pdf
- 《GB/T 16649.2-2024识别卡 集成电路卡 第2部分:带触点的卡 触点的尺寸和位置》.pdf
- 中国国家标准 GB/T 16649.2-2024识别卡 集成电路卡 第2部分:带触点的卡 触点的尺寸和位置.pdf
- GB/T 17889.4-2024梯子 第4部分:铰链梯.pdf
- 《GB/T 17889.4-2024梯子 第4部分:铰链梯》.pdf
文档评论(0)