[XE10, FMX, W10] sélection à partir d'un listbox
Bonjour
J'aurais besoins d'information pour remplir l'information dans des composants a partir d,une selection d'un listbox.
Probleme avec IOS toujours pour améliorer mon application IOS. Windows pas de probleme c'est rapide meme instantané.
Test effectué a partir d'un listbox,combobox,comboedit, toujours le même temps pour remplir 3 composants text apres la selection.
Quand je sélectionne l'item du listbox je dois remplir 3 composant text ex: responsable,teléphone et adresse mail. besoin de 3 informations
J'ai testé avec commande SQL, fait un filtre, créer des variables indicés toujours le meme résultat quand je fais le test avec une information c'est parfait mais quand je veux remplir 3 informations il y a toujours un délais apres la sélection et l'affichage dans les composants.le probleme est le delais pour remplir l'information et l'affiché.
Avez vous eu ce probleme qu'elle est le meilleur moyen pour contourner ce ralentissement.
Choix retenue
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
|
var
AQuery : TFDQuery;
begin
rang:=Finforegion.listbox1.ItemIndex;
AQuery:=TFDQuery.Create(nil);
try
AQuery.Connection:=Fdonnees.DONNEESCONNECTION;
AQuery.SQL.TEXT := 'select RADMIN, RTELE, RMAIL, RREGION, RDIRECTEUR from poste WHERE RRECODE =:R and RREGION=:M';
AQuery.ParamByName('R').AsString := Comboregionliste.Text;
AQuery.ParamByName('M').AsString:=Finforegion.listbox1.Items[rang];
AQuery.Active:=True;
lresp.text:= 'Resp: '+AQuery.FieldByName('RDIRECTEUR').AsString;
buttonemail.text:= AQuery.FieldByName('RMAIL').AsString;
btnMakeCall.text:=AQuery.FieldByName('RTELE').AsString;
Label15.Text:=AQuery.FieldByName('RREGION').AsString;
Finforegion.Label14.Text:=AQuery.FieldByName('radmin').asString;
AQuery.Active := False;
finally
AQuery.Free;
end;
//Déjà essayé avec des variables tableaux au lieu de la commande SQL a la selection de l'item du listbox
// rang:=Finforegion.listbox1.ItemIndex;
// Label15.Text:=Finforegion.listbox1.Items[rang];
// lresp.text:= 'Resp: '+RESPONSABLE[RANG+1];
// buttonemail.text:= MAIL[RANG+1];
// btnMakeCall.text:=notelephone[RANG+1] ;
end; |
Merci de votre aide
Mario
