shulia-CSDN博客

原创【原创】LS程序 - 对于Lotus Notes数据库中文档的访问控制

程序原义是想用在控制对文档的读写控制上。但是扩展后可以用在多个地方，比如对于button和其他元素的一些控制针对复杂的文档读写控制，比如角色的基础上，还需要对不同状态情况下文档读写控制，这个function将大大减少程序的复杂程度。如下Function toaccess (obj1 As Variant, chars As Variant , obj2 As String, equal As St

2008-05-20 10:46:00 509

原创【原创LS程序 - 数组与字符串的相互转换

作用：针对字符串和数组，通过制定的区分字符来转化。根据需要可将字符串以制定符号区分转为数组，获将数组按照制定符号组合成字符串。程序如下Function array_str (para As Variant, separ As String, empty As String) As Variant===================================================

2008-05-20 10:38:00 563

原创【原创】LS程序 - 关键字转换

作用针对一些逻辑性需要替换的字符，通过关键字的整理，引用中在需要的地方调用function来自动转换程序。比如：LotusNotes用户前端如果本地打开数据库，那么针对用户的提示应该为"Local"或者"本地"。数据库实际打开的时候LS部分server信息为""程序部分如下：Function Data_convert (sour As String) As String=============

2008-05-20 10:35:00 555

原创【原创】LS程序 - 判定文档在当前视图下是否唯一

作用相信这种需求还是比较普遍的，根据文档中关键字段信息判断文档是否唯一，保证数据的准确性和不重复，这是大多数数据库所需要的。一下功能将程序编入function中，实际使用可以直接调用，配合参数应用注： keyword2应该制定为UniqueID所对应的域或者直接用LS获取。如下Function unique_doc (viewname As String, keyword1 As String,

2008-05-20 10:50:00 444

原创【原创】LS程序 - 字符串的前后增加或减少

作用针对字符串，前后位置判断增加或者减少制定的字符串，作用类似于字符串的直接组合。但是程序中增加了一段判断，用于判断前后位置是否已经增减了需要添加的字符串，以防治重复累加(如果需要这样判断的话，对于需要累加的功能，请直接使用字符串的组合)程序如下Function specialchar(source As String, symbol As String, action As String, po

2008-05-20 10:42:00 525

原创 LotusScript 一段对字符串前后做修改的程序

出于一个数据库的需要，写了一段程序用来处理不同条件下字符串的组合和修改，使用中觉得还算灵活，当然由此想到一些新的需求可以丰富这个程序功能。如下，有兴趣的可以提建议。灵感来自于正则表达式Function specialchar(source As String, symbol As String, action As String, position As String) As String===

2008-05-13 13:11:00 741

原创一段换汤不换药的代码－Excel和数据库中数据匹配并根据条件刷新数据相关数据的代码

Sub Click(Source As Button) On Error Goto sl--------------------------------------------------------------- Created by Jacky Shu on 2008-04-23-- For upload GRD Codes through the MFG Codes matchi

2008-04-29 11:45:00 589

原创一段通过OLE将Notes View中的内容导入Excel的示范代码

Sub Click(Source As Button) ************************************************************ *这段代码用以导出当前视图下所有的内容,只限当前视图下的 * *本代码摘自************************ * * * * *

2007-07-29 18:08:00 762

原创共享一段Excel导入Notes的代码

Sub Click(Source As Button)--------------------------------------------------------------- PeiQingbin Excle导入--2------------------------------------------------------------- Dim ws As New NotesUIWo

2007-07-29 18:03:00 728

原创如何在R5c/s下设计数据库：读取Excel中的记录并批量产生表单

视图内的文档数据写入word表格的代码，首先有word文件的模板，模板中有一个设置好的表格，然后在表格中写入对应的数据。 Dim wdapp,mytable As Variant Dim work As New Notesuiworkspace Dim doc As notesdocument Dim session A

2007-04-06 12:38:00 906

shulia的专栏