《数据库原理》实验指导书--最新版.docVIP

实验六 程序设计与小系统开发 实验目的 掌握SQL中的程序设计，了解VFP中面向对象程序设计的基本思想。 实验内容 1、顺序结构程序设计。 2、分支结构程序设计。 3、循环结构程序设计。 4、VFP中面向对象程序设计简介。 5、观看一个小系统实例。 6、设计一个图书管理系统。 实验环境 SQL环境。 实验过程 一、顺序结构程序设计 SQL中顺序结构程序包括的主要语句： * 定义变量(DECLARE等)语句； * 无结构的语句(对库, 表等操作的语句)； * 赋值语句(SET)； * SELECT语句； * BEGIN …… END语句; * WAITFOR语句; * PRINT语句; * RETURN语句; * 注释语句(/* …… */) 等. 例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; 运行程序有下面两种方式： * 菜单方式：查询(执行。 * 工具方式: 单击绿色的右三角。 执行后，显示结果： S=6。 二、分支结构程序设计 SQL中分支结构程序包括的主要语句： * IF 语句; * IF …… ELSE …… 语句； * CASE语句; * 以上语句的嵌套形式. 例6-2: 判断输入的一个数N是否为负数, 若是, 输出”N0”及该数. 说明: 本例是简单条件语句程序. SQL程序如下: /* 例6-2--SQL */ declare @n float; set @n=-8; if @n0 print n0: +str(@n); return; 执行后，显示结果： n0: -8。 例6-3: 判断输入的一个考试分数G是否及格（=60）, 若是, 输出”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-4--SQL */ declare @s real, @sf int; set @s=-18; if @s0 set @sf=-1; else if @s=0 set @sf=0; else set @sf=1; print s=+str(@s); print sf=+str(@sf); return; 执行后，显示结果： s= -18 sf= -1 例6-5: 生成一个管理系统的菜单，此处只显示菜单项对应的功能，到实际程序，只需换成执行具体的文件即可。 SQL程序如下: /* 例6-5--SQL */ declare @xm char(1); set @xm=1; print space(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 WHEN 1 THEN 执行输入记录程序... WHEN 2 THEN 执行修改表结构与修改记录程序... WHEN 3 THEN 执行查询程序... WHEN 4 THE