目的: 我想实现一个功能,由系统每天新建一个表,表名就是今月月份,例如: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下里运行。
[此贴子已经被作者于2007-8-24 21:24:09编辑过]