数据库原理实验指导书最新版

1、实验六 程序设计与小系统开发实验目的 掌握SQL中的程序设计，了解VFP中面向对象程序设计的基本思想。实验内容 1、顺序结构程序设计。 2、分支结构程序设计。 3、循环结构程序设计。 4、VFP中面向对象程序设计简介。 5、观看一个小系统实例。 6、设计一个图书管理系统。实验环境 SQL环境。实验过程 一、顺序结构程序设计 SQL中顺序结构程序包括的主要语句： * 定义变量(DECLARE等)语句； * 无结构的语句(对库, 表等操作的语句)； * 赋值语句(SET)； * SELECT语句； * BEGIN END语句; * WAITFOR语句;* PRINT语句;* RETURN语句;*

2、注释语句(/* */) 等.例6-1: 由键盘输入一个三角形的三条边a,b,c, 编程计算该三角形的周长ZC与面积S。SQL程序如下：/* 例6-1-SQL */declare a float,b float,c float,zc float,bzc float,s float;select a=3,b=4,c=5;select zc=a+b+c,bzc=zc/2,s=sqrt(bzc*(bzc-a)*(bzc-b)*(bzc-c);print zc=+str(zc);print s=+str(s);return;运行程序有下面两种方式：* 菜单方式：查询à执行。* 工具方式: 单击

3、绿色的右三角。执行后，显示结果：S=6。二、分支结构程序设计SQL中分支结构程序包括的主要语句： * IF 语句;* IF ELSE 语句； * CASE语句;* 以上语句的嵌套形式.例6-2: 判断输入的一个数N是否为负数, 若是, 输出”N<0”及该数.说明: 本例是简单条件语句程序.SQL程序如下:/* 例6-2-SQL */declare n float;set n=-8;if n<0 print 'n<0: '+str(n);return;执行后，显示结果：n<0: -8。例6-3: 判断输入的一个考试分数G是否及格（>=60）, 若是,

4、 输出”GOOD!”及该分数, 否则, 输出” NOT PASS”及该分数.说明: 本例是复杂条件语句程序.SQL程序如下: /* 例6-3-SQL */declare g float;set g=88;if g>=60 print 'GOOD! '+str(G);else print 'Not pass .'return;执行后，显示结果：GOOD! 88。例6-4: 判断输入的一个数S的符号, 若该数是为负数, SF=-1; 若为0, SF=0; 若为正数, SF=1. 输出该数S及结果SF.说明: 本例是条件语句嵌套程序.SQL程序如下: /* 例6

5、-4-SQL */declare s real, sf int;set s=-18;if s<0 set sf=-1;else if s=0 set sf=0; else set sf=1;print 's='+str(s);print 'sf='+str(sf);return;执行后，显示结果：s= -18sf= -1例6-5: 生成一个管理系统的菜单，此处只显示菜单项对应的功能，到实际程序，只需换成执行具体的文件即可。SQL程序如下:/* 例6-5-SQL */declare xm char(1);set xm='1'print spa

6、ce(20)+'学生信息管理系统'PRINT ' 'print space(5)+'1. 输入'+SPACE(30)+'2. 修改'print space(5)+'3. 查询'+SPACE(30)+'4. 统计'print space(5)+'5. 打印'+SPACE(30)+'0. 退出'PRINT ' 'PRINT SPACE(20)+'请选择项目(0-5): 'PRINT ' 'print (CASE xm WHE

7、N '1' THEN '执行输入记录程序.' WHEN '2' THEN '执行修改表结构与修改记录程序.' WHEN '3' THEN '执行查询程序.' WHEN '4' THEN '执行统计分析程序.' WHEN '5' THEN '执行打印程序.' WHEN '0' THEN '本程序运行结束, 再见!' ELSE '选择有错误, 请重新选择!' END);PRINT '

8、'return;执行后，显示结果： 学生信息管理系统 1. 输入 2. 修改 3. 查询 4. 统计 5. 打印 0. 退出 请选择项目(0-5): 执行输入记录程序. 三、循环结构程序设计例6-6: 求S1=1+2+3+1000SQL程序：/* 例6-6-SQL */declare k int,s1 int;set k=1;set s1=0;while (k<=1000) begin set s1=s1+k; set k=k+1; end;print 's1='+str(s1);return;执行后，显示结果：s1= 500500例6-7: 求P1=1*2*3*

9、20SQL程序：/* 例6-7-SQL */declare k int,p1 decimal (30,0);set k=1;set p1=1;while (k<=20) begin set p1=p1*k; set k=k+1; end;print '20!:'print p1;return;执行后，显示结果：20!:2432902008176640000例6-8: 对学生表, 逐条显示数学系的男同学的记录.SQL程序：/* 例6-8-SQL */select * from student where Ssex='女' and Sdept='ma&

10、#39;return;例6-9: 对例6-5加上循环与控制语句, 形成完整的菜单程序.SQL程序：/* 例6-9-SQL */declare xm char(1);while (1>0) begin set xm='0' print ' ' print space(20)+'学生信息管理系统' PRINT ' ' print space(5)+'1. 输入'+SPACE(30)+'2. 修改' print space(5)+'3. 查询'+SPACE(30)+'4. 统

11、计' print space(5)+'5. 打印'+SPACE(30)+'0. 退出' PRINT ' ' PRINT SPACE(20)+'请选择项目(0-5): ' PRINT ' ' print (CASE xm WHEN '1' THEN '执行输入记录程序.' WHEN '2' THEN '执行修改表结构与修改记录程序.' WHEN '3' THEN '执行查询程序.' WHEN '4'

12、 THEN '执行统计分析程序.' WHEN '5' THEN '执行打印程序.' WHEN '0' THEN ' 本程序运行结束, 再见!' ELSE '选择有错误, 请重新选择!' END); PRINT ' ' if xm='0' break; else continue; end;return;执行后，显示结果： 学生信息管理系统 1. 输入 2. 修改 3. 查询 4. 统计 5. 打印 0. 退出 请选择项目(0-5): 本程序运行结束, 再见!图6-4四

13、、设计一个图书馆数据库系统 1、数据表 本数据库中包括三个数据表： 读者表（读者号，姓名，地址，性别，年龄，单位）； 图书表（书号，书名，作者，出版社）； 借阅表（读者号，书号，借出日期，应还日期）。 2、要求 （1）画出E-R图； （2）转换成关系模型；注：码用下划线表示1.读者（读者号，姓名，地址，性别，年龄，单位）2.图书（书号，书名，作者，出版社）读者与图书两个实体之间的联系“借阅”是一个1：N的联系，因此，根据E-R图向关系模型转换的原则，将读者与图书这两个实体的码“读者号”、“书号”加上“借阅”联系的属性构成借阅关系，并且“读者号”、“书名”不能取空值。关系模式如下：3.借阅（读者

14、号，书号，借出日期，应还日期） （3）在SQL-SERVER中建立数据库及三个数据表；为了实现系统功能,本系统设立了一个数据库共有三个数据库表，它们分别是：图书档案数据库表，读者档案数据库表，借书记录数据库表。1、图书档案数据库表结构如下：字段 字段名 类型 宽度 1 图书编号 字符型 6 2 书名 字符型 20 3 作者 字符型 10 4 单价 字符型 6 5 出版社 字符型 20数据库语句：CREATE TABLE tb_Book(ID nvarchar(6) primary key,BookName nvarchar(20),Author nvarchar(10),Price nvarc

15、har(6),PublicCompany nvarchar(20)2、读者档案数据库表结构如下： 字段 字段名 类型 宽度 1 借书证号 字符型 8 2 姓名 字符型 10 3 性别 字符型 2 4 专业 字符型 10 5 班级 字符型 10 数据库语句：CREATE TABLE tb_Reader(ID nvarchar(8) primary key,SName nvarchar(10),Ssex nvarchar(2),Dept nvarchar(10),Class nvarchar(10)3、借书记录数据库表借物如下： 字段 字段名 类型 宽度 1 借书证号 字符型 8 2 图书编号 字

16、符型、 6 3 借书日期 日期型 8 4 还书日期 日期型 8 数据库语句：CREATE TABLE tb_Borrow(StudentID nvarchar(8),BookID nvarchar(6),BorrowDate datetime,ReturnDate datetime,primary key (StudentID,BookID),foreign key (StudentID) references tb_Reader(ID),foreign key (BookID) references tb_Book(ID) （4）编写出几个主要模块的程序（如输入、查询、输出等）。模拟输入：declare a nvarchar(8),b nvarchar(10),c nvarchar(2),d nvarchar(10),e n