皖能集團(tuán)InternetIntranet應(yīng)用系統(tǒng)

皖能集團(tuán)InternetIntranet應(yīng)用系統(tǒng)

隨著“政府上網(wǎng)”工程的全面啟動(dòng)、工業(yè)信息化的進(jìn)一步發(fā)展和電子商務(wù)的需求增強(qiáng)，建立一整套計(jì)算機(jī)綜合應(yīng)用網(wǎng)絡(luò)系統(tǒng)對(duì)企業(yè)集團(tuán)是一種迫切需求。根據(jù)當(dāng)前計(jì)算機(jī)技術(shù)發(fā)展趨勢(shì)，我們采用Internet/Intranet體系模式構(gòu)造皖能集團(tuán)的計(jì)算機(jī)綜合應(yīng)用網(wǎng)絡(luò)系統(tǒng)，實(shí)現(xiàn)對(duì)外信息發(fā)布和內(nèi)部的全面辦公和業(yè)務(wù)管理功能，這對(duì)實(shí)施有效監(jiān)控、加強(qiáng)信息溝通、提高運(yùn)行效率和優(yōu)化產(chǎn)業(yè)、資本結(jié)構(gòu)，發(fā)揮公司整體效益起到十分重要的作用。一、網(wǎng)絡(luò)系統(tǒng)結(jié)構(gòu)根據(jù)皖能集團(tuán)Internet/Intranet系統(tǒng)的應(yīng)用需求，從網(wǎng)絡(luò)系統(tǒng)應(yīng)用和安全的角度出發(fā)，內(nèi)網(wǎng)至少布置2臺(tái)WindowsNT服務(wù)器，作為應(yīng)用服務(wù)器、郵件服務(wù)器和備份服務(wù)器，提供內(nèi)部辦公自動(dòng)化和業(yè)務(wù)數(shù)據(jù)處理的應(yīng)用。外網(wǎng)布置2臺(tái)WindowsNT服務(wù)器，其中一臺(tái)圖1皖能集團(tuán)Internet/Intranet網(wǎng)絡(luò)體系結(jié)構(gòu)配置DominoR5服務(wù)器，作為外部Web服務(wù)器，建立皖能(集團(tuán))公司的站點(diǎn)，并借助內(nèi)置的POP3服務(wù)器以實(shí)現(xiàn)Notes郵件系統(tǒng)和Internet郵件系統(tǒng)的無縫連接，提供信息發(fā)布、信息交換和電子郵件等服務(wù)；另外一臺(tái)作為代理服務(wù)器，提供內(nèi)部用戶訪問Internet服務(wù)和防火墻的安全措施。如圖1所示，內(nèi)部Web服務(wù)器接入到主干交換機(jī)上，外部服務(wù)器應(yīng)放在代理服務(wù)器之外，在代理服務(wù)器上插入兩塊網(wǎng)卡，一塊網(wǎng)卡和內(nèi)部局域網(wǎng)相連，一塊網(wǎng)卡和省經(jīng)濟(jì)信息網(wǎng)相連，它們之間通過代理服務(wù)器進(jìn)行隔離。同時(shí)由路由器實(shí)現(xiàn)廣域網(wǎng)與局域網(wǎng)的互聯(lián)，實(shí)現(xiàn)通過互聯(lián)網(wǎng)數(shù)據(jù)傳輸?shù)穆窂竭x擇及網(wǎng)絡(luò)地址解析，并在路由器上構(gòu)造外防火墻（IP包過濾）。二、系統(tǒng)功能皖能集團(tuán)Internet/Intranet系統(tǒng)構(gòu)架于業(yè)界領(lǐng)先的群件系統(tǒng)LotusNotes/DominoR5之上，充分利用了Notes/Domino的強(qiáng)大功能，集電子郵件、工作流處理、多媒體文檔應(yīng)用和Web信息發(fā)布為一體，開通了電子郵件、電子日歷、個(gè)人資料、公文處理、檔案管理、資料管理、領(lǐng)導(dǎo)活動(dòng)、人事管理、項(xiàng)目管理、公司動(dòng)態(tài)、組織機(jī)構(gòu)、皖能視窗、政策法規(guī)、綜合信息、工作探討、電子公告板等二十多項(xiàng)應(yīng)用模塊。皖能集團(tuán)Internet/Intranet系統(tǒng)功能分為兩大部分：1.InternetWeb站點(diǎn)()和郵件系統(tǒng)(.cn)，由于篇幅關(guān)系，在此不做詳細(xì)介紹。2.皖能集團(tuán)辦公自動(dòng)化系統(tǒng)三、關(guān)鍵技術(shù)創(chuàng)新和實(shí)現(xiàn)1.全流程定義技術(shù)公文運(yùn)轉(zhuǎn)是工作流程最直接、最充分的體現(xiàn)，它貫穿收文處理、發(fā)文處理和簽報(bào)處理的每個(gè)環(huán)節(jié)。雖然在發(fā)文處理過程中，一般都有擬稿、核稿、審核、會(huì)簽、簽發(fā)、登記、分發(fā)、歸檔等基本環(huán)節(jié)，實(shí)際上對(duì)每個(gè)部門、或每一類文件的流程都是不同的。所以在應(yīng)用系統(tǒng)，應(yīng)使其每個(gè)模塊的流程是完全可以由用戶根據(jù)實(shí)際情況靈活定義，流程的定義、跟蹤是公文運(yùn)轉(zhuǎn)系統(tǒng)的關(guān)鍵技術(shù)，該系統(tǒng)實(shí)現(xiàn)了開放的全流程定義技術(shù)，可以適應(yīng)實(shí)際應(yīng)用過程中的各種需求。全流程定義技術(shù)包括標(biāo)準(zhǔn)流程的定義、引入、修改和控制等，在此主要介紹三個(gè)問題：1)如何自動(dòng)引入標(biāo)準(zhǔn)流程，通過Postopen事件調(diào)用引入標(biāo)準(zhǔn)流程的函數(shù)：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)標(biāo)準(zhǔn)流程的修改，將分解為插入步驟、刪除步驟。如果理解了插入步驟，就容易實(shí)現(xiàn)刪除步驟。插入步驟的函數(shù)是：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)流程的控制是最復(fù)雜的，通過一系列函數(shù)實(shí)現(xiàn)，在這里介紹其主函數(shù)，讓讀者可以了解其實(shí)現(xiàn)的思路。SubClick(SourceAsButton)……Setuidoc=workspace.CurrentDocumentSetdoc=uidoc.Document'取流程信息CallInitializeStepInfo(doc)IfgbIsFinished=FalseThen'如果當(dāng)前不是最后一步IfgstrNextMan=""ThenMsgboxErr_No_Transactor，，"無辦理人"ExitSubEndIfIfgstrIsSponsor="否"AndgstrIsCurrentReturn="是"ThenIfMessagebox("文件返回給"+gstrNextMan+"?"，1，"完成")=2ThenExitSubElseIfMessagebox(gstrNextMan+"進(jìn)行"+gstrNextStep+"?"，1，"完成")=2ThenExitSubEndIfCallDeleteMailDoc(gstrCurrentMan，doc.MailID(0))'刪除通知郵件CallAdjustWorkFlow(doc)'調(diào)整辦理人、辦理步驟等CallSendDocLink(doc，doc.CurrentTransactor(0)，"待辦:")'給下一辦理人發(fā)送通知郵件Calldoc.ComputeWithForm(False，F(xiàn)alse)'備份批示意見doc.NotionBak=doc.GetItemValue(doc.NotionName(0))(0)doc.Notion=""Calluidoc.Save()'如果當(dāng)前是簽發(fā)狀態(tài)，修改文件的表單，使文件的大部分域變成不可編輯If(gstrCurrentRole="簽發(fā)"AndgstrIsSponsor="否")Thendoc.Form="Subscribe"EndIfCalldoc.Save(True，True)Else'如果當(dāng)前是最后一步IfMessagebox("確定要將此文件辦結(jié)?"，1，"完成")=2ThenExitSubCallDeleteMailDoc(gstrCurrentMan，doc.MailID(0))CallAdjustWorkFlow(doc)doc.CurrentTransactor=""'清除讀者域Calldoc.Save(True，True)CallCopyDocToFileDB(doc)'在文件庫(kù)中創(chuàng)建該文件的拷貝EndIfdoc.SaveOptions="0"Calluidoc.Close()Callworkspace.ViewRefreshEndSub2.關(guān)系數(shù)據(jù)庫(kù)的接口我們?cè)谌耸孪到y(tǒng)中，將考勤機(jī)的數(shù)據(jù)自動(dòng)讀入內(nèi)Notes應(yīng)用系統(tǒng)，進(jìn)行員工考勤的有效管理。通過ODBC實(shí)現(xiàn)，首先在客戶端控制面板正確設(shè)置ODBC的連接，然后在操作的（Options）聲明Uselsx"*LSXODBC"，然后實(shí)現(xiàn)其具體的數(shù)據(jù)轉(zhuǎn)換。例如：SubClick(SourceAsButton)DimconAsNewODBCConnectionDimqryAsNewODBCQueryDimresultAsNewODBCResultset……DimdataSource，datatab，deptstrAsStringSetdb=session.currentdatabaseDimnAsNewnotesname(session.username)dataSource="delphi"DepartNo=Inputbox$("請(qǐng)輸入部門編碼，如01"，"DepartNo?")timeV=Inputbox$("請(qǐng)輸入年月，如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，F(xiàn)alse)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是常用的字處理工具，而且它具有批注、修改留痕等非常有用的功能，所以在發(fā)文、簽報(bào)兩個(gè)系統(tǒng)中我們解決了和MicrosoftWord接口問題，使系統(tǒng)的實(shí)用性有了進(jìn)一步提高。首先在發(fā)文、簽報(bào)中創(chuàng)建Word的OLE對(duì)象，然后進(jìn)行處理。1）由Entering事件激發(fā)創(chuàng)建一個(gè)OLE的Word文檔：SetWordDoc=uidoc.GetObject("wdTextDoc")Calluidoc.GotoField("Text")SetWordDoc=uidoc.CreateObject("wdTextDoc"，"Word.Document")2）在創(chuàng)建Word文檔時(shí)，要隱藏Word界面中的工具欄和標(biāo)尺、設(shè)置標(biāo)志和復(fù)制用戶已建立的模板文件。'隱藏Word界面中的工具欄和標(biāo)尺SetwdCommandBars=WordDoc.CommandBarsFori%=1To10wdCommandBars(i%).Visible=FalseNextWordDoc.ActiveWindow.DisplayRulers=FalseWordDoc.ActiveWindow.DisplayVerticalScrollBar=TrueWordDoc.ActiveWindow.DisplayHorizontalScrollBar=True'設(shè)置標(biāo)志Setdoc=uidoc.DocumentCalldoc.ReplaceItemValue("IsWordText"，1)Calluidoc.Refreshhideformulas()'復(fù)制模板文件DimsWordDotFileAsStringsWordDotFile=uidoc.Document.DotFile(0)IfsWordDotFile<>""ThenCal