皖能集团Internet-Intranet应用系.docVIP

　　皖能集团Internet/Intranet应用系 摘要：通过皖能集团的InterIntra系统的实际案例，介绍了在基于Lotus Notes/Domino系统中最为关键的几项技术：全流程定义技术、关系数据库的接口、Microsoft an_1=Stepdoc.StepMan_1(0) doc.StepReturn_1=Stepdoc.StepReturn_1(0) doc.StepDay_1=Stepdoc.StepDay_1(0) … … End If End Sub 2) 标准流程的修改,将分解为插入步骤、删除步骤。如果理解了插入步骤，就容易实现删除步骤。插入步骤的函数是： Sub Click(Source As Button) … … Set uidoc = ent Set doc=uidoc.Document LastNo=uidoc.document.StepNum(0) + 1 doc.StepNum=LastNo doc.StepNumC= Cstr(LastNo) Call uidoc.Refreshhideformulas() If nFieldNo=0 Then Exit Sub For %i=LastNo To nFieldNo+1 Step -1 Call ReplaceItemsValue(doc, %i, %i-1) Next Call uidoc.FieldClear( StepName_+Cstr(nFieldNo)) Call uidoc.FieldClear( StepMan_+Cstr(nFieldNo)) Call uidoc.FieldClear( StepDay_+Cstr(nFieldNo)) nFieldNo=nFieldNo+1 End Sub 3) 流程的控制是最复杂的，通过一系列函数实现，在这里介绍其主函数，让读者可以了解其实现的思路。 Sub Click(Source As Button) … … Set uidoc = ent Set doc=uidoc.Document 取流程信息 Call InitializeStepInfo(doc ) If gbIsFinished=False Then 如果当前不是最后一步 If gstrNextMan= Then Msgbox Err_No_Transactor,,无办理人 Exit Sub End If If gstrIsSponsor=否 And gstrIsCurrentReturn=是 Then If Messagebox( 文件返回给+gstrNextMan+? ,1,完成) =2 Then Exit Sub Else If Messagebox(gstrNextMan+进行+gstrNextStep+? ,1,完成) =2 Then Exit Sub End If Call DeleteMailDoc(gstrCurrentMan,doc.MailID(0)) 删除通知邮件 Call Adjustessagebox( 确定要将此文件办结? ,1,完成) =2 Then Exit Sub Call DeleteMailDoc(gstrCurrentMan,doc.MailID(0)) Call Adjust +datatab++ bh = +DepartNo+ Messagebox Connect to dataSource + -gt; datatab qry.SQL = datatab Set result.Query = qry Call result.Execute Call Result.FirstRoent(db) ne=) If Not(doc1 Is Nothing) Then Set item=ne(reader) neent=doc1.department(0) deptstr=Cstr(neent(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 ent) 2）在创建andBars For i%=1 To 10 andBars(i%).Visible=False Next Value(Isulas() 复制模板文件 Dim sent.DotFile(0) If sents.Add (WordDoc