如何在应用程序中修改FOXPRO数据表

文章作者 100test 发表时间 2007:10:15 11:55:40
来源 100Test.Com百考试题网

　 修改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_   (修改后的字段宽度)，数字型

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$#@60.=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