Lotus Notes電子論壇模塊的實現(xiàn)

趙曉亮

[摘要] 辦公自動化就是要創(chuàng)造一個集成的辦公環(huán)境，使所有的辦公人員在同一個桌面環(huán)境下一起工作。IBM Lotus作為業(yè)務(wù)協(xié)作軟件的領(lǐng)導(dǎo)者，為使用者帶來一種全新的商業(yè)模式。它可以使使用者對各種變化作出迅捷的反應(yīng)，使員工的聯(lián)絡(luò)更加簡單、信息訪問更加方便、流程掌握更為容易。它的某些技術(shù)還可以讓公司員工能在更大范圍內(nèi)進行協(xié)同合作，并以其開放、靈活、經(jīng)濟的特性，幫助使用者快速獲取商業(yè)成果，一切隨需應(yīng)變。而 Lotus Domino R6能通過內(nèi)置的連接服務(wù)，對于事務(wù)處理系統(tǒng)進行實時訪問。集成的開發(fā)工具，可以使用戶使用自己所喜歡的HTML制作工具，Java IDE和Script工具生成Domino應(yīng)用。

[關(guān)鍵詞] Lotus Domino R6；電子論壇；辦公自動化

[中圖分類號] TP317.1 [文獻標識碼] A [文章編號] 1673 - 0194（2013）07- 0057- 03

1 開發(fā)工具Lotus Notes簡介

Lotus Notes 是Lotus（蓮花）公司的旗艦產(chǎn)品，自1989年問世以來，它便以優(yōu)越的性能贏得了用戶，也逐漸為中國用戶所熟識。在Lotus歸于IBM旗下后，歷經(jīng)3年時間研制開發(fā)了功能更加強大的革命性產(chǎn)品Notes 6/Domino 6。Domino服務(wù)器是應(yīng)用和電子郵件服務(wù)器，它提供了連接客戶機、傳遞郵件、控制數(shù)據(jù)庫在用戶中的共享等實現(xiàn)各種功能的集成服務(wù)，服務(wù)器上還可存儲用戶郵箱和各種可被用戶共享的數(shù)據(jù)庫。Notes客戶機則主要提供接口、良好的圖形用戶界面、信息處理等功能，同時用戶也可以在客戶機中以數(shù)據(jù)庫的形式存儲個人信息。

2 開發(fā)環(huán)境

2.1 Lotus Domino/Notes（OA）硬件環(huán)境

信息傳輸設(shè)備：電話、傳真機、計算機局域網(wǎng)、廣域網(wǎng)等。

信息處理設(shè)備：各種個人計算機、工作站或服務(wù)器等。

信息存儲設(shè)備：如硬盤、U盤、光盤存儲系統(tǒng)等。

2.2 Lotus Domino/Notes（OA）軟件環(huán)境

本系統(tǒng)是基于Lotus Notes（Domino）開發(fā)的流程事務(wù)類管理系統(tǒng)，系統(tǒng)的服務(wù)器端環(huán)境為Lotus Notes（Domino）服務(wù)器，客戶端環(huán)境是IE瀏覽器（B/S結(jié)構(gòu)）。 系統(tǒng)具有良好的跨平臺特性，采用了Lotus Notes、Java等編程技術(shù)，系統(tǒng)可以在很多流行的平臺上運行（Linux/Unix/Windows/OS2等），特別適合于企事業(yè)單位內(nèi)部網(wǎng)絡(luò)。由此可見，客戶端環(huán)境采用IE瀏覽器（B/S結(jié)構(gòu)）大大降低了系統(tǒng)運行的要求。比較適合中小企業(yè)應(yīng)用，為企業(yè)節(jié)省了不少開支。而且為日后維護、升級打下了良好的基礎(chǔ)。

3 功能模塊

初步考慮設(shè)計本電子論壇所需要的設(shè)計元素有：表單、視圖、文件夾、導(dǎo)航器。其中導(dǎo)航器為進入本論壇的起始頁面，其中設(shè)有4個熱點矩陣分別鏈接到不同的視圖，讓有不同需要的用戶可以按熱點矩陣名稱進入自己所需要的頁面。

4 功能模塊開發(fā)

電子論壇主要實現(xiàn)的功能：讓用戶可以在論壇上發(fā)表文章，同時可以答復(fù)其他用戶發(fā)表的文章，還可以對他人、對自己的主題進行二次答復(fù)。

4.1 表單

創(chuàng)建了12個表單，分別對其命名為：（Archive Log）、 （ArchiveInstructions）、ArchiveProfileDlg、ProcessExistingdbDlg、ArchiveInstructions、答復(fù)（Response）、答復(fù)的答復(fù)（ResponsetoRespons）、個人興趣簡要表（Interest Profile）、歸檔簡要表（Archive Profile）、匿名的答復(fù)（AnonymousResponse）、匿名的答復(fù)的答復(fù)（AnonymousResponsetoResponse）、討論主題（MainTopic）。

（Archive Log）表單的主要功能為實現(xiàn)用戶對文檔的歸檔。

（ArchiveInstructions）這個表單的存儲是一個幫助文檔，主要內(nèi)容為歸檔的幫助。

答復(fù)表單的主要實現(xiàn)功能為用戶答復(fù)其他用戶發(fā)表的主題，里面設(shè)有答復(fù)主題域（Subject），其屬性設(shè)為文本可編輯，代碼 @Trim（Subject）。

答復(fù)的答復(fù)表單，其實現(xiàn)功能和答復(fù)表單大致相同，設(shè)有答復(fù)的答復(fù)主題域（Subject）其屬性設(shè)置為文本可編輯，代碼 @Trim（Subject）

討論主題表單，同答復(fù)表單的功能也大致相同，設(shè)有討論主題域（Subject）其屬性同樣設(shè)置為文本可編輯，代碼 @Trim（Subject）

4.2 視圖

創(chuàng)建了五個視圖，分別為：（&All）、按分類、按作者、歸檔、歸檔簡要表。

&All視圖的頁面顯示為用戶發(fā)表主題的區(qū)域，其中顯示用戶發(fā)表的主題的名稱，類別。實現(xiàn)代碼為 @If（！@IsResponseDoc；@Created；""）。在&All視圖中設(shè)有操作分別為：

新主題：@PostedCommand（[Compose]；"Main Topic"）

答復(fù)：@PostedCommand（[Compose]；"Response"）

答復(fù)的答復(fù)：@PostedCommand（[Compose]；"Response to Response"）

返回：@Command（[FileCloseWindow]）

按分類視圖的功能是把用戶發(fā)表的文章分類顯示，其中類別可以自己添加在其中設(shè)置的操作同&All視圖。

歸檔視圖是為用戶歸檔文件所做的，里面設(shè)有操作：

設(shè)置歸檔：@PostedCommand（[Compose]； "ArchiveProfile"）；

@PostedCommand（[RefreshHideFormulas]）

立即歸檔：key ：= "Archive Profile"；

AllDocs ：= @DbLookup（""："NoCache"； ""； "（￥Profiles）"； Key； "ArchivePath"）；

@If（AllDocs = "" ； @Prompt（[Ok]；"錯誤"；"請為本歸檔數(shù)據(jù)庫指定位置。"） ： @Return（0）；@Success）；

AllDocs2 ：= @If（@IsError（@DbLookup（""："NoCache"； ""； "（■Profiles）"； Key； "ArchivePath"））；@Return（@Prompt（[Ok]； "立即歸檔"； "在您開始進行歸檔之前，您需要填寫一份“歸檔簡要表”。請按“設(shè)置歸檔...”。"））； ""）；

@If（@Prompt（[YesNo]； "歸檔"； "是否現(xiàn)在將文檔移到歸檔數(shù)據(jù)庫中？"）； ""； @Return（0））；

打開歸檔數(shù)據(jù)庫：其代碼設(shè)置為：

Sub Click（Source As Button）

On Error Goto ErrorRoutine

91 is Object Variable Not Set

On Error 91 Resume Next

4412 is the notes database does not exist

On Error 4412 Goto DatabaseNotExistError

Set s = New NotesSession

Set sourcedb = s.CurrentDatabase

Set view = sourcedb.GetView（"（■Profiles）"）

key = "Archive Profile"

Set profile = view.GetDocumentByKey（key）

If profile Is Nothing Then

Messagebox "本數(shù)據(jù)庫沒有歸檔數(shù)據(jù)庫。"， 0 + 64， "歸檔"

Exit Sub

End If

ArchivePath = profile.ArchivePath

ArchiveServer = profile.ArchiveServer

If （ArchivePath（0） = ""） Then

Messagebox "沒有找到歸檔數(shù)據(jù)庫。請單擊“設(shè)置歸檔”按鈕來創(chuàng)建一個新的歸檔數(shù)據(jù)庫。"，16，"數(shù)據(jù)庫沒有找到"

Exit Sub

End If

Set w = New NotesUIWorkspace

Call w.OpenDatabase（ArchiveServer（0）， ArchivePath（0）， ""， ""， "1"）

Exit Sub

ErrorRoutine：

Messagebox "意外情況： " & Err & " - " & Error

Exit Sub

DatabaseNotExistError：

Messagebox "沒有找到歸檔數(shù)據(jù)庫。請單擊“設(shè)置歸檔”按鈕來創(chuàng)建一個新的歸檔數(shù)據(jù)庫。"，16，"數(shù)據(jù)庫沒有找到"

Exit Sub

End Sub

4.3 文件夾

創(chuàng)建一個文件夾選項，將其命名為：我的個人興趣。

這個文件夾的主要功能為用戶選擇自己個人感興趣的文章做為收藏

4.4 代理

分別為以上幾個設(shè)計元素創(chuàng)建了代理，其功能為：初始化系統(tǒng)線索標識符、編輯我的個人興趣簡要表、標記或取消標記文檔為“注銷”、定期歸檔、發(fā)送新聞簡報、在個人興趣簡要表中添加個人興趣主題。

4.5 導(dǎo)航器

分別創(chuàng)建了四個熱點矩陣：分別對其命名為：所有文檔、個人興趣、按作者、按分類。

所有文檔：設(shè)置為簡單操作，打開視圖或文件夾，打開的視圖為&All視圖。

個人興趣：設(shè)置為簡單操作，打開視圖或文件夾，打開文件夾為個人興趣。

按作者：設(shè)置為簡單操作，打開視圖或文件夾，打開的視圖為按作者。

按分類：設(shè)置為簡單操作，打開視圖或文件夾，打開的視圖為按分類。

導(dǎo)航器所連接的元素如圖1所示。

5 模塊流程圖

本模塊所完成的工作如圖2所示。

6 結(jié)束語

辦公自動化（OA）因其明顯推動企事業(yè)單位信息化的進程而備受重視，一直是IT建設(shè)的重點；同時，由于辦公自動化具有涉及崗位、人員眾多，處理流程煩瑣、多變等特點，而成為IT建設(shè)的難點之一。網(wǎng)絡(luò)化和Notes平臺的出現(xiàn)使上述問題迎刃而解。許多成功的案例確立了Notes在辦公自動化方面事實上的標準地位。需要指出的是Notes不僅模擬了辦公過程，而且支持人們通過模擬而改革辦公流程。顯然，這是傳統(tǒng)的辦公自動化工具（如傳真機、復(fù)印機）等無法勝任的。在發(fā)展辦公自動化的過程中我們感到了知識對于企業(yè)流轉(zhuǎn)和員工的技能等方面的重要性，國內(nèi)OA系統(tǒng)很多是基于Lotus Domino/Notes平臺，它幾乎已經(jīng)成為一個事實上的標準平臺。

主要參考文獻

[1]馮錦峰.Lotus Domino/Notes R5 應(yīng)用開發(fā)指南[M].北京：北京希望電子出版社，2000.

[2][美]Randall A Tamura.Lotus Notes 和Domino Server 4.6技術(shù)大全[M].王建華，譯.北京：機械工業(yè)出版社，1998.

[3]石麗霞.Lotus Domino Designer 6應(yīng)用程序開發(fā)指南[M].北京：中國水利水電出版社，2004.

[4]段立. Lotus Domino＼Notes R6中文版辦公自動化解決方案及應(yīng)用剖析[M].北京：機械工業(yè)出版社，2001.

[5][美] T Tulisalo，R Carlsen .Lotus Domino 6應(yīng)用開發(fā)手冊[M].北京：北京希望電子出版社，2003：56-80.