【正文】 人員去向信息庫用于工作人員登記自己的去向和留言，方便聯(lián)系和前臺接待。工作計劃模塊用于員工在日常工作中對自己的工作進(jìn)行安排，計算機(jī)會對工作安排進(jìn)行協(xié)調(diào)，并監(jiān)控工作完成情況，如果在到指定完成時間時尚未完成工作安排，計算機(jī)會自動發(fā)出催辦信。按Internet瀏覽可以快速啟動系統(tǒng)內(nèi)置的Internet Explorer，進(jìn)行網(wǎng)上沖浪。關(guān)鍵字管理只能由系統(tǒng)管理員修改數(shù)據(jù)，其他人不能修改數(shù)據(jù)，只能引用數(shù)據(jù)。SQL Server數(shù)據(jù)庫存放檔案管理中的歸檔數(shù)據(jù)，視數(shù)據(jù)容量定期備份到光盤。一般來說，先由應(yīng)用程序開發(fā)設(shè)計人員設(shè)計文檔(如域，表單、試圖、文件夾、操作等等)，用戶則基于己有的設(shè)計創(chuàng)建文檔，并且按照定制的工作流程對文檔進(jìn)行處理。、 等數(shù)據(jù)庫，并在各個數(shù)據(jù)庫中設(shè)置相應(yīng)的必需的文檔、視圖、頁面、表單、域、文件夾以及導(dǎo)航器和各個頁面的大綱，其中各個數(shù)據(jù)庫中的頁面和表單是設(shè)計的重點(diǎn)。像公文這種非結(jié)構(gòu)化數(shù)據(jù)就可以利用RTF文本域存儲在文檔中。另外Notes文檔中還可以包含各種熱點(diǎn)文本，當(dāng)用戶單擊熱點(diǎn)文本時可以顯示出文本提示框或執(zhí)行預(yù)先指定的操作。另外還可以對數(shù)據(jù)庫進(jìn)行全文索引，以加速對數(shù)據(jù)庫的搜索。用戶的郵件數(shù)據(jù)庫也應(yīng)該放在數(shù)據(jù)庫上(Data\Mail\User )，以便隨時都能被訪問。一般在文檔結(jié)構(gòu)中被“*”號注明的域就是進(jìn)行一致性檢測的關(guān)鍵域。然而現(xiàn)實(shí)情況是：這些部門經(jīng)過調(diào)查一般都已經(jīng)有自己的系統(tǒng)在運(yùn)行，而且大部分是上級部門配發(fā)的，少部分是由本部門自己開發(fā)的，這就是實(shí)際過程中經(jīng)常會遇到的難題之一。各部門統(tǒng)計報表的輸入及查詢：現(xiàn)實(shí)應(yīng)用中，會有一些這樣的部門或科室：它們有大量的業(yè)務(wù)需要處理，會形成大量的報表，如各種月報表、季度報表、半年報表及年報表等，這些部門科室原來也都有自己的一些辦公系統(tǒng)，如FoxPro、Access等在進(jìn)行這些工作，要做到既充分利用原來的系統(tǒng)，又能夠在Notes辦公軟件中反映出來各類報表結(jié)果以供分管領(lǐng)導(dǎo)及授權(quán)人員查詢，需要Notes辦公軟件同這些系統(tǒng)連接起來?；驹硎鞘紫确謩e在Notes應(yīng)用程序和SQL Server數(shù)據(jù)庫中建立要連接的表單，然后配置DECS服務(wù)選項(xiàng)，定義所要執(zhí)行的操作，最后通過ODBC在Notes應(yīng)用程序中就可以實(shí)現(xiàn)要進(jìn)行的操作了。LS：DO適合實(shí)際的小批量數(shù)據(jù)的傳輸和轉(zhuǎn)換。具體來說，LotusScript程序就是利用這些類及其方法來實(shí)現(xiàn)對ODBC數(shù)據(jù)源的訪問。管理員通過對人員進(jìn)行注冊，設(shè)定其權(quán)限，使不同的用戶在公文流轉(zhuǎn)中扮演不同的角色。發(fā)文管理數(shù)據(jù)庫 該數(shù)據(jù)庫()是整個系統(tǒng)的核心之一，是整個系統(tǒng)設(shè)計的重中之重。最后或者經(jīng)過設(shè)計好的頁面、大綱、幀結(jié)構(gòu)集把設(shè)計好的視圖進(jìn)行組織，從而把整個數(shù)據(jù)庫的內(nèi)容顯示給用戶，因此表單設(shè)計直接關(guān)系著數(shù)據(jù)庫設(shè)計的效果成敗。因此該表單的一個重要功能是應(yīng)該能夠根據(jù)文檔流轉(zhuǎn)過程中所處的不同辦公人員的角色提供不同的操作；另一方面還要記錄文檔流轉(zhuǎn)過程中的一些信息，以實(shí)現(xiàn)對文檔的跟蹤控制。每個數(shù)據(jù)庫必須包含至少一個視圖，而大多數(shù)數(shù)據(jù)庫都包含多個視圖。頁面在應(yīng)用程序中為用戶顯示文本、圖形或者嵌入式控件(如大綱)。但設(shè)計者們大多會開發(fā)自己喜歡的大綱結(jié)構(gòu)。在基于Lotus Domino的平臺上進(jìn)行辦公自動化設(shè)計，充分利用Lotus的功能，能使整個開發(fā)過程收到事半功倍的效果。2）完善的流程跟蹤和控制，系統(tǒng)對公文流轉(zhuǎn)的整個流程進(jìn)行跟蹤，詳細(xì)記錄公文的當(dāng)前狀態(tài)、辦理的過程和擬辦、批示意見以及辦理結(jié)果。4）高度的安全性，系統(tǒng)是基于Domino/Notes開發(fā)的。5）統(tǒng)一系統(tǒng)設(shè)置，方便系統(tǒng)維護(hù)，使用該系統(tǒng)，可大大提高辦公自動化系統(tǒng)的運(yùn)作效率，減輕系統(tǒng)管理的復(fù)雜性，使操作簡便易行。當(dāng)Web技術(shù)在性能和安全性上得到切實(shí)的保證時，瀏覽器/服務(wù)器系統(tǒng)很有可能像現(xiàn)在客戶機(jī)/服務(wù)器應(yīng)用程序一樣在應(yīng)用中占主導(dǎo)地位。他的嚴(yán)格要求和在研究方法上對我的指導(dǎo)，使我能夠完成這篇論文。我們每個人取得的任何成就，都離不開家人父母的辛勤、汗水和默默的支持，在這里我向他們表示我深深的敬愛。1) ‘打開收文管理數(shù)據(jù)庫Command([FileOpenDatabase]。Subset(DbName。1):。1) ‘打開電子郵件數(shù)據(jù)庫DialogBox(網(wǎng)上尋呼。1):。1) ‘‘打開出勤補(bǔ)簽數(shù)據(jù)庫Command([FileOpenDatabase]。Subset(DbName。1):。1) ‘公告通知Command([FileOpenDatabase]。Subset(DbName。1):。1) ‘關(guān)鍵字維護(hù)Command([UserIDSetPassword]) ‘修改口令Workflow (script庫)%REM本數(shù)據(jù)庫用到的一些全局變量%END REMDim sessCur As NotesSession 39。當(dāng)前后臺文檔Dim strUserName As String 39。指定打開郵件的表單(自定義) Dim rtiDocLink As NotesRichTextItem Set rtiDocLink = New NotesRichTextItem(docMail,Body) Call (p_docCur,相關(guān)公文 ) 39?！∫晥D名　流程定義一覽表:主關(guān)鍵字為流程名 Dim vwLcDyList As NotesView Set vwLcDyList = (vwnLcDyList) Dim docLcDy As NotesDocument Set docLcDy = (p_txtFlowName,True) If docLcDy Is Nothing Then Call (PROMPT_OK, _ 錯誤, 未能找到+(0)+流程定義數(shù)據(jù)，故無法繼續(xù)進(jìn)行該項(xiàng)任務(wù)!, , ) Exit Function End If = = = Dim i As Integer Dim txtFldName As String For i = 1 To 4 39。用戶 Call varCopyItem(p_docCur,docLcDy,txtFldName) txtFldName = txtEnableReject_+Trim$(Str$(i)) 39。2位以上 End If End If End Forall If l_intMemNum = 0 Then varGetHandlerFromUsers = 39。沒有選擇Yes39。 Else varGetHandlerFromUsers= (0) 39。 false 失敗注意：　可能覆蓋原處理者，但未選出新的處理者的話原處理者依然不變‘%END REM Dim txtFldName As String Dim itemRole As NotesItem txtFldName = txtRole_+Trim$(Str$(i)) 39。該項(xiàng)目的指定步驟的變量名 Dim itemFld As NotesItem Set itemFld = (txtFldName) varGetStepLcDyInfo = End FunctionFunction varComposeComment(p_txtOpinion As String,p_docCur As NotesDocument,p_txtCommentFld As String) As Variant%REM功能： 形成完成的意見參數(shù)： p_txtOpinion 意向 p_docCur 當(dāng)前文檔 p_txtCommentFld 意見欄位名 %END REM Dim itemComment As NotesItem Set itemComment = (p_txtCommentFld) Dim txtDatetime As String txtDatetime = Now Dim txtOpinion As String txtOpinion = p_txtOpinion If txtOpinion = Then txtOpinion = .. End If username1 = Evaluate ( name([CN]。收文登記者 End Forall End Sub%REM 表單操作：查看人員權(quán)限%END REMSub Click(Source As Button) Dim db As NotesDatabase Dim session As New NotesSession Dim docCur As NotesDocument Dim uidoc As NotesUiDocument Dim workspace As New NotesUIWorkspace Set uidoc = Set db = If (Person)= Then Messagebox 請先選擇人員姓名 Exit Sub End If Dim acl As NotesACL Dim entry As NotesACLEntry Set acl = Set entry = ( (Person) ) If entry Is Nothing Then Set entry = (default) End If tmpStr$ = Forall r In If tmpStr$= Then tmpStr$ = r Else tmpStr$ = tmpStr$ + , + r End If End Forall Call (JiaoSe,tmpStr$) If =ACLLEVEL_NOACCESS Then tmpStr$ = 不能存取者 End If If =ACLLEVEL_DEPOSITOR Then tmpStr$ = 存放者 End If If =ACLLEVEL_READER Then tmpStr$ = 讀者 End If If =ACLLEVEL_AUTHOR Then tmpStr$ = 作者 End If If =ACLLEVEL_EDITOR Then tmpStr$ = 編輯者 End If If =ACLLEVEL_DESIGNER Then tmpStr$ = 設(shè)計者 End If If =ACLLEVEL_MANAGER Then tmpStr$ = 管理者 End If Call (CtrlLevel,tmpStr$)End Sub%REM 表單操作：添加人員權(quán)限
。Command([FileCloseWindow])。用戶 Set itemUsers = (txtFldName) Dim txtHandler As String txtHandler = (0) = varGetHandlerFromUsers(,itemUsers,0) 39。 End If End If39。不轉(zhuǎn)交當(dāng)前事項(xiàng)39。僅僅只有一點(diǎn)成員39。 false 失敗　　%END REM On Error Goto err01 Dim itemDes As NotesItem Dim itemSrc As NotesItem Set itemDes = (p_txtFldName) Set itemSrc = (p_txtFldName) = varCopyItem = Trueerr01: Exit FunctionEnd FunctionFunction varGetHandlerFromUsers(p_strRole As String,p_itemMembers As NotesItem,p_strIsParellel) As Variant%REM功能：　從某種身份的成員表中選擇若干人參數(shù)：　p_strRole 　　　角色或身份 p_itemMembers 　　成員表　　　 p_strIsParellel 1表示會簽(可選多人)；否則不是返回：　從成員表中選擇的人注意：0，1，多人（此時要考慮是否會簽標(biāo)志）的選擇情況不同%END REM Dim l_intMemNum As Integer l_intMemNum = 0 39。步驟名 Call varCopyItem(p_docCur,docLcDy,txtFldName) txtFldName = txtRole_+Trim$(Str$(i)) 39?！alse 失敗注意：　　會讀取本數(shù)據(jù)庫中的視圖流程定義一覽表LcDyList。 否則：false注意?。亨]箱中要自定義表單　DocLink%END REM On Error Goto err01 Dim docMail As NotesDocument Set docMail = 39。當(dāng)前前臺工作區(qū)對象Dim dbCur As NotesDatabase 39。Subset(DbName。1) ‘來賓管理系統(tǒng)維護(hù)Command([FileOpenDat