設(shè)計所見即所得編輯器例程庫過程詳解(編輯修改稿)
2025-06-12 21:12 本頁面
【文章內(nèi)容簡介】 來構(gòu)建常見的應(yīng)用程序了。 下面的章節(jié)將介紹配合表單運行的 視圖 、 代理 等元素，由于代理中要使用相關(guān)的視圖，所以視圖和代理將放在一個章節(jié)中進行介紹。 第四節(jié)代理和視圖設(shè)計 上一節(jié)中介紹的表單設(shè)計中，還有一部分沒有介紹，因為涉及到了表單執(zhí)行動作所用的代碼部分，本節(jié)進行介紹。 要保存錄入的內(nèi)容，只要單擊頁面中的 保存文檔 按鈕，為了讓 保存按鈕能夠在 Web 頁面中顯示出來并且執(zhí)行正確的功能，需要為其編寫代碼，上一節(jié)中看到的 刪除文檔 按鈕的代 碼是 JavaScript，保存按鈕需要驗證的內(nèi)容更多，所以也用 JavaScript 來編寫，查看腳本時會發(fā)現(xiàn)，只有一句話： doSubmit()； 這是什么意思呢 ?其實它執(zhí)行的是一個函數(shù)，這個函數(shù)在表單的 JS Header中編寫，代碼如下： function doSubmit() { var objForm=[0]； if(==) { alert(請輸入標題 ) ()； return false； } (true)； if(==) { alert(請輸入內(nèi)容 )； return false； } ()； } 這段代碼的作用就是驗證表單中的某些需要錄入文字的地方是否為空，如果為空，就提示用戶錄入，中間的 (true)；作用是調(diào)用TinyMCE 的函數(shù)，來保存內(nèi)容；最后的 ()；是執(zhí)行保存 Domino 文檔的代碼，它去執(zhí)行了表單中一個不可見按鈕的單擊事件，按鈕再去執(zhí)行后臺的代理。 我們來看看那個按鈕的單擊事件中的代碼： @Command([ToolsRunMacro]； savethis) 這個公式就是去執(zhí)行本數(shù)據(jù)庫中的 savethis代理，要查看代理，需要打開數(shù)據(jù)庫的 共享代碼 分類，然后單擊其中 的 代理 標簽，右側(cè)的視圖中就會顯示出當前數(shù)據(jù)庫中所有的代理。我們找到 savethis代理，雙擊可以打開它，打開它的時候， Designer 會自動打開代理屬性對話框，如下圖所示： 注意圖片最下面的 Runtime 分類里的 Target下拉列表，在新建代理的時候，默認是 All Selected Documents，需要修改成 none，否則執(zhí)行代理的時候會報告一個運行時錯誤。 如果代理被設(shè)計用來定時或定期執(zhí)行，就需要在 Trigger(觸發(fā) )單選框中選擇 On schedule選項，然后在下面選擇 對應(yīng)的選項，在此不再做深入介紹，有興趣的可以自行試驗。 代理屬性窗口中還有一個 Security標簽 (就是一個小鑰匙的那個 )，可以用來設(shè)置運行代理的權(quán)限，如下圖所示： 為了能使代理為很多登錄 Domino 服務(wù)器的用戶服務(wù)，我們可以勾選 Run as web user復(fù)選框，這樣就不只是簽名代理的用戶能運行此代理了，這個代理設(shè)計時允許所有用戶都可以運行它 (包括匿名用戶： Anonymous)，所以不必勾選此項；下面還有一個下拉列表框： Set runtime security level： ，這個選項用來控制當 前用戶是否可以執(zhí)行某些限制性的操作，比如刪除文檔和編輯文檔，共分為三個等級，第一級是最安全的，但是在使用的時候有些不太方便，第三個級別權(quán)限最大，相應(yīng)來說也最不安全，但是在局域網(wǎng)的條件下，可以選用第三個選項來獲得更多的易操作性。 下面分析一下代理的代碼，看看代理都執(zhí)行了哪些操作來保存文檔，代碼如下： (Options)部分： Option Public Option Declare 此部分代碼的第一行是新建代理時 Designer 自動創(chuàng)建的，第二行是自行添加的，作用是：在編寫程序時必須先聲明變量，然后才能使用變 量，否則編譯時報錯。 Initialize 部分： Sub Initialize On Error Goto handle_error Dim vWebSession As New notessession Dim vThisDatabase As notesdatabase Dim vThisDocument As notesdocument Dim vRichStyle As NotesRichTextStyle Dim vRTItem As Variant Dim vHTMLCode As Variant Set vThisDatabase= Set vThisDocument= Set vRichStyle= =True Set vRTItem=(yimingstudio) If(=RICHTEXT)Then vHTMLCode=() Call (yimingstudio) Set vRTItem=(yimingstudio) Call (vRichStyle) Call (vHTMLCode) End If =HTMLFormAdv Call (True,True) Print|[script language=javascript]|[br/]Print|=[a href=color=808000]color=808000]|+(0)+|/all/|+Cstr( lID)+|?opendocument|[br/]Print|[/script]| Exit Sub handle_error： Exit Sub End Sub 此部分是整個代理的主體部分，幾乎所有的功能都要在這里實現(xiàn)，這段代碼的主要功能是保存當前用戶錄入的內(nèi)容，將其保存為一個 Domino 文檔，并且保留了編輯器中的各種格式。 要實現(xiàn)上述功能，其實只需要對當前表單中的一個 RTF 類型的域進行操作即可實現(xiàn)，從代碼中可以看出，主要就是圍繞著那個名字為 yimingstudio的RTF域來進行操作： ，然后判斷其是否為 RTF 類型 RTF 類型，就先把其中的內(nèi)容和格式先賦到變 量中，然后將其刪除 RTF域，再把變量中保存的內(nèi)容和格式賦給此域 至于 RTF 域為何進行如此復(fù)雜的操作，筆者也不太清楚 (板磚的不要： ))，只是從郵件模板中看到了此種方法，并且屢試不爽，于是借鑒了一下 (看來需要好好研究一下郵件模板了 )。 在操作完 RTF 域之
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1