现在报表要求这样的格式:
Name:欧阳 address:南极1345号 position:世外高人 (这个部分不用分栏)
------------------------------------
图一 图二 (只要这部分分成两栏)
图三 图四
-----------------------------------
评语: (memo) 这个报表只要求中间的图像部分按照由左到右,由上到下的顺序分成两栏打印。 请问这样的表格用quickreport 怎样设计好啊? 如果有别的控件可以更好的实现也希望推荐啊
请大家给点详细意见,本人对QR不是很熟悉,只是会用一点。
谢谢大家了。
Name:欧阳 address:南极1345号 position:世外高人 (这个部分不用分栏)
------------------------------------
图一 图二 (只要这部分分成两栏)
图三 图四
-----------------------------------
评语: (memo) 这个报表只要求中间的图像部分按照由左到右,由上到下的顺序分成两栏打印。 请问这样的表格用quickreport 怎样设计好啊? 如果有别的控件可以更好的实现也希望推荐啊
请大家给点详细意见,本人对QR不是很熟悉,只是会用一点。
谢谢大家了。
var MoreData: Boolean);
var
I,k:Integer ;
str:string ;
begin
k:=adoquery2.RecNo ;
moredata:=true ;
for I:=1 to 2 do
begin
if adoquery2.Eof then break ;
case I of
1: begin
str:=adoquery2.fieldbyname('ClientFilePath').asstring;
DoReportform.ezdicomax1.Openfile(str);
qrimage1.Picture:=DoReportform.ezDICOMax1.Image.Picture ;
qrlabel16.Caption:=‘图’+intTostr(k) ;
end;
2:begin
str:=adoquery2.fieldbyname('ClientFilePath').asstring;
DoReportform.ezdicomax1.Openfile(str);
qrimage2.Picture:=DoReportform.ezDICOMax1.Image.Picture ;
qrlabel17.Caption:=‘图’+intTostr(k+1) ;
end; end; //end case
adoquery2.Next ;
end;
if adoquery2.Eof then MoreData:=false ;
end;