[工学]图书管理系统

1、数据库技术与应用大作业题目：数据库应用系统的设计和实现指导老师： 班级： 姓名： 学号： 中南大学信息科学与工程学院2009年12月 目 录1.需求说明 22.数据库结构设计2 2.1 概念结构设计 .2 2.2 逻辑结构设计 42.2.1关系模型 42.2.2系统总体结构 .42.2.3 表的建立.52.2.4规则的建立与绑定.102.2.5默认的建立与绑定102.2.6报表的设计（视图的设计）.113.数据库行为功能设计和delphi对界面的实现153.1安全控制.153.2数据操作.163.3存储过程设计.223.4触发器设计.24附1 delphi实现相关功能的代码.24附2：参考文献

2、.36图书管理系统的设计和实现1 需求说明为满足图书管理发展的需要，提高竞争能力，开发一个界面友好，易于操作的图书管理系统进行自动化处理变得十分重要。现在要求设计一个图书管理系统来提高图书馆管理水平和工作效率。根据图书馆的日常需要，确定系统要实现六个基本功能：图书资料管理、学生资料管理、新增信息操作、删除信息操作、修改信息和查询处理。同时该系统具有强大的查询功能和可靠性。同时了解到图书馆的使用人员：（1）系统管理员：维护整个系统的正常运行、及时更新系统，给每个新用户建立读者信息，给每个注销用户删除相应的读者信息；（2）图书管理员：负责管理图书和给学生办理借书、还书；（3）学生：需要借书、还书的

3、一些用户。该系统的具体要求：（1）一个图书管理员管理所有图书和所有学生的业务；（2）一本图书可以由多个图书管理员管理和多个同学借阅；（3）一个学生可以借多本图书。数据库中要记录学生的借书情况、图书的借还的情况以及读者、图书管理员、图书的基本情况。除了对这些数据进行正常的维护之外，还需要产生一些报表，如学生借书表，内容包括学号、姓名、图书编号、图书名。2 数据库结构设计2.1 概念结构设计对于这个图书管理系统，其核心活动是图书，学生与图书之间是通过读者借书发生联系的，图书管理员与图书之间是通过图书管理员管理图书发生联系的，因此，此系统所包含的实体有：（1）图书：用于描述一本图书的基本信息，用图书

4、编号来标识此实体；（2）学生：用于描述一个学生的基本信息，由学号来标识；（3）图书管理员：用于描述一个图书管理员的基本信息，由管理帐号来标识；其初步e-r图如下：学生借书管理图书管理员图书mnmn实体的属性比较多，在画e-r图时，不一定要把所有的实体属性都画在e-r图上，可以另外用文字说明，如：经过初步分析，可知此系统中各实体所包含的基本属性为：图书：图书编号、图书名、出版社、编者；学生：学号、姓名、性别、系、专业、班级；图书管理员：管理帐号、管理员姓名、工作时间。2.2 逻辑结构设计22.1关系模型有了基本e-r图后，就可以进行逻辑结构设计了，也就是设计基本的关系模型。设计基本关系模式主要是

5、从e-r图出发，将其直接转换为关系模式。根据转换规则，这个e-r图转换的关系模式为：图书（图书编号、图书名、出版社、编者、是否在馆），主码为图书编号；学生（学号、姓名、性别、年龄、系、专业、班级），主码为学号；图书管理员(管理帐号、管理员姓名、工作时间)，主码为管理帐号；借书（学号、姓名、图书编号、图书名、借书时间、还书时间、是否归还），主码为（学号、图书编号）；管理（图书编号 、图书名、管理帐号、管理员姓名），主码为（图书编号、管理帐号）。2.2.2系统总体结构 2.2.3 表的建立在设计好了关系模式并确定好了每个关系模式的主码后，再看一下这些关系模式之间的关联关系，即确定关系模式的外码，可

6、通过e-r图中联系实体发现：借书关系中，学号和图书编号是外码，分别引用学生关系中的学号和课程关系中的图书编号；管理关系中，管理帐号、图书编号是外码，分别引用图书管理员关系中的管理帐号和图书关系中的图书编号；最后，确定表中各属性的详细信息，包括数据类型和长度等，代码如下：（1） 图书表：create table 图书表( 图书编号 char(20) not null primary key, 图书名 char(20), 编者 char(9),出版社 char(20),是否在馆 char(2)（2） 学生表： create table 学生表( 学号 int not null primary ke

7、y, 姓名 char(9), 性别 char(2) default 男, 年龄 int, 系 char(20), 专业 char(20), 班级 char(10)（3） 图书管理员表：create table 图书管理员表( 管理帐号 int not null primary key, 管理员姓名 char(9),工作时间 char(10)（4） 借书表：create table 借书表( 学号 int not null, 姓名 char(9), 图书编号 char(20) not null, 图书名 char(20), 借书时间 char(10), 还书时间 char(10),是否归还 ch

8、ar(2)（5） 管理表：create table 管理表( 图书编号 char(20) not null, 图书名 char(20),管理帐号 int not null,管理员姓名 char(9) ) 为表添加记录（1）图书表：insert 图书表 (图书编号,图书名,出版社,编者,是否在馆)values (tp311.56,delphi促销存程序设计,清华大学出版社,陈惟彬,是)insert 图书表 (图书编号,图书名,出版社,编者,是否在馆)values (73.964,delphi程序设计入门,人民邮电出版社,devra hall,是)insert 图书表 (图书编号,图书名,出版社,

9、编者,是否在馆)values (i211.56,朝花夕拾,人民文学出版社,鲁迅,否)insert 图书表 (图书编号,图书名,出版社,编者,是否在馆)values (i211.34,围城,人民文学出版社,钱钟书,是)insert 图书表 (图书编号,图书名,出版社,编者,是否在馆)values (i213.12,梦里花落知多少,作家出版社,三毛,是)insert 图书表 (图书编号,图书名,出版社,编者,是否在馆)values (i213.13,雨季不再来,作家出版社,三毛,是)insert 图书表(图书编号,图书名,出版社,编者,是否在馆)values (i213.14,撒哈拉的故事,作家出

10、版社,三毛,否)insert 图书表(图书编号,图书名,出版社,编者,是否在馆)values (tp311.56dbj2,delphi编程技巧,中国电力出版社,裴红义,是)insert 图书表(图书编号,图书名,出版社,编者,是否在馆)values (tp311.13,数据库技术,清华大学出版社,岳昆,是)insert 图书表(图书编号,图书名,出版社,编者,是否在馆)values (v205.16,山水课徒稿,人民艺术出版社,王庆淮,是)（2）学生表：insert 学生表(学号,姓名,性别,年龄,系,专业,班级)values(090908332,王若瑶,女,19,信息科学与工程学院,控制类,

11、0833)insert 学生表(学号,姓名,性别,年龄,系,专业,班级)values(200107305,李天奇, 男,21,计算机科学与技术系,计算机应用技术,0701)insert 学生表(学号,姓名,性别,年龄,系,专业,班级)values(200205064,姚冰冰, 女,20,工商管理学院,会计学,0812)insert 学生表(学号,姓名,性别,年龄,系,专业,班级)values(200303102,刘进, 男,18,化学科学与工程学院,环境工程,0923)（3）图书管理员表：insert 图书管理员表(管理帐号,管理员姓名,工作时间)values(135894,刘惟一,周一至周三

12、)insert 图书管理员表(管理帐号,管理员姓名,工作时间)values(135763,王冰飞,周四至周天)（4）借书表：insert 借书表(学号,姓名,图书编号,图书名,借书时间,还书时间,是否归还)values(090908332,王若瑶,tp311.56,delphi促销存程序设计,2009-09-03,2009-12-03,是)insert 借书表(学号,姓名,图书编号,图书名,借书时间,还书时间,是否归还)values(200107305,李天奇,73.964,delphi程序设计入门,2009-09-16,2009-12-16,是)insert 借书表(学号,姓名,图书编号,图

13、书名,借书时间,还书时间,是否归还)values(090908332,王若瑶, v205.16,山水课徒稿,2009-09-03,2009-12-03,是)insert 借书表(学号,姓名,图书编号,图书名,借书时间,还书时间,是否归还)values(200205064,姚冰冰,i211.56,朝花夕拾,2009-11-03,2010-02-03,否)insert 借书表(学号,姓名,图书编号,图书名,借书时间,还书时间,是否归还)values(200303102,刘进,i213.14,撒哈拉的故事,2009-12-23,2008-03-23,否)（5）管理表：insert 管理表(图书编号,

14、图书名,管理帐号,管理员姓名)values(tp311.56,delphi促销存程序设计,135894,刘惟一)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values(73.964,delphi程序设计入门,135894,刘惟一)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i211.56,朝花夕拾,135894,刘惟一)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i211.34,围城,135894,刘惟一)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i213.12,梦里花落

15、知多少,135894,刘惟一) insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i213.13,雨季不再来,135894,刘惟一)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i213.14,撒哈拉的故事,135894,刘惟一)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (tp311.56dbj2,delphi编程技巧,135894,刘惟一)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (tp311.13,数据库技术,135894,刘惟一)insert 管理表(图书编号,

16、图书名,管理帐号,管理员姓名)values (v205.16,山水课徒稿,135894,刘惟一)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values(tp311.56,delphi促销存程序设计,135763,王冰飞)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values(73.964,delphi程序设计入门,135763,王冰飞)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i211.56,朝花夕拾,135763,王冰飞)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i211.34,围

17、城,135763,王冰飞)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i213.12,梦里花落知多少,135763,王冰飞)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i213.13,雨季不再来,135763,王冰飞)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (i213.14,撒哈拉的故事,135763,王冰飞)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (tp311.56dbj2,delphi编程技巧,135763,王冰飞)insert 管理表(图书编号,图书

18、名,管理帐号,管理员姓名)values (tp311.13,数据库技术,135763,王冰飞)insert 管理表(图书编号,图书名,管理帐号,管理员姓名)values (v205.16,山水课徒稿,135763,王冰飞)在sql server2000中建立上述表。将上述代码复制，在查询分析器中粘贴，点击运行，即可生成所需的表。表和表之间的约束关系，见代码中主码、外码的确立。2.2.4规则的建立与绑定规则：规则的绑定：2.2.5默认的建立与绑定默认：默认的绑定：2.2.6报表的设计（视图的设计）有了数据库的基本表之后，应该看一下这些基本表能否满足产生报表的需求。如：图书管理表管理（图书编号 、

19、图书名、管理帐号、管理员姓名）图书编号和图书名，可由图书表得到；管理帐号和管理员姓名可由图书管理员表得到，因此，可以满足图书管理表的要求，可以通过定义视图实现。使用sql语句创建视图，代码：create view view1 as select 学生表.学号,学生表.姓名,借书表.图书编号,借书表.学号 from 学生表,借书表 where 学生表.学号=借书表.学号视图的实现快速创建报表（1）在delphi中选择“file”“new” “other”选项，从中弹出的new items对话框中选择business页面，然后选择ruicklreport wizard，如图1所示。（2）在图2中单

20、击“ok”，弹出图3，单击“start wizard”按钮将左边的选项都添加到右边去，点击“finish”按钮。（3）然后在表弹出的表中右击运行，即可生成报表。 图1 图2 图3 图43 数据库行为功能设计和delphi对界面的实现3.1 安全控制任何数据库应用系统都需要安全控制功能，图书管理系统用户分为如下几类：（1）系统管理员：有系统的全部权限，可以新增、删除、修改等权限。（2）图书管理员：具有对学生的借书情况的维护权，对图书的管理权；（3）读者：具有对个人信息和借书情况的查询权。下图为系统的基本逻辑:现在来简单介绍一下此图书管理系统form1是欢迎界面form2是登录界面，在次界面读者，

21、图书管理员和系统管理员分别进入自己的界面，行使各自的权限。3.2 数据操作数据操作功能包括对这些数据进行录入、删除、修改功能。（1）数据查询只有具有相应权限的用户才能查询相应表中的数据。次系统中读者、图书管理员和系统管理员都有查询功能，但相应的查询信息还是有权限的。读者进入系统后，只能查询信息，可以查询个人信息也可以查询自己借书的情况。如下图借书情况的查询（2）数据删除只有具有相应权限的用户才能删除相应表中的数据。图书管理员可以对图书管理，进行查询、删除、图书录入的功能。如图图书查询时，可以分图书编号、图书名和出版社来查图书信息，如图（3）数据新增图书管理员新增图书（4）数据修改只有具有相应权

22、限的用户才能修改相应表中的数据。只有系统管理员才能新增读者的相关信息，对整个系统进行维护。如图新增信息后查询系统管理员可以删除学生的信息修改读者的信息修改成功系统管理员可以新增、修改和删除图书管理员和图书的信息，对系统进行维护，这儿就不在列举了。3.3存储过程设计存储过程的代码：create procedure add_return 学号 char(9) asdeclare total_num int,图书编号 char(20) select total_num = count(*) from 学生表 where 学号 = 学号if (total_num = 0) print该学生不存在！el

23、se begin declare tushu_cursor cursor for select 图书编号 from 图书表 open tushu_cursor fetch next from tushu_cursor into 图书编号 while fetch_status = 0 begin select total_num = count(*) from 借书表 where 学号=学号 and 图书编号=图书编号 if (total_num 0) begin fetch next from tushu_cursor into 图书编号 continue end else begin ins

24、ert into 借书表(学号,图书编号,是否归还) values (学号,图书编号,1*rand() fetch next from tushu_cursor into 图书编号 end end close tushu_cursor deallocate tushu_cursor endgo3.4 触发器设计 触发器的代码： create trigger trig_sample on 学生表 for insert as select * from 学生表附1：delphi实现相关功能的代码form1的代码：var form1: tform1;implementation uses unit2

25、;$r *.dfmprocedure tform1.button1click(sender: tobject);begin form1.hide; form2.show; /界面与界面之间联系起来end;end.form2的代码：var form2: tform2;implementation uses unit1,unit3,unit4,unit5;$r *.dfmprocedure tform2.btn1click(sender: tobject);begin if edt2.text=edt1.text then begin form3.show; form2.hide; end els

26、e showmessage(用户名或密码错误) /读者界面登录end;procedure tform2.btn2click(sender: tobject);begin if edt3.text=edt4.text then begin form4.show; form2.hide; end else showmessage(用户名或密码错误) /图书馆里员界面end;procedure tform2.btn3click(sender: tobject);begin if edt5.text=edt6.text then begin form5.show; form2.hide; end el

27、se showmessage(用户名或密码错误) /系统管理员界面end;procedure tform2.btn4click(sender: tobject);begin form1.show; form2.close;end;end.form3的代码：var form3: tform3;implementation uses unit2;$r *.dfmprocedure tform3.button1click(sender: tobject);var str:string;begin str:=form2.edt1.text; with adoquery1 do begin close;

28、 sql.clear; sql.add( select * from 学生表 where 学号=+str); open; end; /学生个人信息 查询end;procedure tform3.button2click(sender: tobject);var str1:string;begin str1:=form2.edt1.text; with adoquery1 do begin close; sql.clear; sql.add( select * from 借书表 where 学号=+str1); open; end; /学生借书查询end;procedure tform3.but

29、ton3click(sender: tobject);begin form3.close; form2.show;end; /退出end.form7的代码：var form7: tform7;implementation uses unit6;$r *.dfmprocedure tform7.button1click(sender: tobject);begin with adoquery1 do begin close; sql.clear; sql.add(select * from 图书表 where +combobox1.itemscombobox1.itemindex+=+edit1

30、.text+); open; end;end;procedure tform7.button2click(sender: tobject);begin form7.close;form6.show;end;end.form8的代码：var form8: tform8;implementation uses unit6;$r *.dfmprocedure tform8.button1click(sender: tobject);begin with adoquery1 do begin close; sql.clear; sql.add(insert into 图书表 values(:图书编号,

31、:图书名,:编者,:出版社,:是否在馆); parameters.parambyname(图书编号).value:=trim(edit1.text); parameters.parambyname(图书名).value:=trim(edit2.text);parameters.parambyname(编者).value:=trim(edit3.text);parameters.parambyname(出版社).value:=trim(edit4.text);parameters.parambyname(是否在馆).value:=trim(edit5.text); execsql; showme

32、ssage(插入成功); 新增 end;end;procedure tform8.button2click(sender: tobject);var str:string;begin str:=edit2.text; with adoquery1 do begin close; sql.clear; sql.add( select * from 图书表 where 图书名=+str); open; end;end;procedure tform8.button3click(sender: tobject);begin form8.close;form6.show;end;end. form12

33、的代码var form12: tform12;implementation uses unit10;$r *.dfmprocedure tform12.button1click(sender: tobject); var str,str1:string;begin str:=edit1.text; str1:=edit2.text; with adoquery1 do begin close; sql.clear; sql.add(update 学生表 set +combobox1.itemscombobox1.itemindex+=+str1+ where 学号=+str); execsql; showmessage(修改成功); 修改 end;end;procedure tform12.button2click(sender: tobject);begin form12.close; form10.show;end;end.form14的代码：var form14: tform14;implementation uses unit5,unit15;$r *.dfmprocedure tform14.button1click(sender: tobject);be