Call result.Execute
Call Result.FirstRow
Do
flagV= result.getvalue(21)
DeptV= result.getvalue(5)
If result.getvalue("Kqjg")<>"Rest" And result.getvalue(5)= DepartNo Then
Set newdoc=New NotesDocument(db)
newdoc.form="WorkRecorder"
Call newdoc.ComputeWithForm( False, False )
newdoc.Day=result.getvalue(2)
newdoc.DeptNum= DeptV
newdoc.JobName=result.getvalue(6)
newdoc.Read1= result.getvalue(8)
… …
lable1:
Set view1=db.getview("BMAP")
BM=newdoc.DeptNum(0)
Set doc1=view1.getdocumentbykey(BM)
If Not(doc1 Is Nothing) Then
Set item=newdoc.GetFirstItem("reader")
newdoc.department=doc1.department(0)
deptstr=Cstr(newdoc.department(0))
Call item.AppendToTextList(deptstr)
Call item.CopyItemToDocument(newdoc, "reader")
Else
Goto lable2
End If
… …
Call newdoc.save(True,True)
End If
Call result.NextRow()
Loop Until result.IsEndOfData
End If
Call workspace.ViewRefresh
End Sub
3. Microsoft Word的接口
Microsoft Word是常用的字处理工具，而且它具有批注、修改留痕等非常有用的功能，所以在发文、签报两个系统中我们解决了和Microsoft Word接口问题，使系统的实用性有了进一步提高。
首先在发文、签报中创建Word的OLE对象，然后进行处理。
1） 由Entering事件激发创建一个OLE的Word文档：
Set WordDoc=uidoc.GetObject("wdTextDoc")
Call uidoc.GotoField( "Text" )
Set WordDoc=uidoc.CreateObject("wdTextDoc", "Word.Document")
2）在创建Word文档时，要隐藏Word界面中的工具栏和标尺、设置标志和复制用户已建立的模板文件。
'隐藏Word界面中的工具栏和标尺
Set wdCommandBars=WordDoc.CommandBars
For i%=1 To 10
wdCommandBars(i%).Visible=False
Next
WordDoc.ActiveWindow.DisplayRulers=False
WordDoc.ActiveWindow.DisplayVerticalScrollBar =True
WordDoc.ActiveWindow.DisplayHorizontalScrollBar =True
'设置标志
Set doc=uidoc.Document
Call doc.ReplaceItemValue("IsWordText",1)
Call uidoc.Refreshhideformulas()
'复制模板文件
Dim sWordDotFile As String
sWordDotFile=uidoc.Document.DotFile(0)
If sWordDotFile<>"" Then
Call CopyWordDot(sWordDotFile,WordDoc )
End If
2） 增加批注、修订功能
’批注
Call WordDoc.Comments.Add (WordDoc.Application.Selection.Range)
’修订功能
Set WordDoc=uidoc.GetObject("wdTextDoc")
With WordDoc
.TrackRevisions = True
.PrintRevisions = False
.ShowRevisions = True
End With
4. 电子刊物的完美显示
电子刊物是办公系统中常见的模块，如何使用户查阅方便、显示美观是实现该模块的要点。简单的办法是一个页面（窗口）完整显示目录，然后点击某篇文章，在新的页面（窗口）显示。但这种界面不直观、不够友好。在《皖能视窗》系统中，我们采用两帧结构先分别显示杂志封面和期号；当用户点击某期号时，再用两帧结构分别显示目录和文章内容。后者的处理是有一定的难度。
先建立一个页面，这个页面包含显示期号目录的视图。必须通过目标框架的设定，才能将它引导到显示目录和文章内容的帧结构集。从一个视图跳到另外一个视图的关键，是建立一个过渡的表单，这个表单通过所嵌入视图设置“显示单个分类”属性，以起着链接的作用。通过下面结构图来描述更为清楚些：
四、结束语
该系统除了上述特点之外，系统具有标准、规范和完整的文书、科技和项目档案功能，信捷职称论文写作发表网，具有良好的界面，将Notes客户端的功能和浏览器Web功能有机结合成一个整体， 同时提供适时的帮助功能。
