With DataModule.Query1 DO Begin
First;
QRLabel7.Caption:=FiledByName('AAA').AsString;
QRLabel7.Caption:=FiledS[0].AsString;
End;
First;
QRLabel7.Caption:=FiledByName('AAA').AsString;
QRLabel7.Caption:=FiledS[0].AsString;
End;
他的FieldName为aaa就可以了