|
 |
 |
6.- Progr. Controles (II)
página(s) : 1/2 (4630 palabras totales en este texto) (19966 Lecturas) 
Seguimos con la programación de los controles, en este
capítulo veremos la programación de los
eventos de los controles que conforman la barra de herramientas.
Es decir los botones que tenemos abajo en un recuadro
azul y que nos permiten controlar el fichero.
Empezando de izquierda a derecha, nos encontramos con cuatro botones
con flechas que nos van a servir para desplazarnos rapidamente
por el fichero. Al ser todos botones, el evento que
tenemos en cada caso es el que hace referencia al CLICK
sobre dicho botón, veamos la programación
de los cuatro botones.
Control: INICIO Evento : CLICK
|
Programación
|
ENVIRONMENT
DIVISION. DATA
DIVISION. WORKING-STORAGE
SECTION. PROCEDURE
DIVISION. IF
TOPE = 0 GO DOS. MOVE
TCOD (1) TO AGECOD MOVE
1 TO CCC READ
AGENDA INVALID KEY GO DOS NOT
INVALID KEY CALL "EXISTE". EXIT
PROGRAM. DOS. CALL
SETFOCUS OF AGE-COD EXIT
PROGRAM.
|
Como teníamos los códigos de nuestros contactos
en una tabla, lo único que hacemos es mover el
primer elemento de la tabla y leer. Para irnos al final
del fichero hacemos lo mismo, solo que moviendo el último
elemento de la tabla, veámoslo:
Control: FIN Evento : CLICK
|
Programación
|
ENVIRONMENT
DIVISION. DATA
DIVISION. PROCEDURE
DIVISION. IF
TOPE = 0 GO DOS. MOVE
TCOD (TOPE) TO AGECOD MOVE
1 TO CCC READ
AGENDA INVALID KEY GO DOS NOT
INVALID KEY CALL "EXISTE". EXIT
PROGRAM. DOS. CALL
SETFOCUS OF AGE-COD EXIT
PROGRAM.
|
Ahora veamos como avanzamos o retrocedemos por el fichero
con los botones de las flechas izquierda y derecha:
Control: MAS Evento : CLICK
|
Programación
|
ENVIRONMENT
DIVISION. DATA
DIVISION. PROCEDURE
DIVISION. IF
TOPE = 0 GO DOS. ADD
1 TO CCC IF CCC > TOPE MOVE TOPE TO CCC. MOVE
TCOD (CCC) TO AGECOD. READ
AGENDA INVALID KEY GO DOS NOT
INVALID KEY CALL "EXISTE". EXIT
PROGRAM. DOS. CALL
SETFOCUS OF AGE-COD EXIT
PROGRAM.
|
Control: MENOS Evento : CLICK
|
Programación
|
ENVIRONMENT
DIVISION. DATA
DIVISION. PROCEDURE
DIVISION. IF
TOPE = 0 GO DOS. SUBTRACT
1 FROM CCC IF CCC < 1 MOVE 1 TO CCC. MOVE
TCOD (CCC) TO AGECOD. READ
AGENDA INVALID KEY GO DOS NOT
INVALID KEY CALL "EXISTE". EXIT
PROGRAM.
|
Una vez vistos los controles para el movimiento por el fichero,
seguirmos analizando los demás botones de la
barra de herramientas.
El botón que sigue es el de borrar y su objetivo
será el de eliminar el registro que en ese momento
se encuentre en la pantalla. Como es algo delicado aprovechamos
la posibilidad de sacar una ventana de verificación
con DISPLAYMESSAGE y si la respuesta es positiva borramos
el registro. Este botón estará activo
solo cuando tengamos un registro presente. Veamos su
programación:
Control: BORRAR Evento : CLICK
|
Programación
|
ENVIRONMENT
DIVISION. DATA
DIVISION. WORKING-STORAGE
SECTION. 01
ESTILO PIC S9(4)
COMP-5. PROCEDURE
DIVISION. ADD
POW-DMYESNO POW-DMICONQUESTION GIVING ESTILO CALL
DISPLAYMESSAGE OF PRIMERA USING
"Seguro de borrarlo ?" "Mensaje"
ESTILO. IF
PROGRAM-STATUS = POW-DMRYES GO UNO ELSE
GO FINALIZAR. UNO. ADD
POW-DMICONEXCLAMATION POW-DMOK GIVING ESTILO. DELETE
AGENDA INVALID KEY MOVE
STAAGE TO NUMSTA MOVE "BORRAR"
TO NOMSTA CALL
DISPLAYMESSAGE OF PRIMERA USING
MENSAJE "ERROR" ESTILO. CALL
"CARGAR". EXIT
PROGRAM. FINALIZAR. EXIT
PROGRAM.
|
A continuación el botón cancelar lo único
que hace es volver a enviar el foco al control AGE-COD,
para introducir un nuevo código.
Control: CANCELAR Evento : CLICK
|
Programación
|
ENVIRONMENT
DIVISION. DATA
DIVISION. PROCEDURE
DIVISION. MOVE
1 TO POW-ENABLE OF AGE-COD CALL
SETFOCUS OF AGE-COD.
|
El Botón de listar, lo que hará será
una impresión de la pantalla, pero claro, solo
de los campos que tengamos con la propiedad de Printable
seleccionada. Esto viene muy bien y nos puede ayudar
mucho por la facilidad de uso. Este control solo estará
activo cuando tengamos un registro presente. Como aclaración
os digo que los controles de ListBox y Table, aunque
su contenido no quepa en la pantalla, en la impresora
si se imprimirán por completo. Al igual que en
el anterior mostramos previamente una ventana de advertencia.
Control: LISTAR Evento : CLICK
|
Programación
|
ENVIRONMENT
DIVISION. DATA
DIVISION. WORKING-STORAGE
SECTION. 01
ESTILO PIC
S9(4) COMP-5. PROCEDURE
DIVISION. ADD
POW-DMYESNO POW-DMICONQUESTION GIVING ESTILO CALL
DISPLAYMESSAGE OF PRIMERA USING
"Listar la ficha ?" "Mensaje"
ESTILO. IF
PROGRAM-STATUS = POW-DMRYES GO UNO ELSE
GO FINALIZAR. UNO. CALL
OPENPRINTER OF PRINT1. CALL
WRITESHEET OF PRINT1. CALL
CLOSEPRINTER OF PRINT1. EXIT
PROGRAM. FINALIZAR. EXIT
PROGRAM.
|
| | (2/2) |
|
|