Salut les amis,
Vérifiez s'il vous plaît ce code pour moi.
Lorsque j'applique l'evenement onselect de mon ComboBox, une boîte de dialogue : Paramètres DESIGN_CLASS non trouvés s'affiche.
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 Procedure TForm2.ComboClasseSelect(Sender: TObject); var DESIGN_CLASS : String; begin {**** Recherche d'instruction sql pour le remplissage des frais d'inscription et de formation} //CurrencyEdit2.Text:= ; ComboClasse.Text:=DESIGN_CLASS; IBQuery1.Active:=True; IBQuery1.Close; IBQuery1.SQL.Clear; DESIGN_CLASS:=IBQuery1.ParamByName('DESIGN_CLASS').AsString ; IBQuery1.SQL.Add('SELECT FRFORMA FROM FRAIS WHERE DESIGN_CLASS = ''DESIGN_CLASS'''); IBQuery1.SQL.Add('VALUE (:DESIGN_CLASS)'); IBQuery1.Params[0].AsString := DESIGN_CLASS; IBQuery1.ExecSQL; CurrencyEdit1.Text := IBQuery1.FieldByName('FRFORMA').AsString; end;
Partager