Lazarus Tdbf Tutorial/fr

From Free Pascal wiki
Revision as of 18:27, 27 March 2006 by Ejca (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Deutsch (de) English (en) español (es) français (fr) português (pt) русский (ru) 中文(中国大陆)‎ (zh_CN)

Vue d'ensemble

Ce tutoriel a pour but de vous donner les bases du développement d'une application intégrant une base de données en utilisant le composant TDBF (de Micha Nelissen) sous Lazarus. Vous pourrez y trouver de la documentation complémentaire sur le composant TDBF. Cette page a été créée par Tony Maro mais d'autres contributions sont bienvenues !

Pour de la documentation complémentaire en PDF, allez sur le site SourceForge. Il peut être utile de garder ce pdf à côté de ce document tout en lisant.

Que contient TDBF ?

TDBF permet d'accéder aux tables de dBase et aux bases de données de FoxPro sous Lazarus (entre autres). Il autorise la lecture, l'écriture et de la création de table dBase III+, dBase IV, Visual dBase VII et FoxPro. Il n'est pas nécessaire de rajouter de bibliothèques ou des moteurs de base de données additionnels. Posez simplement TDBF sur votre formulaire et vous aurez un accès instantané à un environnement de base de données multi-plateforme. TDBF fonctionne sous Windows et Linux en utilisant Lazarus.

Comment créer une nouvelle table de base de données ?

Car il n'y a encore aucune interface de création de "base de données" sous Lazarus, nous devons créer une nouvelle base de données directement dans le code.

Définir le chemin

Une bonne idée est de mettre la/les base(s) de données dans un répertoire. Cela simplifie grandement les sauvegardes. Il y a deux manières de paramétrer le chemin. Vous pouvez définir le chemin complet en utilisant la propriété FilePathFull, ou vous pouvez définir un chemin relatif au chemin courant de l'application avec FilePath. Par exemple, définir "FilePath" a l'exécution à "data/" utilisera un sous-répertoire juste au-dessous du dossier de exécutable. La définition de la propriété "FilePathFull" à "/var/data/" placera tout à cet emplacement exact, ignorant l'emplacement de l'application.

Choisir le format

Par défaut, TDBF créera des tables au format dBase IV. Bien que très compatible, il peut y avoir des spécificités que vous souhaitez utiliser et qui ne sont pas supportés par ce format. Par exemple pour un support de l'incrément automatique des champs, vous devrez employer un format plus récent. Les types de table sont :

  • 3 dBase III+
  • 4 dBase IV
  • 7 Visual dBase VII
  • 25 FoxPro

Pour choisir un format il suffit simplement d'initialiser la propriété TableLevel de façon approprié.

Ajouter des champs

La façon de créer des champs pour votre nouvelle table à l'exécution, est très proche de l'ancienne norme de Delphi. Une fois que vous avez défini vos propriétés FilePath, TableLevel, et TableName, utilisez la propriété de FieldDefs pour mettre en place votre structure. Par exemple :

MyDbf.FilePathFull := '/location/to/my/data';
MyDbf.TableLevel := 7;
MyDbf.TableName := 'customers.dbf'; // note: is the .dbf really required?
With MyDbf.FieldDefs do begin
  Add('Id', ftAutoInc, 0, True);
  Add('Name', ftString, 80, True);
End;

Le type des champs se définissent comme suit :

  • ftUnknown
  • ftString
  • ftSmallInt
  • ftInteger
  • ftWord
  • ftBoolean
  • ftFloat
  • ftCurrency (TableLevel 25)
  • ftBCD (TableLevel 25)
  • ftDate
  • ftTime
  • ftDateTime
  • ftBytes (TableLevel 25)
  • ftVarBytes
  • ftAutoInc (TableLevel 7 or 25)
  • ftBlob
  • ftMemo
  • ftGraphic
  • ftFmtMemo
  • ftParadoxOle
  • ftDBaseOle
  • ftTypedBinary
  • ftCursor
  • ftFixedChar
  • ftWideString
  • ftLargeInt
  • ftADT
  • ftArray
  • ftReference
  • ftDataSet
  • ftOraBlob
  • ftOraClob
  • ftVariant
  • ftInterface
  • ftIDispatch
  • ftGuid
  • ftTimeStamp
  • ftFMTBcd

Les types en caractères gras sont actuellement supportés.

Allez-y et créez-le !

Une fois que vous avez défini les champs que vous souhaitez employer dans votre nouvelle table, vous pouvez passer à l'étape suivante et la créer avec :

   MyDbf.CreateTable;

Comment ajouter des index à une table ?

Si votre base de données a beaucoup d'enregistrements, il y a de grandes chances que vous souhaitiez définir des index de manière à ce que les recherches soient plus rapides. Pour changer la structure d'index d'une table, il faut un accès exclusif à la table - que nous avons de toute façon au moment de la création.

       MyDbf.Exclusive := True;
       MyDbf.Open;

Maintenant, il ne reste plus qu'a ajouter l'index.

       MyDbf.AddIndex('custid', 'Id', [ixPrimary, ixUnique]);
       MyDbf.AddIndex('custname','Name', [ixCaseInsensitive]);
       MyDbf.Close;

Et vous obtenez...

L'extrait suivant crée une nouvelle table "clients" à partir du code. Ceci est naturellement à faire qu'une seule fois, dans la mesure ou la table est déjà créée, il ne vous reste plus qu'à l'OUVRIR, inutile donc de la recréer. ; -)

{ We will require the following units be in the USES clause: }
{ uses Dbf, db, Dbf_Common                                   }
{ The Dbf is put there when you drop the TDbf on a form...   }
{ but you will need db for the DataSet object and Dbf_Common }
{ for things such as the field type definitions              }
var
  MyDbf: TDbf;
begin
  MyDbf := TDbf.Create(nil);
  try
    { use relative path to "data" directory }
    MyDbf.FilePath := 'data/'; 
    { we want to use Visual dBase VII compatible tables }
    MyDbf.TableLevel := 7;
    MyDbf.Exclusive := True;
    MyDbf.TableName := 'customers.dbf';
    With MyDbf.FieldDefs do begin
      Add('Id', ftAutoInc, 0, True);
      Add('Name', ftString, 80, True);
    End;
    MyDbf.CreateTable;
    MyDbf.Open;
    MyDbf.AddIndex('custid', 'Id', [ixPrimary, ixUnique]);
    { add a secondary index }
    MyDbf.AddIndex('custname','Name', [ixCaseInsensitive]);
    MyDbf.Close;
  finally
    MyDbf.Free;
  end;
end;

Fichiers d'index externes

TDBF supporte également le stockage d'index secondaires dans des fichiers séparés. Ceci peut être utile si on s'attend à ce que la base de données soit très grande. Les fichiers d'index secondaires sont créés de manière presque identique aux index normaux, mais ont l'extension '.ndx' :

    MyDbf.AddIndex('custname.ndx','Name', [ixCaseInsensitive]);


Chaque fois que TDBF est ouvert, le dossier d'index doit être chargé :

    MyDbf.OpenIndexFile('custname.ndx');


Et les index doivent être référencé avec l'extension :

    MyDbf.IndexName := 'custname.ndx';


Les fichiers d'index sont compactés séparément :

    MyDbf.CompactIndexFile('custname.ndx');

Comment lier TDBF aux composants ad hoc

Les exemples ci-dessus montrent comment créer une nouvelle table de base de données à partir du code. Utiliser cette table est bien plus simple.

Les composants ad hoc sous Lazarus (tel que TDbEdit) peuvent être liés à un composant TDataSource en utilisant leurs propriétés de "DataSource" et "DataField". Le composant TDataSource manipule la communication entre le moteur de base de données et les composants de données ad hoc. Un TDataSource lié au composant TDBF utilise sa propriété "DataSet". La connexion ressemble à ceci :

TDbEdit-------
             |
TDbEdit------|-->TDataSource-->TDbf
             |
TDbNavigator--


Soyez sûr(e) d'avoir bien défini les propriétés FilePath (ou FilePathFulll), TableLevel, et TableName de votre composant TDBF avant de l'appeler.

TDbf.Active := True;


Il y a beaucoup plus à dire sur la programmation des bases de données sous Lazarus. Vous pouvez vous référer à une ancienne documentation de Delphi concernant les bases de données car les concepts fondamentaux n'ont pas changé depuis des années.

Compacter et reconstruire des tables

Quand un enregistrement est supprimé, il n'est pas vraiment enlevé de la table physique. Périodiquement vous devez "compacter" une table pour récupérer cet espace perdu. Ceci doit être fait en mode exclusif.

MyDbf.Exclusive := True;
MyDbf.Open;
MyDbf.PackTable;
// let's also rebuild all the indexes
MyDbf.RegenerateIndexes;
MyDbf.Close;
MyDbf.Exclusive := False;

Relations avec la table principale (Master table)

La vraie puissance dans la programmation de base de données commence quand vous avez des tables multiples qui se mettent en référence. Tandis que TDBF ne supporte pas encore l'intégrité référentielle, il supporte un rapport de maître/détail entre TDBF.

Quand une relation est faite entre deux tables, on obtient :

[customers]
Id       <----|
Name          |
Phone         |
Address       |
              |  The CustID in invoices references a customer primary  field
[invoices]    |
Id            |
Amount        |
CustID   -----|  * This field indexed as "idxcustid"


Lorsque vous voulez montrer toutes les factures pour un client donné, la table de détail (factures) reste automatiquement synchro avec la table principale (clients).

Sur les factures le composant de TDBF a placé ce qui suit :

InvDbf.IndexName := 'idxcustid'; // our field that will match the customers table ID
InvDbf.MasterSource := dsCustomers; // datasource that is linked to the customers TDbf
InvDbf.MasterFields := 'Id'; // field on the customers table we are matching against our index


Extrait d'application – Navigateur de Base de données

J'ai écrit une application simple qui emploiera TDBF pour ouvrir et montrer des tables de base de données en utilisant le composant dbGrid. L'exécutable Linux avec les sources du projet qui devraient se compiler sans problèmes sous Windows est disponible à l'adresse : tony.maro.net

Prendre conscience que

Actuellement il n'y a aucun support de l'intégrité référentielle, ni de cryptage possible des fichiers au format .dbf.