【正文】 標準，可以將Web瀏覽器作為Notes的客戶機，從而實現(xiàn)與Internet的高效率連接。Notes/Domino的電子郵件與報文傳遞功能通常被稱為Notes Mail。對于這些以非結(jié)構(gòu)化或半結(jié)構(gòu)化為特征的“文檔型”數(shù)據(jù)的處理，Lotus Domino/ Notes還提供了全文搜索、版本控制、文檔鏈接等等信息檢索、處理手段。它包含有多個層次的開發(fā)手段，提供初學(xué)者到專業(yè)編程人員適應(yīng)不同應(yīng)用需求的開發(fā)手段，如宏公式語言與LotusScript。具有以下鮮明的特點[2]： (1)、開發(fā)快捷、實施容易。這非常適應(yīng)辦公管理需求多變、繁雜的特點。這種集成能力是在軟件平臺一級獲得的，而不是通過二次開發(fā)“強加”上去的。由于采用單一的軟件系統(tǒng)，所有的應(yīng)用開發(fā)都建立在統(tǒng)一的平臺之上，主要的維護工作集中在應(yīng)用管理一級，管理工作的難度與工作量大大降低。應(yīng)用系統(tǒng)的保有費用包含了購買費用、管理維護費用、應(yīng)用開發(fā)實施費用、系統(tǒng)集成費用等等。Lotus積極參加Internet/Intranet標準的制定，同時在自己的產(chǎn)品中遵循支持標準的原則。Notes/Domino是一個成熟的產(chǎn)品，在國內(nèi)外電子郵件與群件領(lǐng)域始終居于領(lǐng)先地位，Lotus以及代理商具備豐富的成功經(jīng)驗?；谶@些優(yōu)勢功能，基于Notes的辦公自動化系統(tǒng)則應(yīng)該設(shè)計成以Internet技術(shù)為核心，以Web技術(shù)為基礎(chǔ)的集成環(huán)境，基于網(wǎng)絡(luò)對象連接技術(shù)、多媒體文檔結(jié)構(gòu)以及跨越多種操作系統(tǒng)和多種數(shù)據(jù)庫平臺的應(yīng)用系統(tǒng)，所以，可以把Lotus Notes作為行業(yè)辦公自動化系統(tǒng)的應(yīng)用開發(fā)平臺的首選。圖1 中Notes Server，Web Server，Mail Server之所以分開列出，是因為它們在邏輯上是屬于不同的服務(wù)器。： 公文管理子系統(tǒng)操作界面由于辦公自動化系統(tǒng)的需求存在不確定性，系統(tǒng)處理的文件類型繁多，審批流程的方式多變，以及流程和管理方式需要非常強大的靈活性，尤其對于流程設(shè)置的靈活性要求和角色定義的靈活性要求都是非常高。這樣，可以讓企事業(yè)單位，集團公司的工作、人員能利用他們的專業(yè)知識去設(shè)計更為合理和高效的工作流程，不再受困于手工畫圖紙，而能快速地使用計算機去處理自己的業(yè)務(wù)，提高辦公效率，為工作帶來極大的方便。2)可對來文進行顯示、排序、查詢、統(tǒng)計、打印。 通用收文處理流程收文登記后的流轉(zhuǎn)過程[4]：1）部門負責人簽署意見一般來講，收文由辦公室人員登記。4）收文結(jié)束后的其它操作在收文結(jié)束后，可以對收文進行歸檔操作，可以把現(xiàn)有收文歸檔到文檔管理數(shù)據(jù)庫中。發(fā)文處理系統(tǒng)有以下需求：1)求對所有的發(fā)文通過計算機進行擬稿、核稿、會簽、復(fù)核、簽發(fā)、成文、蓋章、發(fā)文、歸檔。 通用發(fā)文處理流程發(fā)文的流轉(zhuǎn)過程[5]：1） 起草發(fā)文作者應(yīng)嚴格按公文制度來填寫表單中的各個項目。4） 轉(zhuǎn)分管領(lǐng)導(dǎo)審核部門負責人審核后，轉(zhuǎn)分管領(lǐng)導(dǎo)進行審核?？梢韵掳l(fā)文件，把當前的發(fā)文轉(zhuǎn)給下屬單位。建立檔案數(shù)據(jù)庫，便于檔案的科學(xué)管理，方便用戶查閱。在本系統(tǒng)中，您可以就某一事件或某一主題發(fā)表見解，也可以對別人發(fā)表的見解進行評議。來賓管理用于單位前臺對來訪賓客的記錄和接待管理，在接待過程中可以查閱單位內(nèi)部人員的去向和留言，方便接待來訪的賓客。出勤補簽系統(tǒng)用于單位考勤的管理。(4)、系統(tǒng)維護子系統(tǒng)系統(tǒng)維護子系統(tǒng)包括部門群組管理和關(guān)鍵字管理、用戶口令修改三個功能模塊。關(guān)鍵字管理是用于系統(tǒng)內(nèi)部的一些數(shù)據(jù)控制，比如車輛名稱、行政級別名稱等等，系統(tǒng)管理員可以通過新建關(guān)鍵字來增加系統(tǒng)關(guān)鍵字，也可以修改關(guān)鍵字的內(nèi)容。(1)、Domino/Notes數(shù)據(jù)庫設(shè)計對所有檔案、資料、人員、物品等的管理都要通過數(shù)據(jù)庫管理的形式進行。每個數(shù)據(jù)庫都可以包含不同格式和類型的文檔。 對于數(shù)據(jù)庫設(shè)計，以下幾點需要著重闡述[8]。而對于結(jié)構(gòu)化數(shù)據(jù)信息的處理Notes也提供了與一般關(guān)系數(shù)據(jù)庫類似的功能。這一用戶就可以在一個文檔中同時訪問多個數(shù)據(jù)庫中的信息。 數(shù)據(jù)庫存儲位置[9]：在整個系統(tǒng)中，數(shù)據(jù)庫的種類繁多，除了各個功能模塊的實現(xiàn)需要功能模塊數(shù)據(jù)庫外(為了便于設(shè)計和日后維護管理，每一個功能模塊都設(shè)計成一個單獨的數(shù)據(jù)庫)，每一個注冊用戶都有一個郵件數(shù)據(jù)庫，另外還有系統(tǒng)用的數(shù)據(jù)庫。各功能模塊數(shù)據(jù)庫集中存放各部門科室的數(shù)據(jù)，作為系統(tǒng)的共享資源，也應(yīng)放在服務(wù)器上。通過這種設(shè)計一方面排除了產(chǎn)生空文檔的可能性，另一方面解決了同一內(nèi)容的文檔在數(shù)據(jù)庫中存放多份的問題，基本實現(xiàn)了文檔的一致性。倘若花費大量的人力、物力和財力去分析已有的系統(tǒng)軟件，顯然得不償失；而放棄原系統(tǒng)，自主從頭研制，則無形中又增加了許多困難，且往往實際開發(fā)出來的軟件還難以滿足各部門的實際要求。SQL Server與辦公自動化系統(tǒng)連接的實現(xiàn)[11]：根據(jù)以上SQL Server在辦公自動化系統(tǒng)中的功能，采用了以下兩種實現(xiàn)技術(shù)：利用Domino企業(yè)連接服務(wù)(Domino Enterprise Connection Service)實現(xiàn)Notes連接。 使用Notes內(nèi)置編程接口LotusScript DataObject(簡稱LS：DO)LotusScript是一種內(nèi)嵌的Notes程序設(shè)計語言，LS：DO利用其完整的數(shù)據(jù)控制功能和結(jié)構(gòu)化程序語言的靈活性，提供對外部ODBC數(shù)據(jù)的完全讀寫訪問[12]。LS：DO能夠滿足所有的數(shù)據(jù)操作要求，不必添置額外的轉(zhuǎn)換工具，節(jié)省費用。四、系統(tǒng)實現(xiàn)概述 首先公文管理模塊實現(xiàn)支持日常機關(guān)政府辦公中公文收發(fā)的整個電子化、自動化的目標。收文管理主要處理系統(tǒng)內(nèi)部的電子文檔，這部分處于保密需要，沒有設(shè)者對外接門，不能實現(xiàn)Web瀏覽。通過左邊的導(dǎo)航連接可以進行公文的瀏覽查看及相關(guān)操作。另一方面，實現(xiàn)公文流轉(zhuǎn)的許多操作，如：交部門領(lǐng)導(dǎo)、轉(zhuǎn)發(fā)、會簽、簽發(fā)、歸檔等等操作也是在表單中設(shè)計的，單單從功能實現(xiàn)上來說，Lotus的表單設(shè)計是Lotus工作流開發(fā)的靈魂所在。要實現(xiàn)上述目標，我們需要考慮兩個問題：文檔在流轉(zhuǎn)、批閱過程中應(yīng)該始終保證只有一個人可以對文檔進行操作，避免出現(xiàn)兩個或者兩個以上的人對文檔進行處理的情況。而后者：大綱則是一種導(dǎo)航工具。頁面和大綱配合起來組織視圖，從而顯示給用戶，提供人機交互的界面。頁面設(shè)計與此類似，就不贅述了。本文研究了一套完整的辦公自動化管理系統(tǒng)的規(guī)劃方法和規(guī)劃策略，闡述了模塊的劃分、各功能模塊的設(shè)計方法和用到的關(guān)鍵技術(shù)。3）支持移動辦公、異地辦公，系統(tǒng)具備移動辦公或異地辦公的功能。Domino/Notes從產(chǎn)品的第一版起即提供了保證信息系統(tǒng)安全性完整的技術(shù)與手段，至今已經(jīng)過近10年的發(fā)展和完善。實現(xiàn)減輕工作負擔、提高工作效率并提供決策支持服務(wù)的目標。第三代辦公自動化系統(tǒng)從傳統(tǒng)的面向業(yè)務(wù)流程向知識共享、協(xié)作學(xué)習發(fā)展，群件平臺技術(shù)和Intranet/Internet技術(shù)的發(fā)展為第三代OA思想的實現(xiàn)提供了堅強的基礎(chǔ)。**教授嚴謹?shù)闹螌W(xué)態(tài)度、淵博的知識、獨到的眼光、學(xué)者的胸襟和卓越的領(lǐng)導(dǎo)才能是我以后工作、學(xué)習、生活的楷模。附錄（系統(tǒng)主界面）Declare Function GetActiveWindow Lib () As Long Declare Function SetMenu Lib ( Byval hmenu As Long, Byval newmenu As ‘Long ) As Integer Sub Postopen(Source As Notesuidatabase) Dim workspace As New NotesUIWorkspace Call (MainFrame) End SubQuerycloseCommand([FileExit])Sub Initialize Dim hwnd As Long hwnd = GetActiveWindow() Call SetMenu(hwnd,0) End SubSub TerminateEnd Sub頁面公文管理Command([FileOpenDatabase]。Subset(DbName。1):。1) ‘打開文檔管理數(shù)據(jù)庫Command([FileCloseWindow]) ‘退出系統(tǒng)個人辦公Command([FileOpenDatabase]。[NoOKCancel]:[NoCancel]:[AutoVertFit] : [AutoHorzFit]。1) ‘‘打開工作安排數(shù)據(jù)庫Command([FileOpenDatabase]。:。1):。1) ‘公用通訊錄Command([FileOpenDatabase]。Subset(DbName。1):。1) ‘部門群組管理Command([FileOpenDatabase]。當前會話對象Dim uiwCur As NotesUiWorkspace 39。當前用戶名Sub Initialize%REM功能：初始化相關(guān)的全局變量，docCur在運行時賦值 %END REM Set sessCur = New NotesSession strUserName = Set uiwCur = New NotesUiWorkspace Set dbCur = End SubSub TerminateEnd SubFunction varSendDocLink(p_docCur As NotesDocument,p_strSubject As String,p_varReceiver As Variant) As Variant%REM功能：　發(fā)送當前文檔的鏈接郵件 參數(shù)：　p_docCur 要鏈入到發(fā)送郵件中的文檔　　　　p_strSubject　郵件的標題　　　　p_varReceiver 郵件接收人員列表 　返回值：成功：true。鏈入文檔 = p_strSubject Call (False,p_varReceiver) Call (PROMPT_OK, _ 確認, 已順利通知相關(guān)人員！, , ) varSendDocLink = Trueerr01: Exit FunctionEnd FunctionFunction varGetLcDyInfo(p_docCur As NotesDocument,p_txtFlowName As String) As Variant%REM功能：　　獲取指定發(fā)文流程的定義信息,更新到指定文檔的相應(yīng)欄位參數(shù)：　　p_docCur 指定的流程文檔　　　　　p_txtFlowName 流程名返回：　　true 　成功。4即最大步驟數(shù) txtFldName = txtStepName_+Trim$(Str$(i)) 39。是否允許駁回 Call varCopyItem(p_docCur,docLcDy,txtFldName) Next varGetLcDyInfo = True End FunctionFunction varCopyItem(p_docDes As NotesDocument,p_docSrc As NotesDocument,p_txtFldName As String)%REM 功能：　　 從另一文檔（源文檔）上拷貝指定欄位的值到本文檔（目的文檔）的相應(yīng)欄位 參數(shù)：　　 p_docDes 目的文檔　　　　　　　　p_docSrc 源文檔　　　　　　　　p_txtFldName 欄位名 返回值：　 true 成功。沒有找到 Msgbox 對不起﹐沒有找到任何+p_strRole+! Exit Function End If If l_intMemNum = 1 Then 39。 varGetHandlerFromUsers = 39。轉(zhuǎn)交當前事項 Exit Function 39。角色 Set itemRole = (txtFldName) Dim itemUsers As NotesItem txtFldName = txtUsers_+Trim$(Str$(i)) 39。 + strUserName + ) ,pdocCur ) ([+txtOpinion+]+ + UserName1(0) + +txtDatetime)End Function（發(fā)文管理）workflow庫Sub Postopen(Source As Notesuidatabase) Dim workspace As New NotesUIWorkspace Call (Main) End Sub頁面Leftbottom Command([FileCloseWindow]) ‘返回至上一層PostedCommand([ViewShowSearchBar]) ‘搜索條Command( [EditDocument] ) ‘編輯表單(Globals) LcDyCommand([FileCloseWindow]) ‘返回上一層If(Command([FileSave]