dirl 站 lotus世界

在lotus domino程序开发中,有时会遇到 flash 与表单内容交互的情况。下面举一个例子说明如何解决这一问题。

</form><object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="1000" height="600" id="workflowd" align="center">
<param name="allowScriptAccess" value="always" />
<param name="FlashVars" value="<计算的值>" />
<param name="movie" value="/workflow/workflowd.swf" /><param name="quality" value="high" /><param name="bgcolor" value="#ffffff" /><embed src="/workflow/workflowd.swf" quality="high" bgcolor="#ffffff" width="1000" height="600" name="workflowd" align="center" allowScriptAccess="sameDomain"  FlashVars="<计算的值>" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>

1、表单域值传到flash变量中。上面的代码，其中“计算的值>"”的计算公式为“"workflowname="+workflowxml+"”上面的代码，为名为workflowd的flash 传递了一个变量workflowname，它的值为workflowxml的值。workflowxml为表单上的一个域。

2、flash调用表单上的javascript.函数

flash为的调用代码为

import flash.external.ExternalInterface;
ExternalInterface.call("sayname", "小王");

javascript的函数为：

function sayname(name)

{

window.alert(name)

}

当然还有其他的调用方法，不再列举。

用lotusscript动态刷新登录页表单设计
1、到服务器上查找是否有domcfg.nsf库，如果没有，直接把自己设计的domcfg.nsf库考到服务器上，如果有，执行2
2、从服务器的domcfg.nsf库中查找登录页，如果有，先将“$$LoginUserForm”表单导成dxl，然后将form节点下属的name节点的nodevalue值改成“$$LoginUserForm”+时间，然后再把dxl文件导到domcfg.nsf库中（该操作是保存原有的登录页表单）。
3、将自己设计的库中的“$$LoginUserForm”表单导成dxl，然后再导入到服务器的domcfg.nsf库中。

另：
    如果想直接修改某个表单的设计也是同样的道理。因为domino的数据库设计、表单、视图等等都是标准的xml文件，所以如果要修改表单设计，可以先把表单导成dxl文件（xml格式），然后，直接对dxl中具体的node作修改，然后重新导入dxl文件即可实现对表单设计的动态修改。

Option Public
Option Compare Nocase

Sub Initialize
 On Error Goto errhandle
 Dim session As notessession
 Dim db1 As notesdatabase
 Dim db2 As notesdatabase
 Dim nc As notesnotecollection
 Dim nc2 As notesnotecollection
 Dim stream As notesstream
 Dim exporter As NotesDXLExporter
 Dim importer As notesdxlimporter
 Dim importer0 As notesdxlimporter
 Dim form As NotesForm
 Dim nid As String
 
 Dim file1 As String
 Dim file2 As String
 Dim file3 As String
 Dim outputFile As String
 
 Dim timeStr As String
 
 Dim inputStream As NotesStream, outputStream As NotesStream
 Dim domParser As NotesDOMParser
 Dim docNode As NotesDOMDocumentNode
 Dim docRootNode As NotesDOMNode
 
 file1 = ""
 file2 = ""
 file3 = ""
 flag = False
 timeStr = Replace(Replace(Replace(Cstr(Now),"-",""),":","")," ","")
 
 Set session = New notessession
 Set db1 = session.currentdatabase
 '先判断当前服务器是否有登录库
 Set db2 = New NotesDatabase(db1.Server, "domcfg.nsf")
 '如果没有登录库
 If Not db2.IsOpen Then
  Set db2 = db1.CreateFromTemplate(db1.Server,"domcfg.nsf", True)
 Else
  Set form = db2.GetForm("$$LoginUserForm")
  '如果存在登录页，首先备份登录页''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  If Not form Is Nothing Then
   Set nc = db2.createnotecollection(False)
   Call nc.buildcollection
   Set nc2 = db2.createnotecollection(False)
   nc2.SelectForms = True
   Call nc2.BuildCollection
   nid = nc2.GetFirstNoteId 
   '查找登录页表单
   Forall f In db2.Forms
    If Not f.IsSubForm Then
     If f.name = "$$LoginUserForm" Then
      nc.Add(nid)
      Exit Forall
     End If
     nid = nc2.GetNextNoteId(nid)
    End If
   End Forall
   '将表单导成dxl文件，并存在临时文件夹中
   Set stream = session.CreateStream
   file2 = "c:templogin_back_" & timeStr & "1.dxl"
   Call stream.Open(file2)
   Set exporter=session.createDXLexporter(nc, stream)
   Call exporter.process
   Call stream.close
   '删除原有登录页
   Call form.Remove
   '读取刚才的dxl文件（xml格式的文件），修改登录页名称
   file3 = "c:templogin_back_" & timeStr & "2.dxl"
   Set session = New NotesSession
   Set outputStream =session.CreateStream
   outputStream.Open(file3)
   Set inputStream = session.CreateStream
   inputStream.Open (file2)
   If inputStream.Bytes > 0 Then
    Set domParser=session.CreateDOMParser(inputStream)
    Call domParser.Process
    Set docNode = domParser.Document
    Set docRootNode = docNode.DocumentElement
    If Not docRootNode.IsNull Then
     '修改文件中form节点的下属节点name的nodevalue的值
     Call ChangeNode(docRootNode,timeStr)
     Call domParser.setoutput(outputStream)
     Call domParser.Serialize
    End If
   End If
   '导入备份登录页
   Set importer0=session.createdxlimporter(outputStream, db2)
   importer0.designimportoption = 2
   Call importer0.process
   Set importer0 = Nothing
   Call outputStream.Truncate
   Call inputStream.Truncate
   Call outputStream.Close
   Call inputStream.Close
  End If
  
  '导入登录页'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Set nc = db1.createnotecollection(False)
  Call nc.buildcollection
  Set nc2 = db1.createnotecollection(False)
  nc2.SelectForms = True
  Call nc2.BuildCollection
  nid = nc2.GetFirstNoteId
  '取得当前库的登录页表单
  Forall f In db1.Forms
   If Not f.IsSubForm Then
    If f.name = "$$LoginUserForm" Then
     nc.Add(nid)
     Exit Forall
    End If
    nid = nc2.GetNextNoteId(nid)
   End If
  End Forall
  '导成dxl文件，并存在临时文件夹中
  Set stream = session.CreateStream
  file1 = "c:templogin_" & timeStr & ".dxl"
  Call stream.Open(file1)
  '把dxl导入到domcfg库中
  Set exporter=session.createDXLexporter(nc, stream)
  Set importer=session.createdxlimporter(stream, db2)
  importer.designimportoption = 2
  Call exporter.process
  Call importer.process
  Call stream.Truncate
  Call stream.close
 End If
 
 Exit Sub
errhandle:
 Msgbox Cstr(Erl) & "  " & Error
End Sub

'修改form节点的name属性值
Sub ChangeNode(childNode2 As NotesDOMNode, str1 As String )
 On Error Goto errhandle
 Dim docNameMap As NotesDOMNamedNodeMap
 Dim childNode3 As NotesDOMNode
 Dim tempNode As NotesDOMNode
 Dim i As Integer
 
 While Not childNode2.IsNull
  If childNode2.NodeType <> 3 Then
   If childNode2.HasChildNodes Then
    Set childNode3 = childNode2.FirstChild
    While Not childNode3.IsNull
     Call ChangeNode(childNode3,str1)
     If Not childNode3.IsNull Then
      Set childNode3 = childNode3.NextSibling
     End If
    Wend
   End If
  End If
  Set docNameMap = childNode2.Attributes
  For i =1 To docNameMap.NumberOfEntries
   Set tempNode = docNameMap.GetItem(i)
   If tempNode.NodeValue = "$$LoginUserForm" Then
    tempNode.NodeValue="$$LoginUserForm_" & str1
    Exit Sub
   End If
  Next
  Set childNode2 = childNode2.NextSibling
 Wend
 Exit Sub
errhandle:
 Msgbox "ChangeNode:" & Cstr(Erl) & "," & Error$
End Sub

看到好多人要求找怎样导入Excel, 做了一个导入Excel到Notes的通用ScriptLibrary, 很方便哦,

Excel文件的要求:Excel的第一行一定要和Notes Form中FieldName一样.

用法实例：

Call ImportExcel("")        ' 会给出当前数据的所有Form给用户选择一个

或者

Call ImportExcel(Formname)

创建一个Script Library:

Function ImportExcel(FormName As String)
 Dim session As New NotesSession
 Dim uiws As New NotesUIWorkspace
 Dim form As NotesForm
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Dim item As NotesItem
 Dim row As Integer
 Dim xlFilename As String
 Dim xlsApp As Variant
 Dim xlsWorkBook As Variant
 Dim xlsSheet As Variant
 Dim rows As Long
 Dim cols As Integer
 Dim x As Integer
 Dim itemName As String
 Dim flag As Integer
 Dim formAlias As String
 Dim sortEval As String
 Dim sortedList As Variant
 Dim indexLo As Long
 Dim indexHi As Long
 Dim t As Integer
 Dim askme As Integer
 
 
 On Error Goto ErrorHandler
' ====== 1. Set form name, not select from form list ======
 
 Set db = session.CurrentDatabase
 
 fn= uiws.Prompt(1, "Reminder- Excel Worksheet Setup", "Make sure that the first row of your worksheet contains the EXACT Notes document field names from your form.")
 
'Get Excel file name
 fn =uiws.OpenFileDialog(False, "Select the Excel File to Import", "Excel files | *.xls", "c:My Documents")
 xlFilename = Cstr(fn(0)) ' This is the name of the Excel file that will be imported
 
 If formname="" Then
  'Get list of form names
  x=0
  
  Print "Preparing List of Database Forms ..."
  
  Forall f In db.Forms
   Redim Preserve formlist(x)
   formlist(x)=f.name
   x=x+1
   Print "Preparing List of Database Forms ..."& Cstr(x)
  End Forall
  
'Sort the form names for the dialog box
  indexLo= Lbound(formlist)
  indexHi= Ubound(formlist)
  Call QuickSort(formlist , indexLo, indexHi)
  
'Choose the form to use for import
  formname = uiws.Prompt(4, "Choose Import Form", "Please select which form is to be used for this input.", formlist(0), formlist)
  If formname= "" Then End
 End If
 
'Get the form object so that we can check field names
 Set form= db.GetForm(formname)
 
'If the form has an alias, use it to select the form
 If Not Isempty(form.Aliases) Then
  Forall a In form.Aliases
   formname=a
  End Forall 'a In form.Aliases
 End If 'Not Isempty(form.Aliases)
 
'Next we connect to Excel and open the file. Then start pulling over the records.
 Print "Connecting to Excel..."
 
' Create the excel object
 Set xlsApp = CreateObject("Excel.Application")
 
'Open the file
 Print "Opening the file : " & xlfilename
 xlsApp.Workbooks.Open xlfilename
 Set xlsWorkBook = xlsApp.ActiveWorkbook
 Set xlsSheet = xlsWorkBook.ActiveSheet
 xlsApp.Visible = False ' Do not show Excel to user
 xlsSheet.Cells.SpecialCells(11).Activate
 rows = xlsApp.ActiveWindow.ActiveCell.Row ' Number of rows to process
 cols = xlsApp.ActiveWindow.ActiveCell.Column ' Number of columns to process
 
'Make sure we start at row 0
 row = 0
 Print "Starting import from Excel file..."
 
 Do While True
  row = row + 1
  
'Check to make sure we did not run out of rows
  If row= rows+1 Then Goto Done
  
'field definitions for notes come from first row (row, column)
  If row=1 Then
   Redim misFD(0)
   t=0
   For i=1 To cols
    Redim Preserve fd(i)
'the replace function used here removes spaces from the field definitions in the first row
    fd(i)= Replace(xlsSheet.Cells( row, i ).Value, " ", "")
    
    flag=0
    
    Forall f In form.Fields
     If Lcase(fd(i)) = Lcase(f) Then flag=1
    End Forall 'f In form.Fields
    
    If flag=1 Then
     Goto Skip
    End If ' flag=1
    
    If Not flag=1 Then
     misFD(t)=fd(i)
     t=t+1
     Redim Preserve misFD(t)
    End If 'flag=1
    
Skip:
   Next 'For i=1 To cols
   
   If t>0 Then Redim Preserve misFD(t-1)
   If misFD(0)<>"" Then
    msg="Below Field(s) does not appear in the form you have chosen, Are you sure continue?"+Chr(10)+Chr(10)
    For i=0 To Ubound(misFD)
     msg=msg+misFD(i)+Chr(10)
    Next
    askme=uiws.Prompt(2,"Please Notice",msg)
    If askme<>1 Then
     Goto ErrorHandler
    End If
   End If
   
  End If 'row=1
  
  
  
'Import each row into a new document
  If Not row = 1 Then
   
'Create a new doc
   Set doc = db.CreateDocument
   doc.Form = FormName
   doc.HidDeleted=0
   For i= 1 To cols
    Set item = doc.ReplaceItemValue( fd(i), xlsSheet.Cells( row, i ).Value )
   Next ' i= 1 To cols
   
'Save the new doc
   Call doc.Save( True, True )
   
  End If 'Not row = 1 Then
  
  Print "Processing document number "& Cstr(row) & " of " & Cstr(rows)
  
  Loop 'Do while true
  
Done:
  
  Print "Disconnecting from Excel..."
'Close the Excel file without saving (we made no changes)
  xlsWorkbook.Close False
'Close Excel
  xlsApp.Quit
'Free the memory that we'd used
  Set xlsApp = Nothing
  
'Clear the status line
  Print " "
  
  
ErrorHandler:
  If Err = 184 Then
   Msgbox "No file chosen. Exiting Import."
   Print "No file chosen. Exiting Import."
   Resume ErrorOut
  End If ' err=184
  
  If Err = 6 Then
   Messagebox "Make sure that you do not have more than 65,536 rows of data to import." ,MB_OK+MB_ICONINFORMATION,"Error! "
   Print "Too many rows in Excel document. Exiting Import. Disconnecting from Excel..."
'Close the Excel file without saving (we made no changes)
   xlsWorkbook.Close False
'Close Excel
   xlsApp.Quit
'Free the memory that we'd used
   Set xlsApp = Nothing
   Resume ErrorOut
  End If ' err=184
  
  If (Err) And (Not Err = 184) And (Not Err = 6) Then
   
   Msgbox "Lotus Notes Error # " & Err &". Please contact your Notes administrator for help. Exiting Import."
   Print "Error # "& Err
   
   If Not xlsWorkbook Is Nothing Then
    xlsWorkbook.Close False
   End If ' Not xlsWorkbook Is Nothing
   
   If Not xlsApp Is Nothing Then
    xlsApp.Quit False
   End If 'Not xlsApp Is Nothing
   
   Resume ErrorOut
   
  End If '(Err) And (Not Err = 184) And (Not Err = 6)
  
ErrorOut:
End Function

Function QuickSort( anArray As Variant, indexLo As Long, indexHi As Long) As Variant
 
 Dim lo As Long
 Dim hi As Long
 Dim midValue As String
 Dim tmpValue As String
 
 lo = indexLo
 hi = indexHi
 If ( indexHi > indexLo) Then
'get the middle element
  midValue = anArray( (indexLo + indexHi) /2)
  While ( lo <= hi )
'find first element greater than middle
   While (lo < indexHi) And (anArray(lo) < midValue )
    lo = lo+1
   Wend
'find first element smaller than middle
   While ( hi > indexLo ) And ( anArray(hi) > midValue )
    hi = hi - 1
   Wend
'if the indexes have not crossed, swap
   If ( lo <= hi ) Then
    tmpValue = anArray(lo)
    anArray(lo) = anArray(hi)
    anArray(hi) = tmpValue
    lo = lo+1
    hi = hi -1
   End If
  Wend
' If the right index has not reached the left side of array, sort it again
  If( indexLo < hi ) Then
   Call QuickSort( anArray, indexLo, hi )
  End If
'If the left index has not reached the right side of array, sort it again
  If( lo < indexHi ) Then
   Call QuickSort( anArray, lo, indexHi )
  End If
 End If
 
 QuickSort = anArray
 
End Function

OpenOffice.org周一（9/10）宣布IBM正式加入OpenOffice.org开放源码社群。IBM将捐赠Lotus Notes的部份程序代码给OpenOffice.org社群。事实上，IBM最近的Lotus 8就曾采用OpenOffice中的开放源码，只是IBM直到现在才捐赠程序代码，正式成为OpenOffice.org的一员。IBM之所以这么晚参与该社群主要的原因在于OpenOffice.org与IBM竞争对手升阳（SUN）的密切关系，不过双方最近因共同支持ODF开放文件格式而携手，共同抵抗微软的OOXML。OpenOffice.org说明了IBM过去一直以非正式的方式支持着OpenOffice.org，现在则是看到了市场对于ODF的强烈需求。IBM Lotus部门总经理Mike Rhodin表示，他们特别高兴可以与该社群合作共同加速办公室生产力市场的革新，双方的关系除了能改善IBM提供创新价值的产品及服务给客户的能力外，也将让支持ODF的应用程序及解决方案愈来愈普及。

支持ODF标准的著名专利律师Andrew Updegrove也在部落格评论此事，指出此讯息的重要性在于采用ODF的软件具备符合一般使用者及企业用户需求的能力，ODF近来有许多引人注目的成长，包括美国麻州的采用、成为ISO标准，以及微软的OOXML在ISO第一轮的投票失利等。此外，Google也在近日宣布要在Google Pack中提供支持ODF的StarOffice。

此外，他也认为使用者需要有其它可与微软Office竞争的产品，而ODF产品则是由许多私有程序及开放程序代码聚集而成，没有一个单一产品可以提供如此多的功能，而且还拥有全球支持的服务网络。

自从SUN自2000年建立OpenOffice.org项目后，该产品的下载数已接近1亿次，这是一个采用ODF文件格式及开放源码的免费办公室软件计划，包括企业及开发人员都可加入该社群并捐赠程序，目前主要的捐赠者仍为SUN。

主要技术要点:
---- 以上应用设计主要运用了以下技术要点来保证显示结果的准确性和数据的共享性.
---- (1) 要查询的数据库文档表单上创建的可编辑多值的隐含域"SelectedUserName" . 域是构成表单的重要元素,对一个NOTES数据库来说,外部数据的录入要通过域, 库内存放数据显示也要依靠域。我们这里创建域"SelectedUserName"的作用是：存放查询该文档的用户名作为选择标志。
选择标志的确定：
---- 使用用户名作为选择标志主要因为在Notes中用户名是唯一的,不同的用户有不同的用户名,不会存在两个相同的用户名。这样，该域记住了有哪几个不同用户查询选择了此文档。为用视图显示文档做准备.
域的主要属性是：
---- 可编辑:数据可以通过按钮执行Formulas或Script来产生。
---- 隐含的：只作存储,没有显示作用。显示文档时不显示该域的数据准许多值，准许用户存入多个值，保证该域记录下选择该文档所有的用户名。因为在共享数据状态下，同一个文档同时可被多个用户查询选择，你必须记住所有选择该文档的用户名。这一点对于多用户下显示数据十分重要。
---- (2) 视图及视图选择公式:
---- 我们设计了一个共享视图vwSelect，视图公式为：
---- SELECT @Contains(SelectedUserName;@UserName)
---- 视图功能：显示所有域SelectedUserName中含有当前的用户名的文档。
---- @UserName：返回当前的用户名。
---- @Contains(SelectedUserName;@UserName)：
---- 用于判断是否文档域SelectedUserName中含有当前的用户名； 因为在查询时，那些满足条件文档的域"SelectedUserName"中已被加入了用户名作为选择标志，所以该视图选择显示那些域SELECTEDUSERNAME中包含用户名的文档。
---- 在视图的设计时，使用"打开后废弃索引"选项。
小结
---- 综上所述,LousNotes为查询应用程序开发提供了灵活快速的环境，本文所述的几种方式都能实现对数据文档的查询检索，但是，它们的实现方法和满足的目的要求不尽相同。尽管还有不足之处需要完善, 但是仍然说明了一些能结合到你的应用程序中去的Notes技术，同时，我们必须清醒地认识到它与传统关系型数据库应用程序开发系统有很大的差别，查询设计有其独特的方式，一个应用程序能很快地被设计出来并且达到可用状态。试图将传统的应用程序开发技术映射到Notes环境中的开发人员，将很难获得Notes应用程序的优点。