资源描述：
《谈皖能团体inter-intra应用系统 》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、谈皖能团体Inter/Intra应用系统：通过皖能团体的InterIntra系统的实际案例，先容了在基于LotusNotes/Domino系统中最为关键的几项技术：全流程定义技术、关系数据库的接口、MicrosoftinoR5之上,充分利用了Notes/Domino的强大功能,集电子邮件、工作流处理、多媒体文档应用和s(doc,True)Calldoc.RemoveItem("ReadLists")Calldoc.RemoveItem("ExplainV")Calldoc.RemoveItem("FlowNo")Calldoc.RemoveItem("floe")doc.
2、StepNumC=Stepdoc.StepNumC(0)doc.StepNum=Stepdoc.StepNum(0)doc.StepName_1=Stepdoc.StepName_1(0)doc.StepMan_1=Stepdoc.StepMan_1(0)doc.StepReturn_1=Stepdoc.StepReturn_1(0)doc.StepDay_1=Stepdoc.StepDay_1(0)……EndIfEndSub2)标准流程的修改,将分解为插进步骤、删除步骤。假如理解了插进步骤，就轻易实现删除步骤。插进步骤的函数是：SubClick(SourceAsButt
3、on)……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(nFieldNo))Call
4、uidoc.FieldClear("StepMan_"+Cstr(nFieldNo))Calluidoc.FieldClear("StepDay_"+Cstr(nFieldNo))nFieldNo=nFieldNo+1EndSub3)流程的控制是最复杂的，通过一系列函数实现，在这里先容其主函数，让读者可以了解实在现的思路。SubClick(SourceAsButton)……Setuidoc=entSetdoc=uidoc.Document'取流程信息CallInitializeStepInfo(doc)IfgbIsFinished=FalseThen'假如当前不是最后一步
5、IfgstrNextMan=""ThenMsgboxErr_No_Transactor,,"无办理人"ExitSubEndIfIfgstrIsSponsor="否"AndgstrIsCurrentReturn="是"ThenIfMessagebox("文件返回给"+gstrNextMan+"?",1,"完成")=2ThenExitSubElseIfMessagebox(gstrNextMan+"进行"+gstrNextStep+"?",1,"完成")=2ThenExitSubEndIfCallDeleteMailDoc(gstrCurrentMan,doc.MailID(
6、0))'删除通知邮件CallAdjustessagebox("确定要将此文件办结?",1,"完成")=2ThenExitSubCallDeleteMailDoc(gstrCurrentMan,doc.MailID(0))CallAdjustnAsNee(session.username)dataSource="delphi"DepartNo=Inputbox$("请输进部分编码,如01","DepartNo?")timeV=Inputbox$("请输进年月,如200001","timeV?")datatab="c:lhkqkqtz"+timeV+".db"Ifcon.
7、ConnectTo(dataSource)Theni=1Setqry.Connection=condatatab="SELECT*FROM"+datatab++"bh='"+DepartNo+"'"Messagebox"Connectto"%26amp;dataSource+"-%26gt;"%26amp;datatabqry.SQL=datatabSetresult.Query=qryCallresult.ExecuteCallResult.FirstRoent(db)ne=")IfNot(doc1IsNothing)The
