编程开发论坛 - Powered by Discuz! Board

标题: Delphi7的四个问题 [打印本页]

作者: rxf2006xz 时间: 2012-4-30 11:33 标题: 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

作者: Nothing 时间: 2012-5-3 21:54

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

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)