1            xh=输入的序号
             LOCA FOR ALLT(序号)==ALLT(XH)  (假定“XH”和“序号”都为字符型)
             (若都为数值型，则改为 LOCA FOR 序号＝XH)
             (若数值、字符各一个，则用VAL()函数将字符型转化为数值型）
             IF EOF()
             MESSAGEBOX('所查找部门不存在')
             ELSE
             MESSAGEBOX(部门名称)      (可根据需要在什么控件上显示部门名称)
             ENDIF

2.           CREATE TABLE 学生表 学号 C(8),姓名 C(6),性别 C(2),年龄 N(2),系别 C(10)

CREATE TABLE 学生表 [color=FF0000]([/color]学号 C(8),姓名 C(6),性别 C(2),年龄 N(2),系别 C(10)[color=FF0000])[/color]