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

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

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