26.Lotus Notesにデータを配置する

一つの応用にはいつも各種の配置データがあります.例えば、清算科目、データベースパス、審査員などです.Lotus Notesでは、これらの構成データを容易に維持し、参照することができる.少し経験があるNotesプログラマーは自分の好みでこのような機能を開発し、繰り返し使用します.基本的なデザインは同じです.フォームとビューだけが必要です.他のところから引用された数式も加えて、ここで初心者に紹介しています.
フォームやビューなどのデザイン要素はテキストで表現するのが苦手で、XMLにエクスポートできますが、導入回復には専門的にプログラムを書く必要があります.しかし、8.5バージョンからDesignerはEdit with XMLの機能を持っています.Database Navigatorでデザイン要素を選択しました.右ボタンメニューにはこの項目があります.XML編集時はいつでも保存してデザインビューのチェックに切り替えることができます.フォームとビューのXMLをここに貼り付けます.私が使っているDesignerのバージョンは9.0なので、DXLのバージョンも9.0ですが、8.5で使っても大丈夫です.フォームのXML:

20121204T163853,11+08
20121204T163856,54+08
20121204T163856,53+08
20121204T163856,54+08
20121204T163856,54+08
CN=Starrow Pan/OU=ABC/O=ABC
CN=Starrow Pan/OU=ABC/O=ABC
Option Public
Option Declare
Use "Commons"
"Keyword"Sub Querysave(Source As Notesuidocument, Continue As Variant)
	Dim validator1 As New Validator()
	With validator1
		Call .Add("Keyword","Keyword")
		Call .Add("Values","Values")
	End With
	If Not validator1.Validate() Then
		continue=False
	End If
End Sub



@Command([FileCloseWindow])

@Command([FileSave])


Reader:"*"
Writers:"[Admin]"


Keyword





Status:


ActiveInactive"Active"


*Keyword:


Yg4BAIQAAAAAAAAAAAA=



*Values:


Yg4BAIQAAAAAAAAAAAA=
 separate multiple values with new line

Keyword

上のコードの前の部分は、名前、変更時間、署名などのフォームに関する基本的な情報である.OptionPublicという行からフォームの対応する部分を入れ替えます.運がよければ、デザインビューで見たのは私のと同じです.実はこのフォームも簡単です.読者ドメインは、すべての人が読むことができるようにします.作者ドメインは特定のキャラクターの人が書くことができます.Statusドメインは、この設定ドキュメントがActiveまたはInactiveであるかを選択できます.Keywordドメインは、この設定のキーワードを検索するためにマークされています.Valuesドメインは、キーワードに対応するデータを保存するために使用されます.フォーム因はCommonsスクリプトライブラリで、検証のためのValidatorクラスを含みます.
ビューのXML:

20121204T163529,81+08
20121204T163531,15+08
20121204T163531,14+08
20121204T163531,15+08
20121204T163531,15+08
CN=Starrow Pan/OU=ABC/O=ABC
CN=Starrow Pan/OU=ABC/O=ABCSELECT Form="Keyword"


@Command([Compose];"";"Keyword")@IsNotMember("[Admin]";@UserRoles)

同様にSELECT Form="Keyword"formulla>code> は とビューオプションで、 の をビューの に き えます.ビューの はKeywordドメインに する であり、 はValuesドメインに する.
その 、 のフォームの フィールドのオプション には、このような のデータを き むことができます.リスト:=@Db Lookup("""""""""";vwKeyValues";Education";2);@If(@IsError(list);';list)