Page History
...
LANSAファンクションは、FRMWRK1テンプレートを使用して作成されました。名字の一部を入力し、表示される社員を限定できる画面があります。
OKをクリックすると、社員の処理画面が表示されます。この画面には、名前の一部が一致する社員のリストが表示されます。OPTフィールドに番号を入力し、社員情報を表示、変更、削除できます。
変更オプションを選択すると、入力フィールドの画面が表示されます。
同様に、詳細オプションと削除オプションを選択すると、同じ情報を表示する画面が表示されますが、入力はできないようになっています。
...
社員のリスト
複数のフィールド
社員の詳細の変更を保存するボタン、新しい社員を追加するボタン、社員のレコードを削除するボタン
...
以下に注意してください。
- このアプリケーションは、1つのウィンドウで構成されているので、すべての情報を即座に見ることができます。
- 移動は必要ありません。1つの同じウィンドウを使用し、社員を名字で限定したり、社員を選択したり、詳細を表示したり、変更したり、削除することができます。
- 好きな順序でアクションを実行できます。例えば、いつ(そしてどのような場合に)名字の一部を変更するかを自分で決定できます。
- 情報をすばやく簡単にチェックおよび比較できます。
...
- 取得ボタンを押すと、SELECTステートメントが実行され、リストに情報が入力されます。
EVTROUTINE HANDLING(#Get.Click)
...
change #surname #partname
clr_list #list_1
SELECT FIELDS(#list_1)
...
FROM_FILE(PSLMST2)
...
WITH_KEY(#SURNAME)
...
GENERIC(*YES)
...
add_entry #list_1
ENDSELECT
ENDROUTINE
- リストで社員を選択すると、社員の詳細が取得されます。
EVTROUTINE - リストで社員を選択すると、社員の詳細が取得されます。
...
HANDLING(#List_1.ItemGotSelection)...
FETCH FIELDS(#ALLFLDS)
...
FROM_FILE(PSLMST)
...
WITH_KEY(#EMPNO)
...
ENDROUTINE
- 保存ボタンをクリックすると、詳細が更新されます。
...
EVTROUTINE HANDLING(#SAVE.CLICK)
...
UPDATE FIELDS(#ALLFLDS)
...
IN_FILE(PSLMST)
...
WITH_KEY(#EMPNO)
...
ENDROUTINE
- 削除ボタンをクリックすると、詳細が削除されます。
...
EVTROUTINE HANDLING(#DELETE.CLICK)
...
DELETE FROM_FILE(PSLMST)
...
WITH_KEY(#EMPNO)
...
ENDROUTINE
このようなアプリケーションは、LANSA ファンクションでは画面が全体的に処理されるので、実装できません。