Utilisation de la fonction Locate
Bonjour à tous! :P
Cet exemple propose l'utilisation de la fonction Locate qui cherche un enregistrement dans une SQLquery(MAJPRDSTK) pour des valeurs
de champs prises de l'enregistrement actuel d'une autre SQLQuery(DAchats). (après avoir ajouté 'Variants' à uses).
Code:
1
2
3
4
5
6
7
8
9
10
11
| procedure TForm1.Button1Click(Sender: TObject);
var ref,exp,pua:Variant;
begin
ref:=inttoStr(DAchats.FieldValues['Num_prd_da']);//Type Integer.
exp:=DateToStr(DAchats.FieldValues['Exp_da']); //Type Date.
pua:=FloatToStr(DAchats.FieldValues['puht_da']); //Type Float.
if MAJPRDSTK.Locate('REF_PRDK;EXP_PRDK;PUHT_PRDK',VarArrayOf([ref,exp,pua]),[]) then
ShowMessage('Trouvé!')
end; |
merci à tous. 8-)
