You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Current »

[ |../../index.htm#lansa/vlftutorials_0120.htm]
Visual LANSA フレームワーク ガイド > チュートリアル > VLF-WIN アプリケーションのチュートリアル > VLF012WIN - 切り替えサービスおよび仮想クリップボードを使用したナビゲーション制御 > ステップ 3. "部門" から "社員" ビジネス・オブジェクトへの切り替えロジックを追加

ステップ 3. "部門" から "社員" ビジネス・オブジェクトへの切り替えロジックを追加

のステップでは、"部門"のコマンド・ハンドラーにロジックを追加して、"社員"ビジネス・オブジェクトの詳細コマンド・ハンドラーに選択した社員の詳細を表示します。
社員の詳細コマンド・ハンドラーへの切り替えは、ボタンのクリック・イベントで実行されます。
1.   詳細コマンド・ハンドラーの [デザイン] タブを表示します。
2.   プッシュ・ボタンを [コントロール] タブからコマンド・ハンドラーの右側パネル (PANL_1) にドラッグします。
3.  [レイアウト] リボンを使って、このボタンの [配置] を [中央上] にします。上の余白を 10 にします。
4.   ボタンのキャプションを詳細にします。

5.   ボタンに Click イベントを作成します。
6.   クリック・イベントに、"社員" ビジネス・オブジェクトの詳細コマンド・ハンドラーに切り替えるステートメントを追加します。
#avframeworkmanager.avSwitch To(BUSINESSOBJECT) NAMED(EMPLOYEES) EXECUTE(DETAILS)  Caller(#com_owner) ClearInstanceList(TRUE)

  • To パラメータには、ビジネス・オブジェクトへの切り替えであることを示す BUSINESSOBJECT が含まれています(フレームワークまたはアプリケーションに切り替えることもできます)。 
  • NAMED パラメータには、実際のビジネス・オブジェクト名が含まれている必要があります。 
  • EXECUTE パラメータには、実行するコマンドの名前が含まれている必要があります。 
  • ClearInstancList パラメータを指定すると、オプションでインスタンスリストをクリアできます。

 
7.   次に、グリッド内の社員の値に基づいて表示するインスタンスを "社員" ビジネス・オブジェクトに伝えるイベント・ルーチンを追加します。
Evtroutine Handling(#avFrameworkManager.avAddSwitchInstances) Options(*NOCLEARERRORS *NOCLEARMESSAGES) Caller(#Caller)

  • Make sure the caller is this component
    If_Ref Com(#Caller) Is_Not(*Equal_to #Com_Owner)
    Return
    Endif
    Invoke Method(#avFrameworkManager.avAddSwitchInstance) Businessobjecttype(EMPLOYEES) Visualid1(#xEmployeeIdentification) Visualid2(#xEmployeeSurname.AsNativeString) Akey1(#xEmployeeIdentification)
    Endroutine 
  • avAddSwitchInstances イベント・ルーチンは、常に、avSwitch メソッドを使用して切り替えを実行した直後に実行されます。  このイベントを使用すると、対象のビジネス・オブジェクトのインスタントリストに配置されるデータを制御することができます。  このイベントを通知するコンポーネントが Caller パラメータに渡されます。
  • このイベントを通知するコンポーネントがそのコンポーネント自体である場合は、このイベントでのみコードを実行することが重要です。  ですから、呼び出し元が #com_owner でない場合は、このイベント・ルーチンから戻る必要があります。  #Caller および #Com_Owner を比較するのに is_not(*Equal_to がどのように使用されているのかに注意してください。  単純な文字列ではなく、コンポーネント自体を比較しているので、この構文を使用する必要があります。
  • avAddSwitchInstance メソッドは対象のインスタンスリストに追加するデータを指定します。
  • 必要であれば、avAddSwitchInstance メソッドを繰り返し呼び出すことで、複数のエントリーを対象のビジネス・オブジェクトのインスタンスリストに配置することができます。

  • "社員" ビジネス・オブジェクトの [識別子] タブで、ユーザー・オブジェクト タイプが EMPLOYEES であることを確認してください。そうでない場合はこの切り替えが作動しません。

  
コードは、次のようになります。

 
8.   コマンド・ハンドラーをコンパイルします。
9.   切り替えをテストします。1 人の社員を選択し、詳細コマンド・ハンドラーで [詳細] ボタンをクリックすると、選択した社員の詳細とともに社員ビジネス・オブジェクトが表示されます。

  
[ |../../index.htm#lansa/vlftutorials_0120.htm]

  • No labels