Discussion :

[reiv2904]

Bonjour tout le monde,

Je débute sous delphi et je bloque sur une chose qui paraitra anodine à beaucoup.

J'ai besoin de sauvegarder la position de la cellule active dans la DBGRID afin de pouvoir la rendre de nouveau active après un traitement de somme d'une colonne.

Voila le code qui effectue les sommes mais en même temps rend active la dernière cellue (ce qui est totalement logique) :

Code Delphi :

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
procedure affichetotaux;
var machaine : string;
    i: longint;
    l : integer;
 
begin
sommed:=0; sommec:=0;
form1.DBGrid1.DataSource.DataSet.DisableControls;
while not form1.Table1.eof do
begin
sommed:=sommed+form1.table1.Fields[5].AsFloat;
sommec:=sommec+form1.table1.fields[6].asfloat;
form1.table1.Next;
end;
str(sommed:12:2,machaine);
form1.totaldebit.Caption:=machaine;
str(sommec:12:2,machaine);
form1.totalcredit.Caption:=machaine;
form1.DBGrid1.DataSource.DataSet.EnableControls;
end;

Merci pour votre aide,

Mutatis Mutandis.

[Rayek]

il serait largement plus simple de faire une requete, car cela ne bougerai pas le curseur de ton DbGrid.

Code SQL :

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

1
2
3
 
Select Sum(MonChampACalculer) from LaTable
Where UnChampCritere = ValeurCritère

[reiv2904]

Merci pour ta réponse,

Néanmoins je ne connais pas du tout le sql. De plus j'aimerais bien savoir comment par la programmation pouvoir sélectionner une cellule. Pour le champ, j'utilise selectedindex mais pour l'enregistrement ???

Merci d'avance,

[Rayek]

Comme on le dit souvent un DbGrid ne contient aucune donnée, il faut donc travailler avec la source (dans ton cas un TxxxTable).

Après pour te positionner sur un enregistrement particulier tu as la function locate

Sinon, travailler sur les bases de données de nos jours sans connaitre le SQL et selon le type de programme c'est courrir à la catastrophe.

[reiv2904]

Merci pour ton aide, je vais essayer avec locate et me documenter sur sql.

Bien à toi et bonne continuation.

[Rayek]

Si tu arrives a résoudre ton problème pense à cliquer sur

[reiv2904]

Excuses moi mais j'ai mis un peu de temps, ça marche impeccable.

Je mets le code corrigé, au cas ou ça interreserait quelqu'un :

Code delphi :

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
procedure affichetotaux;
var machaine : string;
    i : widestring;
    opts : tlocateoptions;
begin
sommed:=0; sommec:=0;
i:=form1.Table1.Fields[0].AsWideString;
form1.DBGrid1.DataSource.DataSet.DisableControls;
form1.Table1.First;
while not form1.Table1.eof do
begin
sommed:=sommed+form1.table1.Fields[5].AsFloat;
sommec:=sommec+form1.table1.fields[6].asfloat;
form1.table1.Next;
end;
str(sommed:12:2,machaine);
form1.totaldebit.Caption:=machaine;
str(sommec:12:2,machaine);
form1.totalcredit.Caption:=machaine;
form1.DBGrid1.DataSource.DataSet.EnableControls;
form1.Table1.locate('no',i,opts);
end;

Avant de cliquer sur résolu, j'aimerais bien savoir si il existe un tutoriel ou un livre expliquant les notions de ttable, tdatasource, tdataset parce que j'utilise un peu tout ça mais je me demande si je respecte bien les règles.

Encore merci pour ton aide.

[Rayek]

Regarde ma signature, dans le guide du bon forumeur, il y a un lien vers la section tutoriels.
après tu cliques sur SGBD dans la liste des filtre de la page et tu auras le nécessaire ^^

PS: Pense à utiliser les balises de code quand tu en mets dans tes posts (avec le # dans la barre d'outils)

[reiv2904]

Ok merci d'avance, j'y vais de ce pas...
Et pour le code, je vais faire attention !
Ecnore merci, car comme on m'a toujours appris quand y en a marre, y a Malatar ! (Elle était facile et on a du te la faire bien souvent !)

[ShaiLeTroll]

Sinon il y a aussi les Signets ...

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
var
   BookMark: TBookmark;
begin
      BookMark := Data.GetBookmark();
      try
         Data.First();
         while not Data.EOF do
         begin
            ...
            Data.Next();
         end;
         Data.GotoBookmark(BookMark);
      finally
         Data.FreeBookmark(BookMark);
      end;
   end;
end;

ah ceci

Code :

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

form1.Table1.locate('no',i,opts);

peut s'écrire comme ça

Code :

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

form1.Table1.locate('no', i, []);

cela évite une variable

[reiv2904]

Merci ShaiLeTroll, effectivement cela peut être une solution et puis cela me rappelle la notion de pointeurs ? Et pour le coup des [], c'est impecable.

Je programme pour me détendre et j'avoue que vous êtes vraiment super pour que cela ne se transforme pas en cauchemar !

Merci à tous pour vos aides précieuses.