Form VL_SAM090: Independent Instance Form Startup
Name: VL_SAM090
Description: The following RDMLX form is used to demonstrate how one form can start up and independent instance of another form and pass information to it.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(278) LEFT(310) TOP(194) WIDTH(356);
DEFINE_COM CLASS(#EMPNO.Visual) NAME(#EMPNO) DISPLAYPOSITION(1) HEIGHT(19) LEFT(15) PARENT(#COM_OWNER) TABPOSITION(1) TOP(104) WIDTH(209);
DEFINE_COM CLASS(#SURNAME.Visual) NAME(#SURNAME) DISPLAYPOSITION(2) HEIGHT(19) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(2) TOP(133) WIDTH(324);
DEFINE_COM CLASS(#SALARY.Visual) NAME(#SALARY) DISPLAYPOSITION(3) HEIGHT(19) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(3) TOP(160) WIDTH(262);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#START) CAPTION('Start Independent Instance of Form VL_SAM091 Executing') DISPLAYPOSITION(5) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(5) TOP(208) WIDTH(321);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('VL_SAM090 ') DISPLAYPOSITION(4) HEIGHT(25) LEFT(232) PARENT(#COM_OWNER) TABPOSITION(4) TABSTOP(False) TOP(8) VISUALSTYLE(#VS_LAREM) WIDTH(113);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_2) CAPTION('Key in some employee details and click the button below. An independent instance of form VL_SAM091 should be started. The employee details should also have been passed into it and they should appear on its form. ') DISPLAYPOSITION(6) HEIGHT(57) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(6) TABSTOP(False) TOP(32) WIDTH(297);
EVTROUTINE HANDLING(#Start.Click);
Change #Function '''*FORM''' ;
Submit process(vl_sam091) function(#function) exchange(#empno #Surname #Salary) ;
ENDROUTINE ;
END_COM ;
Name: VL_SAM090
Description: The following RDMLX form is used to demonstrate how one form can start up and independent instance of another form and pass information to it.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(278) LEFT(310) TOP(194) WIDTH(356);
DEFINE_COM CLASS(#EMPNO.Visual) NAME(#EMPNO) DISPLAYPOSITION(1) HEIGHT(19) LEFT(15) PARENT(#COM_OWNER) TABPOSITION(1) TOP(104) WIDTH(209);
DEFINE_COM CLASS(#SURNAME.Visual) NAME(#SURNAME) DISPLAYPOSITION(2) HEIGHT(19) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(2) TOP(133) WIDTH(324);
DEFINE_COM CLASS(#SALARY.Visual) NAME(#SALARY) DISPLAYPOSITION(3) HEIGHT(19) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(3) TOP(160) WIDTH(262);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#START) CAPTION('Start Independent Instance of Form VL_SAM091 Executing') DISPLAYPOSITION(5) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(5) TOP(208) WIDTH(321);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('VL_SAM090 ') DISPLAYPOSITION(4) HEIGHT(25) LEFT(232) PARENT(#COM_OWNER) TABPOSITION(4) TABSTOP(False) TOP(8) VISUALSTYLE(#VS_LAREM) WIDTH(113);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_2) CAPTION('Key in some employee details and click the button below. An independent instance of form VL_SAM091 should be started. The employee details should also have been passed into it and they should appear on its form. ') DISPLAYPOSITION(6) HEIGHT(57) LEFT(16) PARENT(#COM_OWNER) TABPOSITION(6) TABSTOP(False) TOP(32) WIDTH(297);
EVTROUTINE HANDLING(#Start.Click);
Change #Function '''*FORM''' ;
Submit process(vl_sam091) function(#function) exchange(#empno #Surname #Salary) ;
ENDROUTINE ;
END_COM ;