红鱼儿

统计

利用FastReport直接生成条码
procedure TForm1.Button1Click(Sender: TObject);
var
   x:TfrxbarCodeView;
begin

     x:=TfrxbarCodeView.Create(Self);
     x.BarType:=bcCode128;
     x.Expression:='111';
     x.Width:=20;
     x.Height:=20;
     x.Draw(Canvas,3,6,15,15);
     x.Free;

end;

 

 需要引用单元:frxBarcode,frxBarcod

感谢群里的朋友LWWVB分享!

posted on 2019-09-27 16:38 红鱼儿 阅读(...) 评论(...) 编辑 收藏