DBASE手册中查找不到的六条命令

Author: 张仕龙 Date: 1994-01-07

        ①SET DATE命令
        ②POKE命令
        ③SET SCOREBOARD命令
        ④SET SEGMENT命令
        ⑤PEEK函数
        ⑥COPY STRU EXTE命令
        命令格式及解释如下:
        1.SET DATE
        一般格式:SET DATE AMERICAN/ANSI/BRITISH/ITALIAN
        /FRENCH/GERMEN
        用途:SET DATE命令设定日期表达式的格式。
        说明:DATE通常系统自动设定为AMERICAN美国格式。
        其中:AMERICAN设定为月/日/年
        ANSI 设定为年.月.日
        BRITSH设定为日/月/年
        ITALIAN设定为日-月-年
        FRENCH设定为日/月/年
        GERMEN设定为日.月.年
        实例:.? DATE()
        07/01/88
        .SET DATE ANSI
        .? DATE()
        88.07.01
        DBASEШ系统中自动设定的日期型函数的“月/日/年”格式,不仅在数据录入及显示过程中不符合中国人常用的“年/月/日”的习惯,而且在多重索引中会出现错误的排序结果。用SET DATE ANSI命令即可解决此问题。
        2.POKE
        一般格式:POKE<内存地址>,<存入的数据>
        用途:POKE命令向指定内存单元写入一个字节的数据。
        说明:内存地址、存入的数据均为十进制数。本命令只可以写入RAM。其中内存地址的段地址由SET SEGMENT命令决定。
        实例:.SET SEGMENT TO O
        .POKE 1047,96
        3.SET SCOREBOARD
        一般格式:SET SCOREBOARD ON/OFF
        用途:SET SCOREBOARD命令决定用户是否可使用第0行(屏幕最顶一行)。
        说明:SCOREBOARD通常为ON,DBASEЩ系统在屏幕第0行显示信息,如插入Ins,删除Del等等。当设为OFF时用户可使用第0行,以显示更多的信息。
        4.SET SEGMENT
        一般格式:SET SEGMENT TO<段地址>
        用途:SET SEGMENT命令用于定义POKE、PEEK所使用的段地址。
        说明:段地址为十进制数。
        5.PEEK
        一般格式:PEEK(<内存地址>)
        用途:PEEK函数用于读出指定存储位置中的值。
        说明:内存地址为十进制数。本命令可读出RAM、ROM中的内容。内存地址的段地址由SET SEGMENT命令决定。
        实例:.SET SEGMENT TO O
        .? PEEK(1047)
        6.COPY STRU EXTE
        一般格式:COPY STRU EXTE TO<目标文件名>
        用途:生成以源数据库的结构字段为记录的目标数据库。
        说明:把现用数据库文件的结构字段复制到以<目标文件名>为文件名的文件中去作为<目标文件名>中的一条条记录。这条命令在统计汇总、计算信息量等方面应用特别方便。
        实例:
        .USE YK
        .LIST STRU
        字段 字段名 类型 宽度 小数
        1  编号  C  4
        2  姓名  C  8
        3  性别  C  2
        4  基本工资  N  8  2
        **总计**   23
        .COPY STRU EXTE TO MBK
        .USE MBK
        .LIST
        记录号:FIELD__NAME FIELD__TYPE FIELD__LEN FIELD__DEC
        1  编号  C  4  0
        2  姓名  C  8  0
        3  性别  C  2  0
        4  基本工资  N  8  2
        灵活运用以上命令及函数,可以使DBASEЩ完成许多原来根本不能完成的功能,使编程中的一些难于解决的问题迎刃而解。
        张仕龙Щ