fastreport 中日期的显示问题

zhengxionglai 2003-10-20 05:56:23
当日期为null,fastreprt会自动将它处理为0,能否取消这个设置,就让它空着就行了。另外,如何在程序中改变某一列的数据的文字颜色
...全文
391 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
shaw_jansin 2003-10-31
  • 打赏
  • 举报
回复
把hidezeros设为true 试试
esunhong 2003-10-21
  • 打赏
  • 举报
回复
在memo上点鼠标右键选择隐藏零值
zhengxionglai 2003-10-21
  • 打赏
  • 举报
回复
前一个问题解决,第二个问题在程序中改变某一列的数据的文字颜色
jimever 2003-10-21
  • 打赏
  • 举报
回复
字段属性HideZeros设成true就行了
redcola 2003-10-20
  • 打赏
  • 举报
回复
当日期为null,fastreprt会自动将它处理为0,能否取消这个设置,就让它空着就行了。另外,如何在程序中改变某一列的数据的文字颜色

第一个:不清楚咧,我一般把不要的字段的颜色改得跟底色一样
第二个:很简单,在FASTREPORT里,在改变字体颜色里的方块旁边,有个小方块,有个颜色的标志,在里面可以写若干函数,做你想做的事情。
比如说先选择一个一个表的字段,如果值为1,则选择此格显示为红。
StringGrid打印报表(FastReport) {*************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: TfrReport; ReportTitle,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 := TfrReport.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 {标题栏} ReportTitle := Tfrbandview.Create; ReportTitle.BandType := btReportTitle; ReportTitle.SetBounds(left,top,width,40); page.Objects.Add(ReportTitle); 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.ShowReport; screen.Cursor := crDefault; finally fr.Free; end; end;
里诺仓库管理软件是一款通用性极强的仓库及货物管理软件,软件适用于食品、服装、保健品、电子、贸易、物资、化妆品、电器等工业、商业、贸易领域的企业。 二、 软件优势: 美观简便的操作界面:直观的图形化操作界面,以及丰富详细的操作提示,帮助您高效快捷的完成仓储物资管理工作; 高效强大的查询工具:系统提供多种查询方式来帮助您快速找到所需要的资料。无论是使用预制条件还是临时的高级组合查找,都能够让您省心省力; 安全可靠的数据管理:系统提供备份措施来保障您的数据安全存储,让您高枕无忧; 实用的数据共享功能:系统支持将仓储物资数据直接导出为Excel电子表格、Txt 文本文件、Html网页文件等多种数据格式,进一步让您方便有效的处理仓储物资数据。 软件特点: 1.软件界面直观、操作简单,支持全键盘操作; 2.软件支持入库、出库、退库、调库、借出、归还、盘点等多项货物操作流程; 3.软件支持固定单价,加权平均价和移动加权平均法计算成本; 4.软件支持多仓库管理; 5.强大的数据导入功能,完善的EXCEL导入界面,针对必填项及选填项加以文字说明。支持从Excel导入货品和来往单位资料,减小您的期初工作量,各种数据也可以方便转换为Excel数据格式。 6.软件提供了完备的帐务系统,可以随时查询或打印月记帐、日记帐。多方位为企业经营决策提供服务; 7.货品和来往单位资料支持树形分类管理; 8.支持自定义单据打印格式,可以任意更换打印机及纸张类型,支持单据套打。 9.支持自定义出入库类型; 10.软件支持小数点位数自定义,可以设置单价为0-8位小数; 11.能自动对库存超限的商品报警,多种报表功输出功能,让你的仓库管理工作轻松自如。 12.软件操作界面友好、灵活、易操作。 三、 软件功能: ● 3.1 货品资料信息 点击软件最上面的菜单"基础资料"->"货品管理"->"货品资料管理",进入货品资料管理窗体(如下图所示).货品资料支持树形分类管理,可以让您把成千上万的货品资料分类管理,让您更易于管理和查看.并且货品资料还支持Excel导入和导出. 3.1.1 添加货品 点击货品资料窗体上面的"新增"按钮,在添加货品窗体上依次填好各个项目,点击"添加"按钮即可成功保存(如下图所示). 关于自动编码 新增货品资料时自动编码默认会打上勾,这样就要求货品编码的最后4位为阿拉伯数字,如果您的编码是纯字母,可以把自动编码的勾去掉,但货品编码也没有自动累加的功能了. 关于分仓库存 如果您有一种货品资料存放在两个仓库(如下图所示的成品库和原材料库),那么在录这个货品资料时,只需要把成品库和原材料库的期初库存数量都输入为0. 3.1.2 批量修改货品分类 "批量修改货品分类"是一个很实用的功能,如果您需要把一批货品资料归到一个分类,就必需使用此功能.具体的使用方法是选货品资料表格的一条数据,按住鼠标左键不放往下拖动,选的记录会有一层淡蓝色.这时可以放开左键,右击鼠标会出现一个菜单,点击里面的"批量修改货品分类",选好一个分类,点击确定即完成货品资料分类的批量修改.如下图所示: ● 3.2 从Excel导入货品资料 为了方便用户期初建帐,摆脱繁杂的期初数据录入工作,本系统支持从Excel文件导入商品资料和往来单位数据,Excel导入的功能非常强大和灵活,下图是导入商品资料的图示: 注意: 1 当程序没有自动把字段对应好时,您可以点击Excel字段相应的项目,从下拉框选择一个对应的项目就行了.不导入相应的项目,可以Excel字段保持为空,例如我不想导入期初单价,我就把Excel字段的期初单价删除. 2 导入时,如果需要导入入库价,出库价,期初数量,期初单价和期初金额,必需保证Excel的是数字,不能出现字母和"¥"符号.因为类型不正确,程序是不能成功导入数据的. 3 导入成功后,用批量修改货品分类把导入的这一批货品资料归类. ● 3.3 新增单据 1.里诺仓库管理软件新增单据十分方便和快捷,点击左侧导航图入库登记面板里的"采购收货入库"(如下图所示),在新增单据窗体里,点击"新增"按钮再依次录好各个项目,录好之后点击"保存"按钮即完成单据的新增. 注意,"保存"按钮在要"新增"按钮按下后才会变成实的,保存完成要再点击"新增"按钮才能制作下一张单. 2.软件新增条码扫描枪出入库功能(如下图所示)。点击制单页面的左下方“条形码录入”,即可显示条形码录入框,可减少出入库单人工出错的可能性 ● 3.4 查看库存数量 点击里诺仓库管理软件工具栏上面的"查询库存"按钮,在查看库存数量窗体,您可根据一定的条件查询货品资料的库存数量,如下图所示: 注意事项: 1 当仓库名称没有选择时,查询出来的数据是所有仓库的库存数量,

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧