Delphi 6 Relationnel

8/5/2001

Par Henry Cesbron Lavau (Site personnel)
 

Cette page a pour but de vous aider à construire une application de base de données relationnelle avec dbExpress.
Suivez les commandes et captures d'écrans.

• La relation d'une table maître avec une table détail.
• La relation LookUp.

• Delphi 6 Pro ou Entreprise
• Delphi 6 et InterBase 6 sur CD avec la Documentation sont aussi disponible auprès du Centre Officiel de Borland : Diffus'Log - Tél : 01 34 63 07 01.
• Il vous faut aussi l'application et le fichier MaDatabase.gdb résultant de Delphi 6 et InterBase 6, ainsi que l'application développée dans dbExpress avec Delphi 6.

IBTableAppels.CreateTable;
IBTableTypesDAppel.CreateTable;

CREATE TABLE "APPELS" ( "PK_APPELS" INTEGER NOT NULL, "DATEAPPEL" TIMESTAMP,
  "TYPEDAPPEL" VARCHAR(12), "RAPPELER" SMALLINT, "COUT" DOUBLE PRECISION,
  "PK_NOMS" INTEGER NOT NULL, CONSTRAINT "PK_APPELS" PRIMARY KEY ("PK_APPELS") );
CREATE TABLE "TYPESDAPPEL" ( "PK_TYPESDAPPEL" INTEGER NOT NULL,
"TYPEDAPPEL" VARCHAR(12), CONSTRAINT "PK_TYPESDAPPEL" PRIMARY KEY ("PK_TYPESDAPPEL") );

• Activation de la connexion SQLConnection1
• Chargement de FieldDefs
• Ouverture d'une dual liste pour établir la liaison.

• Mettre dans l'IDE SQLConnection1.Connected à False
• et, toujours dans l'IDE, ClientDataSetAppels.StordeDefs à False

procedure TDataModule1.ClientDataSetAppelsOpen;
begin
  ClientDataSetAppels.Open;
end;

procedure TFormNoms.FormShow(Sender: TObject);
begin
    DBGridNoms.DataSource := DataModule1.DataSourceNoms;
    DataModule1.ClientDataSetNomsOpen;
    DBGridAppels.DataSource := DataModule1.DataSourceAppels;     DataModule1.ClientDataSetAppelsOpen;
end;

procedure TFormNoms.ButtonApplyUpdatesClick(Sender: TObject);
begin
    DataModule1.ClientDataSetNoms.ApplyUpdates(-1);
    DataModule1.ClientDataSetAppels.ApplyUpdates(-1);
end;

procedure TFormNoms.ButtonCancelUpdatesClick(Sender: TObject);
begin
    DataModule1.ClientDataSetNoms.CancelUpdates;
    DataModule1.ClientDataSetAppels.CancelUpdates;
end;

select * from TYPESDAPPEL

procedure TDataModule1.ClientDataSetTypesDAppelOpen;
begin
  ClientDataSetTypesDAppel.Open;
end;

procedure TFormNoms.FormShow(Sender: TObject);
begin
    DBGridNoms.DataSource := DataModule1.DataSourceNoms;
    DataModule1.ClientDataSetNomsOpen;
    DBGridTypesDAppel.DataSource := DataModule1.DataSourceTypesDAppel;     DataModule1.ClientDataSetTypesDAppelOpen;
    DBGridAppels.DataSource := DataModule1.DataSourceAppels;     DataModule1.ClientDataSetAppelsOpen;
end;

procedure TFormNoms.ButtonApplyUpdatesClick(Sender: TObject);
begin
    DataModule1.ClientDataSetNoms.ApplyUpdates(-1);
    DataModule1.ClientDataSetTypesDAppel.ApplyUpdates(-1);
    DataModule1.ClientDataSetAppels.ApplyUpdates(-1);
end;

procedure TFormNoms.ButtonCancelUpdatesClick(Sender: TObject);
begin
    DataModule1.ClientDataSetNoms.CancelUpdates;
    DataModule1.ClientDataSetTypesDAppel.CancelUpdates;
    DataModule1.ClientDataSetAppels.CancelUpdates;
end;

procedure TFormNoms.SetTypesDAppelPickList;
var s: string;
begin
  s := '';
  with DataModule1.ClientDataSetTypesDAppel do
  begin
    First;
    while not Eof do
    begin
      s := s + FieldByName('TYPEDAPPEL').AsString + #13;
      Next;
    end;
  end;
  DBGridAppels.Columns[2].PickList.Text := Copy(s, 1, Length(s) - 1);
end;

SetTypesDAppelPickList;

• Consultez les forum Delphi ainsi que Delphi et bases de données de www.developpez.com
• Abonnez-vous au news group Base de données (en français) (news://news.vienneinfo.org/nzn.fr.base-de-donnees).
• Lisez le prochain article :
• Application multi-tiers avec Delphi 6 (à venir)

Interbase

Ma première base InterBase

Delphi 6 et InterBase 6

dbExpress avec Delphi 6

Delphi 6 Relationnel

Le bon PLAN d'InterBase

MDA (Model Driven Architecture)

MDA

Programmez avec les diagrammes de Delphi 7

Les objets métiers avec ModelMaker de Delphi 7

Les Design Patterns avec ModelMaker de Delphi 7

Autres articles

Les transactions

Mise à jour de Delphi 6