Discussion :

[zhor31]

Salut
J’essaye de faire une modification pour les champs de ma table mais la
la modification s' effectue seulement pour le client du code 1,lorsque je veux modifier les autres clients c 'est toujours le client du code 1 qui apparaît sur
les Edits.
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::ModifierClick(TObject *Sender)
{ AnsiString  code = InputBox("modification", "entrer le code du client", "");
 
if  (code =="")
{ ShowMessage("Valeur incorecte")  ;}
else
{
 Edit1->Text=Table1->FieldByName("code")->AsString;
 Edit2->Text=Table1->FieldByName("nom")->AsString;
 Edit3->Text=Table1->FieldByName("adresse")->AsString;  }

et pour le boutton valider:

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::ValiderClick(TObject *Sender)
{
Table1->Edit();
Table1->FieldByName("code")->AsString = Edit1->Text;
Table1->FieldByName("nom")->AsString = Edit2->Text;
Table1->FieldByName("adresse")->AsString = Edit3->Text;
Table1->Post();}

j'espère que j'ai bien expliqué mon problème
Merci d'avance.

[pottiez]

Je pense avoir compris, mais si tu veut trouver les infos du client dont le code est tapé, il faut que tu précise à ton TTable que c'est ce client la que tu veut, pas un autre, il faudrait donc que tu renseigne la propriété Filter de ton TTable :

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::ModifierClick(TObject *Sender)
{ 
  AnsiString  code = InputBox("modification", "entrer le code du client", "");
 
  if  (code =="")
  { 
    ShowMessage("Valeur incorecte")  ;
  }
  else
  {
    Table1->Filter = "code = " + code;
    Edit1->Text=Table1->FieldByName("code")->AsString;
    Edit2->Text=Table1->FieldByName("nom")->AsString;
    Edit3->Text=Table1->FieldByName("adresse")->AsString;  
  }
}