Établissement dynamique de la base de données Delphi

L'une des fonctionnalités les plus attrayantes de Delphi est sa puissante capacité d'accès à la base de données, qui peut facilement créer et modifier des bases de données via l'outil de bureau de base de données. Pour des raisons pratiques, nous devons souvent établir dynamiquement une certaine base de données pendant l'exécution du programme.

Si vous demandez aux utilisateurs de créer manuellement des tables de données à l'aide de l'outil de bureau de base de données, le programme que vous écrivez sera considérablement réduit, mais vous n'avez pas à vous soucier que Delphi puisse remplir cette fonction dans le langage, ce qui nous offre une commodité. J'ai résumé deux méthodes dans mon étude et ma pratique, que j'appelle la méthode du tableau et la méthode SQL. Ce qui suit décrit le processus d'établissement de base de données dynamique à travers des exemples simples.

1. Méthode de la table:

1. (Prenez l'exemple de l'établissement d'un tableau de données paradoxe en supposant que le nom de la bibliothèque est ljh.db). Créez un nouveau fichier de projet zhoudf.dpr.

2. Sélectionnez l'élément de bouton du panneau et placez-le dans la table Form1.

Procédure tform1.button2click (expéditeur: tobject);

VAR TABLE1: TTABLE; Début Tableau 1: = TTable.Create (self);

avec la table1 commence actif: = false;

TableName: = 'ljh.db';

TableType: = TTParAdox; avec FieldsDefs Do {Cette méthode ajoute des champs à ljh.db} Begin Clear;

ajouter ('yj', ftdate, 0, false);

Add ('ZP', FTSTRING, 10, FAUX);

ajouter ('zdm', ftinteger, 0, false);

fin;

Avec indexDefs do {Cette méthode ajoute un champ d'index à ljh.db} commence à claire;

Ajouter ('yjindex', 'yj', [ixprimary]);

fin;

créatiable;

fin;

fin;

2. Méthode SQL: Sélectionnez l'élément de bouton du panneau et placez-le dans le tableau Form1.

Procédure tform1.button2click (expéditeur: tobject);

VAR TABLE2: tQuery; Begin Table 2: = tQuery.Create (self);

Avec la table2, commencez par SQL, commencez à claire;

add ('créer une table "ljh.db"');

ajouter ('(yj date,'); {notez le '('} dans les citations

Add ('ZP char (10),');

ajouter ('zdm int)');

fin;

execsql;

sql.clear;

sql.add ('créer l'index yj sur "ljh.db" (yj)');

execsql;

fin;

fin;

* Il suffit de compiler ce programme. * Il convient de noter que si la bibliothèque est déjà là, un message d'erreur sera généré et si la bibliothèque est déjà là, la méthode du tableau n'est pas nécessaire pour être prise en compte.