Establecimiento dinámico de la base de datos Delphi

Una de las características más atractivas de Delphi son sus poderosas capacidades de acceso a bases de datos. Las bases de datos se pueden crear y editar fácilmente a través de herramientas de escritorio de bases de datos. Por razones prácticas, a menudo necesitamos crear dinámicamente una base de datos mientras el programa se está ejecutando.

Si se les pide a los usuarios que creen tablas de datos manualmente utilizando herramientas de escritorio de bases de datos, el programa que escriba se reducirá considerablemente, pero no debe preocuparse de que Delphi pueda completar completamente esta función en el lenguaje, lo que proporciona nosotros con comodidad. He resumido dos métodos en mi estudio y práctica, a los que llamo método de tabla y método sql. Aquí, describiré el proceso de establecimiento de una base de datos dinámica a través de un ejemplo simple.

Método de tabla

(Tome la creación de la tabla de datos de paradoja como ejemplo, asumiendo que el nombre de la biblioteca es ljh db) Cree un nuevo archivo de proyecto zhoudf dpr y agregue db dbtables a la declaración de usos en la unidad.

Seleccione el componente del botón en el panel y colóquelo en la tabla del formulario. Haga doble clic en el botón e ingrese el siguiente código.

Clic en el botón Procesar formulario (remitente: al objeto);

var table:ttablebegin table:= TT able create(self);

con la tabla comienza active:= false;

tablename:= ljh db;

tabletype:= TT paradox; use fielddefs do {este método agrega un campo a ljh db} comience a borrar

add(yj ft date false);

add(ZP ftstring false);{Agregar tipo de nombre de dominio específico}

add(zdm ftinteger false);

Fin;

Utilice indexdefs do {este método agrega un campo de índice a ljh db} Comenzar a borrar

add(yjindex yj[IX primario]);

End;

createtable

End;

End;

En segundo lugar, el método sql selecciona el componente del botón en el panel y Ponlo en una hoja de formulario. Haga doble clic en el botón e ingrese el siguiente código.

Clic en el botón Procesar formulario (remitente: al objeto

var tabla: tquerybegin table:= tquery create(self)

con la tabla comienza con; SQL comienza claro;

add(create table ljh db);

Add ((yj date); {nota el (} entre comillas.

add(ZP char());

add(zdm int));{tenga en cuenta las comillas)}

Fin;

execsql

sql clear;

sql add(crear índice yj en ljh db (yj)); {esta declaración sql agrega un campo de índice a ljh db}

execsql

Fin;

Fin;

Lishi Xinzhi/Article/program/Delphi/201311/24746