| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 881 人关注过本帖
标题:[讨论]关于怎样在表单中自动建立数据表
取消只看楼主 加入收藏
chronos
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-8-24
收藏
 问题点数:0 回复次数:1 
[讨论]关于怎样在表单中自动建立数据表

目的: 我想实现一个功能,由系统每天新建一个表,表名就是今月月份,例如:hf200708.dbf,上月建的呢就是hf200707.dbf,前月就是hf200706.dbf,这样每天把不同的数据记录统计后插入到对应当月份的表中。在DOS是这样操作的,我想做成windows下的表单。附DOS程序:请各位能指教。
SET SAFE OFF
SET COLOR TO GR+/N,B/W
CLEAR ALL
CLOS DATA
YY=YEAR(DATE())
MM=MONTH(DATE())
RR=DAY(DATE())
SS1=MM
SS2=0
CLEAR
DO WHIL .T.
@ 3,22 SAY "*** 混炼胶日发出数据输入 ***"
@ 5,24 SAY "? 请输入报表月份:"
AA1=MM
YY1=STR(YY,4)
@ 5,45 GET AA1 PICT '99' RANGE 1,12
READ
BB='Y'
@ 9,28 SAY '输入正确? (Y/N)' GET BB
READ
IF UPPE(BB)='N'
LOOP
ELSE
IF AA1=1
AA5=13
ELSE
AA5=AA1
ENDIF
ENDIF
AA1=IIF(AA1<10,"0"+STR(AA1,1),STR(AA1,2))
AA5=IIF(AA5<10,"0"+STR(AA5,1),STR(AA5,2))
RR=IIF(RR<10,"0"+STR(RR,1),STR(RR,2))
EXIT
ENDDO
MMRR=AA5+'-'+RR
*
NAME='HF'+YY1+AA1+'.DBF'
IF .NOT.FILE("&NAME")
USE HLJFC00
COPY STRU TO &NAME
USE
ENDIF
*
IF .NOT.FILE("ZSXHLJ.DBF")
USE HLJFC00
COPY STRU TO ZSXHLJ
USE
ENDIF
SELE 2
USE &NAME
想自用显示本月月份如果月份不对的在组合框下拉中选择月份,查询磁盘中是否存在“HF+年份+月份”文件名的数据表,如果不存自动生成一个以“HF+年+月”的数据表。只不过在DOS下运用的程序改为在Windows下里运行。

2oSRmvVA.rar (3.27 KB) [讨论]关于怎样在表单中自动建立数据表


[此贴子已经被作者于2007-8-24 21:24:09编辑过]

搜索更多相关主题的帖子: 表单 数据 自动 
2007-08-24 21:23
chronos
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-8-24
收藏
得分:0 
大哥能否用写代码讲明白点,就是函数间的调用不会用.

2007-08-24 23:11
快速回复:[讨论]关于怎样在表单中自动建立数据表
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016686 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved