微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题在FoxBASE中自动生成数据库的一种方法
栏目外设类维护与维修
作者山东 董振岳
发布1996-09-27
  例如要生成以下的数据库:
  可以先定义一个字符串:
  DBFSTR='FIELD1'+CHR(13)+'C'+'1'+CHR(13);
  +'FIELD2'+CHR(13)+'N'+'1'+CHR(13)+'0'+CHR(13);
  +'FIELD3'+CHR(13)+'D';
  +'FIELD4'+CHR(13)+'L';
  +'FIELD5'+CHR(13)+'M';
  +CHR(13)+CHR(13)+CHR(13);
  把生成数据结构的所有按键都定义进去,然后在程序需要建立数据库的地方加入:
  KEYB(DBFSTR)
  CREATE<数据库文件名>
  就可自动生成一个空的数据库文件。
  但Keybord()函数有一个限制,最多只能发送254个字符到缓冲区,不能满足结构复杂的数据库最多;而且有时数据库的结构是由用户使用程序时定义的,编程时并不能知道。这时,我们可以利用数据库结构伸展文件来达到目的。
  数据库结构伸展文件的库结构只有4个字段:
  所以我们只要先定义一个字符串:
  DBFSTR='FIELD-NAME'+'C'+'10'+CHR(13);
  +'FIELD-TYPE'+'C'+'1'+CHR(13);
  +'FIELD-LEN'+'N'+'3'+CHR(13)+'0'+CHR(13);
  'FIELD-DEC'+'N'+'3'+CHR(13)+'0'+CHR(130);
  +CHR(13)+CHR(13)+CHR(13);
  然后用 KEYB(DBFSTR)
  CREATE TEMP
  就可生成一个文件名为TEMP.DBF结构伸展文件。在获取数据库结构后,用 APPEND BLAN
  REPL..WITH..
  将每个字段的字段名,字段类型,字段长度,小数位填入TEMP.DBF中,也可以用GET,READ通过对话方式让用户输入每个字段名。然后运行命令CREATE<数据库文件名>FROM TEMP就可以生成任何所需要的数据库了。