皖能集团InternetIntranet应用系统

皖能集团InternetIntranet应用系统

随着“政府上网”工程的全面启动、工业信息化的进一步发展和电子商务的需求增强，建立一整套计算机综合应用网络系统对企业集团是一种迫切需求。根据当前计算机技术发展趋势，我们采用Internet/Intranet体系模式构造皖能集团的计算机综合应用网络系统，实现对外信息发布和内部的全面办公和业务管理功能，这对实施有效监控、加强信息沟通、提高运行效率和优化产业、资本结构，发挥公司整体效益起到十分重要的作用。一、网络系统结构根据皖能集团Internet/Intranet系统的应用需求，从网络系统应用和安全的角度出发，内网至少布置2台WindowsNT服务器，作为应用服务器、邮件服务器和备份服务器，提供内部办公自动化和业务数据处理的应用。外网布置2台WindowsNT服务器，其中一台图1皖能集团Internet/Intranet网络体系结构配置DominoR5服务器，作为外部Web服务器，建立皖能(集团)公司的站点，并借助内置的POP3服务器以实现Notes邮件系统和Internet邮件系统的无缝连接，提供信息发布、信息交换和电子邮件等服务；另外一台作为代理服务器，提供内部用户访问Internet服务和防火墙的安全措施。如图1所示，内部Web服务器接入到主干交换机上，外部服务器应放在代理服务器之外，在代理服务器上插入两块网卡，一块网卡和内部局域网相连，一块网卡和省经济信息网相连，它们之间通过代理服务器进行隔离。同时由路由器实现广域网与局域网的互联，实现通过互联网数据传输的路径选择及网络地址解析，并在路由器上构造外防火墙（IP包过滤）。二、系统功能皖能集团Internet/Intranet系统构架于业界领先的群件系统LotusNotes/DominoR5之上，充分利用了Notes/Domino的强大功能，集电子邮件、工作流处理、多媒体文档应用和Web信息发布为一体，开通了电子邮件、电子日历、个人资料、公文处理、档案管理、资料管理、领导活动、人事管理、项目管理、公司动态、组织机构、皖能视窗、政策法规、综合信息、工作探讨、电子公告板等二十多项应用模块。皖能集团Internet/Intranet系统功能分为两大部分：1.InternetWeb站点()和邮件系统(.cn)，由于篇幅关系，在此不做详细介绍。2.皖能集团办公自动化系统三、关键技术创新和实现1.全流程定义技术公文运转是工作流程最直接、最充分的体现，它贯穿收文处理、发文处理和签报处理的每个环节。虽然在发文处理过程中，一般都有拟稿、核稿、审核、会签、签发、登记、分发、归档等基本环节，实际上对每个部门、或每一类文件的流程都是不同的。所以在应用系统，应使其每个模块的流程是完全可以由用户根据实际情况灵活定义，流程的定义、跟踪是公文运转系统的关键技术，该系统实现了开放的全流程定义技术，可以适应实际应用过程中的各种需求。全流程定义技术包括标准流程的定义、引入、修改和控制等，在此主要介绍三个问题：1)如何自动引入标准流程，通过Postopen事件调用引入标准流程的函数：SubSetDefault(docAsNotesDocument)……Setdb=session.CurrentDatabaseSetview=db.GetView("FlowByNo")SetStepdoc=view.GetFirstDocumentIfNotStepdocIsNothingThenCallStepdoc.CopyAllItems(doc，True)Calldoc.RemoveItem("ReadLists")Calldoc.RemoveItem("ExplainV")Calldoc.RemoveItem("FlowNo")Calldoc.RemoveItem("flowName")doc.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(SourceAsButton)……Setuidoc=workspace.CurrentDocumentSetdoc=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))Calluidoc.FieldClear("StepMan_"+Cstr(nFieldNo))Calluidoc.FieldClear("StepDay_"+Cstr(nFieldNo))nFieldNo=nFieldNo+1EndSub3)流程的控制是最复杂的，通过一系列函数实现，在这里介绍其主函数，让读者可以了解其实现的思路。SubClick(SourceAsButton)……Setuidoc=workspace.CurrentDocumentSetdoc=uidoc.Document'取流程信息CallInitializeStepInfo(doc)IfgbIsFinished=FalseThen'如果当前不是最后一步IfgstrNextMan=""ThenMsgboxErr_No_Transactor，，"无办理人"ExitSubEndIfIfgstrIsSponsor="否"AndgstrIsCurrentReturn="是"ThenIfMessagebox("文件返回给"+gstrNextMan+"?"，1，"完成")=2ThenExitSubElseIfMessagebox(gstrNextMan+"进行"+gstrNextStep+"?"，1，"完成")=2ThenExitSubEndIfCallDeleteMailDoc(gstrCurrentMan，doc.MailID(0))'删除通知邮件CallAdjustWorkFlow(doc)'调整办理人、办理步骤等CallSendDocLink(doc，doc.CurrentTransactor(0)，"待办:")'给下一办理人发送通知邮件Calldoc.ComputeWithForm(False，False)'备份批示意见doc.NotionBak=doc.GetItemValue(doc.NotionName(0))(0)doc.Notion=""Calluidoc.Save()'如果当前是签发状态，修改文件的表单，使文件的大部分域变成不可编辑If(gstrCurrentRole="签发"AndgstrIsSponsor="否")Thendoc.Form="Subscribe"EndIfCalldoc.Save(True，True)Else'如果当前是最后一步IfMessagebox("确定要将此文件办结?"，1，"完成")=2ThenExitSubCallDeleteMailDoc(gstrCurrentMan，doc.MailID(0))CallAdjustWorkFlow(doc)doc.CurrentTransactor=""'清除读者域Calldoc.Save(True，True)CallCopyDocToFileDB(doc)'在文件库中创建该文件的拷贝EndIfdoc.SaveOptions="0"Calluidoc.Close()Callworkspace.ViewRefreshEndSub2.关系数据库的接口我们在人事系统中，将考勤机的数据自动读入内Notes应用系统，进行员工考勤的有效管理。通过ODBC实现，首先在客户端控制面板正确设置ODBC的连接，然后在操作的（Options）声明Uselsx"*LSXODBC"，然后实现其具体的数据转换。例如：SubClick(SourceAsButton)DimconAsNewODBCConnectionDimqryAsNewODBCQueryDimresultAsNewODBCResultset……DimdataSource，datatab，deptstrAsStringSetdb=session.currentdatabaseDimnAsNewnotesname(session.username)dataSource="delphi"DepartNo=Inputbox$("请输入部门编码，如01"，"DepartNo?")timeV=Inputbox$("请输入年月，如200001"，"timeV?")datatab="c:\lhkq\kqtz"+timeV+".db"Ifcon.ConnectTo(dataSource)Theni=1Setqry.Connection=condatatab="SELECT*FROM"+datatab++"whereBmbh='"+DepartNo+"'"Messagebox"Connectto"&dataSource+"->"&datatabqry.SQL=datatabSetresult.Query=qryCallresult.ExecuteCallResult.FirstRowDoflagV=result.getvalue(21)DeptV=result.getvalue(5)Ifresult.getvalue("Kqjg")<>"Rest"Andresult.getvalue(5)=DepartNoThenSetnewdoc=NewNotesDocument(db)newdoc.form="WorkRecorder"Callnewdoc.ComputeWithForm(False，False)newdoc.Day=result.getvalue(2)newdoc.DeptNum=DeptVnewdoc.JobName=result.getvalue(6)newdoc.Read1=result.getvalue(8)……lable1:Setview1=db.getview("BMAP")BM=newdoc.DeptNum(0)Setdoc1=view1.getdocumentbykey(BM)IfNot(doc1IsNothing)ThenSetitem=newdoc.GetFirstItem("reader")newdoc.department=doc1.department(0)deptstr=Cstr(newdoc.department(0))Callitem.AppendToTextList(deptstr)Callitem.CopyItemToDocument(newdoc，"reader")ElseGotolable2EndIf……Callnewdoc.save(True，True)EndIfCallresult.NextRow()LoopUntilresult.IsEndOfDataEndIfCallworkspace.ViewRefreshEndSub3.MicrosoftWord的接口MicrosoftWord是常用的字处理工具，而且它具有批注、修改留痕等非常有用的功能，所以在发文、签报两个系统中我们解决了和MicrosoftWord接口问题，使系统的实用性有了进一步提高。首先在发文、签报中创建Word的OLE对象，然后进行处理。1）由Entering事件激发创建一个OLE的Word文档：SetWordDoc=uidoc.GetObject("wdTextDoc")Calluidoc.GotoField("Text")SetWordDoc=uidoc.CreateObject("wdTextDoc"，"Word.Document")2）在创建Word文档时，要隐藏Word界面中的工具栏和标尺、设置标志和复制用户已建立的模板文件。'隐藏Word界面中的工具栏和标尺SetwdCommandBars=WordDoc.CommandBarsFori%=1To10wdCommandBars(i%).Visible=FalseNextWordDoc.ActiveWindow.DisplayRulers=FalseWordDoc.ActiveWindow.DisplayVerticalScrollBar=TrueWordDoc.ActiveWindow.DisplayHorizontalScrollBar=True'设置标志Setdoc=uidoc.DocumentCalldoc.ReplaceItemValue("IsWordText"，1)Calluidoc.Refreshhideformulas()'复制模板文件DimsWordDotFileAsStringsWordDotFile=uidoc.Document.DotFile(0)IfsWordDotFile<>""ThenCal