Código fuente completo de un módulo (formulario o TForm) realizado en Borland Delphi 6 que permite mostrar todas las tablas de un catálogo o esquema, descripción de las tablas (campos y tipos de datos), información de las tablas, variables del entorno MySQL, estado de la base de datos, catálogos de MySQL Server, optimización de las tablas, análisis de las tablas, vaciar tablas seleccionadas y reiniciar contador autoincremento, conversión de tipo de tabla a InnoDB, ISAM, MEMORY, MRG_MYISAM, MyISAM.

• Objetivo de la Ventana con utilidades para administrar base de datos MySQL.
• Cómo se hizo la ventana para administrar MySQL con Delphi.
• El módulo de datos (DataModule).
• Añadir la ventana y el módulo de datos a una aplicación Delphi existente.
• Código fuente completo de la ventana UtilidadesBD.
• La aplicación en funcionamiento.

Objetivo de la Ventana con utilidades para administrar base de datos MySQL

Esta ventana que os mostramos es útil para añadir a vuestras aplicaciones realizadas en Borland Delphi con acceso a MySQL. Os permitirá dotar vuestra aplicación con utilidades que os pueden ser necesarias en cualquier momento. Las opciones que os permitirá esta ventana sobre la base de datos MySQL serán:

• Script de creación de tablas: esta opción os mostrará para cada tabla la consulta SQL necesaria para crearla (create table …). Os será muy útil para guardar los script de creación de todas las tablas de vuestra aplicación y poder regenerar el catálogo o esquema en cualquier momento.
• Tablas: os mostrará todas las tablas de la aplicación.
• Descripción de las tablas: mostrará por cada tabla los campos que tiene y el tipo de datos de cada campo.
• Información de las tablas: mostrará el nombre, el tipo de tabla, la fecha de creación, el número de registros, el tamaño de la tabla, el tamaño de los índices, el juego de caracteres, etc.
• Variables: muestra todas las variables de la base de datos MySQL y su valor. Muy útil para detectar problemas de configuración de MySQL Server.
• Estado de la Base de Datos: muestra estadísticas actuales de la base de datos: lecturas, eliminaciones, inserciones, tareas, etc.
• Catálogos: muestra todos los catálogos (esquemas) de la base de datos MySQL Server.
• Optimizar: permite optimizar las tablas con el comando SQL «optimize table«.
• Analizar: analiza las tablas, comprueba que su estado sea correcto.
• Vaciar: permite vaciar las tablas seleccionadas. Elimina todos los registros de las tablas seleccionadas y permite reiniciar el contador de autoincremento para que empiece por uno. Esta acción es «peligrosa» por lo que se pedirá confirmación dos veces antes de proceder.
• Tipo de BD: permite cambiar el tipo de las tablas de la base de datos, admite los siguientes tipos de tabla de MySQL Server: InnoDB, ISAM, MEMORY, MRG_MYISAM, MyISAM.

Con lo cual, con esta utilidad, podremos dotar nuestras aplicaciones de herramientas para el testeo y comprobación de posibles errores, para obtener información muy útil para los desarrolladores y administradores de base de datos, para la preparación de las tablas de la aplicación para un nuevo uso, etc…

Cómo se hizo la ventana para administrar MySQL con Delphi

A continuación os mostraremos el código fuente utilizado en cada una de las opciones de esta ventana – módulo. Os servirá por si sólo queréis implementar una o varias de las opciones de esta utilidad.

En primer lugar, utilizando Borland Delphi 6, agregamos un nuevo formulario (TForm) pulsando en «File» – «New» – «Form»:

A este formulario agregaremos un PageControl de la paleta de componentes Win32:

Al PageControl anterior le añadiremos todas las pestañas – solapas necesarias para nuestra ventana de administración de MySQL Server, pulsando con el botón derecho sobre el PageControl añadido y seleccionando «New page»:

En cada pestaña del PageControl iremos añadiendo todos los componentes necesarios Button, RichEdit, Memo, StaticText, ChecBox, etc. El aspecto final será algo así:

• Pestaña de «Script creación tablas»:

• Pestaña de «Optimizar tablas»:

• Pestaña de «Analizar tablas»:

• Pestaña de «Vaciar tablas»:

• Pestaña de «Tipo de BD»:

El código fuente de esta ventana: ver código fuente.

El módulo de datos (DataModule)

El formulario anterior está «enlazado» mediante la clausula «USES» con el módulo de datos UnidadModuloDatos. Este módulo será el contenedor de los componentes de acceso a datos necesarios, en nuestro caso hemos usado ZeosDBO:

• tc2: ZQuery.
• tc: ZQuery.
• bd: ZConnection.

Añadiremos un nuevo DataModule, en Delphi, desde el menú «File» – «New» – «DataModule»:

Pulsaremos INTRO ó F4 para mostrar el Object Inspector y en «Name» especificaremos el nombre del DataModule, en nuestro caso «md»:

A continuación añadiremos al DataModule los componentes de acceso a datos. En nuestra utilidad hemos utilizado ZeosDBO, es un componente gratuito y Open Source que permite acceso nativo a MySQL Server desde Delphi. Añadiremos dos TZQuery (que llamaremos «tc» y «tc2») y un TZConnection que llamaremos «bd». Los TZQuery» servirán para ejecutar las consultas SQL necesarias, tanto de selección como de modificación de datos. El TZConnection nos permitirá el acceso a MySQL Server.

Desde la pestaña «Zeos Access» de la paleta de componentes añadiremos los ZQuery y el ZConnection:

Los dos ZQuery irán enlazados con el ZConnection mediante la propiedad «Connection» de ambos:

Añadir la ventana y el módulo de datos a una aplicación Delphi existente

Para añadir este formulario y el módulo de datos a una aplicación existente y poder utilizarlo, abriremos la aplicación desde el menú «File» – «Open project» de Delphi:

Seleccionaremos el .dpr del proyecto de nuestra aplicación:

Desde el menú «Project» pulsaremos en «Add to Project…»:

Seleccionaremos la unidad UnidadUtilidadesBD.pas que previamente habremos descargado de esta web:

De la misma forma agregaremos también la unidad UnidadModuloDatos.pas:

Por último, para que la UnidadUtilidadesBD.pas y UnidadModuloDatos.pas queden enlazadas, abriremos el formulario que contiene el PageControl con las pestañas necesarias «» y enlazaremos éste con el DataModule. Pulsando Shift + F12, se abrirá la ventana de los formularios de la aplicación, seleccionaremos el formulario añadido «formUtilidadesBD» y pulsaremos «OK»:

Desde el menú «File» – «Use Unit…»:

Seleccionaremos la unidad que contiene el módulo de datos añadido «UnidadModulodatos» y pulsaremos «OK»:

Con esto ya tendremos agregado a nuestra aplicación el módulo necesario para que la ventana de utilidades de administración de MySQL funcione. Ahora sólo nos quedará añadir la opción de menú para mostrarla, por ejemplo:

Con el código:

application.createform(TFormUtilidadesBD, FormUtilidadesBD);
FormUtilidadesBD.showmodal;

Lógicamente, en algún momento, la aplicación deberá preparar el componente «bd» (ZConnection) del DataModule «md» para conectarlo a MySQL, un ejemplo del código de preparación de este componente:

Con un formulario como el siguiente, de Inicio de Sesión, para personalizar los datos de conexión a MySQL:

La aplicación en funcionamiento

• Script de creación de tablas MySQL de la aplicación:

• Variables de MySQL Server:

• Eliminación de registros de las tablas seleccionadas:

• Cambio de tipo de tabla a InnoDB:

• Optimización de tablas:

ANEXO

Código fuente completo de la ventana UtilidadesBD

Aunque hemos añadido una descarga con el código fuente completo de este módulo, os lo mostramos aquí para que podáis elegir qué utilizar para vuestras aplicaciones: