Con el primer botón se accede a un control frame que contenga las cajas de texto y botones necesarios para dar de alta un nuevo registro en la tabla Visitas, para acceder a esta tabla se usa un nuevo control Data en tipo Table que podemos llamar datAltaVisitas. El procedimiento para hacer esto es igual que para dar de alta nuevos registros en la tabla de Personal ya descrito anteriormente, por ello no se detalla cómo hacerlo. La imagen siguiente muestra un control frame que contiene los elementos necesarios para dar de alta en la tabla Visitas.

Con el nuevo botón cmdConsultaVisitas se accede a las visitas realizadas a lo largo del tiempo por una determinada persona, estas visitas se presentarán en pantalla a través de un control dbgrid asociado a un nuevo control Data que llamaremos datConsulta, en el que en su propiedad RecordsetType se pondrá Dynaset y se dejará en blanco la propiedad RecordSource ya que ahora no se conectará con una tabla o consulta ya definida, sino que esta conexión se establecerá en el código del botón cmdConsultaVisitas.

En el botón cmdConsultasVisitas se establecerá una cadena de caracteres, que se pasará a la propiedad RecordSource del control Data para acceder a la consulta de datos que en cada momento se pida. La cadena creada, en realidad es una instrucción en el lenguaje de bases de datos SQL, por ello es necesario conocer algo de este lenguaje, concretamente la sentencia Select:

La sentencia Select permite consultar información de una tabla pudiéndose seleccionar una, varias o todas las columnas (campos) de la tabla.

Puede incluir varias cláusulas opcionales y como mínimo debe incluir la cláusula obligatoria From a través de la cual se especifica la tabla o tablas a las que se va a acceder para obtener sus columnas (campos).

Puede incluir también la cláusula Order By que indica la columna o columnas que se van a usar para ordenar los datos.

Puede además incluir la cláusula Where para especificar la condición que han de cumplir los registros que forman parte de la consulta.

Para crear una consulta obteniendo información de los campos Nif y PrecioVisita de la tabla Visitas ordenada por Nif, se haría así:

Select Nif, PrecioVisita From Visitas Order By Nif.

Si ahora queremos restringir la consulta anterior sólo para aquellos registros que cumplan una condición, por ejemplo Nif = "01545454X", entonces lo especificamos con la cláusula Where quedando la consulta así:

Select Nif, PrecioVisita From Visitas Where Nif = "01545454X" Order By Nif.

Si se quiere obtener una consulta de todos los campos de la tabla Visitas se pueden escribir todos ellos o bien usar el símbolo asterisco (*). Para obtener la consulta anterior con todos los campos, quedaría así:

Select * From Visitas Where Nif = `01545454X´ Order By Nif.