pb BDE

**gg2laba** · 12/04/2005, 18h16

Bonjour

j'ai commencer a me servir des composants BDE : TTable TDBGrid etc .. mais je n'arrive a pas grand chose ( j'ai pourtant regardé des tuto )
j'ai donc plusieur problemes :

TTable1->RecNo me retourne toujour -1 et je ne sais pas comment faire autrement pour recuperer le numero de l'enregistrement en cour .

je n'arrive pas non plus a recuperer le numero d'enregistrement sélectionné dans une TDBGrid.

les evenements OnDraw ne renvoie pas la ligne de la cellule qui est rafraichie seulement la colone :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender,
      const TRect &Rect, TField *Field, TGridDrawState State)
{
 
}

alors que TStringGrid le fait :

Code :

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

1
2
3
4
5
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
 
}

Merci d'avance de vos réponses

**Sunchaser** · 12/04/2005, 18h35

Bonjour,

Pour le RecNo sur un TTable je ne sais quoi te dire parceque je n'ai pas ce soucis. J'ai l'impression que tu n'est pas la première personne a dire cela alors que je constate le contraire sur mon PC

...
Pour les OnDraw etc ..., j'avais testé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
if (Form1->DBGrid1->DataSource->DataSet->FieldByName("Rang")->Value == 2)
{
Form1->DBGrid1->Canvas->Brush->Color = clGreen;
Form1->DBGrid1->DefaultDrawColumnCell(Rect, 1, Column, State);
}
}

a titre d'exemple, et y a pas de problèmes mais dans quelles mesures a tu besoin de l'info sur la ligne ?
@ +

**gg2laba** · 12/04/2005, 21h22

salut

merci de ta réponse

ah bon pour RecNo ?

c'est bizarre

sinon pour le TDBGrid en fait je voulais colorier une ligne sur 2 en ... une couleur j'ai essayé quelque chose du type :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        int HAUTEUR_LIGNE=17;
        if ((Rect.top%HAUTEUR_LIGNE)%2==0)
        {
                DBGrid1->Canvas->Brush->Color=clRed;
                DBGrid1->Canvas->TextRect(Rect,Rect.left,Rect.top,"oo");
        }
        else
        {
                DBGrid1->Canvas->Brush->Color=clWhite;
                DBGrid1->Canvas->TextRect(Rect,Rect.left,Rect.top,"oo");
        }

ca marche a peut pres mais il ya un probleme de rafraichissement au moment ou l'on change de ligne et puis c'est du bidouillage alors que avec TStringGrid il n'y a pas de probleme

et c'est aussi pour que quand je clique sur une ligne je puisse recuperer le numero de ligne ou sinon le contenu des champs de la ligne selectionnée je vien d'essayer DBGrid->SelectedRows->Items[i] ... mais ca ne revoie que des chaine de caractere nulles

**Sunchaser** · 12/04/2005, 21h51

Bonsoir,
moi je m'etais basé sur ca (dans l'aide de ce forum) pour commencer a travailler avec ce genre d'évenenment :

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
 
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control,
     int Index, TRect &Rect, TOwnerDrawState State)
{
      TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
 
      if ((Index%2)==0) pCanvas->Brush->Color = clYellow;
      // met 1 ligne sur 2 en jaune
 
      if(State.Contains(odSelected))  //ligne selectionnée
                       {
                        pCanvas->Brush->Color = clRed;
                        pCanvas->FillRect(Rect);
                        pCanvas->Font->Color = clYellow;
                       }
      else pCanvas->FillRect(Rect);  //Les autres lignes
 
      //écriture les Items.
      pCanvas->TextOut(Rect.Left+5,Rect.Top+2,
                ((TListBox *)Control)->Items->Strings[Index]);
}

...ca t'irais pas ?

**gg2laba** · 12/04/2005, 22h42

oui ca a l'air d'etre ca ! mais je ne crois pas que ca pourrais fonctionner pareil pour une TDBGrid :-/ puisque les parametres ne sont pas les memes

**Sunchaser** · 12/04/2005, 23h42

M...!
Milles excuses : j'avais zappé le TDBGrid...je vais voir ca.
Sincèrement désolé

**Sunchaser** · 12/04/2005, 23h54

Voila , j'ai pas trainé (enfin j'espère....):

Code :

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

1
2
3
4
5
6
7
8
 
void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender,
      const TRect &Rect, TField *Field, TGridDrawState State)
{
      TCanvas *pCanvas = ((TDBGrid *)Sender)->Canvas;
      if ((Form1->DBGrid1->DataSource->DataSet->RecNo%2)==0) pCanvas->Brush->Color = clYellow;
      Form1->DBGrid1->DefaultDrawDataCell(Rect, Field, State);
}

Ca marche avec cela chez moi...
J'ai pas mieux, pour l'instant.

J'aurai pu voir le message plus tot mais maintenant je joue a Counter Strike comme un gamin !

@ +

**dvsoft** · 13/04/2005, 08h22

Bonjour,

Envoyé par Cantrelle

Voila , j'ai pas trainé (enfin j'espère....):

Code :

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

1
2
3
4
5
6
7
8
 
void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender,
      const TRect &Rect, TField *Field, TGridDrawState State)
{
      TCanvas *pCanvas = ((TDBGrid *)Sender)->Canvas;
      if ((Form1->DBGrid1->DataSource->DataSet->RecNo%2)==0) pCanvas->Brush->Color = clYellow;
      Form1->DBGrid1->DefaultDrawDataCell(Rect, Field, State);
}

Ca marche avec cela chez moi...
J'ai pas mieux, pour l'instant.

J'aurai pu voir le message plus tot mais maintenant je joue a Counter Strike comme un gamin !

@ +

Il faut lire un peut SVP

Description
N'écrivez pas de gestionnaire d'événement OnDrawDataCell. OnDrawDataCell est obsolète et n'est proposé que dans un souci de compatibilité ascendante. A la place, écrivez un gestionnaire d'événement OnDrawColumnCell.

Description

Ecrivez un gestionnaire d'événement OnDrawColumnCell pour réaliser un dessin personnalisé des données des cellules de la grille. Le dessin des cellules se fait en utilisant les méthodes de la propriété Canvas.

Le paramètre Rect indique l'emplacement de la cellule dans le canevas. Le paramètre DataCol donne l'indice de la colonne dans la propriété tableau Columns. Le paramètre Column désigne l'objet TColumn décrivant les attributs d'affichage et de liaison de champ de la cellule. Le paramètre State indique si la cellule détient la focalisation, si elle est sélectionnée ou si c'est une cellule figée (par exemple, un en-tête de colonne).

Voila

Bon courage
Alain

**Sunchaser** · 13/04/2005, 11h30

Bonjour,
Bon hé bien, je ce que j'avais testé devais donc s'ecrire ainsi alors ?:

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
23
24
25
26
27
28
29
30
31
32
33
 
void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
TCanvas *pCanvas = ((TDBGrid *)Sender)->Canvas;
if ((Form1->DBGrid1->DataSource->DataSet->RecNo%2)==0) pCanvas->Brush->Color = clYellow;
if (Form1->DBGrid1->DataSource->DataSet->FieldByName("Rang")->Value == 2)
{
Form1->DBGrid1->Canvas->Brush->Color = clGreen;
}
        if(State.Contains(odSelected))  //ligne selectionnée
                       {
                        pCanvas->Brush->Color = clRed;
                        pCanvas->FillRect(Rect);
                        pCanvas->Font->Color = clYellow;
                        if (Form1->DBGrid1->DataSource->DataSet->FieldByName("Rang")->Value == 2)
                        {
                        Form1->DBGrid1->Canvas->Font->Style = TFontStyles() << fsBold;
                        Form1->DBGrid1->Canvas->Font->Color = clRed;
                        }
                       }
        else
        {
                if (Form1->DBGrid1->DataSource->DataSet->FieldByName("Rang")->Value == 2)
                {
                Form1->DBGrid1->Canvas->Font->Style = TFontStyles() << fsBold;
                Form1->DBGrid1->Canvas->Font->Color = clRed;
                }
                pCanvas->FillRect(Rect);  //Les autres lignes
        }
Form1->DBGrid1->DefaultDrawColumnCell(Rect, 1, Column, State);
}

C'est vrai, je l'avais lu cet avertissement mais allez savoir pourquoi je continue avec cet évènement...

.
Merci dvsoft, et j'espère malgré tout que gg2laba aura ainsi sa réponse.
@ +

**gg2laba** · 13/04/2005, 13h49

Merci a vous canterelle et dvsoft

j'ai compris pas mal de chose grace a ton code canterelle ! 8) :

que Sender etait l'ojet TDBgrid qui est rafraichi ... je ne savais pas mais ca me parais normal maintenant

et que quand l'evenement OnDraw ... rafraichi une cellule il change la position du curseur dans l'objet TDataSet source ( ca me paraissais bizarre car si a ce moment la on cherche l'enregistrement en cours il renverrai le mauvais numero ... je doit mal capter un truc )

par contre : j'ai toujours un probleme au niveau de RecNo qui apparament ne marche pas non plus pour TDataSet :-/ ce qui fait planter

... je vais essayer de reinstaller une autre version de builder ca marchera peutetre a moins que quelqun connaisse une solution ? ( je ne pense pas que ca pourrais venir des otpions que j'ai pu modifier dans builder et que les objets sont independant ? ).

**Sunchaser** · 13/04/2005, 13h55

Bonjour,
Bien content que cela te soit utile...

Mais pour RecNo, j'aimerai bien éclaircir ce mystère....est ce un problème de version ? (au fait t'as quoi comme Builder...)
La je peut plus répondre, mais y a evidemment des gens tres calés ici qui nous donnerons le fin mot de l'histoire.
Enfin, j'espère...
@ +

**gg2laba** · 14/04/2005, 12h21

euhh pour ma version de builder c'est : Borland C++ Builder 6.0 (Build 10.161)

**Sunchaser** · 14/04/2005, 14h45

Ca me stress ca probleme de RecNo !

Pourtant, j'ai lu :

Telle qu'implémentée dans TDataSet, la valeur de RecNo est toujours -1. En général une application n'accède pas à RecNo au niveau de TDataSet. A la place, l'accès s'effectue à une propriété RecNo ré-implémentée dans une classe dérivée telle que TTable.

donc tu ne devrais pas avoir de probleme avec TTable...

Mince, je ne sais pas comment t'aider.
Peut etre comparer des trucs du genre :
le type de tables utilisées (moi c'est Paradox7)
la manière dont sont parametrés nos TTable respectifs
...
pourquoi pas ?
@ +

**gg2laba** · 14/04/2005, 14h58

Hmm oui je n'ai pas pensé a essayer avec un autre type de base! , pour l'instant je passe par un alias ODBC d'une base Access ... et comme j'ai des champs NumeroAuto c'est peut etre a cause da ca ! ( je n'ai pas pensé a le préciser au début ).

**Sunchaser** · 14/04/2005, 15h10

Moui, oui, si tu peut essayer avec un autre type de table, juste pour voir si on avait raison, enfin si ton projet te le permet...

Je me suis déja cassé le nez avec un souci sur une base Access, je pensais avoir trouvé la solution pour la personne a l'aide du tutoriel SQL present sur ce site (génial ! j'ai progessé !) mais impossible a faire apparemment sur le type de table utilisée par la personne...Access alors que cela marchait ailleurs. Depuis, je suis en déprime !

Mais c'est peut etre du aussi a mon inculture face a certaines choses...
@ +

**gg2laba** · 14/04/2005, 17h25

eh bien oui j'ai essayé en creant une table vide sans NumeroAuto et ... rien que là j'ai dejà 0 dans RecNo et pas -1 comme avant ca doit donc venir de là mais bon le reste est basé justement sur les numeros auto je vais donc essayer de voir si Builder peut le faire et enlever les champs NumeroAuto acces ... je crois que j'ettait dejà tombé sur un type AutoInc de builder mais je n'ai pas reussi a utilisé

en tout cas merci c'est dejà grace a ton aide que j'ai trouvé de ou ca vennais

**Sunchaser** · 14/04/2005, 18h25

Oui c'est bien le champ AutoIncrémentation qui doit faire ce que tu recherches; y a rien a faire de précis dessus puisque comme son nom l'indique il agit au fur et a mesure que la table est renseignée.
STP si tu arrives a ce que tu voulais avec l'affichage de tes données au début, n'oublies pas de m'en faire part...c'est pas que je me la 'pète' (comme disent les jeunes) juste pour voir si je suis dans le droit chemin...
Merci

**gg2laba** · 15/04/2005, 22h41

hmm euhh je crois que j'ai parlé trop vite je vien de recrer une table dans acces sans auto increment mais ... RecNo me donne encore -1 je ne comprend plus

**gg2laba** · 17/04/2005, 13h23

Finalement j'utilise la colone ID que j'ai creer en auto increment et le fait que quand on mets le focus sur un enregistrement dans une DBGrid avec la souris le curseur du DataSet change et je recupere la valeur de la colone ID dans l'evenement OnCellClick:

Code :

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

1
2
3
4
void __fastcall TDBFindDialog::DBGrid1CellClick(TColumn *Column)
{
        Label1->Caption=DataSource->DataSet->FieldValues["ID"];
}

mais comme ID est un auto increment si il ya des suppressions il pourrais y avoir deux nombre pairs qui se suivent .. ou 2 nombres impairs donc je ne pourrais pas utiliser ca pour les couleurs

mais bon ca n'est bien pas grave

**Sunchaser** · 17/04/2005, 20h21

Salut,
Excuses moi, mais je ne comprends pas tout ...pour le probleme des couleurs en tout cas parceque si RecNo est supporté dans la table que tu utilises, le code dans ' OnDraw..etc ' devrait fonctionner non ?
@ +

pb BDE

C++Builder

Vue hybride

Discussions similaires

Partager

Partager