vb sql图书管理系统报告图书管理系统 本科论文.docVIP

vb sql图书管理系统报告图书管理系统 本科论文.doc

  1. 1、本文档共12页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb sql图书管理系统报告图书管理系统 本科论文

图书管理系统 一、需求分析 当今时代是飞速发展的的信息时代。在各行各业中离不开信息处理,这正是计算机被广泛应用于信息管理系统的原因。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制,不仅提高了工作效率,而且大大的提高了其安全性。尤其对于复杂的信息管理,计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关,系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。 针对各大中专院校的图书管理现状,设计出适合一般学校的计算机辅助图书管理系统。实现对图书基本信息、读者基本信息进行计算机辅助管理,完成借书和还书有关信息的记录、修改、查询、删除等一系列任务的计算机管理与实现。 图书管理系统方便、快捷,将传统的图书管理方式彻底的解脱出来,提高效率,减轻工人人员以往繁忙的工作,减小出错的概率,使读者可以花更多的时间在选择书和看书上。从而使人们有更多时间来获取信息、了解信息、掌握信息。 二、概念结构设计 三、逻辑结构设计 管理员 (用户名,密码) 读者类别(类别名称,最大借阅数,最长借阅时间) 读者信息(读者编号,姓名,性别,单位,地址,电话,类别名称,登记日期,已借阅数量) 图书类别(类别号,类别名) 图书信息(图书编号,图书名称,类别名,作者,出版日期,登记日期) 借阅信息(借阅编号,读者编号,读者姓名,图书编号,图书名称,借出日期,归还日期,是否超期) 四、数据库物理设计 1.管理员表Admin 图 4-1 Admin表 2.读者类别表RT 图 4-2 RT表 3.读者类别表RI 图 4-3 RI表 4.图书类别表BC 图 4-4 BC表 5.图书信息表BI 图 4-5 BI表 6.借阅信息表LI 图 4-6 LI表 五、数据库的实施 1、读者管理模块实施: 首先使用conn.ConnectionString字符串方法进行与SQL数据库的连接, 在窗体中用commmand控件,label控件和textbox控件画出程序模型,然后建立记录集查询,然后用rs_addreader.Fields绑定各个textbox输入框到数据库。使用rs_addreader.AddNew进行数据添加,使用rs_addreader.update进行数据修改更新,使用rs_addreader.delete进行数据删除。 2、借阅管理模块实施: 使用adodc控件实现程序与SQL数据库的连接,在窗体中用commmand控件,label控件和textbox控件画出程序模型,然后在窗体中添加datagrid控件,将其datasource设置成adodc1,在将其中的textbox的datasource属性也设置成adodc1,datafield设置成对应的数据项。然后用ado控件建立第二个数据连接adodc2,用来连接数据库中的读者信息表,实现对外表的查询,在需要添加读者借阅信息时,只需要添加读者号,读者姓名会自动出现在文本框中,具体实现方法,将读者姓名的text2绑定到数据源adodc2,并为读者号的text1添加一个textchange事件: Adodc2.CommandType = adCmdText Adodc2.RecordSource = select * from ri where ri_no= Text1.Text Adodc2.Refresh 借阅罚款功能的实现,当单击判断按钮时,自动用当前时间减去借阅时间,如果结果小于等于30,则弹出不超期提示,若结果大于30则将结果减去30再乘以0.1元,得出应缴罚款。具体判断是否超期的按钮代码为: Dim a As Date Dim w As Date a = Format(Now, YYYY-Mm-DD) w = Trim(Text5.Text) b = a - w If b 30 Then MsgBox 借阅已超期,请缴罚款 (b-30) * 0.1 元, vbOKOnly + vbExclamation, 警告 Else MsgBox 借阅还未超期。, vbOKOnly + vbExclamation, 提示 End If End Sub 六、系统运行结果 1、读者管理: 图6-1 读者管理菜单 图6-2 添加读者类别 图6-3 管理读者类别 图6-4 添加读者信息 图6-5 管理读者信息 图6-6 查询读者信息 2、借阅管理 图6-7 借阅管理 图6-8 管理借阅信息 图6-9 查询借阅

您可能关注的文档

文档评论(0)

店小二 + 关注
实名认证
文档贡献者

包含各种材料

1亿VIP精品文档

相关文档