Dephi Business Object Framework comment faire ?

Bsr,

Dans mes progs Delphi j'en ai assez de pourvoir tout manipuler comme objet sauf mes bases de données ...

J'aimerais donc implémenter des objets métiers dans un Framework du style Représentation -> Application -> Persistance.
Ensuite je voudrais pouvoir faire les opérations MonObjet.Load, MonObjet.Delete ou MonObjet.Save et que cela mette à jours là ou les tables sous-jaccentes (ou autres si je n'utilise pas des tables)

Comment réaliser ceci simplement : je ne désire pas écrire une usine à gaz ...

Existe-t-il des exemples Delphi ?

Merci

@+
Php

Salut

:roll: Euh j'aimerais bien t'aider mais je comprends pas grand chose... En gros tu voudrais créer un composant qui contient une sorte de TCollection qui représente directement les entrées d'une BD? C'est ça? Ou je suis complètement à coté? :wink:

jettes un coup d'oeil à http://www.rad-studio.com/ dans les compo dbAware. Ca vaut vraiment la peine et le prix n'est pas exessivement chers pour ce que cela permet de faire. ET c du solide ... à toute epreuve. ;)

t'as aussi ca mais je l'ai pas essayé
http://www.remobjects.com/

Merci, je vais jetter un coup d'oeil même si mon boss c'est plutôt "dis moi ce que tu as besoin, je te dirais comment t'en passer ..."

Surtout qu'on a acheté Crystal Report (c'est pas donné) pour utiliser avec D7 et que je me rends compte maintenant que ces pas la Rolls des générateurs d'états loin s'en faut ... Par contre leur objet CR sous forme d'ActiveX s'interface très bien avec Delphi



Pedro204 -> en fait ce que je veux faire est assez simple à comprendre

Imagine que j'ai une table des clients dans une base de données.
Et bien je veux pouvoir manipuler mes clients sous Delphi comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure FaireQuelqueChose(); var mon_client : TClient; begin mon_client := TClient.Create; // Créer un nouveau client mon_client.Load('0001'); // Charge le client dont l'ID vaut '0001' : ce n'est donc plus un nouveau client showmessage(mon_client.ID+' '+mon_client.Nom+' CA = '+ FormatFloat('0.00',mon_client.ChiffreAffaire)+' €'); mon_client.ChiffreAffaire := mon_client.ChiffreAffaire*2; mon_client.Save; // Sauvegarde ttes les modifications du client dans la base de données mon_client.Free; end;

---

Et pas avoir à utiliser à chaque fois une syntaxe du genre :

Code:

---

1 2 3

TQuery.SQL.Add('SELECT * FROM CLIENT WHERE ID='+#39+'00001'+#39);   Nom := TQuery.FieldValues['cli_nom'];

---

En gros à chaque table correspond un objet Delphi.
Mais je veux aussi avoir les relations du genre :

Code:

---

1 2	facture_client := mon_client.Factures.First; facture_client := mon_client.Factures.Next;

---

En gros c'est ca que je veux

@+
Php

C'est pour faire quel genre d'application ?

Bloon

Tu as aussi nos amis de chez TechInsite qui proposent le FrameWork TiOPF basé sur un mapping objet comme tu le souhaites. Il est Freeware ce qui fera peut-etre ton affaire.
Sur le site http://www.techinsite.com.au/Default.htm, se trouve un lien vers un livre blanc consacré aux frameworks de persistence. Culture générale quoi. :P
Bonne lecture et surtout bon courage car c'est complexe de vouloir se passer de la couche DataSet-DataSource-Controles orientés donnée.
J'ai déjà essuyé les platres et je ne le conseille pas vraiment.

A+.