【正文】 收文登記者 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è)計(jì)者 End If If =ACLLEVEL_MANAGER Then tmpStr$ = 管理者 End If Call (CtrlLevel,tmpStr$)End Sub%REM 表單操作：添加人員權(quán)限
。Command([FileCloseWindow])。該項(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]。用戶 Set itemUsers = (txtFldName) Dim txtHandler As String txtHandler = (0) = varGetHandlerFromUsers(,itemUsers,0) 39。 false 失敗注意：　可能覆蓋原處理者，但未選出新的處理者的話原處理者依然不變‘%END REM Dim txtFldName As String Dim itemRole As NotesItem txtFldName = txtRole_+Trim$(Str$(i)) 39。 End If End If39。 Else varGetHandlerFromUsers= (0) 39。不轉(zhuǎn)交當(dāng)前事項(xiàng)39。沒有選擇Yes39。僅僅只有一點(diǎn)成員39。2位以上 End If End If End Forall If l_intMemNum = 0 Then varGetHandlerFromUsers = 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表示會(huì)簽(可選多人)；否則不是返回：　從成員表中選擇的人注意：0，1，多人（此時(shí)要考慮是否會(huì)簽標(biāo)志）的選擇情況不同%END REM Dim l_intMemNum As Integer l_intMemNum = 0 39。用戶 Call varCopyItem(p_docCur,docLcDy,txtFldName) txtFldName = txtEnableReject_+Trim$(Str$(i)) 39。步驟名 Call varCopyItem(p_docCur,docLcDy,txtFldName) txtFldName = txtRole_+Trim$(Str$(i)) 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, _ 錯(cuò)誤, 未能找到+(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。　false 失敗注意：　　會(huì)讀取本數(shù)據(jù)庫中的視圖流程定義一覽表LcDyList。指定打開郵件的表單(自定義) Dim rtiDocLink As NotesRichTextItem Set rtiDocLink = New NotesRichTextItem(docMail,Body) Call (p_docCur,相關(guān)公文 ) 39。 否則：false注意?。亨]箱中要自定義表單　DocLink%END REM On Error Goto err01 Dim docMail As NotesDocument Set docMail = 39。當(dāng)前后臺(tái)文檔Dim strUserName As String 39。當(dāng)前前臺(tái)工作區(qū)對象Dim dbCur As NotesDatabase 39。1) ‘關(guān)鍵字維護(hù)Command([UserIDSetPassword]) ‘修改口令Workflow (script庫)%REM本數(shù)據(jù)庫用到的一些全局變量%END REMDim sessCur As NotesSession 39。Subset(DbName。1):。1) ‘來賓管理系統(tǒng)維護(hù)Command([FileOpenDatabase]。Subset(DbName。1):。1) ‘公告通知Command([FileOpenDatabase]。Subset(DbName。1):。1) ‘打開討論中心數(shù)據(jù)庫Command([FileOpenDatabase]。Subset(DbName。1) ‘個(gè)人通訊錄Command( [Execute]。1) ‘‘打開出勤補(bǔ)簽數(shù)據(jù)庫Command([FileOpenDatabase]。Subset(DbName。1):。網(wǎng)上尋呼) ‘網(wǎng)上尋呼Command([FileOpenDatabase]。1) ‘打開電子郵件數(shù)據(jù)庫DialogBox(網(wǎng)上尋呼。Subset(DbName。1):。1) ‘打開報(bào)告管理數(shù)據(jù)庫Command([FileOpenDatabase]。Subset(DbName。1):。1) ‘打開收文管理數(shù)據(jù)庫Command([FileOpenDatabase]。Subset(DbName。我們每個(gè)人取得的任何成就，都離不開家人父母的辛勤、汗水和默默的支持，在這里我向他們表示我深深的敬愛。同時(shí)還要感謝**老師，她在本文的完成過程中，給予我很多的支持和幫助。他的嚴(yán)格要求和在研究方法上對我的指導(dǎo)，使我能夠完成這篇論文。本系統(tǒng)在遠(yuǎn)程學(xué)習(xí)，知識(shí)提煉方面還有待進(jìn)一步提高。當(dāng)Web技術(shù)在性能和安全性上得到切實(shí)的保證時(shí)，瀏覽器/服務(wù)器系統(tǒng)很有可能像現(xiàn)在客戶機(jī)/服務(wù)器應(yīng)用程序一樣在應(yīng)用中占主導(dǎo)地位。另外要指出的是，Intranet/Internet發(fā)展到今天，雖然取得了巨大的成功，但是其安全保障依然承受著巨大的考驗(yàn)，從今天Oracle、SAP等公司在客戶機(jī)/服務(wù)器套件中增加Web前端的努力來看，C/S和B/S結(jié)構(gòu)的結(jié)合依然有著強(qiáng)大的生命力。5）統(tǒng)一系統(tǒng)設(shè)置，方便系統(tǒng)維護(hù)，使用該系統(tǒng)，可大大提高辦公自動(dòng)化系統(tǒng)的運(yùn)作效率，減輕系統(tǒng)管理的復(fù)雜性，使操作簡便易行。業(yè)界公認(rèn)安全性是Domino/Notes最有價(jià)值的特性之一。4）高度的安全性，系統(tǒng)是基于Domino/Notes開發(fā)的。當(dāng)您外出時(shí)只需要通過筆記本電腦撥號上網(wǎng)或通過VPN虛擬專用網(wǎng)(VPN可以利用Internet建立加密的數(shù)據(jù)通道，將企業(yè)總部和分支機(jī)構(gòu)、遠(yuǎn)程用戶及業(yè)務(wù)合作伙伴等連接起來，構(gòu)成一個(gè)安全的企業(yè)專用網(wǎng))遠(yuǎn)程訪問公司或單位的辦公自動(dòng)化系統(tǒng)，查看本人的待辦事宜和郵件，查詢企業(yè)最新信息。2）完善的流程跟蹤和控制，系統(tǒng)對公文流轉(zhuǎn)的整個(gè)流程進(jìn)行跟蹤，詳細(xì)記錄公文的當(dāng)前狀態(tài)、辦理的過程和擬辦、批示意見以及辦理結(jié)果。 本文所闡述的系統(tǒng)簡單、易用，實(shí)現(xiàn)了工作流的閉環(huán)流轉(zhuǎn)，支持異地辦公，具有強(qiáng)大的信息處理功能以及完善的安全機(jī)制。在基于Lotus Domino的平臺(tái)上進(jìn)行辦公自動(dòng)化設(shè)計(jì)，充分利用Lotus的功能，能使整個(gè)開發(fā)過程收到事半功倍的效果。 大綱設(shè)計(jì)其他模塊簡介 整個(gè)系統(tǒng)主要由以上模塊啟動(dòng)，其他部分雖然在設(shè)計(jì)上相對簡單一些，但是在系統(tǒng)中也占有很重要的地位，是實(shí)現(xiàn)整個(gè)應(yīng)用程序的重要組成部分，具體分析就不再贅述，下面將給出其效果示意圖以及Web瀏覽的效果圖。大綱提供到數(shù)據(jù)庫中所有文件夾或者視圖的鏈接，同時(shí)還可以提供操作、URL或到其他元素的連接，如視圖、表單、幀結(jié)構(gòu)集等等。但設(shè)計(jì)者們大多會(huì)開發(fā)自己喜歡的大綱結(jié)構(gòu)。所有的數(shù)據(jù)庫都帶有一個(gè)默認(rèn)的導(dǎo)航結(jié)構(gòu)，稱為文件夾窗格，或稱作導(dǎo)航窗格。頁面在應(yīng)用程序中為用戶顯示文本、圖形或者嵌入式控件(如大綱)。 視圖設(shè)計(jì)(3)、其他元素設(shè)計(jì) 下面介紹頁面和大綱設(shè)計(jì)。每個(gè)數(shù)據(jù)庫必須包含至少一個(gè)視圖，而大多數(shù)數(shù)據(jù)庫都包含多個(gè)視圖。因此要設(shè)置程序的全局變量，控制文檔的讀寫模式，代碼如下：Sub OutOfEdit AllowEdit=False //允許編輯標(biāo)志關(guān)閉End SubSub MyGotoEdit AllowEdit=True //允許編輯標(biāo)志打開 =True //置文檔于編輯模式End Sub 。因此該表單的一個(gè)重要功能是應(yīng)該能夠根據(jù)文檔流轉(zhuǎn)過程中所處的不同辦公人員的角色提供不同的操作；另一方面還要記錄文檔流轉(zhuǎn)過程中的一些信息，以實(shí)現(xiàn)對文檔的跟蹤控制。 本設(shè)計(jì)實(shí)現(xiàn)中最重要的表單是報(bào)告表單(別名BG)。最后或者經(jīng)過設(shè)計(jì)好的頁面、大綱、幀結(jié)構(gòu)集把設(shè)計(jì)好的視圖進(jìn)行組織，從而把