数据库课程设计(图书馆管理系统)教材.docVIP

数据库课程设计(图书馆管理系统)教材.doc

  1. 1、本文档共16页,可阅读全部内容。
  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文档。上传文档
查看更多
系统分析 系统开发总的设计目标是实现图书管理的系统化、规范化和自动化,实现对图书资料的集中统一的管理。本系统主要实现对图书馆信息的管理,主要功能为管理有关读者,书籍,借阅和管理者的信息等。本系统结构分为学生信息管理模块,图书信息管理模块,借阅信息管理模块,管理者信息管理模块。学生信息管理部分有三个方面的功能,可以浏览读者的信息,可以对读者信息进行维护。图书信息管理可以浏览书籍的信息,可以对书籍信息进行维护。借阅信息管理可以显示当前数据库中书籍借阅情况,可以对借阅信息进行维护。管理者信息管理可以显示数据库中管理者的情况,可以对管理者信息进行维护。可见,本系统并不复杂,主要解决的问题是利用关键字对数据库进行查询。 1、需求分析: 随着图书馆规模的不断扩大,图书数量也相应的增加,有关图书的各种信息量也成倍增加,面对着庞大的信息量,传统的人工方式管理会导致图书馆管理上的混乱,人力与物力过多浪费,图书馆管理费用的增加,从而使图书馆的负担过重,影响整个图书馆的运作和控制管理,因此,必须制定一套合理、有效,规范和实用的图书管理系统,对图书资料进行集中统一的管理。图书管理工作面对大量的可模块化处理的信息,是当今信息革命的一个重要阵地。我们小组开发图书管理信息系统就是采用现代化的信息管理方式代替手工管理方式,提高图书管理工作效率,作到信息的规范管理,科学统计和快速查询,让图书馆更好的为学校,社会服务。 管理员信息系统结构图如下: 借书卡管理系统结构图如下: c.借/还书系统与库存管理系统结构图如下: d.E-R图 三、个人负责部分 1、标准模块标准模块是应用程序内其它模块访问的过程和声明的容器。它们可以包含变量、常数、类型、外部过程和全局过程的全局(在整个应用程序范围内有效的)声明或模块级声明。 Modele1 定义全局常量 Public Const ConnectString As String = DSN=Lib;UID=sa;PWD=sa 数据源:lib 用户名:sa 密码:sa 初始化系统登录界面 Sub Main() 系统开始,首先进入登录界面 Dim fLogin As New FrmLogin 定义登录窗口对象 fLogin.Show vbModal 显示模态窗体 If Not fLogin.OK Then Login Failed so exit app End End If Unload fLogin 用户身份验证成功后,进入主界面 FrmMain.Show End Sub 该模块实现初始化登录界面,调用FrmLogin登录窗口,在验证成够后返回fLogin.OK的值为true,调用FrmMain窗口,进入主界面。定义全局常量:数据源:lib 用户名:sa 密码:sa 2、类模块 在 Visual Basic 中类模块是面向对象编程的基础。可在类模块中编写代码建立新对象。这些新对象可以包含自定义的属性和方法。实际上,窗体正是这样一种类模块,在其上可安放控件、可显示窗体窗口。BookDate Public Function getDate() As String Dim nowDate As Date Dim tday As Integer Dim tmonth As Integer Dim tyear As Integer Dim tmpDate As String nowDate = Date tday = Day(nowDate) tmonth = Month(nowDate) tyear = Year(nowDate) tmpDate = CStr(tday)+ / + CStr(tmonth) + / + CStr(tyear) getDate = tmpDate End Function 调用getDate()函数可以获得时间:年/月/日/ BuildComboList Public Function getList(ByVal sql As String, Combo As ComboBox) As ComboBox Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset 建立连接 myDbOper.DB_Connect Set rst = myDbOper.querySQL(sql) If Not rst.EOF Then With rst Do While Not .EOF

文档评论(0)

美洲行 + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档