Cómo crear una pantalla de mantenimiento de datos

Aquí se explica la creación desde 0. En nuestro ejemplo crearemos el mantenimiento para una libreta de teléfonos. Esto implica, que una vez terminemos podremos añadir, borrar, ver y modificar datos en una misma pantalla. Hemos creado una tabla "persona":

create table persona (
per_nom varchar(40),
per_cog1 varchar(40),
per_cog2 varchar(40),
per_telf varchar(9),
per_data date);

Buscar pantalla

Lo primero que hay que hacer es confirmar que no exista ya una pantalla con nuestro nombre, así nos ahorraremos más de un susto. En nuestro caso crearemos una pantalla que se llame personas, ya que introduciremos los nombres desde ahí. Cómo nos sale que no hay ningún control en esa pantalla, significa que no existe.

Crear pantalla

Pulsaremos al Asistente de creación de pantallas . En nuestro caso, crearemos una pantalla y seleccionamos el literal con el título de nuestra pantalla. Si no existe tu literal, puedes crearlo pulsando .

Como es una pantalla para el mantenimiento de datos de una tabla, seleccionamos la opción "Botonera estándar", la cual nos permite hacer el mantenimiento básico de los datos; añadir, borrar, mostrar, modificar.

Más o menos quedaría cómo la imagen 1, y nos genera una pantalla cómo la imagen 2:

Imagen 1

Imagen 2

Añadir una grid

Crear la grid

Cómo lo que queremos es añadir datos y mostrarlos, la grid será nuestra herramienta para visualizarlos. Para crear una grid, sólo debemos pulsar en el asistente de grid. En nuestro caso hemos dejado los valores por defecto, ya que te lo deja todo centrado y con los controles estándar, que están definidos en Controles fijos.

Añadir los controles

En nuestro caso debemos rellenar la tabla "persona", para ello solo necesitaremos 5 controles. Ten en cuenta de poner las etiquetas de los literales con el mismo nombre que las columnas de la tabla, así la grid se verá como es debido (con los nombres de las columnas a tu idioma).

Para ello usaremos el asistente para nuevos elementos para cada uno de los controles. Con lo que agilizaremos el trabajo de rellenar los campos.

Control nombre

Lo que hemos echo es no mostrar los 40 caracteres ya que es raro tener amigos cuyo nombre sea de casi 40 caracteres. En la imagen puedes ver como se ha creado el control del nombre co

Tipo de control: Caja texto alfanumérico
Etiqueta: per_nom --> Nombre
Posic1: 060,330
Posic2: 180,0
Núm. dígitos: 40
Tabulador: 5
Tabla destino: persona
Campo destino: per_nom

Control Apellido

Este lo pondremos al lado del Nombre y con la etiqueta al lado izquierdo, para ello deberemos dejar espació entre el Nombre y el apellido ya que la etiqueta se situará enmedio:

Tipo de control: Caja texto alfanumérico
Etiqueta: per_cog1 --> Primer apellido
Posic1: 250,330
Posic2: 400,0
Núm. dígitos: 40
Tabulador: 10
Pos. etiq.: I
Tabla destino: persona
Campo destino: per_cog1

Control Apellido 2

Este lo situaremos debajo del primer apellido y dejaremos que ocupe los 40 caracteres:

Tipo de control: Caja texto alfanumérico
Etiqueta: per_cog2 --> Segundo apellido
Posic1: 250,370
Posic2: 0,0
Núm. dígitos: 40
Tabulador: 15
Pos. etiq.: I
Atrib. buscar: 10
Tabla destino: persona
Campo destino: per_cog2

Control Teléfono

Este lo pondremos al lado del primer apellido y encima del segundo apellido:

Tipo de control: Caja texto alfanumérico
Etiqueta: _pertelf --> Teléfono
Posic1: 410,330
Posic2: 0,0
Núm. dígitos: 9
Tabulador: 20
Tabla destino: persona
Campo destino: per_telf

Imagen 3

Control Fecha

Con este tipo de control no podremos modificar tantas cosas, ya que la mayoría vienen por defecto:

Tipo de control: Caja texto fecha
Etiqueta: per_data --> Teléfono
Posic1: 550,330
Tabulador: 25
Atrib. buscar: 10
Tabla destino: persona
Campo destino: per_data

Ya tenemos creada nuestra ventana tal y como se ve en la Imagen 3.

Configurando las funciones

Para saber el número que corresponde a cada control, siempre puedes apretar el botón y en modo "Debug" (Ctrl + D) podremos ver un seguido de números encima de nuestro control . El primer número nos indica el número de control. Estos han sido los controles que han salido:

Nombre=062
Primer apellido=063
Segundo apellido=064
Teléfono=065
Fecha de nacimiento=066

Vamos a buscar las funciones que deben ser configuradas, para ello pulsamos en Buscar referencias. Buscamos "<tabla>" y nos saldrán 6 lineas, las cuales debemos modificar una a una, 4 pertenecen a la botonera estándar y los otros 2 a la grid.

Configurando la "Botonera estándar"

Control 8

El primero será un "g_modificar" que pertenece al control 8, así pues, editamos la función:

select per_nom, per_cog1, per_cog2, per_telf, per_data from persona where oid=#024

y en "Pares de campos o descripción":

001062,002063,003064,004065,005066

también debes comprobar que los parámetros de la función sean:

0,

Control 9

Aquí se usa un "g_borrar" que pertenece al control 9, así pues, editamos la función:

delete from persona where oid = #024

Control 11

En este caso, pertenece al update y al insert, ambos usan un "g_ejecuta".

• Insert

insert into persona (per_nom,per_cog1,per_cog2,per_telf,per_data) values ('#062','#063','#064','#065','#066')

• Update

update persona set per_nom='#062', per_cog1='#063',per_cog2='#064',per_telf='#065',per_data='#066' where oid=#024

Configurar la grid

Control 10

Aquí usaremos "g_list", en esta select, le ponemos los campos que queremos mostrar en la grid, fijaros que después de cada control se le añade "|"; sirve para decirle al programa que en caso que el control este vació, ignore esa condición. Así pues, editamos la función:

select per_cog1, per_cog2, per_nom, per_telf from persona where per_nom ilike '#062%' and per_cog1 ilike '#063%' and per_telf ilike '#065%'

y en "Pares de campos o descripción" le decimos el espació que ocupará cada campo:

X20X20X20X09

Control 36

Usa la función "g_rellena" para poner los campos en su correspondiente control, así pues quedaría algo cómo esto:

select persona.oid,per_nom,per_cog1,per_cog2,per_telf,per_data from persona where oid = #006

y en "Pares de campos o descripción" le decimos donde guardar cada campo:

001024,002062,003063,004064,005065,006066

Vista Final

Pues aquí está nuestra pantalla de mantenimiento.