Page History

[ Image Removed |../../index.htm#lansa/l4wdev06_0465.htm]
現在地:

...

Wiki Markupこの例では、SELECTLISTステートメントを使用してリスト内のアイテムを操作し、UPD_ENTRYコマンドを使用して更新する方法を説明します。リスト・ビュー列には、社員名とその賃金が表示されます。\[昇給\]プッシュ・ボタンがクリックされるたびに、リスト内の各社員の賃金が10%増加します。 !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! 例の動作を見るには、このコードをフォーム・コンポーネントにコピーします。

Image Added

例の動作を見るには、このコードをフォーム・コンポーネントにコピーします。

FUNCTION options(*DIRECT)

...

BEGIN_COM role(*EXTENDS #PRIM_FORM) HEIGHT(334) LEFT(245) TOP(136) WIDTH(623)

...

DEFINE_COM class(#PRIM_LTVW) name(#EMPLIST) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(285) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(8) WIDTH(505)

...

DEFINE_COM class(#PRIM_LVCL) name(#LVCL_1) DISPLAYPOSITION(1) PARENT(#EMPLIST) SOURCE(#EMPNO) WIDTH(24)

...

DEFINE_COM class(#PRIM_LVCL) name(#LVCL_2) DISPLAYPOSITION(2) PARENT(#EMPLIST) SOURCE(#SURNAME) WIDTH(25)

...

DEFINE_COM class(#PRIM_LVCL) name(#LVCL_3) DISPLAYPOSITION(3) PARENT(#EMPLIST) SOURCE(#GIVENAME) WIDTH(33)

...

DEFINE_COM class(#PRIM_LVCL) name(#LVCL_4) DISPLAYPOSITION(4) PARENT(#EMPLIST) SOURCE(#SALARY) WIDTH(18)

...

DEFINE_COM class(#PRIM_PHBN) name(#PB_RAISE) CAPTION('Give Raise') DISPLAYPOSITION(2) LEFT(528) PARENT(#COM_OWNER) TABPOSITION(2) TOP(8)

...

EVTROUTINE handling(#com_owner.Initialize)

...

SELECT fields(#EMPLIST) from_file(PSLMST)

...

ADD_ENTRY to_list(#EMPLIST)

...

ENDSELECT

...

ENDROUTINE

...

EVTROUTINE handling(#PB_RAISE.Click)

...

SELECTLIST named(#EMPLIST)

...

CHANGE field(#SALARY) to('#SALARY * 1.10')

...

UPD_ENTRY in_list(#EMPLIST)

...

ENDSELECT

...

ENDROUTINE

...

END_COM

...