FastReport个人版的要多少人民币呢?如何购买?(200)

  • 主题发起人 主题发起人 qq_tom1520
  • 开始时间 开始时间
Q

qq_tom1520

Unregistered / Unconfirmed
GUEST, unregistred user!
FastReport个人版的要多少人民币呢?如何购买?
 
不好意思,没用过2009,更没用过Report.Machine.帮顶吧。
 
给一个实现的完整例子procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);var emptypic,picpath:string;begin picpath:=ExtractFilePath(Application.ExeName)+ 'pic/'+ labelededit1.Text+'/'+adoquery1.FieldValues['bmh']+'.jpg'; emptypic:=ExtractFilePath(Application.ExeName)+ 'pic/'+ labelededit1.Text+'/00000000000000'+'.jpg'; if (sender is TFrxPictureView) and (sender.Name='Picture1') then begin with (sender as TFrxPictureView) do if FileExists(picpath) then Picture.LoadFromFile(picpath) else Picture.LoadFromFile(emptypic) ; end;end;早期版本的fastreport则应该这样写procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);begin//加载照片 if View.Name = 'Picture2' then if FileExists('photo/'+ado_dt1.FieldValues['bmh'] +'.jpg') then TfrPictureView(View).Picture.LoadFromFile('photo/'+ado_dt1.FieldValues['bmh'] +'.jpg') else TfrPictureView(View).Picture.LoadFromFile('photo/1111111111.jpg')end;
 
FastReport个人版的要多少人民币呢?如何购买?
 
随便下一个既可~~http://www.2ccc.com/article.asp?articleid=4768还用买啊~~
 
谢谢,有功能限制的吧?
 
没有的~~我现在在用~~
 
我晕,楼主也是2006年注册的ID了,别人辛苦回答的问题,对不对且不说,他悄悄换了一个问题,强烈BS![:(!]
 
多人接受答案了。
 
后退
顶部