Delphi Base de Données

composants TTable et TDataSource
 (CD-ROMDelphi.BD)

Objectif : Un composant TTable permet de contrôler une table de données contenue dans une base de données. Un composant TDataSource permet de rendre disponible les données provenant d'une source de données comme un TTable afin qu'elles puissent être lues par des composants de base de données Delphi.
 

Utiliser le composant TTable

Utiliser le composant TDatasource

La fiche principale, le code associé dans la unit

Exécuter le programme
 

• 1-Avoir un composant TDataBase  correctement paramétré (notamment il faut remplir le 'DATABASE NAME' avec un chemin de base de données valide)

 
• 2- Déposer un TTable  qu'on rattache à la base de données liée au TDataBase grâce à la propriété "DataBaseName" du TTable :
• 3- Indiquer à quelle table de la base de données est rattaché le composant TTable  par sa propriété "TableName" :
• 4- Mettre la propriété "Active" du TTable à true pour l'ouvrir (remarque ceci est aussi effectué en appelant la méthode "open" sur la TTable)
• 5- Lorsqu'on a tout fini, on peut refermer la table de données en mettant la propriété "Active" du TTable à False (ou en appelant sa méthode "Close"

Pour se servir pratiquement d'un composant TDataSource : 

• 1- Rattacher le TDataSource au TTable  par l'intermédiaire de la propriété "Dataset" du TDataSource :
• 2- Faire attention à mettre la propriété "AutoEdit" du TDataSource à False (sinon les données pourront être modifiées automatiquement sans contrôle) :
                                   Remonter 

La fiche principale du  projet :

                                                                                                Remonter 

unit uFTableTest1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db, Buttons, StdCtrls, Grids, DBGrids, ExtCtrls;

type
  TFTableTest1 = class(TForm)
    Table1: TTable;
    Database1: TDatabase;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    LEtat: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label5: TLabel;
    LNomTable: TLabel;
    Bevel1: TBevel;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  FTableTest1: TFTableTest1;

implementation

{$R *.DFM}

procedure TFTableTest1.FormCreate(Sender: TObject);
begin
DataBase1.Params[0]:='DATABASE NAME='+extractfilepath(application.exename)+'BaseAccess.mdb';
DataBase1.connected:=true;
end;

procedure TFTableTest1.SpeedButton1Click(Sender: TObject);
{ Ouvrir la table }
begin
Table1.active:=true;
LEtat.caption:='Ouvert';
end;

procedure TFTableTest1.SpeedButton2Click(Sender: TObject);
{ fermer la table }
begin
Table1.active:=false;
LEtat.caption:='Fermé';
end;

procedure TFTableTest1.Button1Click(Sender: TObject);
{ TableTest1 }
begin
table1.tablename:='TableTest1';
LNomTable.caption:='TableTest1';
end;

procedure TFTableTest1.Button2Click(Sender: TObject);
{ TableTest2 }
begin
table1.tablename:='TableTest2';
LNomTable.caption:='TableTest2';
end;

procedure TFTableTest1.Button3Click(Sender: TObject);
{ Aucune table }
begin
table1.tablename:='';
LNomTable.caption:='';
end;

end.                                                                        Remonter