Page History

...

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

FUNCTION　　　FUNCTION options(*DIRECT)
BEGIN　　　BEGIN_COM role(*EXTENDS #PRIM_FORM) HEIGHT(346) LEFT(381) TOP(135) WIDTH(549)
DEFINE　　　DEFINE_COM class(#PRIM_LTVW) name(#EMPLIST) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(285) LEFT(8) PARENT(#COM_OWNER) SELECTIONSTYLE(Single) TABPOSITION(1) TOP(16) WIDTH(529)
DEFINE　　　DEFINE_COM class(#PRIM_LVCL) name(#LVCL_1) DISPLAYPOSITION(1) PARENT(#EMPLIST) SOURCE(#EMPNO) WIDTH(22)
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)
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(#EMPLIST.ItemGotSelection) options(*NOCLEARMESSAGES *NOCLEARERRORS)
SET　　　SET com(#EMPLIST.CURRENTITEM) IMAGE(#VI_EMPLOY)
ENDROUTINE　　　ENDROUTINE
EVTROUTINE　　　EVTROUTINE handling(#EMPLIST.ItemLostSelection) options(*NOCLEARMESSAGES *NOCLEARERRORS)
SET　　　SET com(#EMPLIST.CURRENTITEM) IMAGE(*NULL)
ENDROUTINE　　　ENDROUTINE
END　　　END_COM