Form S_189FC
*===================================================================;
*;
* Component : S_189FC;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - AND and OR; ;
*;
* Disclaimer : The following material is supplied as sample material;
* only. No warranty concerning this material or its use;
* in any way whatsoever is expressed or implied.;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(342) LEFT(238) TOP(118) WIDTH(516);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(256) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(48) WIDTH(495);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(22);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#ADDRESS2) WIDTH(24);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(4) PARENT(#LTVW_1) SOURCE(#SALARY) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(32);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Show all employees with a salary greater than 15000 and less than 30000 as well as all employees who live in SEVEN HILLS.') DISPLAYPOSITION(2) HEIGHT(32) LEFT(11) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(9) WIDTH(494);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO #SURNAME #ADDRESS2 #SALARY) FROM_FILES((PSLMST)) WHERE('((SALARY > 15000) AND (SALARY < 30000)) OR (ADDRESS2 = ''SEVEN HILLS.'')');
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
END_COM;
*===================================================================;
*;
* Component : S_189FC;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - AND and OR; ;
*;
* Disclaimer : The following material is supplied as sample material;
* only. No warranty concerning this material or its use;
* in any way whatsoever is expressed or implied.;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(342) LEFT(238) TOP(118) WIDTH(516);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(256) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(48) WIDTH(495);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(22);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#ADDRESS2) WIDTH(24);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(4) PARENT(#LTVW_1) SOURCE(#SALARY) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(32);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('Show all employees with a salary greater than 15000 and less than 30000 as well as all employees who live in SEVEN HILLS.') DISPLAYPOSITION(2) HEIGHT(32) LEFT(11) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(9) WIDTH(494);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS(#EMPNO #SURNAME #ADDRESS2 #SALARY) FROM_FILES((PSLMST)) WHERE('((SALARY > 15000) AND (SALARY < 30000)) OR (ADDRESS2 = ''SEVEN HILLS.'')');
add_entry #ltvw_1;
endselect;
ENDROUTINE;
;
END_COM;