社区
Delphi
帖子详情
fastreport 中日期的显示问题
zhengxionglai
2003-10-20 05:56:23
当日期为null,fastreprt会自动将它处理为0,能否取消这个设置,就让它空着就行了。另外,如何在程序中改变某一列的数据的文字颜色
...全文
408
5
打赏
收藏
fastreport 中日期的显示问题
当日期为null,fastreprt会自动将它处理为0,能否取消这个设置,就让它空着就行了。另外,如何在程序中改变某一列的数据的文字颜色
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shaw_jansin
2003-10-31
打赏
举报
回复
1
把hidezeros设为true 试试
esunhong
2003-10-21
打赏
举报
回复
在memo上点鼠标右键选择隐藏零值
zhengxionglai
2003-10-21
打赏
举报
回复
前一个问题解决,第二个问题在程序中改变某一列的数据的文字颜色
jimever
2003-10-21
打赏
举报
回复
1
字段属性HideZeros设成true就行了
redcola
2003-10-20
打赏
举报
回复
当日期为null,fastreprt会自动将它处理为0,能否取消这个设置,就让它空着就行了。另外,如何在程序中改变某一列的数据的文字颜色
第一个:不清楚咧,我一般把不要的字段的颜色改得跟底色一样
第二个:很简单,在FASTREPORT里,在改变字体颜色里的方块旁边,有个小方块,有个颜色的标志,在里面可以写若干函数,做你想做的事情。
比如说先选择一个一个表的字段,如果值为1,则选择此格显示为红。
Fast
report
里
显示
年月日
Fast
report
里
显示
年月日
Fast
report
里
显示
年月日
Delphi
Fast
Report
页脚自定义
日期
和页码代码.docx
Delphi
Fast
Report
页脚自定义
日期
和页码代码,非常实用。提供给大家参考。简单一目了然。
初级到CS开发高手通用权限管理系统全程实录
本课程主讲项目的功能模块主要有:用户管理、角色管理、菜单管理、权限管理、组织机构管理、特权管理、用户角色管理、角色权限管理、日志管理、报表统计、智能客户端、报表设计器和按纽权限组。另外像ADO.NET、分层、事务、视图、委托、反射、WebService、
Fast
Report
.NET、Dev、RDLC、EpPlus操作EXCEL等知识点全部贯穿在视频
中
讲解
fast
report
报表脚本frf及fr3格式
fast
report
报表脚本语言实例,包括frf及fr3格式,
显示
值换行方法,及
日期
显示
格式,不合法
日期
不
显示
脚本, 给大家参考。
StringGrid打印报表(
Fast
Report
)
StringGrid打印报表(
Fast
Report
) {*************StringGrid打印功能***********************************} (*uses unit: FR_Class, FR_View from (
fast
-
Report
) *) (*参数说明:printRow:每页打印的行数 *) (* styleType:边框类型 0:无边框,15:所有边框,18:底部画线 *) (* title:标题 *) (* FrmGrid:所在窗体 *) (*date:2005-04-24 *) (*author:kxy *) {******************************************************************} function GridPrint (Grid1:TstringGrid;printRow,StyleType:integer;Title:string;FrmGrid:TForm):boolean;//打印报 表 var fr: Tfr
Report
;
Report
Title,Masterdata,ColumnHeader,PageHeader,pageFooter:Tfrbandview; //栏目 MemoVT,MemoVC:Array of TfrMemoview; //列 TitleV ,dateV,pageV:TfrMemoview ; lineV:TfrlineView; //线 page:Tfrpage; //页 GridRow,GridCol,CurrRow,I,J,col:integer;//总的行数,列数,当前行 PageCount,pageRow:integer; //总共页数; Left,Top,Width,Heigth:integer; TempLeft,TempWidth:integer; printDate :string; begin screen.Cursor := crHourGlass; GridRow := Grid1.RowCount; GridCol := Grid1.ColCount; CurrRow := 0; pageRow := printRow; try fr := Tfr
Report
.Create(FrmGrid); fr.StoreInDFM := True; PageCount := GridRow div printRow ; //计算出页数 for I := 0 to PageCount - 1 do begin left :=0; top :=20; width :=757; heigth :=25; fr.Pages.Add; page := fr.Pages[i]; if I = 0 then //第一页增加标题; begin {标题栏}
Report
Title := Tfrbandview.Create;
Report
Title.BandType := bt
Report
Title;
Report
Title.SetBounds(left,top,width,40); page.Objects.Add(
Report
Title); TitleV := TfrMemoview.Create; Titlev.SetBounds(0,top,width,30); Titlev.Alignment := (Titlev.Alignment and $FC) + 2;//居
中
Titlev.Font.Name := '宋体'; TitleV.Font.Size := 16; TitleV.Memo.Add(title); page.Objects.Add(TitleV); {打印
日期
} dateV := TfrMemoview.Create; dateV.SetBounds(0,top + 40,width,30); dateV.Alignment := (dateV.Alignment and $FC) + 1 ;//右对齐 dateV.Font.Name := '宋体'; dateV.Font.Size := 9; printDate :='打印
日期
:' + FormatDateTime('yyyy/mm/dd',Now) +' '; dateV.Memo.Add(printDate); page.Objects.Add(dateV); PageRow := PageRow - 4 ; //少打两行组成一个标题 Top := 60; end ELSE begin pageRow := PrintRow; Top := 20; end; for J:= 0 to PageRow + 1 do //每页的行数 begin {列头} IF J = 0 then //第一行打行列标题栏 begin ColumnHeader := Tfrbandview.Create; ColumnHeader.BandType := btColumnHeader; ColumnHeader.SetBounds(left,top,width,heigth); page.Objects.Add(ColumnHeader); SetLength(MemoVT,GridCol); TempLeft := 20; for col:= 0 to GridCol - 1 do begin MemoVt[col] := TfrMemoview.Create; MemoVt[col].Font.Name := Grid1.Font.Name; MemoVt[col].Font.Size := Grid1.Font.Size; MemoVt[col].Memo.Add(Grid1.Cells[col,0]); MemoVt[col].FrameTyp := StyleType; //
显示
边框 TempWidth := Grid1.ColWidths[col]; //宽度与Grid
中
的宽度一致 MemoVt[col].SetBounds(tempLeft,top ,tempWidth,heigth); templeft := tempLeft + tempwidth; page.Objects.Add(MemoVt[col]) end; end Else begin top := top + heigth; Inc(CurrRow); TempLeft := 20; SetLength(MemoVc,GridCol); for col :=0 to GridCol - 1 do begin MemoVc[col] := TfrMemoview.Create; MemoVc[col].Font.Name := Grid1.Font.Name; MemoVc[col].Font.Size := Grid1.Font.Size; MemoVc[col].Memo.Add(Grid1.Cells[col,CurrRow]); MemoVc[col].FrameTyp := StyleType; //
显示
边框 TempWidth := Grid1.ColWidths[col]; //宽度与Grid
中
的宽度一致 MemoVc[col].SetBounds(tempLeft,top ,tempWidth,heigth); templeft := tempLeft + tempwidth; page.Objects.Add(MemoVc[col]); end; end; if currRow >= GridRow then break; end; {页码} pageV := TfrMemoview.Create; pageV.Font.Name := '宋体'; pagev.Font.Size := 10; pagev.FrameWidth := 2; //pagev.FrameTyp := 24 ; pagev.Alignment := (pagev.Alignment and $FC) + 2;//居
中
pageV.Memo.Add('第'+ inttostr(I + 1) + '页 (共' + inttostr(PageCount) + '页)' ); pagev.SetBounds(0,1025,750,20); page.Objects.Add(pageV); end; fr.Show
Report
; screen.Cursor := crDefault; finally fr.Free; end; end;
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章