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