begin process at 2012 02 05 01:27:22
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > UTILISATION DES DATAMODULES ET DE LA VCL POUR IMPLÉMENTER UN PATTERN OBSERVER OU NON

UTILISATION DES DATAMODULES ET DE LA VCL POUR IMPLÉMENTER UN PATTERN OBSERVER OU NON


 Information sur la source

Note :
Aucune note
Catégorie :Base de Donnees Classé sous :vcl, datamodule, decouplage, observer Niveau :Initié Date de création :08/05/2006 Date de mise à jour :13/05/2006 16:07:06 Vu / téléchargé :4 243 / 839

Auteur : pouicky

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Le Pattern observer et une solution générique au probleme suivant :
Comment un objet previent-il des observateurs de ses changement.
Je retiens deux exemples qui m'ont amené à réfléchir:
par Pierre castelain http://castelain.developpez.com/sources/Bouboules/
par delphiProg: http://www.delphifr.com/codes/DESIGN-PATTERN-OBSER VER-IMPLEMENTATION-REUTILISABLE_37338.aspx
Les deux cas n'utilisent pas des données issus de sgbd. L'utilisation de la VCL pour l'acces aux données est d'une efficacité redoutable et implementent (on dirait bien) le pattern observer.(un ADOQuery relié à deux controles par exemple). Mais pour un novice savoir gérer la synchronisation des fiches et avec leur source de données avec cohérence est difficile. Je vous présente donc deux procédés de liaison fiche-données qui permettent soit d'implementer le DP observer, soit de l'éviter, par des utilisations differentes des datamodules.
Soit un TDatamodule est commun à plusieurs fiches (les fiches de liste des films)
Soit chaque fiche possedera un instance différente d'unê même classe de TDatamodule

Source

  • //Voici une partie des commentaires laissées dans le code
  • unit UVueFilm_Frm;
  • {Vue d'un seul film indépendant des autres.
  • L'idee est d'associer par composition un data module propre à chaque fiche.
  • Ainsi, chaque vue de film sera distincte, même sur le même film (chargé à deux moments différents).
  • il s'agit de créer dynamiquement un datamodule que gèrera la fiche du film.
  • Ce mécanisme permettra dans le cas de fiches complexes de comparer la nouvelle saisie avec les données initiales, et choisir de valider ou non (moi je n'ai rien implémenté, mais on peut 'jouer' à partir de la liste en édition)
  • }
  • unit UListeFilms_Frm;
  • {fiche de liste de film chaque instance sera reliée à la même instance de datamodule
  • A la conception, le dataset de la grille de cette fiche, est le datamodule DMUVueListeFilms du module UListeFilms_DM.
  • Cette instance du datamodule sera la même pour chaque nouvelle instance de fiche TFrmListeFilms.
  • Une modif sur l'une impliquera la modif sur les autres instances. Elles "observent" le datamodule
  • Pour une instance nommée du datamodule (DMListeFilms) à l'execution,
  • je l'ai ajouté dans la liste des fiches à lancer au chargement,
  • mais on pourrait tres bien le déclarer dans la fiche principale et l'instancier ensuite.
  • }
  • unit UMain_Frm;
  • {le bouton "Afficher la liste des films dans une nouvelle fenetre"
  • permet d'ouvrir une nouvelle fenetre anonyme et pose le probleme de la similarité des données affichées sur l'ensemble des fenetres "listes" }
//Voici une partie des commentaires laissées dans le code
unit UVueFilm_Frm;
{Vue d'un seul film indépendant des autres.
L'idee est d'associer par composition un data module propre à chaque fiche.
Ainsi, chaque vue de film sera distincte, même sur le même film (chargé à deux moments différents).
il s'agit de créer dynamiquement un datamodule que gèrera la fiche du film.
Ce mécanisme permettra dans le cas de fiches complexes de comparer la nouvelle saisie avec les données initiales, et choisir de valider ou non (moi je n'ai rien implémenté, mais on peut 'jouer' à partir de la liste en édition)
}

unit UListeFilms_Frm;
{fiche de liste de film chaque instance sera reliée à la même instance de datamodule
A la conception, le dataset de la grille de cette fiche, est le datamodule DMUVueListeFilms du module UListeFilms_DM. 
Cette instance du datamodule sera la même pour chaque nouvelle instance de fiche TFrmListeFilms. 
Une modif sur l'une impliquera la modif sur les autres instances. Elles "observent" le datamodule
Pour une instance nommée du datamodule (DMListeFilms) à l'execution,
je l'ai ajouté dans la liste des fiches à lancer au chargement,
mais on pourrait tres bien le déclarer dans la fiche principale et l'instancier ensuite. 
}

unit UMain_Frm;
{le bouton "Afficher la liste des films dans une nouvelle fenetre"
permet d'ouvrir une nouvelle fenetre anonyme et pose le probleme de la similarité des données affichées sur l'ensemble des fenetres "listes" }

 Conclusion

Ce code n'est fait pour etre fonctionnel, mais pour illustrer la problematique que je me pose.
N'ayant pas trop de pratique de developpement, des aspect m'auront échappé ou la pratique exposée est peut etre à éviter dans des contextes de programmtion particuliers, mais elle répond à la problematique :"découpler le code données et le code interface, tout en utilisant la VCL".
Le début de solution proposée ici est en fait une utilisation réfléchie des datamodules (sans doute à améliorer d'ailleurs)
Un pas est fait, la discussion est ouverte pour pousser le bouchon.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

13 mai 2006 16:07:06 :
Correction du texte de présentation du code.

 Sources du même auteur

Source avec Zip Source avec une capture DBGRID AVEC ZONE DE RECHERCHE,TRI,FLECHES,MEMOS,MOLETTE,COUL...
Source avec Zip Source avec une capture DBGRID AVEC TRI SUR CLIC, MOLETTE ET COULEURS

 Sources de la même categorie

Source avec Zip Source avec une capture STOCKEUR CODE SOURCE par PythonGreg
Source avec Zip Source avec une capture EXEMPLE UTILISATION DBGRID par HAFTARIFOUAD
Source avec Zip EXPORTE TABLE VER EXCEL par apcmorsott
Source avec Zip Source avec une capture BAK_RESORT POUR SGBD INTERBASE par solitair
Source avec Zip Source avec une capture GESTION DES CODE POSTAUX AVEC UNE BASE ACCESS par AlexFr23

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture GLIBWMI VCL COMPONENT LIBRARY 1.8B par Neftali
Source avec Zip Source avec une capture PACKAGE BORLAND par blueperfect
Source avec Zip Source avec une capture EASY OPENGL: DE L'OPENGL DANS LA VCL par Forman
Source avec Zip Source avec une capture DESIGN PATTERN OBSERVER : IMPLÉMENTATION RÉUTILISABLE par Delphiprog
Source avec Zip PORTSCANNER EN VCL par Mxbug

Commentaires et avis

Commentaire de pouicky le 13/05/2006 16:01:13

Une discussion intéressante a déjà eu lieu sur le sujet:
http://www.developpez.net/forums/showthread.php?t=76749&highlight=metier

Une question à cent balles sur la source:
Comment synchroniser l'affichage de deux fiches de film lorsqu'il s'agit du même film, et pas lorsqu'il s'git de films différents?
--> je pencherais vers la tenue d'une liste par  la fiche "liste de films" (car cette fiche peut avoir la vision des sous-fiches instanciées) et la recherche dans cette liste de l'identifiant base du film pour voir si il est déjà affiché. Si oui, alors on  répercute les modification faites, différents doubles.

Mais si on garde la possibilité de permettre plusieurs fiches de liste, il faut transposer cette astuce sur leur TDatamodule commun, unique qui aura un liste exhaustive.

Commentaire de djemai le 24/02/2007 11:52:28

Je vous remçie beaucoup sur la nouvelle façon d'utiliser le la fenêtre TDatamodule qui comporte les objets orientée et données non visible de la vcl.
C'est vraiment uen bonne voie pour realiser une application efficace avec les objets ADO qui manipule une base de donnée Access . Merci

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Acceder à l'aide pour 1 nlle VCL sous Delphi [ par Leroy ] Bonjour Existe-il après l' ajout d'un nouveau paquet de composants une astuce pour que l'aide de ce dernier soit accessible sous delphi avec la classi Datamodule et accès à partir d'une form [ par manudel ] Voilà, je voudrais avoir accès aux événements des objets figurant sur mon datamodule, mais je n'y arrive pas. J'ai l'erreur suivante : "le type de l'e importer composant VCL dans un projet [ par magmados ] Je dispose des fichiers .pas et .dcr d'un composant. Comment je peux l'inclure dans mon projet. Merci d'avance pointer sur un datamodule à partir d'un autre exe? [ par francois44 ] SalutJ'aimerai svoir s'il est possible (si oui comment?) de pointer sur un et un seul datamodule qui serait dans un "exe" principal avec d'autres "exe différence winforms vcl [ par retaks666 ] Bonjour, quelles sont les différence entre les winforms et les application vcl? et pourquoi on ne peut utiliser les même composants dans l'u installation Déploiement d'application [ par retaks666 ] Bonjour, je cherche a créer un setup pour mon application, qui utilise un alias vers une base de données, et un composant vcl 'vcl skin'. Po QuickReport + Ado [ par rafraf6 ] Bonjour,J'ai le code suivant : procedure TForm2.bitPreviewClick(Sender: TObject);begin  with DataModule.AdoQ1 do  begin    & cloner une table et/ou un datamodule [ par OrsE ] Salut tout le monde... Comment cloner un TTable et un TDataModule pendant l'exécution? J'ai essayé le constructeur de copie du datamodule, m Skinner mon application (Sans Vcl) [ par Becracker ] Salut les gars, Je voudrai juste savoir si qqn d'entre vous sait comment skinner mon application sous delphi en utilisant des skins de format *.skn e


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,827 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales