怕自己忘记了,最近记忆力好差。所以写下来比较好。
先拖frxReport,然后双击frxreport 新建一个报表。接下来就要新建参数了。选择 报表 ---> 变量 会弹出一个界面。
这里我新建了三个变量 Title 、UserName、UnitName 。
现在,报表里面的参数准备好了。接下来就来写代码。
首先,在FormCreate事件里面写LoadReport 然后写一个方法。
procedure TfrmHGBAYJ.PrintData; begin if qry.IsEmpty then Exit; frxReport1.Variables['Title'] := QuotedStr('病案移交'); frxReport1.Variables['UserName'] := QuotedStr(IGlobalVar.GetUserName); frxReport1.Variables['UnitName'] := QuotedStr(IGlobalVar.GetUnitName); frxReport1.PrepareReport; frxReport1.Print; end;
记住,这里如果是string 类型,一定要加上 QuotedStr 这个函数,要不然就要报错。