2.13.7.3 社員の詳細フォーム

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