Form S_189FN

LANSA

previous page next page
Form S_189FN

*===================================================================;
*;
* Component : S_189FN;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : SELECT_SQL - Column Functions; ;
*;
* 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(203) LEFT(347) TOP(144) WIDTH(282);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) HEIGHT(81) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(8) WIDTH(145);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#SALARY) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) DISPLAYPOSITION(2) HEIGHT(151) LEFT(168) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(8) WIDTH(81);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_1) BUTTONCHECKED(True) CAPTION('AVG') DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_1) TABPOSITION(1) TOP(8) WIDTH(57);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_2) CAPTION('COUNT') DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_1) TABPOSITION(2) TOP(34) WIDTH(65);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_3) CAPTION('MAX') DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_1) TABPOSITION(3) TOP(60) WIDTH(65);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_4) CAPTION('MIN') DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_1) TABPOSITION(4) TOP(86) WIDTH(57);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_5) CAPTION('SUM') DISPLAYPOSITION(5) LEFT(8) PARENT(#GPBX_1) TABPOSITION(5) TOP(112) WIDTH(57);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #ltvw_1;
SELECT_SQL FIELDS((#SALARY 'AVG(SALARY)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_1.Click);
* AVG;
clr_list #ltvw_1;
SELECT_SQL FIELDS((#SALARY 'AVG(SALARY)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_2.Click);
* COUNT;
clr_list #ltvw_1;
SELECT_SQL FIELDS((#SALARY 'COUNT(*)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_3.Click);
* MAX;
clr_list #ltvw_1;
SELECT_SQL FIELDS((#SALARY 'MAX(SALARY)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_4.Click);
* MIN;
clr_list #ltvw_1;
SELECT_SQL FIELDS((#SALARY 'MIN(SALARY)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_5.Click);
* SUM;
clr_list #ltvw_1;
SELECT_SQL FIELDS((#SALARY 'SUM(SALARY)')) FROM_FILES((PSLMST));
add_entry #ltvw_1;
ENDSELECT;
ENDROUTINE;
END_COM;

;


previous page start next page