sqlquery:='select ry_bh as 人员编号,ry_mc as 人员名称,sex as 性别,ry_sf as 身份,';
sqlquery1:='zzmm as 政治面貌,whcd as 文化程度,jszw as 技术职务,zyjn as 专业技能,';
sqlquery2:='(select ( case when charindex(''行政处罚听证主持人资格证'',zfzj) <> 0 then substring(zfzj,charindex(''发证日期'',zfzj)+25,10) else '''' end) )as 发证日期,';
sqlquery3:='(select ( case when charindex(''行政处罚听证主持人资格证'',zfzj) <> 0 then substring(zfzj,charindex(''发证日期'',zfzj)+69,10) else '''' end) )as 资格证号码'; sqllast:='from rypb where ry_bh like'+ ''''+bh+'%'''+' and zfzj like ''%行政处罚听证%''';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqlquery);
adoquery1.SQL.Add(sqlquery1);
adoquery1.SQL.Add(sqlquery2);
adoquery1.SQL.Add(sqlquery3);
adoquery1.SQL.Add(sqllast);
adoquery1.Open;
我在adoquery中这样做的
在打印窗口中,怎么打印这些字段?
sqlquery1:='zzmm as 政治面貌,whcd as 文化程度,jszw as 技术职务,zyjn as 专业技能,';
sqlquery2:='(select ( case when charindex(''行政处罚听证主持人资格证'',zfzj) <> 0 then substring(zfzj,charindex(''发证日期'',zfzj)+25,10) else '''' end) )as 发证日期,';
sqlquery3:='(select ( case when charindex(''行政处罚听证主持人资格证'',zfzj) <> 0 then substring(zfzj,charindex(''发证日期'',zfzj)+69,10) else '''' end) )as 资格证号码'; sqllast:='from rypb where ry_bh like'+ ''''+bh+'%'''+' and zfzj like ''%行政处罚听证%''';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqlquery);
adoquery1.SQL.Add(sqlquery1);
adoquery1.SQL.Add(sqlquery2);
adoquery1.SQL.Add(sqlquery3);
adoquery1.SQL.Add(sqllast);
adoquery1.Open;
我在adoquery中这样做的
在打印窗口中,怎么打印这些字段?
你都知道了还问。设置DATASET,DATAFIELDNAME
我在打印窗体的show事件里面有这样的代码:
QuickRep1.DataSet:= cftzzcrfrm.ADOQuery1;
qrdbtext1.DataSet:=cftzzcrfrm.ADOQuery1;
qrdbtext1.DataField:=cftzzcrfrm.ADOQuery1.Fields[2].AsString;
而在打印按钮里面是
tzprintfrm.QuickRep1.Preview;
这就出现一个问题,如果
我在打印按钮里面只写上面的一句的话,将没有数据。
而加上:
tzprintfrm.Show;这句则出现结果。
现在是,我不想看到我的打印窗体而是直接进入御览状态
QuickRep1.DataSet:= cftzzcrfrm.ADOQuery1;
qrdbtext1.DataSet:=cftzzcrfrm.ADOQuery1;
qrdbtext1.DataField:=cftzzcrfrm.ADOQuery1.Fields[2].AsString;
这样的代码控制的阿
控制的,不是在设计期间,只不过不清楚怎么改动,并且我的qrdbtext是
放在detail中