View Source

エディターでコンポーネント Store を開きます。
PopulateDocument メソッドにコードを追加して、オブジェクト Document に対するプロパティ p_TITLE を設定します。コードは以下のようになります。
```
     #Document.p_TITLE := #xEmployeeTitle
```
注：Store コンポーネントの Open メソッドは、社員レコードのすべてのフィールドを取り込むので、このロジックに変更を加える必要はありません。
ルーチン ExtractDocument にコードを追加して、対応する Document プロパティから社員のタイトルを設定します。コードは以下のようになります。
```
     #xEmployeeTitle := #Document.p_TITLE
```
Store コンポーネントをコンパイルします。