求高手做个简单的VF写出以下命令，并在命令窗口中验证1.创建“数据库”文件“XS.dbc”输入此命令后，在默认路径下打开数据库”文件“XS.dbc”2.为上面的“数据库”文件“XS”创建“表

Question

求高手做个简单的VF
写出以下命令，并在命令窗口中验证
1. 创建“数据库”文件“XS.dbc”
输入此命令后，在默认路径下打开数据库”文件“XS.dbc”
2. 为上面的“数据库”文件“XS”创建“表”文件“XS.dbf”
其中的列名及其类型，宽度如下：
(学号C(12)，姓名 C(6)，系别 C(10)，成绩N(5))
3.为上表“XS.dbf”添加内容如下：
（1）“001”，“张三”，“工商系”，78
（2） “002”，“李四”，“工商系”，98
（3） “003”，“王五”，“外语系”，67
（4） “004”，“赵六”，“艺术系”，84
（5） “005”，“吴七，“工商系”，80
4.将表“XS.dbf”中“王五”的系别改为“工商系”
5.删除学号为”004”的学生的记录
6.筛选出表“XS.dbf”中的所有学生的信息
7.筛选出表“XS.dbf”中的所有学生的学号,姓名和成绩的信息
8.筛选出表“XS.dbf”中的所有“工商系”学生的信息
9.筛选出表“XS.dbf”中的所有“工商系”，成绩大于90的学生的信息
10. 筛选出表“XS.dbf”中的所有成绩在80到90的学生的信息

Answer 1

SET SAFETY OFF
CLOSE DATABASES ALL
&& 1
CREATE DATABASE "XS.dbc"
OPEN DATABASE "XS.dbc"
&& 2
CREATE TABLE XS (学号 C(12), 姓名 C(6), 系别 C(10), 成绩 N(5))
USE IN XS
&& 3
USE XS IN 0 EXCLUSIVE
INSERT INTO XS(学号, 姓名, 系别, 成绩) VALUES ("001", "张三", "工商系", 78)
INSERT INTO XS(学号, 姓名, 系别, 成绩) VALUES ("002", "李四", "工商系", 98)
INSERT INTO XS(学号, 姓名, 系别, 成绩) VALUES ("003", "王五", "外语系", 67)
INSERT INTO XS(学号, 姓名, 系别, 成绩) VALUES ("004", "赵六", "艺术系", 84)
INSERT INTO XS(学号, 姓名, 系别, 成绩) VALUES ("005", "吴七", "工商系", 80)
BROWSE
&& 4
LOCATE FOR 姓名 = "王五"
REPLACE 系别 WITH "工商系"
BROWSE
&& 5
LOCATE FOR 学号 = "004"
DELETE
PACK
BROWSE
&& 6
SELECT * FROM XS INTO CURSOR "curSQL"
BROWSE
&& 7
SELECT 学号, 姓名, 成绩 FROM XS INTO CURSOR "curSQL"
BROWSE
&& 8
SELECT * FROM XS WHERE 系别="工商系" INTO CURSOR "curSQL"
BROWSE
&& 9
SELECT * FROM XS WHERE 系别="工商系" AND 成绩>90 INTO CURSOR "curSQL"
BROWSE
&& 10
SELECT * FROM XS WHERE 成绩 BETWEEN 80 AND 90 INTO CURSOR "curSQL"
BROWSE