数据库课程设计-图书管理系统

1 信息科学与工程学院2 班级：电气T1501 指导老师：韩华 3 .绪论------------------------------------------------------------42.需求分析--------------------------------------------------------5----------------------53.概念设计阶段----------------------------------------------------4 4.逻辑结构设计阶段------------------------------------------------6--65数据库实施与维护-------------------------------------------------7 6.应用程序设计----------------------------------------------------87.心得体会-------------------------------------------------------248.参考文献-------------------------------------------------------244的管理效率，从而减少管理方面的工作流和成本。一个现代化的图书馆在正常运营中总是面对大量的读者信息，书籍信息以及两者相互作替的借还书信息，传统的直接方法不但管理出现漏洞，造成损失。因此有一个智能化、系统图书管理中。.2.1SQLServer2008R2的简介SQL是英文(StructuredQueryLanguage)的缩写，意思为结构化查询语言。SQL中提取数据等。目前，绝大多数流行的关系型数据库管理系统，如Oracle,Sybase,1.非过程化语言SQL是一个非过程化的语言，因为它一次处理一个记录，对数据提供自动导航。SQL允SQL语SQL不要求用户指定对数据的存放方法，这种特性使用户更易集中精力于要得到的结度的手段，查询优化器知道存在什么索引，在哪儿使用索引合适，而用户则从不需要知道表2.统一的语言决策支持系统人员及许多其它类型的终端用户。基本的SQL命令只需很少时间就能学会，最高级的命令在几天内便可掌握。3.所有关系数据库的公共语言RDBMS库管理系统)转到另一个，所有用SQL编写的程序都是可以移植的。VBVB就是VisualBasic的意思，是一种常用的编程开发工具。它的基础是编程语言5变得简单。VB是Basic语言软件开发者的首选编译器，是学习Basic语言编程必须要接触而且是经常接触的一款整合型技术编译器。2.需求分析2.1系统需求者、价格等)，用户对图书的借阅，归还以及修改用户密码等操作。户修改密码用户信息管借书图书信息还书理管理系统图书信息员游客2.2功能需求1.系统管理。系统管理功能是在该系统运行结束后，用户通过选择“系统管理”-“退出”背景音乐。这是一个辅助功能，目的是让操作者能在一个轻松、愉快的环境下使用图书管理系统。5.帮助。关于中显示有关图书管理系统的信息。罚款，修改密码和借阅信息的查询等操作。3.概念设计阶段6删改用户或删改用户或管理员登陆修改密码缴纳罚款借阅信息用户功能还书借书用户登陆添加用户或图书查询密码管理员7 性性别余额位户量类型登录密码借书时间借阅还书时间图书信息作者出版社价格姓名号4.逻辑结构设计阶段图书信息(编号，书名，作者，价格，出版社，类型，库存)读者(卡号，姓名，性别，类型，登录密码，罚款，借书数量，余额，级别，单位)借阅(编号，卡号，借书时间，还书时间)管理员(账户，密码)4.2数据字典表中列名者格类型存数据种类及长度char(10)nchar(20)nchar(20)atnchar(20)nchar(20)可否为空NotnullNotnullNotnullNullNullNotnullNotnull8 表中列名姓名性别类型登录密码借书数量额位表中列名借书时间还书时间数据种类及长度char(10)nchar(10)nchar(10)nchar(10)varchar(10)atatnchar(20)nchar(10)数据种类及长度char(10)char(10)datetimedatetime可否为空NotnullnullnullNullnullnullnullnullnullnull可否为空NotnullNotnullNotnullnull表中列名码5.数据库实施与维护数据种类及长度nchar(10)nchar(10)可否为空NotnullNotnull5.1创建数据库，数据表5.1.1创建book数据库5.1.2创建图书信息表9 5.1.3创建用户表5.1.4创建借阅表5.1.5创建管理员表6.应用程序设计6.1图书管理员管理处理 6.1.1管理员处理流程图始管理员登录否断码是管理员界面选择操作用户管理出6.1.2管理员处理功能实现6.1.2.1管理员登录输入管理员账户以及密码，按登录键登录，或者按Enter键快捷登陆，返回键返回 PublictryAsInteger'登录次数PrivateSubCommand1_Click()MsgBox"请输入管理员账户",,"登录"etFocusEndIfMsgBox"请输入密码",,"登录"etFocusEndIfsqlstr="select*from管理员where账户='"&Trim(Text1)&"'and密码='"&imTextAdodc1.RecordSource=sqlstrAdodc1.RefreshWithAdodc1.RecordsetIfNot.EOFThenguanliyuan.ShowUnloadMeText"Text"ocustry=try+1Iftry>2ThenMsgBox"三次输入错误,系统将关闭",,"登录" dIfEndIfPrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii13ThenCommand1_ClickEndIfPrivateSubCommand2_Click()UnloadMe6.1.2.2管理员页面管理员界面有对图书和用户的添加，查询，修改，删除操作。PrivateSubbooks_add_Click()addbook.ShowPrivateSubbooks_dq_Click()odifyShowPrivateSubbooks_qur_Click()chaxun.ShowPrivateSubCommand1_Click()UnloadMe PrivateSubusers_add_Click()PrivateSubusers_dq_Click()fyShowPrivateSubusers_qur_Click()chaxun1.Show6.1.2.3添加图书/用户完整，则会显示请输入完整信息，同时将鼠标键入空信息栏。注意：编号设置为主键，故不能添加相同的编号信息6.1.2.4修改，删除图书/用户所需要改动的信息。对图书的删除只需按删除按钮即可删除 6.2图书查询6.2.1图书查询流程图类类型查询作者查询书名查询编号查询选择操作开始出6.2.2图书查询功能实现 询，查询结果显示在下方OptionExplicit'在模块级别中使用，强制显式声明模块中的所有变量。PublicsqlstrAsString入时初始化4个组合框，通过ADO数据控件获取各数据记录表PrivateSubForm_Load()'在组合框cbobh的列表中列出所有的编号Subinitbh()Adodc1.RecordSource="select编号from图书信息"Adodc1.RefreshWhileNotAdodc1.Recordset.EOFcbobh.AddItemAdodc1.Recordset.Fields("编号")Adodc1.Recordset.MoveNext'在组合框cbosm的列表中列出所有的书名Subinitsm()dodc1.RecordSource="select书名from图书信息"Adodc1.Refresh WhileNotAdodc1.Recordset.EOFcbosm.AddItemAdodc1.Recordset.Fields("书名")Adodc1.Recordset.MoveNextndSub在组合框cbozz的列表中列出所有的作者Subinitzz()Adodc1.RecordSource="select作者from图书信息"Adodc1.RefreshWhileNotAdodc1.Recordset.EOFcbozz.AddItemAdodc1.Recordset.Fields("作者")Adodc1.Recordset.MoveNext'在组合框cbolx的列表中列出所有的类型Subinitlx()Adodc1.RecordSource="selectdistinct类型from图书信息"Adodc1.RefreshWhileNotAdodc1.Recordset.EOFcbolx.AddItemAdodc1.Recordset.Fields("类型")Adodc1.Recordset.MoveNextPrivateSubcbobh_click()PrivateSubcbosm_click()PrivateSubcbozz_click()PrivateSubcbolx_click()PrivateSubCommand1_Click()querybooks'调用querybooks子过程'根据选择的条件查询图书信息'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Subquerybooks()sqlstr="select编号,书名,作者,价格,出版社,类型,库存"_ &"from图书信息"_&"where"sqlstr=sqlstr&"编号='"&Trim(cbobh.Text)&"'"Ifsqlstr=sqlstr&"书名='"&Trim(cbosm.Text)&"'"Ifsqlstr=sqlstr&"作者='"&Trim(cbozz.Text)&"'"Ifsqlstr=sqlstr&"类型='"&Trim(cbolx.Text)&"'"Ifsqlstr=sqlstr&"orderby编号"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.RecordCount=0ThenSetDataGrid1.DataSource=Adodc1DataGrid1.Columns(0).Width=1000DataGrid1.Columns(1).Width=2000DataGrid1.Columns(2).Width=1000DataGrid1.Columns(3).Width=1000DataGrid1.Columns(4).Width=1300DataGrid1.Columns(5).Width=1000DataGrid1.Columns(6).Width=1000RefreshIfLabel2.Caption="共查询到"&Adodc1.Recordset.RecordCount&"条记录"PrivateSubCommand2_Click()UnloadMe6.3用户登录 6.3.1用户登录流程图退退出登录超期罚款借阅信息我要还书我要借书码判断密码用户登录开始否 6.3.2用户登录功能实现6.3.2.1我要借书用户可以通过选择书的编号进行还书，还书之后会在借阅表中产生还书信息 6.3.2.3借阅信息将借阅表中的信息显示出来6.3.2.4超期罚款当借阅的时间超过规定时间(教师为90天，学生为60天)，便会产生超期罚款，超期6.3.2.5修改密码态，且确认密码右侧会有“两次密码不同，请确认密码”的提示，只有当新密码和确认密码相同时，确认按钮才会变成可用状态 PrivateSubCommand1_Click()MsgBox"请输入账户",,"登录"etFocusEndIfMsgBox"请输入密码",,"登录"etFocusEndIfMsgBox"请输入新密码",,"登录"etFocusEndIfsqlstr="select*from用户where卡号='"&Trim(Text1)&"'and登录密码='"&imTextAdodc1.RecordSource=sqlstrAdodc1.RefreshWithAdodc1.RecordsetIfNot.EOFThenFields")=Trim(Text4)MsgBox"密码修改成功!!"Text"Text"Text"Text"UnloadMeText"Text"Text"Text"ocusEndIfPrivateSubCommand2_Click()UnloadMe bTextChangeCommand1.Enabled=FalseLabel5.Caption="两次密码相同"Command1.Enabled=TrueLabel5.Caption="两次密码不同，请确认密码"EndIfPrivateSubtext4_keypress(keyasciiAsInteger)Ifkeyascii13ThenCommand1_ClickEndIf6.4背景设置PrivateSubForm_Load()'窗体居中显示Me.Light(0).Enabled=TrueMe.Light(1).Enabled=FalseMe.Music(0).Enabled=TrueMe.Music(1).Enabled=False '准备播放音乐IsMusicOn=FalseWindowsMediaPlayer1.URL=App.Path&"/bg.mp3"'歌曲的位置WindowsMediaPlayer1.uiMode="mini"WindowsMediaPlayer1.settings.volume=100WindowsMediaPlayer1.settings.playCount=100WindowsMediaPlayer1.Controls.stopMsgBox"欢迎使用中南大学图书馆管理系统"PrivateSubForm_Unload(CancelAsInteger)'退出时检查并关闭音乐IfIsMusicOn=TrueThenWindowsMediaPlayer1.Controls.stopIf'播放器界面模式'播放次数PrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)'背景图片控制''''''''''''