发新话题
打印

Delphi7的四个问题

Delphi7的四个问题

本人在煤矿工作,和同事每日都会入井检查各个队组生产现场存在的安全隐患,现在想用Delphi7编一个程序,目的是:1、每日输入检查到的隐患后,到月底能够分别统计出:本月各个队组的隐患总数、本月所有的隐患总数(显示在TLabel组件中)。2、每月对检查到的一些违章行为,会做出处罚通报,这些处罚通报的格式是固定的(现在一直是用Word来做),并且每月统计出各队分别有多少份处罚通报以及各队处罚总金额、本月所有通报的处罚总金额。3、将这些数据分别都打印出来。
   
    我使用的组件:TADOTable、TDataSource、TForm中添加Standard标签页下的组件(非DataControls标签页下的组件):分别有TComboBox、TMemo、TDateTimePick

    数据库名:HDDB.mdb(Access数据库);表名:“Record”。字段分别有:编号、检查日期、被检单位、负责人、隐患内容、整改措施、检查人、检查日期、整改期限、复查人、复查日期、整改情况。(以上字段:编号、整改期限为Integer类型;检查日期、复查日期为TDateTime类型,其余全部为String类型)。

    现在分别遇到如下困难:

    1、我是用TMemo组件来做为“隐患内容”和“整改措施”字段的输入工具。可F9后发现:假设今日综采一队有10条隐患,可在TMemo中,只能将这10条隐患做为一条来输入,如果在TMemo中按下回车,按F9会出现“多行设置错误”这样的错误信息。而我的目的是将每一条隐患在数据库表中做为一条记录来保存(解释:某些隐患字数少,在TMemo中可能只有1行、某些隐患字数会较多,在TMemo中可能就会有2行或多行,但不论这一条隐患在TMemo中是几行,都将这一条隐患在数据库表中保存为一条记录),怎么才能实现?(整改措施字段内的数据与隐患内容相对应,一条隐患就必有一条整改措施)

    2、到月底或下月初,怎么统计本月各个队组的隐患总数?以及本月所有隐患总数(不论队组)?

    3、用什么组件或什么方法能够控制Word,使其保存、打印为一份固定格式的Word文件?(也就是说,保存、打印的文件中,格式是固定的,只有里面的内容是通过我编的这个程序改变的)

    4、我在用TQuickRep和TQRBand组件做的“报表窗口”,可在“打印预览”里,页面是纵向的,只能显示出一部分数据,怎么改成横向的?另外怎么实现“页面设置”功能,能够实现调整页面边框、Excel中的“自定义缩放”功能?

    本人平时工作繁忙,编程属个人爱好,而这个程序是现在急需的,所以平时没多少时间能够按步就班的看书慢慢学习,希望各位大师能够帮我解决一下。谢谢!
   
    本人邮箱:rxf2006xz@163.com

TOP

1、Tmemo只是文本编辑框,关于数据输入的地方,应该单独有个窗体来保存,建议使用代码,而不是绑定数据控件。
2、统计应该用SQL语句进行数据计算。
3、关于操作Word,应该使用COM组件来编程,网上有很多类似的例子。
4、关于报表,你可以把要打印的内容转成word,然后在word里打印。
换个头像,看见广告就眼红,直接封ID。

TOP

发新话题