皖能集团inter-intra应用系统

《皖能集团inter-intra应用系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、皖能集团Inter/Intra应用系统摘要：通过皖能集团的InterIntra系统的实际案例，介绍了在基于LotusNotes/Domino系统中最为关键的几项技术：全流程定义技术、关系数据库的接口、Microsoftan_1=Stepdoc.StepMan_1(0)doc.StepReturn_1=Stepdoc.StepReturn_1(0)doc.StepDay_1=Stepdoc.StepDay_1(0)……EndIfEndSub2)标准流程的修改,将分解为插入步骤、删除步骤。如果理解了插入步骤，就容易实现删除步骤。插入步骤的函数是：SubClick(Sourc

2、eAsButton)……Setuidoc=entSetdoc=uidoc.DocumentLastNo=uidoc.document.StepNum(0)+1doc.StepNum=LastNodoc.StepNumC=Cstr(LastNo)Calluidoc.Refreshhideformulas()IfnFieldNo=0ThenExitSubFor%i=LastNoTonFieldNo+1Step-1CallReplaceItemsValue(doc,%i,%i-1)NextCalluidoc.FieldClear("StepName_"+Cstr(nField

3、No))Calluidoc.FieldClear("StepMan_"+Cstr(nFieldNo))Calluidoc.FieldClear("StepDay_"+Cstr(nFieldNo))nFieldNo=nFieldNo+1EndSub3)流程的控制是最复杂的，通过一系列函数实现，在这里介绍其主函数，让读者可以了解其实现的思路。SubClick(SourceAsButton)……Setuidoc=entSetdoc=uidoc.Document'取流程信息CallInitializeStepInfo(doc)IfgbIsFinished=FalseThen'如

4、果当前不是最后一步IfgstrNextMan=""ThenMsgboxErr_No_Transactor,,"无办理人"ExitSubEndIfIfgstrIsSponsor="否"AndgstrIsCurrentReturn="是"ThenIfMessagebox("文件返回给"+gstrNextMan+"?",1,"完成")=2ThenExitSubElseIfMessagebox(gstrNextMan+"进行"+gstrNextStep+"?",1,"完成")=2ThenExitSubEndIfCallDeleteMailDoc(gstrCurrentMan,d

5、oc.MailID(0))'删除通知邮件CallAdjustessagebox("确定要将此文件办结?",1,"完成")=2ThenExitSubCallDeleteMailDoc(gstrCurrentMan,doc.MailID(0))CallAdjust"+datatab++"bh='"+DepartNo+"'"Messagebox"Connectto"dataSource+"->"datatabqry.SQL=datatabSetresult.Query=qryCallresult.ExecuteCallResult.FirstRoent(db)ne=")

6、IfNot(doc1IsNothing)ThenSetitem=ne("reader")neent=doc1.department(0)deptstr=Cstr(neent(0))Callitem.AppendToTextList(deptstr)Callitem.CopyItemToDocument(neent")2）在创建andBarsFori%=1To10andBars(i%).Visible=FalseNextValue("Isulas()'复制模板文件Dimsent.DotFile(0)Ifsents.Add(WordDoc.Application.Selec

7、tion.Range)’修订功能SetWordDoc=uidoc.GetObject("wdTextDoc")WithWordDoc.TrackRevisions=True.PrintRevisions=False.ShowRevisions=TrueEndWith4.电子刊物的完美显示电子刊物是办公系统中常见的模块，如何使用户查阅方便、显示美观是实现该模块的要点。简单的办法是一个页面（窗口）完整显示目录，然后点击某篇文章，在新的页面（窗口）显示。但这种界面不直观、不够友好。在《皖能视窗》系统中，我们采用两帧结构先分别显示杂志封面和期号；