第1组实验题

　　上机步骤和操作说明

　　（1）Windows NT用户注册，用户名为个人账号，口令栏直接按回车。

　　（2）进入Visual FoxPro（VFP）系统环境，中途不要退出。

　　（3）在VFP命令窗口中键入以下两条命令：

　　SET DEFAULT TO Z：\<目录名>   （目录名即你的账号，目录已建好）

　　SET SAFETY OFF

　　第一条命令的目的是设置你的缺省工作目录，这样，操作命令中就不要再带路径名。

　　（4）按题目要求创建数据库，录入数据，编写程序。

　　（5）在程序编辑器窗口录入、修改程序，编辑完毕，保存后再执行。

　　（6）第3题和第4题的各小题，都要分别保存为一个程序文件。文件名要用“账号+题号”命名，例如：C100_3，表示是C100账户的第3题的程序。C108_4_2表示是C108账户的第4题的第（2）小题的程序。

　　（7）做题次序不限，实现方法不限。题目中所谓的“表”即指“数据库文件”。为减少录入的负担，表名、字段名、变量名等尽量不要用汉字，可用英文或汉语拼音。

　　现有关于图书借阅管理数据库的模式如下：

　　图书（书号，书名，作者，单价，数量）

　　读者（读者号，姓名，年龄，部门）

　　借阅（书号，读者号，借书日期，还书标记）

　　读者与图书是多对多联系。同一种图书同日只能借一次、一本。

　　要求完成如下操作：

　　1.按题目要求建立表结构，各表各个字段的名字、数据类型、长度等根据语义和查询的需要自行决定。根据查询需要建立索引。（15分）

　　2.利用你所熟悉的方法向各表录入适量的、满足题目需要的数据。各数据项的取值范围应该合理、有效，并与查询要求相呼应。（10分）

　　3.编写一个供图书登记入库的录入程序。要求在登记一种图书后屏幕询问：“继续录入吗？”，根据用户回答决定程序流程。要求不退出本程序能继续进行录入操作。（20分）

　　4.用FoxPro语言或SQL语言编写程序完成以下查询。以下三题依次为15分、20分、20分。

　　（1）列出全部图书目录，包括书号、书名、作者、单价，且在更后一行显示：

　　图书的平均单价为 xxxx元。

　　（2）列出读者所借阅过的图书的书号、书名，重复的书只允许出现一次。

　　（3）列出借书逾期（超过30天）未还者的读者清单，内容包括读者号、姓名和书号。

　　第1组实验题

　　现有关于图书借阅管理数据库的模式如下：

　　图书（书号，书名，作者，单价，数量）

　　读者（读者号，姓名，年龄，部门）

　　借阅（书号，读者号，借书日期，还书标记）

　　读者与图书是多对多联系。同一种图书同日只能借一次、一本。

　　要求完成如下操作：

　　1.按题目要求建立表结构，各表各个字段的名字、数据类型、长度等根据语义和查询的需要自行决定。根据查询需要建立索引。（15分）

　　答：见第1组实验题答案文件夹。

　　2.利用你所熟悉的方法向各表录入适量的、满足题目需要的数据。各数据项的取值范围应该合理、有效，并与查询要求相呼应。（10分）

　　答：见第1组实验题答案文件夹。

　　3.编写一个供图书登记入库的录入程序。要求在登记一种图书后屏幕询问：“继续录入吗？”，根据用户回答决定程序流程。要求不退出本程序能继续进行录入操作。（20分）

　　答：程序清单如下

　　set talk off

　　clear

　　use 第1组实验题答案文件夹\tushu

　　define window w1 from 5，5 to 25，75 system title “图书登记录入窗口”；

　　close float grow zoom minimize

　　define window w2 from 10，10 to 15，50 in window w1 system title “对话窗口”；

　　close float grow zoom minimize

　　dimension a（5）

　　action=.t.

　　answer=.t.

　　do while action

　　scatter to a blank

　　activate window w1

　　do while .t.

　　clear

　　@ 1，5 say “书号：” get a（1）

　　@ 1，35 say “书名：” get a（2）

　　@ 3，5 say “作者：” get a（3）

　　@ 3，35 say “单价：” get a（4）

　　@ 5，5 say “数量：” get a（5）

　　read

　　activate window w2

　　@ 1，5 say “输入正确吗？[Y/N]” get answer picture “L”

　　read

　　if answer

　　append blank

　　gather from a

　　exit

　　else

　　deactivate window w2

　　loop

　　endif

　　enddo

　　@ 1，5 say “还继续录入吗？[Y/N]” get action picture “L”

　　read

　　deactivate window w2

　　enddo

　　use

　　deactivate window w1，w2

　　return

　　4.用FoxPro语言或SQL语言编写程序完成以下查询。以下三题依次为15分、20分、20分。

　　（1）列出全部图书目录，包括书号、书名、作者、单价，且在更后一行显示：

　　图书的平均单价为 xxxx元。

　　答：程序清单如下

　　set talk off

　　clear

　　use 第1组实验题答案文件夹\tushu

　　list off fields 书号，书名，作者，单价

　　average 单价 to ave

　　？ “     图书的平均单价为”+str（ave，6，2）+“元”

　　use

　　set talk on

　　return

　　（2）列出读者所借阅过的图书的书号、书名，重复的书只允许出现一次。

　　答：程序清单如下

　　set talk off

　　clear

　　select 2

　　use 第1组实验题答案文件夹\tushu index 第1组实验题答案文件夹\tushu1

　　select 1

　　use 第1组实验题答案文件夹\jieyu

　　index on 书号 to 第1组实验题答案文件夹\jieyu0 unique

　　set relation to 书号 into B

　　list off fields 书号，b.书名，b.作者，b.单价

　　close databases

　　set talk on

　　return

　　（3）列出借书逾期（超过30天）未还者的读者清单，内容包括读者号、姓名和书号。

　　答：程序清单如下

　　set talk off

　　clear

　　select 2

　　use 第1组实验题答案文件夹\duzhe index 第1组实验题答案文件夹\duzhe1

　　select 1

　　use 第1组实验题答案文件夹\jieyu index 第1组实验题答案文件夹\jieyu2

　　set relation to 读者号 into B

　　list off fields 读者号，b.姓名，书号 for （date（）-借书日期-36525）>30 and （not 还书标记）

　　close databases

　　set talk on

　　return

　　第2组实验题

　　上机步骤和操作说明

　　（1）Windows NT用户注册，用户名为个人账号，口令栏直接按回车。

　　（2）进入Visual FoxPro（VFP）系统环境，中途不要退出。

　　（3）在VFP命令窗口中键入以下两条命令：

　　SET DEFAULT TO Z：\<目录名>   （目录名即你的账号，目录已建好）

　　SET SAFETY OFF

　　第一条命令的目的是设置你的缺省工作目录，这样，操作命令中就不要再带路径名。

　　（4）按题目要求创建数据库，录入数据，编写程序。

　　（5）在程序编辑器窗口录入、修改程序，编辑完毕，保存后再执行。

　　（6）第3题和第4题的各小题，都要分别保存为一个程序文件。文件名要用“账号+题号”命名，例如：C100_3，表示是C100账户的第3题的程序。C108_4_2表示是C108账户的第4题的第（2）小题的程序。

　　（7）做题次序不限，实现方法不限。题目中所谓的“表”即指“数据库文件”。为减少录入的负担，表名、字段名、变量名等尽量不要用汉字，可用英文或汉语拼音。

　　现有关于仓库管理数据库的模式如下：

　　仓库（仓库号，面积，地址，管理员）

　　货物（货号，货物名，单价，重量）

　　存放（仓库号，货物号，数量）

　　仓库与货物是多对多联系。一个仓库只设一名管理员。

　　要求完成如下操作：

　　1.按题目要求建立表结构，各表各个字段的名字、数据类型、长度等根据语义和查询的需要自行决定。根据查询需要建立索引。               （15分）

　　2.利用你所熟悉的方法向各表录入适量的、满足题目需要的数据。各数据项的取值范围应该合理、有效，并与查询要求相呼应。               （10分）

　　3.编写一个菜单程序。水平菜单项为：录入、删除、修改、查询。要求选择前三个菜单项后分别执行程序p_insert.prg、p_delete.prg和p_update.prg；选择查询菜单项后弹出下级菜单，其菜单项为：顺序查询、索引查询。             （20分）

　　4.用FoxPro语言或SQL语言编写程序完成以下查询。（以下三题依次为15分、20分、20分）

　　（1）列出仓库清单，要包含所有仓库的所有属性，且在更后一行显示：

　　所有仓库的总面积为 xxxxx平方米。

　　（2）列出各个仓库的库存情况清单，包括的数据项为仓库号、货号、货物名、（每种）货物的总价。重量小于50千克的货物不在其内。以仓库号为第一序、货物号为第二序，升序排列。

　　（3）列出每个仓库的仓库号，以及每个仓库单位面积内所承受的平均重量，并按平均承重值从大到小排序。