Discussion :

[Furlaz]

Voila j'ai un petit problème avec mon TDBGrid, certes pas très grave et qui n'empeche pas mon application de fonctionner mais bon c'est tout de meme pas propre.


En fait j'enregistre un visiteur via un formulaire crée avec des TEdit. Ensuite je l'envoi dans ma table (connectée à ma base de donnée) de la manière suivante :

- Code lorsque je clique sur le bouton Ajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
void __fastcall TForm1::AGGIUNGERE_VISITATOREClick(TObject *Sender)
{
 TLocateOptions Option;
 if(TBVisit->Locate("cognome",cognome_visitatore->Text,Option)==true) return;
 TBVisit->Append();
 aggiornare_visitatori();
 ShowMessage("Visitatore aggiungere");
}

- puis fonction suivante pour ajouter le visiteur dans la table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
void __fastcall TForm1::aggiornare_visitatori()
{
 TBVisit->Edit();
 TBVisit->FieldByName("Cognome")->Value = cognome_visitatore->Text;
 TBVisit->FieldByName("Documento")->Value = documento_visitatore->Text;
 TBVisit->FieldByName("Motivo")->Value = motivo_visitatore->Text;
 TBVisit->FieldByName("Entrata")->Value = entrata_visitatore->Text;
 TBVisit->FieldByName("Uscita")->Value = uscita_visitatore->Text;
 TBVisit->Post();
 TBVisit->Refresh();
}

Ce que je ne comprends pas, c'est que mon visiteur est bien rajouté UNE SEULE FOIS lorsque l'on verifie dans la table de la base de donnée (type ACCESS) par contre visuellement dans mon TDBGrid mon visiteur apparait 2 fois :
- une fois sur la première ligne du tableau
- une autre fois sur la dernière ligne

Si par la suite je modifie ce visiteur (à l'aide d'un bouton Modifier) le visiteur apparait cette fois ci normalement (soit une seul fois)

Si quelqu'un connait un moyen de remerdier a cela ?

Sinon question supplémenentaire : Est-il possible de trier un TDBGrid en fonction de la colonne où l'on clique. Par exemple si je clique une fois sur la colonne Nom il me trie par ordre croissant les nom, et si je reclique il le fait par ordre dècroissant et ceux pour toutes les colonnes ? Comme dans beaucoup d'applications d'ailleurs.


Merci pour vos futurs éclairages :-)

[BOUBOU81]

Voila un bout de code pour le trie des colonnes, attention il se fait que en croissant mais mettre dans l'ordre decroissant n'est pas compliqué.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm1::DBGridTitleClick(TColumn *Column)
{
   ColonneEnCours=Column->FieldName;
   AfficheGrille();
}
//---------------------------------------------------------------------------
void TForm1::AfficheGrille(void)
{
   AnsiString Sql;
   DM->Query->Close();
   DM->Query->SQL->Clear();
   Sql="Select *from table Order by "+ColonneEnCours+" ASC";
   DM->Query->SQL->Add(Sql);
   try
   {
      DM->Query->Open();
   }
   catch (EDatabaseError& e)
   {
   }
}
//---------------------------------------------------------------------------

Pour ce qui est de l'affichage dans la DBGrid là je vois pas mais peut-etre qu'avec le code pour raffraichir ta DBGrid on pourrait te repondre.

[say]

pour le tri, j'irai même jusqu'à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
//---------------------------------------------------------------------------
void __fastcall DBTools::MyOrderBy(TColumn* Column)
{
 
  TDBGrid* cible = dynamic_cast<TDBGrid*>(Column->Grid);
  AnsiString newsql = dynamic_cast<TPSQLQuery*>(cible->DataSource->DataSet)->SQL->Text;
  AnsiString ordre;
  if (newsql.Pos("ASC") != 0 && newsql.Pos(Column->Field->DisplayName)!= 0)
    ordre = " DESC";
  else
    ordre = " ASC";
  newsql = DBTools::SQLSequenced(newsql," LIMIT");
  newsql = DBTools::SQLSequenced(newsql," ORDER BY");
 
  DBTools::execQuery(newsql + " ORDER BY " + Column->Field->DisplayName + ordre ,cible);
  cible->DataSource->DataSet->First();
 
}

Mon code s'applique à un composant de type Query, orienté postgresql...rest à adapter..il est pas fini, fini mais c pour que tu aies une idée.

Sinon, moi non plus je vois pas pour ton soucy là comme ça.En revanche, puisque tu as un datasource, pourquoi n'utilises-tu pas des controls orientés données comme les DBEdit?

[Furlaz]

Merci pour le code, je vais essayer.

Pour ce qui est de mon code pour le refresh, j'en ai pas j'ai juste une fonction afterRefresh() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
void __fastcall TForm1::TBVisitAfterRefresh(TDataSet *DataSet)
{
 /* j'active ou non certains boutons */
 AGGIUNGERE_VISITATORE->Enabled = true;
 stampare_visitatore->Enabled = false;
 
 
/* J'efface les TEdit */
 documento_visitatore->Text= "";
 cognome_visitatore->Text= "";
 motivo_visitatore->Text= "";
 entrata_visitatore->Text= "";
 uscita_visitatore->Text = "";
}

Y a t'il quelque chose d'autre a faire d'autre pour que mon refresh soit efficace ?
Ce qui est bizard c'est que lorsque j'ajoute un visiteur il me fait le bug en rajoutant 2 lignes mais lorsque je le modifie, il n'y a aucun problème alors que j'utilise la meme fonction (pour l'ajout et pour la modification) pour mettre a jour mes champs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
void __fastcall TForm1::aggiornare_visitatori()
{
 TBVisit->Edit();
 TBVisit->FieldByName("Cognome")->Value = cognome_visitatore->Text;
 TBVisit->FieldByName("Documento")->Value = documento_visitatore->Text;
 TBVisit->FieldByName("Motivo")->Value = motivo_visitatore->Text;
 TBVisit->FieldByName("Entrata")->Value = entrata_visitatore->Text;
 TBVisit->FieldByName("Uscita")->Value = uscita_visitatore->Text;
 TBVisit->Post();
 TBVisit->Refresh();
}

Voila, merci d'avance

[Furlaz]

Pour les DBEdit je ne savais pas que ca existait

Je connais pas le logiciel depuis très longtemps (3 semaines environ)

Et ce composant DBEdit il fonctionne comme les Tedit habituels mais avec le datasource en plus ?

Merci

[say]

exactement...dans l'onglet ControlDB

[Furlaz]

Alors,

Pour mon tri, il prend bien en compte ma requete SQL mais le tableau ne s'ordone pas, est-ce normal.

Mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
void __fastcall TForm1::DBvisitatoriTitleClick(TColumn *Column)
{
 AnsiString Colonna;
 AnsiString sql;
 
 Colonna=Column->FieldName;
 
 sql = "SELECT * FROM visitatori ORDER BY " + Colonna + " ASC";
 
 QRVisit->SQL->Clear();
 QRVisit->SQL->Add(sql);
 QRVisit->ExecSQL();
 
 TBVisit->Refresh();
}

J'ai pris exemple sur les codes que vous m'avait donné et sur un code du meme genre que j'utilise deja dans mon application (une requete pour supprimer le visiteur selectionné)

Mais la il ne veut pas l'executer, il n'y a pas de tri de tableau apparant

Merci

[lanonyme]

Bonjour,
Je ne sais pas si cela va resoudre ton probleme mais il est conseiller (d'apres l'aide borland) d'utiliser l'instruction Open() au lieu de ExecSQL() pour une requete de Selection.

lanonyme

[Furlaz]

Ok pour Open,
Je viens d'essayer mais le résultat est toujours le meme : mon TDBGrid ne change toujours pas d'apparence

[say]

tu es sur que ton DBGrid est bien lié sur ton QRVisit?

[Furlaz]

Normalement oui car dans mon application j'utilise deja QRVisit pour supprimer des elements (visiteurs) dans le tableau et sa fonctionne tres bien

C'est pour cela que je ne comprends pas ^^

[Furlaz]

Bonjour,

J'ai trouvé une solution a mon premier problème (l'affichage du visiteur dans mon TDBGird qui était doublé) :

- Je ferme puis je réouvre ma table apres avoir ajouté mon visiteur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  TBVisit->Close();
  TBVisit->Open();

Je pense pas que ce soit la meilleur méthode mais il a le merite de fonctionner

J'ai aussi essayé une methode proposé sur http://www.developpez.net/forums/sho...ghlight=DBGrid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DBGrid1->DataSource->DataSet->Refresh();

qui adapté à mon application donne (normalement ^^):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DBvisitatori->DSVisit->TBVisit->Refresh();

Mais il me met l'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
[C++ Error] Main.cpp(126): E2316 'DSVisit' is not a member of 'TDBGrid'

Si personne n'a d'idée c'est pas grave je garderais ma methode barbare sinon je suis preneur.


Pour ce qui est de mon 2ème probléme (le tri de mon TDBGrid en fonction de la colonne sur laquelle on clik) ca ne veut toujours pas fonctionner ; le tri ne s'effectue pas.
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
void __fastcall TForm1::DBvisitatoriTitleClick(TColumn *Column)
{
 
 AnsiString Colonna;    // Déclaration d'une variable colonne
 AnsiString sql;        // Déclaration de la variable accueillant la requete sql
 
 Colonna=Column->FieldName;     // Enregistre le nom de la colonne cliquée
 
 /* Enregistre la requete de tri */
 sql = "SELECT * FROM visitatori ORDER BY " + Colonna + " ASC";
 
 QRVisit->Close();
 QRVisit->SQL->Clear();         // Efface la précédente requete
 QRVisit->SQL->Add(sql);        // Ajout de la nouvelle requete
 QRVisit->Open();               // Execute la requete
 
 TBVisit->Refresh();            // Mise à jour de la table
}

Merci

[Furlaz]

J'ai aussi essayé une methode proposé sur http://www.developpez.net/forums/sho...ghlight=DBGrid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DBGrid1->DataSource->DataSet->Refresh();

qui adapté à mon application donne (normalement ^^):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DBvisitatori->DSVisit->TBVisit->Refresh();

Mais il me met l'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
[C++ Error] Main.cpp(126): E2316 'DSVisit' is not a member of 'TDBGrid'

Si personne n'a d'idée c'est pas grave je garderais ma methode barbare sinon je suis preneur.

J'ai dis une betise pour ca, effectivement il faut garder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DBvisitatori->DataSource->DataSet->Refresh();

Je me susi confondu entre les methodes et les name de mes composants.

Maintenant la compilation fonctionne bien mais avec cette derniére technique meme problème de doublement d'affichage

Donc pour le moment je garde la méthode barbare

[Furlaz]

Voila un bout de code pour le trie des colonnes, attention il se fait que en croissant mais mettre dans l'ordre decroissant n'est pas compliqué.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void __fastcall TForm1::DBGridTitleClick(TColumn *Column)
{
   ColonneEnCours=Column->FieldName;
   AfficheGrille();
}
//---------------------------------------------------------------------------
void TForm1::AfficheGrille(void)
{
   AnsiString Sql;
   DM->Query->Close();
   DM->Query->SQL->Clear();
   Sql="Select *from table Order by "+ColonneEnCours+" ASC";
   DM->Query->SQL->Add(Sql);
   try
   {
      DM->Query->Open();
   }
   catch (EDatabaseError& e)
   {
   }
}
//---------------------------------------------------------------------------

Dans ton code je voulais juste savoir à quoi correspondait "DM" car moi j'ai réalisé un code très proche (forcement j'ai pris exemple sur celui-ci ) mais j'ai directment fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Query->....

et non :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DM->Query->...

Et puisque ca ne fonctionne pas chez moi je me dis que l'erreur vient peut etre de la ?

[BOUBOU81]

non en fait le DM->, c'est que mon Query est dans un DataModule et non sur la fiche.
ton souci ne vient pas de là.
mais qu'est ce qui ne fonctionne pas exactement,
Tes donnée s'affiche bien, pas de message d'erreur...

est-ce que tu as exactement copier mon code, as tu bien l'evenement
TitleClick a ton DBGrid

[Furlaz]

Voici exactement le code que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
void __fastcall TForm1::DBvisitatoriTitleClick(TColumn *Column)
{
 AnsiString Colonna="";    // Déclaration d'une variable colonne
 AnsiString sql="";        // Déclaration de la variable accueillant la requete sql
 
 Colonna=Column->FieldName;     // Enregistre le nom de la colonne cliquée
 
 /* Enregistre la requete de tri */
 sql = "SELECT * FROM visitatori ORDER BY " + Colonna + " ASC";
 
 QRVisit->SQL->Close();
 QRVisit->SQL->Clear();         // Efface la précédente requete
 QRVisit->SQL->Add(sql);        // Ajout de la nouvelle requete
 QRVisit->Open();               // Execute la requete
 
 
 TBVisit->Refresh();            // Mise à jour de la table
}

Mes donnée s'affiche correctement dans mon DBGrid.
Je n'ai pas de message d'erreurs
J'ai bien un évenement OnTitleClick.
Mais lorsque je click sur une des colonne il ne se passe rien (elle ne sont pas triés, elle reste comme avant)

J'ai vérifié que la requete etait bien enregistré (sans espace, sans fautes,...) en la faisant afficher dans un edit et je n'y est vu aucun problème

J'avoue que je trouve tout cela curieux

[Furlaz]

Si quelqu'un trouvé solution à mon problème ce serait génial,

C'est une dernières chose qu'il me manque pour mon projet de stage.

Merci.

[BOUBOU81]

C'est quoi ton TBVisit
Pourquoi un refresh
le code que je t'ai donné fonctionne sans ca.
si c'est ton DataSource es-tu sûr qu'il est lié à QRVisit?

[Furlaz]

C'est quoi ton TBVisit
Pourquoi un refresh
le code que je t'ai donné fonctionne sans ca.
si c'est ton DataSource es-tu sûr qu'il est lié à QRVisit?

Mon TBVisit, c'est ma table visiteur relié à ma base de donnée.
Dans mon DataSouce, j'ai mis DataSet à TBVisit
et dans QRVisit j'ai bien mis mon DataSource

Le refresh j'ai fait ca comme ca, au cas où

[BOUBOU81]

Arf! Moi je fonctionne pas avec les tables, je ne saurai pas te dire