|
|
 |
|
6.- Progr. Controles (II)
página(s) : 2/2
(4630 palabras totales en este texto)
(20027 Lecturas) 
El botón del e-mail, nos llamará al Outlook
Express de Microsoft para enviar un correo como vimos
en la sección de trucos. Este control solo estará
disponible cuando haya un registro presente. También
comprobaremos que el campo del e-mail en nuestro registro
tenga datos antes de enviar nada.
Control: EMAIL
Evento : CLICK
|
|
Programación
|
ENVIRONMENT
DIVISION.
DATA
DIVISION.
WORKING-STORAGE
SECTION.
01
LLAMADA.
02
FILLER PIC X(30) VALUE "c:archiv~1outloo~1msimn.exe".
02
FILLER PIC X(17) VALUE " /mailurl:mailto:".
02
LLAMAI PIC X(30).
01
ESTILO PIC S9(4) COMP-5.
PROCEDURE
DIVISION.
IF
AGEMAI = SPACES GO SINMAIL.
MOVE
AGEMAI TO LLAMAI.
CALL
EXECAPL OF DDE1 USING LLAMADA POW-SWNORMAL.
EXIT
PROGRAM.
SINMAIL.
ADD
POW-DMOK POW-DMICONSTOP GIVING ESTILO
CALL
DISPLAYMESSAGE OF PRIMERA
USING
"Introduzca una dirección de
correo" "Error" ESTILO.
EXIT
PROGRAM.
|
Veamos ahora el botón de grabar los datos del registro.
Este botón cambia de nombre (GRABAR, REGRABAR)
dependiendo si es un alta o una modificación,
así también controlaremos si es un WRITE
o un REWRITE lo que tenemos que hacer. Es el evento
mas largo de todos los que hemos visto. Este será
el momento de mover todos los datos que hemos introducido
en los controles a nuestros campos del registro y de
comprobar cuales de ellos queremos como obligatorios,
en nuestro caso solo el del nombre, pero si queréis
poner mas solo tenéis que añadir líneas
iguales a las del control del nombre. Veamos su programación:
Control: GRABAR
Evento : CLICK
|
|
Programación
|
ENVIRONMENT
DIVISION.
DATA
DIVISION.
WORKING-STORAGE
SECTION.
01
ESTILO PIC S9(4) COMP-5.
PROCEDURE
DIVISION.
MOVE
POW-TEXT OF AGE-NOM TO AGENOM.
MOVE
POW-TEXT OF AGE-DOM TO AGEDOM.
MOVE
POW-TEXT OF AGE-POB TO AGEPOB.
MOVE
POW-NUMERIC OF AGE-POS TO AGEPOS.
MOVE
POW-TEXT OF AGE-PRO TO AGEPRO.
IF
POW-CHECK OF AGE-GEH = POW-ON MOVE "H"
TO AGEGEN ELSE
MOVE
"M" TO AGEGEN
END-IF
MOVE
POW-SELECT OF AGE-TIP TO AGETIP.
MOVE
POW-TEXT OF AGE-TEL TO AGETEL.
MOVE
POW-TEXT OF AGE-MOV TO AGEMOV.
MOVE
POW-TEXT OF AGE-MAI TO AGEMAI.
MOVE
POW-TEXT OF AGE-WEB TO AGEWEB.
IF
AGENOM = SPACES GO SINNOM.
ADD
POW-DMICONEXCLAMATION POW-DMOK GIVING ESTILO.
IF
POW-TEXT OF L-GRABAR = "Grabar"
WRITE
REGAGE INVALID KEY MOVE
STAAGE TO NUMSTA
MOVE
"GRABAR" TO NOMSTA CALL DISPLAYMESSAGE
OF PRIMERA
USING
MENSAJE "ERROR" ESTILO.
IF
POW-TEXT OF L-GRABAR = "Regrabar"
REWRITE
REGAGE INVALID KEY MOVE STAAGE
TO NUMSTA
MOVE
"REGRABAR" TO NOMSTA CALL
DISPLAYMESSAGE OF PRIMERA
USING
MENSAJE "ERROR" ESTILO.
CALL
"CARGAR".
CALL
"PONCCC".
EXIT
PROGRAM.
SINNOM.
ADD
POW-DMICONEXCLAMATION POW-DMOK GIVING ESTILO.
CALL
DISPLAYMESSAGE OF PRIMERA
USING "Nombre
obligatorio" "ERROR" ESTILO.
CALL
SETFOCUS OF AGE-NOM.
EXIT
PROGRAM.
|
Los botones que nos quedan están repetidos en la
aplicación, ya que podremos acceder desde ellos
o desde el menú que creamos en el capítulo
4. El código lo pondremos en los dos eventos
y así actuaraá igual si se pulsa el botón
o si se selecciona la opción desde el menú.
Cuando se creo el menú no se le pusieron nombre
a las opciones, así que Power le habrá
puesto una por defecto del tipo MENU1, MENU2, etc ...
Solo tenéis que buscar la correspondiente y asignarle
el evento CLICK.
El botón de CONSULTA, simplemente nos llama a otra
ventana en la cual vamos a efectuar la consulta y además
pone la pantalla principal deshabilitada para que no
se pueda tocar mientras estamos en la consulta.
Control: CONSULTA - MENUCONSULTA
Evento : CLICK
|
|
Programación
|
ENVIRONMENT
DIVISION.
DATA
DIVISION.
PROCEDURE
DIVISION.
MOVE
POW-OFF TO POW-ENABLE OF PRIMERA
CALL
OPENSHEET OF PRIMERA USING "CONSULTA".
|
El botón de SALIR, nos sirve para abandonar la aplicación
y lo único que hace es llamar a la rutina PARASALIR.
Control: SALIR - MENUSALIR
Evento : CLICK
|
|
Programación
|
ENVIRONMENT
DIVISION.
DATA
DIVISION.
PROCEDURE
DIVISION.
CALL
"PARASALIR".
|
En este caso no es el botón sino, la imagen que
tenemos a la izquierda de la ventana, la que pone la
dirección de la página, la que nos sirve
de botón y al igual que las otras se repite en
el menú y con ella sacamos una ventana donde
se nos explica sobre el programa.
Control: IMAGEN - MENUIMAGEN
Evento : CLICK
|
|
Programación
|
ENVIRONMENT
DIVISION.
DATA
DIVISION.
PROCEDURE
DIVISION.
MOVE
POW-OFF TO POW-ENABLE OF PRIMERA
CALL
OPENSHEET OF PRIMERA USING "ACERCA".
|
Llegados a este punto, toda la programación de nuestra
ventana principal se da por terminada y para los capítulos
restantes, nos queda explicar la ventana de ACERCA que
es muy fácil y la que he realizado para la consulta.
Si hasta aquí algo no ha quedado
claro, es el momento de las consultas. Ya que lo importante
no es que salga bien sino que comprendáis todo
lo que se ha explicado.
En este momento se puede compilar todo y debe de funcionar
sin problemas, altas, bajas, modificar, todo excepto
la consulta. |
(1/2)  |  |
|
|
Programando en Windows (PowerCobol-3)
