delphi、SQL制作图书管理系统.doc

  1. 1、本文档共28页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
delphi、SQL制作图书管理系统

南 京 理 工 大 学 课程设计说明书 作 者: 学 号: 学院(系): 专 业: 题 目: 图书管理系统 2012 年月 目录 一、概述 ·················································3 二、系统设计··············································4 三、系统实施··············································5 四、系统测试············································22 五、收获和体会 ···········································26 六、参考文献············································28 第一章 概述 1.1项目背景 随着学校规模的不断扩大,图书数量的急剧增加,有关图书的信息量也在不断成倍增长。面对庞大的信息量,就需要有图书管理系统来提高图书管理工作的效率。通过这样的系统,我们可以做到信息的规范管理和快速查询,从而减少了管理方面的工作量。传统手工的图书管理,管理过程繁琐而复杂,执行效率低,并且易于出错。通过这样的系统,我们可以做到信息的规范管理和快速查询,实现了图书管理的系统化、规范化和自动化,这样不仅减少了管理工作量,还提高了管理效率,降低了管理成本。 1.2 编写目的 传统手工的图书管理,管理过程繁琐而复杂,执行效率低,并且易于出错。通过这样的系统,我们可以做到信息的规范管理和快速查询,实现了图书管理的系统化、规范化和自动化,这样不仅减少了管理工作量,还提高了管理效率,降低了管理成本。 1.3 软件定义 随着科技的飞跃进步,对信息的管理也是越来越规范,越来越精确。不仅让信息合理规范的管理,同时也方便管理者方便的快速查询,提高了管理的效率。对图书信息进行图书入库、借阅登记、借阅查询、过期提示等这些日常业务的需要。高效性的通过系统的实用,能够改变旧的图书管理模式,使对图书的管理、借阅、查询更加方便有效。 第二章 系统设计 2.1 E-R图 E-R模型的“联系”用于刻画实体之间的关联。一种完整的方式是对局部结构中任意两个实体类型,依据需求分析的结果,考察局部结构中任意两个实体类型之间是否存在联系。若有联系,进一步确定是1:N,M:N,还是1:1等。还要考察一个实体类型内部是否存在联系,两个实体类型之间是否存在联系,多个实体类型之间是否存在联系,等等。根据上面的设计可以规划出的实体有:读者实体、图书实体、借书信息实体和合法用户实体集。 E-R图 2.2 实体集表 读者信息表 合法用户信息表 借阅信息表 图书信息表 第三章 系统实施 3.1 登录界面 管理员登录界面 确定按钮代码: procedure TLoginForm.Button1Click(Sender: TObject); var aname,apassword:string; begin begin aname:=trim(edit1.Text); apassword:=trim(edit2.Text); table1.Open; table1.SetKey; table1.Fields[0].AsString:=aname; if not table1.GotoKey then begin MessageDlg(您不是合法用户!,mtInformation,[mbOK],0); edit1.Text:= ; edit2.Text:= ; end else if not (table1.Fields[1].AsString=apassword )then begin MessageDlg(用户名或密码错误!,mtInformation,[mbOK],0); Table1.Close; edit1.Text:= ; edit2.Text:=; end else if not (table1.Fields[2].AsString=读者) then

文档评论(0)

xcs88858 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档