实验六 数据库的基本操作
实验目的：
1. 2. 3. 4. 5.
掌握项目管理器方式、菜单方式和命令方式创建数据库的方法； 熟练掌握在数据库中添加和移去表的操作； 完善表的有效性规则；
掌握建立表之间永久关系的方法；
掌握相关表之间数据参照完整性的设置方法。
实验准备:
1. 2. 3. 4.
阅读第5章中相关的内容；
准备好前面实验所创建的项目和表文件；
启动Visual FoxPro 6.0系统，设置默认的工作目录为F:\\个人文件夹名； 打开XSGL项目的项目管理器。
实验内容：
1. 用命令方式创建数据库XSGL.DBC，再数据库中添加学生表、成绩表、课程表。 2. 在成绩表的表设计器中设置字段的有效性规则，成绩字段的规则为：成绩>=0 AND
成绩<=100,如果违反规则，则信息为“成绩必须在0~100之间! 请重新输入”。检验触发：把某个学生的成绩改为120分，观察是否违反了规则。
3. 创建记录级有效性规则。增加“出生日期”字段和“年龄”字段，在记录级有效性
规则中输入表达式：YEAR(DATE())-YEAR(出生日期))=年龄 4. 创建表的触发器，使用表设计器为学生表设置三个触发器。在更新触发器中输入表
达式：学号>“20030000” AND 学号<“20040000”。 检验一下触发器是否有效。 5. 在数据库设计器窗口中，在学生表的设计器中以“学号”建立主索引，在成绩表的
设计器中以“学号”建立普通索引，在学生表和成绩表之间建立永久关系。 6. 设置学生表和成绩表的参照完整性。其中“更新规则”、“删除规则”、“插入规则”
三个选项卡分别选择“级联”、“级联”、“限制”。
实验小结：
16
实验七 程序设计基本命令
实验目的：
1. 2. 3. 4.
掌握交互式输入命令； 掌握格式化输入命令；
掌握程序设计的输出命令； 掌握格式化输出命令。
实验准备:
1. 2. 3. 4.
阅读第6章中相关的内容；
准备好前面实验所创建的项目和表文件；
启动Visual FoxPro 6.0系统，设置默认的工作目录为F:\\个人文件夹名； 打开学生表。
实验内容：
1. 练习交互式输入命令INPUT：
INPUT “请输入学生的姓名：” TO XM INPUT “请输入学生的班级：” TO BJ INPUT “请输入学生的性别：” TO XB ? XM,BJ,XB
2. 练习交互式输入命令ACCEPT。
ACCEPT “请输入要打开的表文件名” TO BM
USE &BM
3. 练习交互式输入命令WAIT。
4. 练习格式化输入命令@…GET…READ，在学生表中追加一条空记录，用GET命令格式
化输入各个字段的值。 USE 学生表 APPE BLANK
@ 5, 8 SAY “请输入学号：” GET 学号 @ 6, 8 SAY “请输入姓名：” GET 姓名 @ 7, 8 SAY “请输入性别：” GET 性别 @ 8, 8 SAY “请输入班级：” GET 班级 @ 9, 8 SAY “请输入年龄：” GET 年龄
@ 10, 8 SAY “请输入出生日期：” GET 出生日期 @ 11, 8 SAY “请输入家庭住址：” GET 家庭住址 @ 12, 8 SAY “请输入特长：” GET 特长 READ
5. 练习格式化输出命令@…SAY…，在屏幕上输出学生表的第二条记录。 USE 学生表
GO 2
17
@ 5, 8 SAY 学号 @ 6, 8 SAY 姓名 @ 7, 8 SAY 性别 @ 8, 8 SAY 班级 @ 9, 8 SAY 年龄
@ 10, 8 SAY 出生日期 @ 11, 8 SAY 家庭住址 @ 12, 8 SAY 特长
6. 格式化输入输出的练习（建立程序：LX1.PRG）
A1=.F.
A2=SPACE(15) A3=1234 A4=DATE()
@2,10 SAY “输入逻辑”GET A1 @2,10 SAY “编辑字符”GET A2 @2,10 SAY “输入数据”GET A3 @2,10 SAY “编辑日期”GET A4 READ
实验小结：
18
实验八 分支程序设计
实验目的：
掌握结构化程序设计的分支结构程序设计。
实验准备:
1. 2. 3. 4.
阅读第6章中相关的内容；
准备好前面实验所创建的项目和表文件；
启动Visual FoxPro 6.0系统，设置默认的工作目录为F:\\个人文件夹名； 打开学生表、成绩表。
实验内容：
1. 设计简单分支程序。在学生表文件中查询“刘利军”的基本情况，如果找到，显示
信息。
2. 设计选择分支程序，在成绩表文件中查找学号为“20031102”的学生的第一门成绩，
若成绩大于60分，显示其学号、课程号、成绩；否则显示学号、课程号，并通知补考。
3. 输入两个数按从大到小输出。
input “第一个数：” to x input “第二个数：” to y if x 4. 设计一个简单的菜单，包括对学生表记录的追加、修改和删除的功能。 use 学生表 ?\ 增加记录\?\ 修改记录\?\ 删除记录\?\ 退出\ wait \请选择菜单项(1,2,3,4)\ to s do case case s=\ append case s=\ brow case s=\ 19