fastreport获取动态数值

使用fastreport的控件Tfrxreport，设置ONgetvalue事件，其中参数VarName是设计在报表中的一个变量名。

procedure TPreviewSetForm.frxReport1GetValue(const VarName: String;
  var Value: Variant);
var
  qry:TADOQuery;
  CHinamoney:string;
begin
   qry:=TADOQuery.Create(nil);;
   qry.Connection := MainForm.KJCon;
   with qry do
   begin
      close;
      SQL.Clear;
      SQL.Add('select money from KJ_Consumer_Detail where SeqNo =:SeqNo');
      Parameters.ParamByName('SeqNo').Value := Edit1.Text;
      open;
      CHinamoney := Chinesemoney(fieldbyname('money').AsFloat);
      if not isempty then
      begin
         if VarName='Vary' then Value:=CHinamoney;
      end
      else
      begin
        showmessage('找不到记录');
      end;
   end;

   qry.Free;
end;