请教各位高手,怎样把Dbgrid中的内容完整的打印出来
解决方案 »
- delphi如何可靠判断与外网连通?以前用的ping,担心被ping网站会屏蔽.整个InternetGetConnectedState外网断的,也显示局域网通
- delphi TreeView的问题
- delphi程序嵌入到word或excel中怎么做,用到那些控件
- 数据库(oracle8.05)里文字在表里显示全为乱码,字母数字正常显示,求救
- 一个关于DELPHI动态建立ACCESS链接表的问题! 请帮我看看! 谢谢!
- 晚上好,下面的写法不知对不对?
- ★为什么我的中文程序名在任务栏中最后一个字显示的是乱码?
- 请问:在dll中如何对数据库操作?
- delphi的界面大小问题
- textwidth的结果不正确
- 我想用savedialog和query导出一个表里面的一些数据,正文里面的代码已经可以正确导出数据了,可是数据库类型和名称都不对,请帮我指正!
- 我该用什么工具开发(显示和输入端)请大家讨论(UP有分)
拿分来!!!!
var
frmqcarcoderep: Tfrmqcarcoderep;
qrlabel:array of array of tqrlabel;
qrshape:array of array of tqrshape;
fieldlen:integer;implementation{$R *.dfm}
uses
dayrep,mainform, qcarcode, qtime;
procedure Tfrmqcarcoderep.FormCreate(Sender: TObject);
var i,j:integer;
begin
fieldlen:=frmqcarcode.Query2.FieldCount;
setlength(qrlabel,fieldlen,9);
setlength(qrshape,fieldlen,9);
if (2*fieldlen*24+20 )<902 then
frmqcarcoderep.DetailBand1.Height :=fieldlen*24+20;
for i:=0 to fieldlen-1 do
for j:=0 to 8 do
begin
qrshape[i,j]:=tqrshape.create(quickrep1);
with qrshape[i,j] do
begin
parent:=detailband1;
left:=j*79;
top:=i*24;
height:=25;
width:=80;
enabled:=true;
visible:=true;
end;
qrlabel[i,j]:=tqrlabel.create(quickrep1);
with qrlabel[i,j] do
begin
parent:=detailband1;
left:=j*79+2;
top:=i*24+6;
height:=16;
width:=76;
alignment:=tacenter;
autosize:=false;
caption:='';
enabled:=true;
visible:=true;
end;
end;end;procedure Tfrmqcarcoderep.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
var i,j:integer;
begin
with frmqcarcode.Query2 do//将Query2 改成你自己的就可以了
begin
if EOF then
begin
moredata:=false;
exit;
end;
moredata:=true;
for i:=0 to fieldlen-1 do
for j:=0 to 8 do
qrlabel[i,j].caption:='';
for i:=0 to fieldlen-1 do
qrlabel[i,0].caption:=fields[i].fieldname;
for j:=1 to 8 do
begin
if eof then break;
for i:=0 to fieldlen-1 do
begin
qrlabel[i,j].caption:=fieldbyname(fields[i].fieldname).asstring;
end;
next;
end;
end;
with frmqcarcode.Query1 do
begin
QRLabel2.Caption :=frmqcarcode.combobox1.Text + '车号的总数量为:'+fieldbyname(fields[0].fieldname).asstring+'KG';
end;
end;