Establecimiento dinámico de la base de datos de Delphi

Una de las características más atractivas de Delphi es su potente capacidad de acceso a la base de datos, que puede crear y editar fácilmente bases de datos a través de la herramienta de escritorio de la base de datos. Debido a razones prácticas, a menudo necesitamos establecer dinámicamente una determinada base de datos mientras el programa se está ejecutando.

Si solicita a los usuarios que creen manualmente tablas de datos utilizando la herramienta de escritorio de la base de datos, el programa que escriba será muy descontado, pero no tiene que preocuparse de que Delphi pueda completar esta función en el lenguaje, lo que nos proporciona conveniencia. He resumido dos métodos en mi estudio y práctica, que llamo el método de tabla y el método SQL. A continuación se describe el proceso de establecimiento de bases de datos dinámicas a través de ejemplos simples.

1. Método de tabla:

1. (Tome el ejemplo de establecer una tabla de datos de paradoja suponiendo que el nombre de la biblioteca sea LJH.DB). Cree un nuevo archivo de proyecto zhoudf.pr.

2. Seleccione el elemento del botón en el panel y colóquelo en la tabla Form1.

Procedimiento tForm1.Button2Click (remitente: tobject);

VAR TABLA1: TTABLE;

con la tabla1 comenzar activo: = false;

TableName: = 'ljh.db';

Tabletype: = ttParadox;

agregar ('yj', ftdate, 0, falso);

Agregar ('ZP', ftString, 10, falso);

agregar ('zdm', ftinteger, 0, falso);

fin;

Con indexdefs do {este método agrega campo de índice a ljh.db} comienza claro;

Agregar ('yjindex', 'yj', [ixPrimary]);

fin;

creatable;

fin;

fin;

2. Método SQL: seleccione el elemento de botón en el panel y colóquelo en la tabla Form1.

Procedimiento tForm1.Button2Click (remitente: tobject);

VAR TABLA2: TQUERY;

Con la Tabla2 comience con SQL, comience claro;

agregar ('Crear tabla "ljh.db"');

agregar ('(yj fecha,'); {nota el '('} en las citas

agregar ('zp char (10),');

agregar ('zdm int)');

fin;

ejecutsql;

sql.clear;

SQL.Add ('Crear índice YJ en "ljh.db" (yj)');

ejecutsql;

fin;

fin;

* Simplemente compile este programa. * Cabe señalar que si la biblioteca ya está allí, se generará un mensaje de error, y si la biblioteca ya está allí, no es necesario considerar el método de la tabla.