E
Endo
Unregistered / Unconfirmed
GUEST, unregistred user!
//动态创建QRLabel和QRDBText
Function CreateQRLabelAndQRDBText(DBGrid:TDBGrid):String;
var
i:integer;
begin
For i:=0 To DBGrid.FieldCount-1do
begin
QRLabel:=TQRLabel.Create(Application);
QRDBText:=TQRDBText.Create(Application);
QRLabel.Caption:=DBGrid.Fields.FieldName;
QRDBText.DataSet:=ADOQuery;
QRDBText.DataField:=DBGrid.Fields.FieldName;
QRLabel.Top:=60;
QRDBText.Top:=QRLabel.Top+30;
QRLabel.Left:=i*60+50;
QRDBText.Left:=QRLabel.Left;
QRLabel.Parent:=F_Report; // 父窗体名为 F_Report
QRDBText.Parent:=F_Report;
QRLabel.Width:=100;
QRDBText.Width:=100;
QRLabel.Height:=16;
QRDBText.Height:=16;
end;
end;
Procedure ......
begin
CreateQRLabelAndQRDBText(F_Main.DBGrid_DB);
//F_Report.QuickRep_DB.Preview;(为什么预览时窗口没有显示任何数据？？？)
F_Report.Show;（正常显示字段名，说明字段连接没问题）
end;
Function CreateQRLabelAndQRDBText(DBGrid:TDBGrid):String;
var
i:integer;
begin
For i:=0 To DBGrid.FieldCount-1do
begin
QRLabel:=TQRLabel.Create(Application);
QRDBText:=TQRDBText.Create(Application);
QRLabel.Caption:=DBGrid.Fields.FieldName;
QRDBText.DataSet:=ADOQuery;
QRDBText.DataField:=DBGrid.Fields.FieldName;
QRLabel.Top:=60;
QRDBText.Top:=QRLabel.Top+30;
QRLabel.Left:=i*60+50;
QRDBText.Left:=QRLabel.Left;
QRLabel.Parent:=F_Report; // 父窗体名为 F_Report
QRDBText.Parent:=F_Report;
QRLabel.Width:=100;
QRDBText.Width:=100;
QRLabel.Height:=16;
QRDBText.Height:=16;
end;
end;
Procedure ......
begin
CreateQRLabelAndQRDBText(F_Main.DBGrid_DB);
//F_Report.QuickRep_DB.Preview;(为什么预览时窗口没有显示任何数据？？？)
F_Report.Show;（正常显示字段名，说明字段连接没问题）
end;