小弟碰到的问题是这样的:
我想把通过查询得到的数据用报表显示出来,但问题是我的查询语句带有参数,于是通过SQL.ADD()形式进行查询,并未在属性面板中设置SQL属性;因此作报表的时候我需要在预览是动态的把记录集中的数据赋值给报表中的QRDBText控件,
现在我不清楚的是在哪个窗口的哪个事件中写赋值代码,如何写,请高手赐教!!
我想把通过查询得到的数据用报表显示出来,但问题是我的查询语句带有参数,于是通过SQL.ADD()形式进行查询,并未在属性面板中设置SQL属性;因此作报表的时候我需要在预览是动态的把记录集中的数据赋值给报表中的QRDBText控件,
现在我不清楚的是在哪个窗口的哪个事件中写赋值代码,如何写,请高手赐教!!
解决方案 »
- 关于获取U盘ID的老问题了
- 继续放分,10分钟后结贴
- 如何监视保存/打开对话框的弹出?!
- 如何给TComponent派生的自定义控件添加OnClick时间
- savetostream();//*******请高手指点迷津!********//
- 如何在设计期间让form2继承form1,继承后form2在设计是就和form1一样了?
- 求冻结键盘的代码!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 请问,哪里有PowerDesigner9的注册码,或是注册机?谢谢
- 如何在Panel上平铺背景图??
- 请提建议,用哪种方法连接局域网。
- 关于日起函数的问题
- 在做毕业设计,遇到不少问题,大家帮忙看一下,有分!
begin
with TQuickReport1.Create(nil) do
begin
DataSet :=DataSource1.DataSet;
QTxtCarcode.DataSet:=DataSource1.DataSet;
QTxtCarCode.DataField:='Carcode';
QTxtCarType.DataSet:=DataSource1.DataSet;
QTxtCarType.DataField:='CarType';
QTxtCarName.DataSet:=DataSource1.DataSet;
QTxtCarName.DataField:='CarName';
QTxtCompany.DataSet:=DataSource1.DataSet;
QTxtCompany.DataField:='Company';
QTxtExhaust.DataSet:=DataSource1.DataSet;
QTxtExhaust.DataField:='Exhaust';
QTxtBuyDate.DataSet:=DataSource1.DataSet;
QTxtBuydate.DataField:='BuyDate';
QTxtRejectDate.DataSet:=DataSource1.DataSet;
QtxtRejectDate.DataField:='RejectDate';
QTxtCarStatus.DataSet:=DataSource1.DataSet;
QTxtCarStatus.DataField:='Status';
Preview;
end;
end;
procedure TFrmTeachPlanQuery.Button4Click(Sender: TObject);
begin
Frmteachplanreport:=TFrmteachplanreport.Create(Application);
with FrmDataModule.QueryTeachingPlan do
Frmteachplanreport.QuickRep1.QRDBText2.datafield:=fieldbyname('专业名').AsString;
Frmteachplanreport.QuickRep1.PreviewModal;
end;但编译是出现错误:[Error] QueryTeachPlan.pas(221):Undeclaredidentifier: 'QRDBText2'请问是哪里错了,在线等ING
拼写没问题啊,我是直接拷贝报表中控件的NAME啊,大哥在帮我看看吧
换成这个试试QRDBText2.datafield:=fieldbyname('专业名').AsString;