Delphi Base de Données

composants TTable et TDataSource
 (CD-ROMDelphi.BD)



: Les projets Delphi


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
 



Pour utiliser pratiquement le composant TTable : 
 



Pour se servir pratiquement d'un composant TDataSource : 



La fiche principale du  projet :

                                                                                                Remonter 



Le code de la Unit fiche principale :

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 



EXECUTION DU PROGRAMME :