用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧Delphi

FastReport技巧

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 20:19:18
[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(‘mm-dd-yy‘, [qryData."CLOSEDATE"])])]

[IF([qryPrint."CURDATE"]=0,‘‘,[FORMATDATETIME(‘mm-dd‘,[qryPrint."CURDATE"])])]
[IF([qryPrint."STYPE"]=‘0‘, [Ban], [Huo])]

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

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:27,000.00000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号