在程序内修改foxpro的表dbf结构

用FOXPRO编写的数据库应用程序喜欢用6位字符型字段来记录日期。随着2000年的到来,这个字段的宽度显然已经不适用了,需要修改。

修改FOXPRO数据表结构,常用MODIFY STRUCTURE命令。这种方法虽然方便,但必须在人机对话中实现。若您的程序已交付许多用户使用,要求用户采用MODIFY STRUCTURE命令修改数据表结构势必会带来许多麻烦。是否可通过执行预先编制好的程序来完成扩大字段宽度工作?笔者最近做了一个尝试,其程序思路是:

1、利用AFIELDS()函数获取要修改的数据表结构信息,并将信息存放在STR_FIL数组内。AFIELDS()函数的语法:AFIELDS(ArrayName),ArrayName是放置表结构信息的数组名(可由自己命名,本例中命名为STR_FIL),数组为每一个字段创建一行数据,其每一列里存储的信息如下:

列号 字段信息 数据类型
1 字段名 字符型
2 字段类型 字符型
3 字段宽度 数值型
4 小数点位置 数值型
5 容许的空值 逻辑型
6 字段有效准则 字符型
7 字段有效文本 字符型
8 字段缺省值 字符型
9 表有效准则 字符型
10 表有效文本 字符型

2、根据要求修改STR_FIL数组内容(本例,修改字段宽度)。

3、利用CREATE CURSOR 命令,按STR_FIL数组内容创建一临时表结构。

4、将原表数据添加到临时表中。

5、利用COPY TO 命令,将临时表覆盖原表。

下面是修改字段宽度的原代码:

*参数:SOU_FILE(修改的数据表文件名),字符型
*参数:FIE_NAME(要修改的字段名),字符型
*参数:FIE_WID(修改后的字段宽度),数字型
PARA SOU_FILE,FIE_NAME,FIE_WID
PRIV STR_FIL,FIEL_SUM,N, STR_TMP
IF USED(“&SOU_FILE”)       
&&打开要修改的数据表
   SELE &SOU_FILE
ELSE
   SELE 0
   USE &SOU_FILE
ENDIF
=AFIELDS(STR_FIL)   
 &&获取表结构,并存储在STR_FIL数组内
FIEL_SUM=FCOUNT()  &&计算表字段数
N=1
DO WHILE N<=FIEL_SUM           
  &&查找要修改的字段名
	IF ALLT(STR_FIL(N,1))=FIE_NAME  
&&如果是要修改的字段名
	    IF STR_FIL(N,3)=FIE_WID      
&&判别字段宽度是否相同
	       RETURN              
     &&相同返回
	    ELSE                  
       &&否则修改表结构
           wait "正在修改数据结构,
请稍侯..." WIND NOWAIT   
    	   STR_FIL(N,3)=FIE_WID    
  &&确定字段长度
	       EXIT         &&退出循环
          IF N= FIEL_SUM      &&如果循环结束
  wait "无修改的字段,按任意键返回….
" WIND  &&提示用户
            RETURN
          ENDIF
		ENDIF
	ENDIF
	N=N+1
ENDDO

*按STR_FIL数组内容,创建临时表结构
SELE 0
*根据STR_FIL数组规定的字段名字、
类型、宽度创建临时表STR_TMP
CREATE CURSOR STR_TMP 
FROM ARRAY STR_FIL 
SELE &SOU_FILE
USE    &&关闭原数据表

*将原数据表数据添加到临时表STR_TMP中
SELE 0
APPE FROM &SOU_FILE   
COPY TO &SOU_FILE  &&复制新的数据原表
RETURN
 » 本站地址:http://www.gomoth.com

标签: