怎样用FastReport 制作条形码？要求将代码赋值给条形码控件。

Question

就是怎样传递参数？

Answer 1

procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant);beginif AnsiCompareText(ParName, 'Reported Period') = 0 thenParValue := Table1OtchPeriod.Value;end;－－你可以把SQL做为参数传递进去就可以了

Answer 2

在打印按钮里写下如下代码：
frReport1.Dictionary.Variables['19'] := datetimetostr(date1);
在控件frReport1的适当位置放置文本编辑控件：
里面写下参数[19]即可。
注：19为任意值

Answer 3

以上两种都试过了。
我的fastReport是3.05版，
如果在报表中设的是TfrxMemoView控件，用上述方法是可以的。
可是在条形码中出错！

Answer 4

fastReport中自带的demo中有打印条形码的例子，你可以参照一下
另想知道你的3.05版是否是注册版本？否的话会有麻烦

Answer 5

TO: whythinkwhy(小生) 
  是的，我看了那些打印条形码的例子，可是那些条形码的数字是
事先设好的，不能动态指定。
我的fastReport版本是注册的。有序列号的。

Answer 6

OK了，试了我半天，原来在fastReport的文本框控件中变量用[]表示，
而在条形码中用<>表示，真是怪怪的。浪费了我好多时间。