Page History

...

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

Function　　　Function Options(*DIRECT)
Begin　　　Begin_Com Role(*EXTENDS #PRIM_FORM) Height(346) Left(245) Top(136) Width(623)
Define　　　Define_Com Class(#PRIM_LTVW) Name(#EMPLIST) Displayposition(1) Fullrowselect(True) Height(285) Left(8) Parent(#COM_OWNER) Selectionstyle(Single) Tabposition(1) Top(28) Width(505)
Define　　　Define_Com Class(#PRIM_LVCL) Name(#LVCL_1) Displayposition(1) Parent(#EMPLIST) Source(#EMPNO) Width(24)
Define　　　Define_Com Class(#PRIM_LVCL) Name(#LVCL_2) Displayposition(2) Parent(#EMPLIST) Source(#SURNAME) Width(25)
Define　　　Define_Com Class(#PRIM_LVCL) Name(#LVCL_3) Displayposition(3) Parent(#EMPLIST) Source(#GIVENAME) Width(33)
Define　　　Define_Com Class(#PRIM_LVCL) Name(#LVCL_4) Displayposition(4) Parent(#EMPLIST) Source(#SALARY) Width(18)
Define　　　Define_Com Class(#PRIM_PHBN) Name(#PB_RAISE) Caption('Give Raise') Displayposition(2) Enabled(False) Left(528) Parent(#COM_OWNER) Tabposition(2) Top(272)
Evtroutine　　　Evtroutine Handling(#com_owner.Initialize)
Select　　　Select Fields(#EMPLIST) From_File(PSLMST)
Add　　　Add_Entry To_List(#EMPLIST)
Endselect　　　Endselect
Endroutine　　　Endroutine
Evtroutine　　　Evtroutine Handling(#PB_RAISE.Click)
Change　　　Change Field(#SALARY) To('#SALARY * 1.10')
Upd　　　Upd_Entry In_List(#EMPLIST)
Endroutine　　　Endroutine
Evtroutine　　　Evtroutine Handling(#EMPLIST.ItemGotSelection)
Set　　　Set Com(#PB_RAISE) Enabled(TRUE)
Endroutine　　　Endroutine
End　　　End_Com