成绩评定表学生姓名闫靖羿班级学号1309010136 专业信息与计算科学课程设计题目个人图书音像管理系统评语组长签字：成绩日期2015 年月日课程设计任务书学院理学院专业信息与计算科学学生姓名闫靖羿班级学号1309010136 课程设计题目个人图书音像管理系统实践教学要求与任务:设计为MDI窗体，含有主菜单：[文件]、[图书管理]、[音像管理]。
[文件]菜单包含以下子菜单及其功能：[登陆]：登陆主界面[注册]：打开“注册新用户”窗体[图书管理] 包含以下子菜单：[图书信息浏览]：显示图书信息浏览和编辑窗体[图书信息查询]：显示图书信息查询窗体[音像管理] 包含以下子菜单：[音像信息浏览]：包含子菜单[光盘信息浏览]：显示光盘信息浏览和编辑窗体[磁带信息浏览]：显示磁带信息浏览和编辑窗体[音像信息查询]：包含子菜单[光盘信息查询]：显示光盘信息查询窗体[磁带信息查询]：显示磁带信息查询窗体工作计划与进度安排:第一周：数据库设计，利用SQL Server创建数据库及数据表。
总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。
第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。
撰写课程设计报告，验收与答辩。
指导教师：2015年月日专业负责人：2015年月日学院教学副院长：2015 年月日摘要本系统的主要功能是建立个人图书音像管理系统，对图书信息、光盘信息、磁带信息的管理和查询。
本系统的数据库是用SQL server 2014软件进行创建与设计，分别包括图书信息、光盘信息、磁带信息、密码四个表。
通过系统ODBC 数据源管理工具把已创建的数据源与系统数据库相连。
利用VB软件对系统的窗口进行设计，包括登录界面、注册新用户界面、主界面、浏览窗体和查询窗体等，可以通过这些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操作，以及最重要的操作是对数据库中信息进行修改与查询。
并可以对数据进行添加与删除，做到及时更新。
关键词：个人图书音像管理 SQL server 2014VB6.0+目录1 系统功能概述 (1)1.1 系统功能 (1)1.2 系统结构总图 (2)2 数据库设计 (2)2.1 需求分析 (2)2-1E-R模型 (3)2.3 关系模型 (4)2.4 表结构设计 (4)3 系统各功能模块的详细设计 (5)3.1 各窗体的设计： (5)3.2登录窗体 (6)3.3MDI主窗体 (7)3.4注册 (8)3.5图书信息浏览 (10)3.6图书信息查询 (13)总结 (15)参考文献 (16)1 系统功能概述1.1 系统功能个人图书音像管理系统主要是实现图书管理、光盘管理和磁带管理。
设计为MDI窗体，含有主菜单：[文件]、[图书管理]、[音像管理]。
[文件]菜单包含以下子菜单及其功能：[登陆]：登陆主界面[注册]：打开“注册新用户”窗体[图书管理] 包含以下子菜单：[图书信息浏览]：显示图书信息浏览和编辑窗体[图书信息查询]：显示图书信息查询窗体[音像管理] 包含以下子菜单：[音像信息浏览]：包含子菜单[光盘信息浏览]：显示光盘信息浏览和编辑窗体[磁带信息浏览]：显示磁带信息浏览和编辑窗体[音像信息查询]：包含子菜单[光盘信息查询]：显示光盘信息查询窗体[磁带信息查询]：显示磁带信息查询窗体1.2 系统结构总图个人图书音像管理系统总图2 数据库设计2.1 需求分析该系统主要实现对个人的大量的图书音像资料进行规范化的管理，通过辅助数据库的使用来完成一系列的功能。
首先根据需要在数据库中建立以下表：密码表（用户名，密码），图书（书名，作者，价格，购买日期，类别，状态），光盘（光盘名，出版社，价格，购买时间，类别，状态），磁带（供磁带名，磁带作者，价格，购买时间，类别，状态）。
启动欢迎窗体时显示背景和欢迎文字，点击文字可以显示MDI主控窗体，利用主控窗体管理所有图书音像信息。
主控窗体主要包含文件、图书管理、音像管理和系统四个部分，起初只有文件和系统可用，图书管理和音像管理两部分不可用。
（1）打开系统下的“登录”子菜单会打开登录界面，需要正确填写用户名和密码才可以使用图书管理和音像管理，假如3次输入的用户名或密码有误，系统关闭。
从登录界面点击“注册”按钮可以打开注册界面进行新用户的注册。
（2）图书管理：主要包含对图书信息的浏览、查询、修改，浏览时显示详细信息可以逐条浏览，查询可以根据图书的不同属性进行查询，并且支持模糊查询，查询完可以统计查询到记录的数量可总价格，修改包括单个记录的添加、删除以及属性的修改。
（3）音像管理：包括音像信息的浏览、查询和修改。
音像信息的浏览分为光盘信息的浏览和磁带信息的浏览；音像信息的查询分为光盘信息的查询和磁带信息的查询，查询时都可以进行模糊查询；修改同样包含光盘信息的修改和磁带信息的修改。
2-1E-R模型统中主要包含4个实体：密码表、图书信息、光盘信息和磁带信息。
由于所有的实体之间不存在明显的联系，所以在这里只给出了单个实体及其属性图，没有完整的实体联系图。
单个实体及其属性图如下：图a：密码表及其属性图图b：图书实体及其属性图图c：光盘实体及其属性图图d：磁带实体及其属性图2.3 关系模型（1）密码表（用户名，密码）（2）图书信息（书名，作者，价格，购买日期，类别，状态）（3）光盘信息（光盘名，出版社，价格，购买时间，类别，状态）（4）磁带信息（磁带名，磁带作者，价格，购买时间，类别，状态）2.4 表结构设计启动SQL Server 2000建立数据库课程设计，在该数据库中，用可视化的方法进行建表，要建的表有密码表、图书信息、光盘信息和磁带信息四个表，所建各表的表信息如下：表1：密码表：表2：图书信息：表3：光盘信息：表4：磁带信息：3 系统各功能模块的详细设计3.1 各窗体的设计：个人图书音像管理系统分为登录，注册新用户，图书信息查询，音像信息查询MDI窗体等。
其中主窗体为MDI窗体。
下面介绍各个窗体的设计语句及实现功能。
3.2登录窗体打开登录界面后，输入用户名和密码，点击登陆按钮，进入MDI主窗体，如下图所示Private Sub Command1_Click()Static miCount As IntegerDim sqlstr As Stringsqlstr = "Select * from 密码表Where 用户名='" & Text1 & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox "用户名错误,请重新输入", vbExclamation, "警告"Text1.Text = "": Text1.SetFocusElseIf Adodc1.Recordset.Fields("密码") = Text2.Text ThenMDIForm1.ShowUnload MeElseMsgBox "密码错误，请重新输入", vbExclamation, "警告"Text2.Text = "": Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub3.3MDI主窗体设计为MDI窗体，含有主菜单：[文件]、[图书管理]、[音像管理] Option ExplicitPrivate Sub MDIForm_Load()End SubPrivate Sub 磁带信息的查询_Click()Form8.ShowEnd SubPrivate Sub 磁带信息的浏览_Click()Form6.ShowEnd SubPrivate Sub 登录_Click()Form1.ShowEnd SubPrivate Sub 光盘信息的查询_Click()Form7.ShowEnd SubPrivate Sub 光盘信息的浏览_Click()Form5.ShowEnd SubPrivate Sub 图书信息查询_Click()Form4.ShowEnd SubPrivate Sub 图书信息浏览_Click()Form3.ShowEnd SubPrivate Sub 注册_Click()Form2.ShowEnd Sub3.4注册在上面主窗体点击菜单文件下的注册，进入注册界面，输入用户名、密码、再次输入密码确认，注册成功。
如下图所示Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = "" ThenMsgBox "请输入用户名！", vbExclamation, "确认用户名"Text1.SetFocusExit SubElsesqlstr = "Select * from 密码表where 用户名='" & Text1 & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox "用户名已存在，请重新输入！", vbExclamation, "检验用户名"Text1 = ""Text1.SetFocusExit SubEnd IfEnd If'判断二次输入密码是否一致：If Text2 <> Text3 ThenMsgBox "二次输入的密码不一致，请重新输入", vbExclamation, "检验密码" Text2 = "": Text3 = ""Text2.SetFocusExit SubElseIf Text2 = "" ThenMsgBox "密码不能为空！", vbExclamation, "检验密码"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名") = Trim(Text1)Adodc1.Recordset.Fields("密码") = Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox "成功注册新用户！", vbInformation, "添加用户"End IfEnd SubPrivate Sub Command2_Click() '单击取消按钮Unload MeEnd SubPrivate Sub Form_Load()End Sub3.5图书信息浏览点击MDI主窗体的管理社保信息菜单下的图书信息，出现图书信息浏览界面，可以进行增加，删除，修改，前移后移等功能。