Page History
[ 
|../../index.htm#lansa/l4wdev06_0470.htm]
現在地:
...
リスト内の選択されたアイテムを削除するには、DLT_ENTRYコマンドを使用します。
...
この例では、社員名とその賃金のリスト・ビューがあります。
...
[削除
...
]プッシュ・ボタンがクリックされると、選択された社員がリスト・ビューから削除されます。
FUNCTION options(*DIRECT)
...
BEGIN_COM
...
role(*EXTENDS
...
#PRIM_FORM)
...
HEIGHT(331)
...
LEFT(245)
...
TOP(136)
...
WIDTH(620)
...
DEFINE_COM
...
class(#PRIM_LTVW)
...
name(#EMPLIST)
...
DISPLAYPOSITION(1)
...
FULLROWSELECT(True)
...
HEIGHT(285)
...
LEFT(8)
...
PARENT(#COM_OWNER)
...
SELECTIONSTYLE(Single)
...
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_DELETE)
...
CAPTION('Delete')
...
DISPLAYPOSITION(2)
...
ENABLED(False)
...
LEFT(528)
...
PARENT(#COM_OWNER)
...
TABPOSITION(2)
...
TOP(8)
...
EVTROUTINE
...
handling(#com_owner.Initialize)
...
SET
...
com(#com_owner)
...
CAPTION(*component_desc)
...
SELECT
...
fields(#EMPLIST)
...
from_file(PSLMST)
...
ADD_ENTRY
...
to_list(#EMPLIST)
...
ENDSELECT
...
ENDROUTINE
...
EVTROUTINE
...
handling(#PB_DELETE.Click)
...
DLT_ENTRY
...
from_list(#EMPLIST)* Following would be RDML to delete the record from the physical file* and to do any file validationsENDROUTINEEVTROUTINE handling(#EMPLIST.ItemGotSelection)SET com(#PB_DELETE) ENABLED(TRUE)ENDROUTINEEND_COM
...