Discussion :

[moustaf_26]

en fait,

j'ai 2 form, sur le form1 j'ajoute des informations qui vont dans une base de donnée,
sur le form2 il m'affiche ses informations dans un radiogroup(donc correspondant aux bouttons),
le probleme est que une fois j'ouvre le form2 à supposer qu'il ya 3 boutton sur le radiogroup, meme si je supprime des informations sur le form1, si je reouvre le form2 il reste inchangé(donc avec l'information que j'ai supprimer!)
pourtant avant de generer je fais un radiogroup.items.clear avant d'exter la meme requete, quel peut etre le probleme

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
34
35
36
procedure TForm2.FormActivate(Sender: TObject);
var ch,sdestroy :string; ndestroy,i :integer;
begin
  panel1.DestroyComponents;
  radiogroup1.Items.Clear ;
 
  chart1.ClearChart;
  if ( radiogroup1.ControlCount=0) then
   begin
//////////////////////mise à jour du radiogroup
     moduledonnees.test.Active:=false;
     moduledonnees.test.Params[0].AsString:= 'Commercial';
     moduledonnees.test.Active:=true;
     moduledonnees.testprovider.DataSet:=moduledonnees.test;
     moduledonnees.testcds.ProviderName:='testprovider';
     moduledonnees.testcds.Active:=true;
     moduledonnees.sotest.DataSet:=moduledonnees.testCDS;
     grido.DataSource:=moduledonnees.sotest;
     grido.DataSource.DataSet.FindFirst;
     radiogroup1.Items.Add(grido.Fields[7].AsString);
     tcodeindi[0]:=grido.Fields[6].AsString;
     tnomindi[0]:= grido.Fields[7].AsString;
     radiogroup1.Buttons[0].OnClick:= rdclik;//RadioGroup1.OnClick;
     i2:=1;
 
     while(grido.DataSource.DataSet.FindNext)do
       begin
         ShowMessage(inttostr(i2));
         ShowMessage(grido.Fields[7].AsString);
         radiogroup1.Items.Add(grido.Fields[7].AsString);
         tcodeindi[i2]:=grido.Fields[6].AsString;
         tnomindi[i2]:=grido.Fields[7].AsString;
         radiogroup1.Buttons[i2].OnClick:= rdclik; //RadioGroup1.OnClick; affiche les dimensions du dernier radiobutton
         i2:=i2+1;
      end;
end;//fin de if radiogroup contient elements

[Rayek]

1- Base de données utilisées ?

2- Mettre du code dans Le onActivate d'une form n'est pas conseillé car à chaque fois que la form perd le focus et qu'elle le retrouve, tout ce qui est dans OnActivate est ré-exécuté

[moustaf_26]

juste ajouter que par contre si je quitte mon application entiere et que je la relance ça marche, donc il que apres suppression ou ajout, de quitter l'application et redemarrer, pas interessant

[moustaf_26]

1- Base de données utilisées ?

2- Mettre du code dans Le onActivate d'une form n'est pas conseillé car à chaque fois que la form perd le focus et qu'elle le retrouve, tout ce qui est dans OnActivate est ré-exécuté

Bonjour Rayek, justement ce que je veux parce pour que je puisse voir directement les modifications apporté dans ma base sur mon form au chargement, donc pas besoin d'un boutton pour mettre à jour.....

comme je l'ai dit à titre d'information, si je quitte l'application, et que je relance au lancement de mon form, les modification sont constatés

[moustaf_26]

Bonjour Rayek, justement ce que je veux parce pour que je puisse voir directement les modifications apporté dans ma base sur mon form au chargement, donc pas besoin d'un boutton pour mettre à jour.....

comme je l'ai dit à titre d'information, si je quitte l'application, et que je relance au lancement de mon form, les modification sont constatés

base oracle

[moustaf_26]

eureka! en fait j'ai augmenter une ligne, dans le code que j'ai proposé, parce ce que je suis rendu compte il y avait quelque part des données temporaire(parce que une fois je supprime je constate le resultat dans oracle sql developper!) en occurence dans le tclientdataset, donc mettre ça chaque fois à false avant de reprendre l'operation,
moduledonnees.testcds.Active:=false;

peut etre que je programme d'une façon traditionnelle, si vous avez des suggestions suis preneur!