Page History
[ 
|../../index.htm#lansa/l4wdev06_0575.htm]
現在地:
...
作成したアプリケーションでは、同時に1人の社員の詳細だけを表示できます。そのため、同時に複数の社員の詳細を表示できる別のバージョンのアプリケーションも作成しました。
作成したアプリケーションでは、同時に1人の社員の詳細だけを表示できます。そのため、同時に複数の社員の詳細を表示できる別のバージョンのアプリケーションも作成しました。
コレクション
フォームの複数のインスタンスを表示するために、この定義ステートメントをWRKEMPに追加し、フォームのコレクションを作成しました。
DEFINE_
...
COM CLASS(#PRIM_KCOL)
...
NAME(#DFORMS)
...
COLLECTS(#FRMDETAIL)
...
KEYEDBY(#EMPNO)
このステートメントは、#DFORMSというFRMDETAILのインスタンスのコレクションを定義します。フォーム・インスタンスは、社員番号で識別されます。
それから#DFORMSコレクションのインスタンスを参照するよう、コードを変更しました。フォーム・インスタンスを参照する構文は、以下のとおりです。
それから#DFORMSコレクションのインスタンスを参照するよう、コードを変更しました。フォーム・インスタンスを参照する構文は、以下のとおりです。
CollectionName<キー>
...
詳細メニュー・オプションのコードは、以下のようになります。
EVTROUTINE HANDLING(#MDetails.Click) SET COM(#dforms<#empno>) formowner(#com_owner) invoke #dforms<#empno>.showform set com(#dforms<#empno>) employee(#empno) invoke #dforms<#empno>.GetInfoENDROUTINE
...
すべてのフォーム・インスタンスの参照
FRMDETAILのOKPressedイベントのイベント・ルーチンは、コレクション内の任意の詳細フォームを参照するように変更する必要があります。
EVTROUTINE HANDLING(#dforms<>.OKPressed) execute getlistENDROUTINE
...
OKPressedイベントが詳細フォームのいずれかから通知されると、GETLISTサブルーチンが実行されます。このコードから見ると、すべてのインスタンスが参照されるとコレクションのキー値は指定されません。インスタンスは#dforms<>です。
最後に、メイン・フォームが閉じられたときにFRMDETAILフォームのすべてのインスタンスが閉じられるよう、WRKEMPのClosingイベントのイベント・ルーチンを追加しました。
EVTROUTINE HANDLING(#COM_OWNER.Closing) invoke #dforms<>.CloseFormENDROUTINE
...
同じ結果になるこれ以外の方法は、FRMDETAILのFormStyleをOwnedに設定することです。この設定は、フォームが他のフォームのメンバー・フォームの場合、オーナー・フォームが閉じられたときに閉じられることを指定します。
「2.14.7 マルチフォーム・アプリケーション例のソース・コード
...