个人图书馆音像管理系统

1、成 绩 评 定 表学生姓名闫靖羿班级学号1309010136专 业信息与计算科学课程设计题目个人图书音像管理系统评语组长签字：成绩日期2015 年 月 日课程设计任务书学 院理学院专 业信息与计算科学学生姓名闫靖羿班级学号1309010136课程设计题目个人图书音像管理系统实践教学要求与任务: 设计为MDI窗体，含有主菜单：文件、图书管理、音像管理。文件菜单包含以下子菜单及其功能：登陆：登陆主界面注册：打开“注册新用户”窗体图书管理 包含以下子菜单：图书信息浏览：显示图书信息浏览和编辑窗体图书信息查询：显示图书信息查询窗体音像管理 包含以下子菜单：音像信息浏览：包含子菜单 光盘信息浏览：显示光

2、盘信息浏览和编辑窗体 磁带信息浏览：显示磁带信息浏览和编辑窗体音像信息查询：包含子菜单 光盘信息查询：显示光盘信息查询窗体 磁带信息查询：显示磁带信息查询窗体工作计划与进度安排:第一周：数据库设计，利用SQL Server创建数据库及数据表。 总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。 撰写课程设计报告，验收与答辩。指导教师： 2015年 月 日专业负责人：2015年 月 日学院教学副院长：2015 年 月 日摘 要本系统的主要功能是建立个人图书音像管理系统，对图书信息、光盘信息、磁带信息的管理和查询。本系统的数据库

3、是用SQL server 2014软件进行创建与设计，分别包括图书信息、光盘信息、磁带信息、密码四个表。通过系统ODBC数据源管理工具把已创建的数据源与系统数据库相连。利用VB软件对系统的窗口进行设计，包括登录界面、注册新用户界面、主界面、浏览窗体和查询窗体等，可以通过这些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操作，以及最重要的操作是对数据库中信息进行修改与查询。并可以对数据进行添加与删除，做到及时更新。 关键词： 个人图书音像管理 SQL server 2014 VB6.0+目 录1 系统功能概述51.1 系统功能51.2 系统结构总图62 数据库设计62.1 需求分析62

4、-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窗体，含有主菜单：文件、图书管理、音像管理。文件菜单包含以下子菜单及其功能：登陆：登陆主界面注册：打开“注册新用户”窗体图书管理 包含以下子菜单：图书信息浏览：显示图书信息浏览和编辑窗体图书信息查询：显示图书信息查询窗体音像管理 包含以下子菜单：音像信息浏览：包含子菜

5、单 光盘信息浏览：显示光盘信息浏览和编辑窗体 磁带信息浏览：显示磁带信息浏览和编辑窗体音像信息查询：包含子菜单 光盘信息查询：显示光盘信息查询窗体 磁带信息查询：显示磁带信息查询窗体1.2 系统结构总图个人图书音像管理系统文件图书信息的浏览图书信息的查询音像信息的浏览音像信息的查询图书信息管理音像信息管理光盘信息的浏览磁带信息的浏览光盘信息的查询磁带信息的查询登录注册个人图书音像管理系统总图2 数据库设计2.1 需求分析该系统主要实现对个人的大量的图书音像资料进行规范化的管理，通过辅助数据库的使用来完成一系列的功能。首先根据需要在数据库中建立以下表：密码表（用户名，密码），图书（书名，作者，价

6、格，购买日期，类别，状态），光盘（光盘名，出版社，价格，购买时间，类别，状态），磁带（供磁带名，磁带作者，价格，购买时间，类别，状态）。启动欢迎窗体时显示背景和欢迎文字，点击文字可以显示MDI主控窗体，利用主控窗体管理所有图书音像信息。主控窗体主要包含文件、图书管理、音像管理和系统四个部分，起初只有文件和系统可用，图书管理和音像管理两部分不可用。（1）打开系统下的“登录”子菜单会打开登录界面，需要正确填写用户名和密码才可以使用图书管理和音像管理，假如3次输入的用户名或密码有误，系统关闭。从登录界面点击“注册”按钮可以打开注册界面进行新用户的注册。（2）图书管理：主要包含对图书信息的浏览、查询、

7、修改，浏览时显示详细信息可以逐条浏览，查询可以根据图书的不同属性进行查询，并且支持模糊查询，查询完可以统计查询到记录的数量可总价格，修改包括单个记录的添加、删除以及属性的修改。（3）音像管理：包括音像信息的浏览、查询和修改。音像信息的浏览分为光盘信息的浏览和磁带信息的浏览；音像信息的查询分为光盘信息的查询和磁带信息的查询，查询时都可以进行模糊查询；修改同样包含光盘信息的修改和磁带信息的修改。2-1E-R模型 统中主要包含4个实体：密码表、图书信息、光盘信息和磁带信息。由于所有的实体之间不存在明显的联系，所以在这里只给出了单个实体及其属性图，没有完整的实体联系图。单个实体及其属性图如下：密码表用

8、户名密码 图书信息类别购买日期状态作者书名价格图a：密码表及其属性图 图b：图书实体及其属性图磁带信息购买时间类别状态磁带作者磁带名价格图c：光盘实体及其属性图光盘信息出版社购买时间光盘名价格类别状态 图d：磁带实体及其属性图2.3 关系模型（1）密码表（用户名，密码）（2）图书信息（书名，作者，价格，购买日期，类别，状态）（3）光盘信息（光盘名，出版社，价格，购买时间，类别，状态）（4）磁带信息（磁带名，磁带作者，价格，购买时间，类别，状态）2.4 表结构设计启动SQL Server 2000建立数据库课程设计，在该数据库中，用可视化的方法进行建表，要建的表有密码表、图书信息、光盘信息和磁带

9、信息四个表，所建各表的表信息如下：表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 用户名=

10、 & Text1 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then MsgBox 用户名错误,请重新输入 , vbExclamation, 警告 Text1.Text = : Text1.SetFocusElse If Adodc1.Recordset.Fields(密码) = Text2.Text Then MDIForm1.Show Unload Me Else MsgBox 密码错误，请重新输入 , vbExclamation, 警告 Text2.Text = : Text2.SetFocus

11、 End 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 磁带信息的浏

12、览_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注册在上面主窗体点击菜单文件下的注册，

13、进入注册界面，输入用户名、密码、再次输入密码确认，注册成功。如下图所示Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 请输入用户名！, vbExclamation, 确认用户名 Text1.SetFocus Exit SubElse sqlstr = Select * from 密码表 where 用户名= & Text1 & Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox

14、用户名已存在，请重新输入！, vbExclamation, 检验用户名 Text1 = Text1.SetFocus Exit Sub End IfEnd If判断二次输入密码是否一致：If Text2 Text3 Then MsgBox 二次输入的密码不一致，请重新输入, vbExclamation, 检验密码 Text2 = : Text3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密码不能为空！, vbExclamation, 检验密码 Text2.SetFocusElse Adodc1.Recordset.Fields(用户

15、名) = Trim(Text1) Adodc1.Recordset.Fields(密码) = Trim(Text2) Me.Hide MsgBox 成功注册新用户！, vbInformation, 添加用户End IfEnd SubPrivate Sub Command2_Click() 单击取消按钮Unload MeEnd SubPrivate Sub Form_Load()End Sub3.5图书信息浏览 点击MDI主窗体的管理社保信息菜单下的图书信息，出现图书信息浏览界面，可以进行增加，删除，修改，前移后移等功能。如下图所示Private Sub CmdFirst_Click()CmdF

16、irst.Enabled = FalseCmdPre.Enabled = FalseCmdNext.Enabled = TrueCmdLast.Enabled = TrueLabel7.Caption = 记录：End SubPrivate Sub CmdPre_Click()CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF ThenCmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfLabel7.Caption = 记录：End SubPrivate Su

17、b CmdNext_Click()CmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF ThenCmdNext.Enabled = FalseCmdLast.Enabled = FalseEnd IfLabel7.Caption = 记录：End SubPrivate Sub CmdLast_Click()CmdFirst.Enabled = TrueCmdPre.Enabled = TrueCmdNext.Enabled = FalseCmdLast.Enabled = FalseLabel7.Caption

18、= 记录：End SubPrivate Sub CmdN_Click()Dim n As Integern = Text7.TextAdodc1.Recordset.Move nLabel7.Caption = 记录：End SubPrivate Sub Form1_Load()CmdFirst.Enabled = FalseCmdPre.Enabled = FalseCmdNext.Enabled = TrueCmdLast.Enabled = TrueLabel7.Caption = 记录：End SubPrivate Sub CmdAdd_Click()CmdAdd.Enabled =

19、FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox(确实要删除当前记录吗？, vbYesNo + vbQuestion, 确认)If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdOk_Click()CmdAdd.Enabled = TrueCmdDel.Enabled = Tr

20、ueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub Form_Load()End Sub光盘信息浏览界面由于光盘信息的浏览和图书信息的浏览及其类似，所以在这里不再赘述。磁带信息浏览界面和图书浏览的功能和界面都类似，所以也不再给出。3.6图书信息查询点击MDI主窗体的图书信息菜单下的图书信息查询 如下图所示，可以进行单条件查询Private Sub Command1_Click()Dim str As Stringstr = Select * From 图书信息 Where 书名= & Text1 & Adodc1.RecordSource = strAdodc1.