使用 Fastreport 选择要打印的记录

Question

我有一份报告，我想在其中选择要显示/打印的数据。
我正在使用 UniDAC 作为数据连接，当我不选择数据时它工作得很好，只需将其全部打印出来。
我的报告代码中有一个名为 varDiaryGuid 的变量，我分配了我想要过滤记录的值。
在我的测试中，此变量在打开报告之前被赋值为 {A13CE6A0-7EB0-469A-87D7-3518FB9F365A}。
当报告开始时，它会显示一个消息框开始报告：{A13CE6A0-7EB0-469A-87D7-3518FB9F365A}，因此该变量应该是可用的。
但后来我收到一条错误消息，提示意外字符 - 经过一些测试后，它看起来像是 GUID 开头的 {。
有人对我接下来要测试的内容有一些想法吗？

procedure frxReport1OnStartReport(Sender: TfrxComponent);
begin
  ShowMessage('Start report: ' + varDiaryGuid);                                                          
  qryDiary.Close;                             
  qryDiary.SQL.Clear;
  qryDiary.SQL.Text := 'SELECT * FROM qrymd_diary WHERE (flddiary_guid = ' + varDiaryGuid + ')';
  qryDiary.Open;                  
end;

Answer 1

您应该为查询使用参数（安全性和性能）。

将qrydiary 组件的查询定义为OI 为

SELECT
  *
FROM
  qrymd_diary
WHERE
  flddiary_guid = :diary_guid

在您的代码中，您只需分配参数值

procedure frxReport1OnStartReport(Sender: TfrxComponent);
begin
  ShowMessage('Start report: ' + varDiaryGuid);                                                          
  qryDiary.Close;                             
  qryDiary.ParamByName( 'diary_guid' ).Value := varDiaryGuid;
  qryDiary.Open;                  
end;

根据您使用的 sql 组件，您还必须定义参数的数据类型。其中一些可以解析类型，而另一些则需要您的帮助。只需使用 OI 检查参数类型即可。

您可以在documentation中阅读有关使用参数的更多信息

Answer 2

qry.SQL.Text := 'SELECT * FROM table WHERE (someTextField = ' + 
                 varSomeText + 
                ')';

在这种通过代码发送 sql 命令的查询中，您应该引用文本/字符串变量，例如：

qry.SQL.Text := 'SELECT * FROM table WHERE (someTextField = ' + 
                QuotedStr(varSomeText) + 
                ')';

QuotedStr()用“'”s封装参数