MANUALES TEMATICOS BASES DE DATOS COBOL / WINDOWS COBOL / UNIX HISTORIA /DOCS PROGRAMANDO-Dos TRUCOS AÑO 2.000 TEORIA POWCOB-3 PROG. POWCOB-3 TEORIA POWCOB-5 PROG. POWCOB-5 OCX-ESCOBOL

Programando en Windows (PowerCobol-3) TEMARIO 1.- Comienza la Aplicación 2.- Diseñando la Pantalla 3.- Eventos de la ventana 4.- La Procedure 5.- Progr. Controles (I) 6.- Progr. Controles (II) 7.- La Pantalla de Consulta 8.- Clasificando y FIN >> agenda.exe e iconos << 5.- Progr. Controles (I) página(s) : 2/2 (4538 palabras totales en este texto) (21363 Lecturas)    Control: AGE-NOM Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF AGE-DOM Control: AGE-DOM Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF AGE-POB Control: AGE-POB Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF AGE-POS Control: AGE-POS Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF AGE-PRO Control: AGE-PRO Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF AGE-GEH Control: AGE-GEH Evento : CLICK Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.          IF POW-CHECK OF AGE-GEH = POW-ON MOVE "H" TO AGEGEN ELSE                 MOVE "M" TO AGEGEN           END-IF           CALL SETFOCUS OF AGE-TIP Control: AGE-GEM Evento : CLICK Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.          IF POW-CHECK OF AGE-GEM = POW-ON MOVE "M" TO AGEGEN ELSE                 MOVE "H" TO AGEGEN           END-IF           CALL SETFOCUS OF AGE-TIP Control: AGE-TIP Evento : CHANGE Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           MOVE POW-SELECT OF AGE-TIP TO AGETIP           CALL SETFOCUS OF AGE-TEL Control: AGE-TIP Evento : SELCHANGE Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           MOVE POW-SELECT OF AGE-TIP TO AGETIP           CALL SETFOCUS OF AGE-TEL Control: AGE-TIP Evento : EDIT Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           IF POW-TEXT OF L-GRABAR = "Grabar"                MOVE 1 TO POW-SELECT OF AGE-TIP           END-IF Control: AGE-TEL Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF AGE-MOV Control: AGE-MOV Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF AGE-MAI Control: AGE-MAI Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF AGE-WEB Control: AGE-WEB Evento : RETURN Programación      ENVIRONMENT DIVISION.      DATA        DIVISION.      PROCEDURE   DIVISION.           CALL SETFOCUS OF GRABAR Como véis casi todo ha sido igual, con la excepción de los controles que hacen referencia al género y al tipo de contacto. Si os dais cuenta el evento que se produce cuando editamos AGE-TIP, determinamos que si estamos introduciendo un contacto nuevo (cosa que sabemos por el nombre del control GRABAR), seleccionamos directamente el valor 1. En el próximo capítulo se explicarán los eventos de los controles que conforman la barra de herramientas, que son los decisivos y sobre los cuales controlaremos nuestro archivo. (1/2) |

Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados. PHP-Nuke es un Software Libre realizado con licencia GNU/GPL. Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.

Andres Montes [98/11]