vb6.0如何调用fastreport ？

Posted 2023-05-17

参考技术A Dim WithEvents frx As FastReport.TfrxReport

Private Sub Command1_Click()
Set frx = CreateObject("FastReport.TfrxReport")
frx.EngineOptions.SilentMode = simMessageBoxes
frx.LoadReportFromFile ("C:\Documents and Settings\Administrator\桌面\123.fr3") 参考技术B
在窗体上放一个复选框check1，把Index的值设置为0
动态加载：

Dim i As Integer
Dim num As Integer

num = 10 'Num为你要加载的数
For i = 1 To num - 1
Load Me.Check1(i)
Check1(i).Left = Check1(0).Left + Check1(0).Width * i
Check1(i).Top = Check1(0).Top
Check1(i).Visible = True
Check1(i).Caption = "爱好" & i
Next i

FastReport调用Delphi中的自定义函数

//定义一个函数；

function SmallToMoney(akey: real): string;

begin

  //‘1234500‘

end;

 

//此处为fastreport加载自定义函数以便引用

procedure Tprint_from.FormCreate(Sender: TObject);
begin
  frxReport1.AddFunction(‘function SmallToMoney(akey: real): string;‘, ‘Myfunction‘, ‘函数功能说明‘);
end;

 

//为fastreport调用自定义函数。

function Tprint_from.frxReport1UserFunction(const MethodName: string;  var Params: Variant): Variant;
begin
   if UpperCase(MethodName) = UpperCase(‘SmallToMoney‘)  then  Result := SmallToMoney(Params[0]);
end;