修改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
相关文章
VFP6.0中实现记录删除后自动调整编号
VFP中对WIN32API函数的调用格式
Foxpro中DDE类函数的应用
使用伪代码开发数据表维护屏幕
如何在应用程序中修改FOXPRO数据表
在VFP的应用程序中实现超级链接
树形目录在 中的实现与应用
用VFP编制多媒体歌曲的点播器
数据库规范化技巧
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛