个人图书馆音像管理系统

...wd......wd......wd...成绩评定表学生姓名闫靖羿班级学号1309010136专业信息与计算科学课程设计题目个人图书音像管理系统评语组长签字：成绩日期2015年月日课程设计任务书学院理学院专业信息与计算科学学生姓名闫靖羿班级学号1309010136课程设计题目个人图书音像管理系统实践教学要求与任务:设计为MDI窗体，含有主菜单：[文件]、[图书管理]、[音像管理]。[文件]菜单包含以下子菜单及其功能：[登陆]：登陆主界面[注册]：翻开“注册新用户〞窗体[图书管理]包含以下子菜单：[图书信息浏览]：显示图书信息浏览和编辑窗体[图书信息查询]：显示图书信息查询窗体[音像管理]包含以下子菜单：[音像信息浏览]：包含子菜单[光盘信息浏览]：显示光盘信息浏览和编辑窗体[磁带信息浏览]：显示磁带信息浏览和编辑窗体[音像信息查询]：包含子菜单[光盘信息查询]：显示光盘信息查询窗体[磁带信息查询]：显示磁带信息查询窗体工作方案与进度安排:第一周：数据库设计，利用SQLServer创立数据库及数据表。总体构造设计，设计调试系统首页、登陆窗体及MDI窗体。第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。撰写课程设计报告，验收与辩论。指导教师：2015年月日专业负责人：2015年月日学院教学副院长：2015年月日摘要本系统的主要功能是建设个人图书音像管理系统，对图书信息、光盘信息、磁带信息的管理和查询。本系统的数据库是用SQLserver2014软件进展创立与设计，分别包括图书信息、光盘信息、磁带信息、密码四个表。通过系统ODBC数据源管理工具把已创立的数据源与系统数据库相连。利用VB软件对系统的窗口进展设计，包括登录界面、注册新用户界面、主界面、浏览窗体和查询窗体等，可以通过这些窗体进展登录操作，对输入的用户信息进展验证，和注册新用户操作，以及最重要的操作是对数据库中信息进展修改与查询。并可以对数据进展添加与删除，做到及时更新。关键词：个人图书音像管理SQLserver2014VB6.0+目录TOC\o"1-2"\u1系统功能概述51.1系统功能51.2系统构造总图62数据库设计62.1需求分析62-1E-R模型72.3关系模型82.4表构造设计83系统各功能模块的详细设计93.1各窗体的设计：93.2登录窗体103.3MDI主窗体113.4注册123.5图书信息浏览143.6图书信息查询17总结19参考文献201系统功能概述1.1系统功能个人图书音像管理系统主要是实现图书管理、光盘管理和磁带管理。设计为MDI窗体，含有主菜单：[文件]、[图书管理]、[音像管理]。[文件]菜单包含以下子菜单及其功能：[登陆]：登陆主界面[注册]：翻开“注册新用户〞窗体[图书管理]包含以下子菜单：[图书信息浏览]：显示图书信息浏览和编辑窗体[图书信息查询]：显示图书信息查询窗体[音像管理]包含以下子菜单：[音像信息浏览]：包含子菜单[光盘信息浏览]：显示光盘信息浏览和编辑窗体[磁带信息浏览]：显示磁带信息浏览和编辑窗体[音像信息查询]：包含子菜单[光盘信息查询]：显示光盘信息查询窗体[磁带信息查询]：显示磁带信息查询窗体1.2系统构造总图个人图书音像管理系统个人图书音像管理系统文件图书信息的浏览图书信息的查询音像信息的浏览音像信息的查询图书信息管理音像信息管理光盘信息的浏览磁带信息的浏览光盘信息的查询磁带信息的查询登录注册个人图书音像管理系统总图2数据库设计2.1需求分析该系统主要实现对个人的大量的图书音像资料进展标准化的管理，通过辅助数据库的使用来完成一系列的功能。首先根据需要在数据库中建设以下表：密码表〔用户名，密码〕，图书〔书名，作者，价格，购置日期，类别，状态〕，光盘〔光盘名，出版社，价格，购置时间，类别，状态〕，磁带〔供磁带名，磁带作者，价格，购置时间，类别，状态〕。启动欢送窗体时显示背景和欢送文字，点击文字可以显示MDI主控窗体，利用主控窗体管理所有图书音像信息。主控窗体主要包含文件、图书管理、音像管理和系统四个局部，起初只有文件和系统可用，图书管理和音像管理两局部不可用。〔1〕翻开系统下的“登录〞子菜单会翻开登录界面，需要正确填写用户名和密码才可以使用图书管理和音像管理，假设3次输入的用户名或密码有误，系统关闭。从登录界面点击“注册〞按钮可以翻开注册界面进展新用户的注册。〔2〕图书管理：主要包含对图书信息的浏览、查询、修改，浏览时显示详细信息可以逐条浏览，查询可以根据图书的不同属性进展查询，并且支持模糊查询，查询完可以统计查询到记录的数量可总价格，修改包括单个记录的添加、删除以及属性的修改。〔3〕音像管理：包括音像信息的浏览、查询和修改。音像信息的浏览分为光盘信息的浏览和磁带信息的浏览；音像信息的查询分为光盘信息的查询和磁带信息的查询，查询时都可以进展模糊查询；修改同样包含光盘信息的修改和磁带信息的修改。2-1E-R模型统中主要包含4个实体：密码表、图书信息、光盘信息和磁带信息。由于所有的实体之间不存在明显的联系，所以在这里只给出了单个实体及其属性图，没有完整的实体联系图。单个实体及其属性图如下：密码表用户名密码表用户名密码图书信息类别购置日期状态作者书名价格图a：密码表及其属性图图b：图书实体及其属性图磁带信息购置时间类别状态磁带信息购置时间类别状态磁带作者磁带名价格光盘信息出版社购置时间光盘名价格类别状态2.3关系模型〔1〕密码表〔用户名，密码〕〔2〕图书信息〔书名，作者，价格，购置日期，类别，状态〕〔3〕光盘信息〔光盘名，出版社，价格，购置时间，类别，状态〕〔4〕磁带信息〔磁带名，磁带作者，价格，购置时间，类别，状态〕2.4表构造设计启动SQLServer2000建设数据库课程设计，在该数据库中，用可视化的方法进展建表，要建的表有密码表、图书信息、光盘信息和磁带信息四个表，所建各表的表信息如下：表1：密码表：表2：图书信息：表3：光盘信息：表4：磁带信息：3系统各功能模块的详细设计3.1各窗体的设计：个人图书音像管理系统分为登录，注册新用户，图书信息查询，音像信息查询MDI窗体等。其中主窗体为MDI窗体。下面介绍各个窗体的设计语句及实现功能。3.2登录窗体翻开登录界面后，输入用户名和密码，点击登陆按钮，进入MDI主窗体，如以下列图所示PrivateSubCommand1_Click()StaticmiCountAsIntegerDimsqlstrAsStringsqlstr="Select*from密码表Where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用户名错误,请重新输入",vbExclamation,"警告"Text1.Text="":Text1.SetFocusElseIfAdodc1.Recordset.Fields("密码")=Text2.TextThenMDIForm1.ShowUnloadMeElseMsgBox"密码错误，请重新输入",vbExclamation,"警告"Text2.Text="":Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCommand2_Click()Form2.ShowUnloadMeEndSubPrivateSubForm_Load()EndSub3.3MDI主窗体设计为MDI窗体，含有主菜单：[文件]、[图书管理]、[音像管理]OptionExplicitPrivateSubMDIForm_Load()EndSubPrivateSub磁带信息的查询_Click()Form8.ShowEndSubPrivateSub磁带信息的浏览_Click()Form6.ShowEndSubPrivateSub登录_Click()Form1.ShowEndSubPrivateSub光盘信息的查询_Click()Form7.ShowEndSubPrivateSub光盘信息的浏览_Click()Form5.ShowEndSubPrivateSub图书信息查询_Click()Form4.ShowEndSubPrivateSub图书信息浏览_Click()Form3.ShowEndSubPrivateSub注册_Click()Form2.ShowEndSub3.4注册在上面主窗体点击菜单文件下的注册，进入注册界面，输入用户名、密码、再次输入密码确认，注册成功。如以下列图所示PrivateSubCommand1_Click()DimsqlstrAsStringIfText1=""ThenMsgBox"请输入用户名！",vbExclamation,"确认用户名"Text1.SetFocusExitSubElsesqlstr="Select*from密码表where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"用户名已存在，请重新输入！",vbExclamation,"检验用户名"Text1=""Text1.SetFocusExitSubEndIfEndIf'判断二次输入密码是否一致：IfText2<>Text3ThenMsgBox"二次输入的密码不一致，请重新输入",vbExclamation,"检验密码"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密码不能为空！",vbExclamation,"检验密码"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名")=Trim(Text1)Adodc1.Recordset.Fields("密码")=Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox"成功注册新用户！",vbInformation,"添加用户"EndIfEndSubPrivateSubCommand2_Click()'单击取消按钮UnloadMeEndSubPrivateSubForm_Load()EndSub3.5图书信息浏览点击MDI主窗体的管理社保信息菜单下的图书信息，出现图书信息浏览界面，可以进展增加，删除，修改，前移后移等功能。如以下列图所示PrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueLabel7.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePreviousCmdNext.Enabled=TrueCmdLast.Enabled=TrueIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfLabel7.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdNext_Click()Adodc1.Recordset.MoveNextCmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfLabel7.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdLast_Click()Adodc1.Recordset.MoveLastCmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseLabel7.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdN_Click()DimnAsIntegern=Text7.TextAdodc1.Recordset.MovenLabel7.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubForm1_Load()CmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueLabel7.Caption="记录："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEndSubPrivateSubCmdDel_Click()x=MsgBox("确实要删除当前记录吗",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdOk_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubForm_Load()EndSub光盘信息浏览界面由于光盘信息的浏览和图书信息的浏览及其类似，所以在这里不再赘述。磁带信息浏览界面和图书浏览的功能和界面都类似，所以也不再给出。3.6图书信息查询点击MDI主窗体的图书信息菜单下的图书信息查询如以下列图所示，可以进展单条件查询PrivateSubCommand