|../../index.htm#lansa/l4wdev06_0905.htm]現在地:
[ |../../index.htm#lansa/l4wdev06_0905.htm]
現在地:
Begin_Com Role(*EXTENDS #PRIM_FORM) Caption('Employee Details') Clientheight(269) Clientwidth(486) Height(296) Left(326) Top(172) Width(494) Define_Com Class(#EMPNO.Visual) Name(#EMPNO) Displayposition(1) Height(19) Left(32) Parent(#COM_OWNER) Tabposition(1) Top(8) Width(209) Define_Com Class(#GIVENAME.Visual) Name(#GIVENAME) Displayposition(2) Height(19) Left(32) Parent(#COM_OWNER) Tabposition(2) Top(32) Width(324) Define_Com Class(#SURNAME.Visual) Name(#SURNAME) Displayposition(3) Height(19) Left(32) Parent(#COM_OWNER) Tabposition(3) Top(56) Width(324) Define_Com Class(#ADDRESS1.Visual) Name(#ADDRESS1) Displayposition(4) Left(32) Parent(#COM_OWNER) Tabposition(4) Top(80) Define_Com Class(#ADDRESS2.Visual) Name(#ADDRESS2) Displayposition(5) Height(19) Left(32) Parent(#COM_OWNER) Tabposition(5) Top(104) Width(363) Define_Com Class(#ADDRESS3.Visual) Name(#ADDRESS3) Displayposition(6) Height(19) Left(32) Parent(#COM_OWNER) Tabposition(6) Top(128) Width(363) Define_Com Class(#POSTCODE.Visual) Name(#POSTCODE) Displayposition(7) Height(19) Left(32) Parent(#COM_OWNER) Tabposition(7) Top(152) Width(216) Define_Com Class(#PHONEHME.Visual) Name(#PHONEHME) Displayposition(8) Height(19) Left(32) Parent(#COM_OWNER) Tabposition(8) Top(176) Width(286) Define_Com Class(#PRIM_PHBN) Name(#OKBTN) Caption('OK') Displayposition(9) Left(384) Parent(#COM_OWNER) Tabposition(9) Top(168) Define_Com Class(#PRIM_PHBN) Name(#CANCELBTN) Caption('Cancel') Displayposition(10) Left(384) Parent(#COM_OWNER) Tabposition(10) Top(200) Define_Com Class(#PRIM_STBR) Name(#STBR_1) Displayposition(11) Height(21) Left(0) Messageposition(1) Parent(#COM_OWNER) Tabposition(11) Top(248) Width(486) Group_By Name(#DETFLDS) Fields(#EMPNO #GIVENAME #SURNAME #ADDRESS1 #ADDRESS2 #ADDRESS3 #POSTCODE #PHONEHME) * define events and properties and methods Define_Evt Name(OKPressed) Define_Pty Name(employee) Get(*auto #empno) Set(*auto #empno) Mthroutine Name(GetInfo) Fetch Fields(#DETFLDS) From_File(PSLMST) With_Key(#EMPNO) Endroutine * Event routines Evtroutine Handling(#CANCELBTN.Click) Invoke Method(#frmdetail.CloseForm) Endroutine Evtroutine Handling(#OKBTN.Click) Update Fields(#DETFLDS) In_File(PSLMST) With_Key(#EMPNO) Issue_Msg(*YES) Signal Event(OKPressed) Invoke Method(#frmdetail.CloseForm) Endroutine End_Com
[ |../../index.htm#lansa/l4wdev06_0905.htm]