これは非常に簡単なフォームで、ユーザーは部門コードと課コードを入力して [社員を取得] というボタンをクリックします。

その後、プログラムによって該当する部門と課の社員リストが表示されます。フォームのビジュアル・デザインは以下のようになります。


  1. LANSA エディターの [ファイル] メニューから、作成/基本フォームで、iiiFRM05 – JSON を使用して社員を取得を作成します。このフォームは RDMLX対応にします。

    以下のコードをコピーして、このフォームに貼り付けます。
    CALL ステートメントを変更して、ファンクション iiiFN11 を呼び出すようにします。

    Function Options(*DIRECT)
    Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(798) Clientheight(425) Componentversion(2) Left(620) Top(190)
    Define_Com Class(#DEPTMENT.Visual) Name(#DEPTMENT) Displayposition(1) Left(17) Parent(#COM_OWNER) Tabposition(1) Top(16)
    Define_Com Class(#SECTION.Visual) Name(#SECTION) Displayposition(2) Left(14) Parent(#COM_OWNER) Tabposition(2) Top(49)
    Define_Com Class(#PRIM_PHBN) Name(#Button1) Displayposition(3) Left(272) Parent(#COM_OWNER) Tabposition(3) Top(24) Caption('検索')
    Define_Com Class(#PRIM_LTVW) Name(#ListView1) Columnbuttonheight(27) Componentversion(2) Displayposition(4) Fullrowselect(True) Keyboardpositioning(SortColumn) Left(23) Parent(#COM_OWNER) Showsortarrow(True) Tabposition(4) Top(94) Height(307) Width(730)
    Define_Com Class(#PRIM_LVCL) Name(#LVCL1) Displayposition(1) Parent(#ListView1) Source(#EMPNO)
    Define_Com Class(#PRIM_LVCL) Name(#LVCL2) Displayposition(2) Parent(#ListView1) Source(#SURNAME) Width(28)
    Define_Com Class(#PRIM_LVCL) Name(#LVCL3) Displayposition(3) Parent(#ListView1) Source(#GIVENAME) Width(25)
    Define_Com Class(#PRIM_LVCL) Name(#LVCL4) Displayposition(4) Parent(#ListView1) Source(#SALARY) Widthtype(Remainder)

    Def_List Name(#EMPS) Fields(#EMPNO #GIVENAME #SURNAME #SALARY) Type(*WORKING) Entrys(*MAX)

    Evtroutine Handling(#com_owner.CreateInstance)

    Set Com(#com_owner) Caption(*component_desc)

    Endroutine

    Evtroutine Handling(#Button1.Click)
    Exchange Fields(#DEPTMENT #SECTION)
    Call Process(*DIRECT) Function(iiiFN11) Exit_Used(*NEXT) Pass_Lst(#EMPS)

    Clr_List Named(#ListView1)
    Selectlist Named(#EMPS)
    Add_Entry To_List(#ListView1)
    Endselect
    Endroutine
    End_Com 

  2. フォームをコンパイルします。
  • No labels