delphi7怎么使用Fastreport4.0 生成条形码并在form显示？

Posted 2023-05-15

如题，怎么用fastreport生成条码，条码需要ean13，并用什么控件显示。找了一天没看到有这方面的资料和源码，好像大家都不用这个。最好有大侠能贴出需要的控件和源码，多谢。。。
已经解决了，说下思路，第一个用activex里的barcodectrl控件，要生成的条码值传给value，设置可见。还有个就是用fastreport里的barcode对象显示，把dateset传给barcode即可。

条形码和人的指纹在些类似,对于条码识别器来说,只不过是一种标记,条码器扫描条码后,与条码器连接着的软件就会把扫描的图形,去与软件中已经[定义的条码图像去比较,从而该条码代表的是什么东西,所谓定义就是东西的其它信息,如名称\价格等等.由此可知,如果条码在小范围使用,是可以任意做的,只要不重复就行.你可以参考条码规则,多找一些条码看看,数字1至9的条码形态构成规律,找到这些规律之后,你就可以用DELPHI的CANVAS类来绘制和打印条码了,几段宽窄不同的直线而已.CANVAS做绰绰有余. 参考技术A 这种问题看reporter帮助或示例即可：
1. 在程序窗口中添加frxBarCodeObject控件
2.在报表设计器中选barcodeobject用于显示条码，数据加载方法和加载其他dateset数据一样

delphi FastReport快速入门

界面及连接关系

 

 

frxDBDataset1连接datasource

 

双击frxReport1控件进入设计界面,选择报表->数据,弹出窗口选择要显示数据的frxdbdataset,frxdbdataset可以有多个

 

打印按钮事件

 

 

//载入报表文件并打印

procedure TForm1.Button2Click(Sender: TObject);

begin

  frxReport1.Clear;

  frxReport1.LoadFromFile(\'test.fr3\');

  frxReport1.ShowReport();

end;

 

//根据数据源筛选数据只打印部分内容

procedure TForm1.Button1Click(Sender: TObject);

var

  sqlStr: string;

begin

  sqlStr := \'SELECT * FROM Employees where city=\'\'\' + Edit1.Text + \'\'\'\';

  with ADOQuery1 do

  begin

    close;

    sql.Clear;

    sql.Add(sqlStr);

    open;

  end;

end;

 

报表设计时如何显示汉字而不是字段名