pb BDE

Version imprimable

pb BDE

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:

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:

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

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 8O ...
Pour les OnDraw etc ..., j'avais testé ceci:
Code:

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 ?
@ +

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:

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 :roll:

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

Code:

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 ? :wink:

12/04/2005, 22h42
gg2laba

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
12/04/2005, 23h42
Sunchaser

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

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

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. :wink:
J'aurai pu voir le message plus tot mais maintenant je joue a Counter Strike comme un gamin ! :D :oops:
@ +

Bonjour,
Citation:
Envoyé par Cantrelle
Voila , j'ai pas trainé (enfin j'espère....):
Code:

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. :wink:
J'aurai pu voir le message plus tot mais maintenant je joue a Counter Strike comme un gamin ! :D :oops:
@ +
Il faut lire un peut SVP

Citation:

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.

Citation:

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 :D
Bon courage
Alain

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

Code:

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... 8O .
Merci dvsoft, et j'espère malgré tout que gg2laba aura ainsi sa réponse.
@ +

13/04/2005, 13h49
gg2laba

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 :roll: ... 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 ? ).
13/04/2005, 13h55
Sunchaser

Bonjour,
Bien content que cela te soit utile... :D
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...
@ + :D
14/04/2005, 12h21
gg2laba

euhh pour ma version de builder c'est : Borland C++ Builder 6.0 (Build 10.161)
14/04/2005, 14h45
Sunchaser

Ca me stress ca probleme de RecNo ! :D
Pourtant, j'ai lu :

Citation:

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... :?
:koi: 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 ?
@ +
14/04/2005, 14h58
gg2laba

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 ).
14/04/2005, 15h10
Sunchaser

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 ! :D
Mais c'est peut etre du aussi a mon inculture face a certaines choses...
@ +
14/04/2005, 17h25
gg2laba

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
14/04/2005, 18h25
Sunchaser

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 :D
15/04/2005, 22h41
gg2laba

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 :roll:
17/04/2005, 13h23
gg2laba
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:

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 :lol: mais bon ca n'est bien pas grave
17/04/2005, 20h21
Sunchaser

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 ?
@ +
20/04/2005, 16h52
gg2laba
Citation:

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 ?

a mon avis la methode que tu ma donnée fonctionne mais en debugage j'ai toujours RecNo = -1 et je ne peut plus changer de base sans avoir tout a refaire :-/ donc j'ai esayer de trouver une autre solution j'en nai peut etre trouvé une en faisant :
Code:

1 2 TGridCoord P=MouseCoord(Rect.left,Rect.top); if ((P.Y%2)==0)
mais quand je deplace le curseur et quil ya plus d'une page il ya un probleme de rafraichissement car aparement il ne rafraichi que les 2 lignes contre le rebord :roll: en metant un Paint() ou un Refresh() dans une methode qui elle meme rafraichie ca risque de ne pas aller :-D si tu vois ce que je veu dire
21/04/2005, 12h03
gg2laba

je vais plutot essayer de reposter un nouveau sujet pour ce probleme de rafraichissement