|
|
|
| 代码名称： |
PB8.0 + ASA制作的周计划生产进度表 |
|
| 代码语言： |
简体中文 |
| 界面预览： |
|
| 代码类型： |
国产代码 / 其他代码 |
| 运行环境： |
2003, WinXP, 2000, NT, WinME, Win9X |
| 授权方式： |
共享代码 |
| 代码大小： |
823 KB |
| 代码等级： |
 |
| 整理时间： |
2005-11-23 11:53:00 [snowman] |
| 联 系 人： |
无 |
| 开 发 商： |
|
| 演示地址： |
无 |
| 下载次数： |
本日：4 本 周：10 本月：30 总计：286 |
| 简 介： |
运行前请修改first.ini,将first的值改成1，程序可自动注册数据源。
作者所在公司因要根据订单的货期来作周计划生产进度表。如按7天来排进度，假设货期从10月1日开始，那现在我要知道10-1到10-7有多少的货要出，10-8到10-14有多少货要出，并且每隔7天要有一个小计，最后要有一个总合计的功能。而且作完后要打印出来。
解决的思路如下：
（1） 用插入记录的方法来实现小计的功能dw_1.insertrow()：首先按货期从小到大排序，取得数据窗口第一条记录的日期为初始日期，以7天（可用任何天数）为一周，然后取第二条记录，判断第二条记录与第一条记录的货期差是否大于7天，如果大于7天则插入一条新记录，在第二条记录后设'SIZE'字段值为'小计'，初始日期加上7天。如果小于7天，则取下一条记录。以此类推，直到取到最后一条记录。
（2） 小计记录行数量的设定：用select sum(sl)的sql语句实现。插入小计行后，我们可用ls_find=dw_1.find("size='小计'",i,ls_count)来取得有小计的行数。如果ls_find大于0则用 ls_date=adw.getitemdate(ls_find - 1,"deliver_date")取得该小计行的上一行的日期。然后用
select sum(sl)
into :ls_sl%5B;n%5D;
from "product"
where "product"."deliver_date"<=:ls_date;
取得该小计行的数量。注意该数量并不是我们要的数量，将这个数量减去上一次小计的数量才是我们要的值。程序执行完如下图所示：
程序包含的功能有：
1． 数据窗口自动按序号排序，已作成函数。
2． 自动生成excel表格，可生用多张表格，方法极其简单，算法是作者用数学的排列功能实现。
3． 数据源自动注册。
4． 统计小计的数量值及总合计的数量值，没用sum功能也可实现。
5． 通用查询功能。
6． 按列标题自动排序。
7． 数据的导出与导入功能。
8． 日期的选择功能。 |
 点击打开下载页面(Download Now！)
|
 下载帮助(？)
下载链接错误报告或意见反馈 代码论坛讨论 |
| 下载PB8.0 + ASA制作的周计划生产进度表 说明： |
* 推荐:使用网际快车下载本站代码。
* 任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自代码爱好者，谢谢您的支持！
* 本站允许300人同时下载,如果出现该页无法显示,请多试几次,谢谢!
* 请一定升级到最新版[WinRAR]才能正常解压本站提供的软件；如有其它问题,欢迎发信联系管理员 |
|
当前位置：
本日下载排行榜