delphi、sql制作图书管理系统

《delphi、sql制作图书管理系统》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、南京理工大学课程设计说明书作者:学号：学院(系):专业:题目:图书管理系统2012年月目录一、概述·················································3二、系统设计··············································4三、系统实施··············································5四、系统测试··········································

2、··22五、收获和体会···········································26六、参考文献············································28第一章概述1.1项目背景随着学校规模的不断扩大，图书数量的急剧增加，有关图书的信息量也在不断成倍增长。面对庞大的信息量，就需要有图书管理系统来提高图书管理工作的效率。通过这样的系统，我们可以做到信息的规范管理和快速查询，从而减少了管理方面的工作量。传统手工的图书管理，管理过程繁琐而复杂，执

3、行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了图书管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。1.2编写目的传统手工的图书管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了图书管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。1.3软件定义随着科技的飞跃进步，对信息的管理也是越来越规范，越来越精确。不仅让信息合理规范的

4、管理，同时也方便管理者方便的快速查询，提高了管理的效率。对图书信息进行图书入库、借阅登记、借阅查询、过期提示等这些日常业务的需要。高效性的通过系统的实用，能够改变旧的图书管理模式，使对图书的管理、借阅、查询更加方便有效。第二章系统设计2.1E-R图E-R模型的“联系”用于刻画实体之间的关联。一种完整的方式是对局部结构中任意两个实体类型，依据需求分析的结果，考察局部结构中任意两个实体类型之间是否存在联系。若有联系，进一步确定是1:N，M:N，还是1:1等。还要考察一个实体类型内部是否存在联系，两个实体类

5、型之间是否存在联系，多个实体类型之间是否存在联系，等等。根据上面的设计可以规划出的实体有：读者实体、图书实体、借书信息实体和合法用户实体集。时间借阅信息Borrow书号编号Lend类别出版社姓名图书读者性别作者书名电话isa借出否定价合法用户级别密码E-R图2.2实体集表读者信息表合法用户信息表借阅信息表图书信息表第三章系统实施3.1登录界面管理员登录界面确定按钮代码：procedureTLoginForm.Button1Click(Sender:TObject);varaname,apassword

6、:string;beginbeginaname:=trim(edit1.Text);apassword:=trim(edit2.Text);table1.Open;table1.SetKey;table1.Fields[0].AsString:=aname;ifnottable1.GotoKeythenbeginMessageDlg('您不是合法用户！',mtInformation,[mbOK],0);edit1.Text:='';edit2.Text:='';endelseifnot(table1.

7、Fields[1].AsString=apassword)thenbeginMessageDlg('用户名或密码错误！',mtInformation,[mbOK],0);Table1.Close;edit1.Text:='';edit2.Text:='';endelseifnot(table1.Fields[2].AsString='读者')thenbegintable1.Close;SelectForm.Show;endelsebegintable1.Close;QueryForm1.Query1.

8、Close;QueryForm1.Query1.Open;QueryForm1.Show;endend;end;修改密码界面确认修改按钮代码：procedureTChangeForm.Button1Click(Sender:TObject);varmima,yh:string;beginif(edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')thenbeginShowMess