简洁高效的FoxPro通用数据输入程序

Author: 石望湘 Date: 1997-01-01
　　在Ｆｏｘｐｒｏ的编程中，经常需要编写字段的数据输入模块，许多朋友都是采用一个字段对应一条ｇｅｔ和ｒｅａｄ语句的编程方法，不仅书写繁琐，而且还会因为字段名称、类型以及宽度的变化而修改源程序，实在是事倍功半。实际上，可以通过宏替换＆编写一个根本不必考虑具体数据库中字段情况的简明高效的Ｆｏｘｐｒｏ通用数据输入程序，真正而充分地体现Ｆｏｘｐｒｏ的程序与数据的无关性。
　　下面假设数据库文件名为ＭＡＩＮ．ＤＢＦ，以修改库中原有数据为例，给出完整的通用数据输入核心源程序如下：
　　ｃｌｅａ
　　ｓｅｔ　ｔａｌｋ　ｏｆｆ
　　ｕｓｅ　ｍａｉｎ
　　＊以下７行读取字段个数，并将各字段名称赋给数组Ｓ
　　ｓ１＝ｆｃｏｕ（）
　　ｄｉｍｅ　ｓ（ｓ１）
　　ｉ＝１
　　ｄｏ　ｗｈｉｌ　ｉ＜＝ｓ１
　　ｓ（ｉ）＝ｆｉｅｌ（ｉ）
　　ｉ＝ｉ＋１
　　ｅｎｄｄ
　　ｄｏ　ｗｈｉｌ．ｎｏｔ．ｅｏｆ（）
　　ｊ＝１
　　＊　ｊ＝１　首先显示所有字段的原来值
　　＊　ｊ＝２　然后进行各个字段依次输入
　　ｄｏ　ｗｈｉｌ　ｊ＜＝２
　　ｉ＝１
　　ｄｏ　ｗｈｉｌ　ｉ＜＝ｓ１
　　ｉｆ　ｊ＝１
　　＠ｉ，１０　ｓａｙ　ｓ（ｉ）＋“：”＋ｓｐａｃ（１０－ｌｅｎ（ｓ（ｉ）））
　　ｅｌｓｅ
　　＠ｉ，２１　ｇｅｔ　＆ｓ（ｉ）
　　ｒｅａｄ
　　＊以下ｉｆ嵌套实现Ｃｔｒｌ＋Ｗ强制完成数据输入
　　ｉｆ　ｒｅａｄ（）＝２７０
　　ｅｘｉｔ
　　ｅｎｄｉ
　　ｅｎｄｉ
　　＠ｉ，２１　ｓａｙ　＆ｓ（ｉ）
　　＊以下ｉｆ嵌套实现字段间的上下移动
　　ｉｆ　ｒｅａｄ（）＝４．ａｎｄ．ｉ＜＞１
　　ｉ＝ｉ－１
　　ｅｌｓｅ
　　ｉ＝ｉ＋１
　　ｅｎｄｉ
　　ｅｎｄｄ
　　ｊ＝ｊ＋１
　　ｅｎｄｄ
　　ｉｆ　ｒｅａｄ（）＝２７０
　　ｅｘｉｔ
　　ｅｎｄｉ
　　ｓｋｉｐ
　　ｅｎｄｄ
　　ｒｅｌｅ　ｓ
　　ｓｅｔ　ｔａｌｋ　ｏｎ
　　ｃｌｏｓ　ａｌｌ
　　ｒｅｔｕ
　　以上通用数据输入核心源程序虽然很短小但是非常有效，除了未考虑特殊的Ｇｅｎｅｒａｌ和Ｐｉｃｔｕｒｅ字段类型输入，其它所有类型的字段均可自动匹配。如果您正在编写输入模块，不妨作个参考，将这段程序追加到模块主体，按照您的具体要求，在适当的地方略加几条语句，并稍微润色＠语句的行列值，再在ＳＫＩＰ位置加上记录上下翻阅或跳转，则可完成。