FastReport 用法
标签: fastreport 用法 2008-11-14 14:56
[FORMATDATETIME('mm-dd', [IBqryShipDate."CLOSEDATE"])]
[FORMATDATETIME('mm/dd/yy', [IbqryOrderForm."ORDERDATE"])]
金额总计：[FORMATFLOAT('>####0.00', [TotalAmount])]
订单数量：[COUNT(band1)]
数量合计：[SUM([IBqryShipDate."QUANTITY"])]
婚否：[IF([IbqryPersonal."ISMARRIAGED"]=1, '是', '否')]
[IF([qryData."CLOSEDATE"]=0,'',[FORMATDATETIME('yyyy-mm-dd', [qryData."CLOSEDATE"])])]
[IF([qryCustoms."EXPORTDATE"]=0,'',[DateEngStyle([qryCustoms."EXPORTDATE"])])]
[IF([qryPrints."TOTAL1"]=0,'',[qryPrints."TOTAL1"])]
[IF([qryPrint."CURDATE"]=0,'',[FORMATDATETIME('mm-dd',[qryPrint."CURDATE"])])]
[IF([qryPrint."STYPE"]='0', [Ban], [Huo])]
[Copy([qryData."WASHMETHOD"],1,8)]
if Length(Trim([MainADOQuery."工序名称"])) mod 35 =0 then
begin
bMData.height := 20 * INT(Length(Trim([MainADOQuery."工序名称"]))/35);
Memo39.Height := 20 * INT(LENGTH(TRIM([MainADOQuery."工序名称"]))/35);
end
else begin
bMData.height := 20 * (INT(Length(Trim([MainADOQuery."工序名称"]))/35)+1);
Memo39.Height := 20 * (INT(LENGTH(TRIM([MainADOQuery."工序名称"]))/35)+1);
end
打印对话框
CB1.Caption := [isBreak];
btn1.Caption := [QD];
GroupHeader1.FormNewPage := Cb1.Checked;
多条记录只打印第一条
1.在PageHead中声明变量 iCount := 0;
2.在MaterData的OnBeforePrint 写入 iCount := iCount + 1;
printform 3.在Memo中写入 [CName]
begin
if (iType =1) then
CName := [qryOutWorkOrder."MATERIALTYPE"]
else
CName := '';
end
对应打印 Rich 字段,请参考 ERP unWashMethod.pas单元的Break属性!
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
late_adddrop_formpdf
« 上一篇
牛津高中英语单词表M1-M4
下一篇 »
发表评论