GDC MANAGER

Commentaire de nethacker le 28/04/2008 19:57:59

Salut,
C'est très bien mais ca serait bien si tu avais utilisé une base SQL distante ! les exemples avec access sont plusieurs !
Mais bon, ^^

Commentaire de lafarge le 04/05/2008 13:27:04

Bonjour tout le monde,

Ne serait il pas plus simple d'utiliser des fiches de type Référentielle (Fichier *.dro)
quand on a plusieurs fiches ayant la même ergonomie, avec les mêmes coordonnées.
L'on crée une fiche FicheMere sauvegardée dans le référentiel avec comme fonctionnalité (Herited)
Exemple: TFicheMere = Class(TFORM) puis --> qui EST la fiche référentielle puis..

         TFajoutContact = Class (TFicheMere) // au lieu de class (TFORM)
         TFModifContact = Class (TFicheMere) // au lieu de class (TFORM)
         etc, etc...
C'est surprenant je n'ai jamais vu dans delphifr.com, utiliser ce type de fonctionnalité qui est pourtant fort pratique.cela permet une uniformisation des différentes fiches et donne un aspect "Pro" ..si je puis dire....

LAFARGE

Commentaire de nraloux le 06/05/2008 14:45:54

Merci a tous pour vos encouragements et contrairement a ce que peut penser MAURICIO je l'ai fais tout seul l'application.

Commentaire de Delphiprog le 10/05/2008 15:54:34 administrateur CS

Effectivement, pour une première, c'est pas mal.
Voici néanmoins quelques remarques (constructives) :
1- Eviter de désactiver les messages d'erreur du compilateur qui ne sont pas là pour meubler le décor. Ainsi, les avertissements suivants sont à prendre au sérieux :
[Avertissement] AjoutContact.pas(256): La variable 'senderEdt' n'est peut-être pas initialisée
[Avertissement] AjoutContact.pas(267): La variable 'SenderEdt' n'est peut-être pas initialisée
[Avertissement] AjoutContact.pas(299): Le symbole 'fmShareDenyRead' est propre à une plate-forme
[Avertissement] ModifContact.pas(260): La variable 'senderEdt' n'est peut-être pas initialisée
[Avertissement] ModifContact.pas(271): La variable 'SenderEdt' n'est peut-être pas initialisée
[Avertissement] ModifContact.pas(312): Le symbole 'fmShareDenyRead' est propre à une plate-forme

Hormis l'avertissement concernant l'utilisation du symbole fmShareDenyRead, le reste peut poser de gros problèmes à l'exécution.

2- Il manque des contrôles à la suppression d'un contact : si on ne rentre aucune donnée et que l'on clique sur le bouton [ok], voici le beau message qui s'affiche :
---------------------------
Gestion Des Contacts
---------------------------
Base de données inconnue.

Alias: Contact.
---------------------------
OK  
---------------------------
A affiner, donc.

3- idem que ci-dessus lorsque l'on tente de visualiser un contact ou tous les contacts avec une base de données vide.

4- "Visualiser un contact", puis cliquer sur "visualiser", on obtient ceci :
---------------------------
Gestion Des Contacts
---------------------------
Violation d'accès à l'adresse 005263D0 dans le module 'GDCManager.exe'. Lecture de l'adresse 0000033C.
---------------------------
OK  
---------------------------

5- Au niveau du code, on trouve des redondances comme dans Timer1Timer et dans FormCreate (Accueil.pas) pour une simple mise à l'heure des différents composants. Place cette potion de code dans une procédure que tu appelles ensuite.
De même pour :
procedure TFenPrincipale.AjoutContact1Click(Sender: TObject);
begin
  TFajoutContact.Create(Self);
  ActiveMDIChild.Caption := 'Ajout d''un nouveau Contact';
end;

{-------------------------------------------------------------------------}

procedure TFenPrincipale.Label11Click(Sender: TObject);
begin
  TFajoutContact.Create(Self);
  ActiveMDIChild.Caption := 'Ajout d''un nouveau Contact';
end;
De plus, je dirai que c'est un peu maladroit qu'une fiche soit chargée de modifier le titre d'une autre fiche lorsque ce titre est statique.

6- Attention à la façon de nommer tes composants car cela peut prêter à confusion comme ici :
procedure TFenPrincipale.AjoutContact2Click(Sender: TObject);
begin
  TFsuppContact.create(self);
  ActiveMDIChild.Caption := 'Suppression d''un Contact';

end;
Le bouton AjoutContact a pour action d'afficher la fiche de suppression d'un contact !

7- Ce type de code fait un peu ringard de nos jours et me rappelle les applications des années 80 :
procedure TFenPrincipale.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if
    MessageDlg('Cette operation fermera l''application. Voulez-vous effectuer cette operation ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Application.Terminate
  else
  begin
    Action := caNone;
  end;
end;
On alerte l'utilisateur uniquement si des données ont été modifiées et non sauvegardées. D'autre part, éviter l'utilisation de l'appel à Application.Terminate qui arrête brutalement l'application sans laisser le temps aux composants orientés données de vider leurs buffers.

8- Attention à vérifier l'existence d'un fichier avant de l'ouvrir comme dans :
procedure Tsplash.FormShow(Sender: TObject);
begin
  sprite := tbitmap.create;
  sprite.loadfromfile('1.bmp');

9- Privilégier l'utilisation de TDataModule pour centraliser la logique métier en matière de gestion des données. Cela aurait évité de multiplier les composants TQuery sur chaque fiche et de retrouver des requêtes identiques d'une fiche à l'autre. Lors de la maintenance d'une application, cela peut devenir critique et coûteux en temps avec des tests inutiles quand il faut revisiter chaque fiche de l'application (qui peut en contenir plusieurs centaines). La preuve :

E:\delphifr\GDC\GDC Manager\Acceuil.pas
    163 ActiveMDIChild.Caption := 'Ajout d''un nouveau Contact';
    171 ActiveMDIChild.Caption := 'Ajout d''un nouveau Contact';
    187 ActiveMDIChild.Caption := 'Recherche et Modification d''un Contact';
    195 ActiveMDIChild.Caption := 'Suppression d''un Contact';

E:\delphifr\GDC\GDC Manager\AjoutContact.pas
    173 query1.SQL.Add('insert into contact (civilite,Societe,Nom,Prenom,Adresse,CodePostal,Ville,Pays,Site,Email,telephone,Fax,Mobile,DateNaiss,Observation,photo) values (:ci,:s,:n,:p,:a,:c,:v,:pa,:si,:e,:t,:f,:m,:d,:o,:pho)');

E:\delphifr\GDC\GDC Manager\ModifContact.pas
    105 Query1.SQL.Add('select * from contact where nom = :p');
    198 Query1.SQL.Add('UPDATE contact SET civilite=:ci ,societe=:s,Nom=:n,Prenom=:p,Adresse=:a,CodePostal=:c,ville=:v,pays=:pa,Email=:e,site=:si,telephone=:t,fax=:f,mobile=:m,datenaiss=:d,observation=:o,photo=:pho WHERE nom=:pr');
    335 Query1.SQL.Add('SELECT Nom from contact where Nom LIKE :p Order by Nom Asc');

E:\delphifr\GDC\GDC Manager\SelectContact.pas
     64 Query1.SQL.Add('SELECT Nom from contact where Nom LIKE :p Order by Nom Asc');
     81 Query1.SQL.Add('select * from contact where nom = :p');

E:\delphifr\GDC\GDC Manager\SupprimerContact.pas
     54 Query1.SQL.Add('select prenom from contact where nom = :p ');
     86 Conf := MessageDlg(('Voulez-vous Vraiment supprimer le contact ' + combo.Text
     92 Query1.SQL.Add('Delete from Contact WHERE nom=:pr');
    116 Query1.SQL.Add('SELECT Nom from contact where Nom LIKE :p Order by Nom Asc');

Dans le code, on remarque aussi que tu ne vérifies aucune des données entrées par l'utilisateur et que tu ne prends même pas la précaution de "quoter" tes chaines. Rien de tel pour faire planter une requête si un contact s'appelle "Monsieur Archibald de l'archipel". Ta base de données est gravement exposée aux injections SQL.

Bon, je vais m'arrêter là et passer le relais aux autres. Tu as déjà de quoi occuper les quelques jours du long week-end qu'il te reste.
Mais, je le dis comme d'autres ici, pour une première c'est pas mal du tout.