《数据库课程设计 图书音像管理系统》由会员分享，可在线阅读，更多相关《数据库课程设计 图书音像管理系统（31页珍藏版）》请在金锄头文库上搜索。
1、 沈阳理工大学课程设计专用纸 No31目 录第一章 系统功能概述11.1 系统功能11.2 系统功能模块图2第二章 数据库设计32.1 需求分析32.2 E-R模型42.3关系模型42.4表结构设计5第三章 系统各功能模块的详细设计63.1 欢迎界面的设计63.2 主控界面73.3 登录和注册界面93.4 浏览界面133.5 查询界面163.6 修改界面21总 结28参考文献2931沈阳理工大学第一章 系统功能概述1.1 系统功能每个人都有一些书、光盘、磁带、影碟等，这些东西信息量也不少。现在建立一个管理系统对个人的图书音像资料进行管理，主要包括图书信息的管理、光盘信息的管理以及磁带信息的管理
2、。个人图书音像管理系统主要有以下功能：（1）图书信息的管理：对个人图书的管理，主要包括信息的浏览、查询和修改。浏览时可以逐条显示每个图书的信息；查询时可以按照图书所有的属性进行查询，并且都支持模糊查询，按照作者查询时可以统计查询到信息的数量，按照类别查询时可以统计信息的数量以及同一类别图书的总价格；修改主要包括删除、添加和修改某条信息。（2）音像信息的管理，包括光盘和磁带：光盘信息的管理：对个人光盘的管理，主要包括信息的浏览、查询和修改。浏览时可以逐条全属性的显示详细的光盘信息；查询可以按照光盘所有的属性进行查询，并且支持模糊查询，可以统计查询到的信息的数量；修改包括记录的删除、添加以及修改。
3、磁带信息的管理：对个人磁带的管理，同样主要包括信息的浏览、查询和修改。浏览时可以逐条全属性显示磁带详细的信息；查询时可以按照不同的属性进行查询，并且支持模糊查询，统计查询到的记录的数量；修改包括记录的添加、修改和修改。1.2 系统功能模块图个人图书音像管理系统系统文件退出图书信息的修改图书信息的浏览图书信息的查询音像信息的查询音像信息的浏览音像信息的修改记录的修改记录的添加记录的删除图书信息管理音像信息管理光盘信息的浏览磁带信息的浏览光盘信息的查询磁带信息的查询光盘信息的修改磁带信息的修改登录第二章 数据库设计2.1 需求分析 该系统主要实现对个人的大量的图书音像资料进行规范化的管理，通过辅助
4、数据库的使用来完成一系列的功能。首先根据需要在数据库中建立以下表：密码表（用户名，密码），图书（书名，作者，价格，购买日期，类别，状态），光盘（光盘名，出版社，价格，购买时间，类别，状态），磁带（供磁带名，磁带作者，价格，购买时间，类别，状态）。启动欢迎窗体时显示背景和欢迎文字，点击文字可以显示MDI主控窗体，利用主控窗体管理所有图书音像信息。主控窗体主要包含文件、图书管理、音像管理和系统四个部分，起初只有文件和系统可用，图书管理和音像管理两部分不可用。（1）打开系统下的“登录”子菜单会打开登录界面，需要正确填写用户名和密码才可以使用图书管理和音像管理，假如3次输入的用户名或密码有误，系统关闭
5、。从登录界面点击“注册”按钮可以打开注册界面进行新用户的注册。（2）图书管理：主要包含对图书信息的浏览、查询、修改，浏览时显示详细信息可以逐条浏览，查询可以根据图书的不同属性进行查询，并且支持模糊查询，查询完可以统计查询到记录的数量可总价格，修改包括单个记录的添加、删除以及属性的修改。（3）音像管理：包括音像信息的浏览、查询和修改。音像信息的浏览分为光盘信息的浏览和磁带信息的浏览；音像信息的查询分为光盘信息的查询和磁带信息的查询，查询时都可以进行模糊查询；修改同样包含光盘信息的修改和磁带信息的修改。（4）系统菜单只包含“退出”子菜单，点击可以结束程序。2.2 E-R模型该管理系统中主要包含4个
6、实体：密码表、图书信息、光盘信息和磁带信息。由于所有的实体之间不存在明显的联系，所以在这里只给出了单个实体及其属性图，没有完整的实体联系图。单个实体及其属性图如下：密码表用户名密码 图书信息类别购买日期状态作者书名价格图a：密码表及其属性图 图b：图书实体及其属性图光盘信息出版社购买时间光盘名价格类别状态 磁带信息购买时间类别状态磁带作者磁带名价格图c：光盘实体及其属性图 图d：磁带实体及其属性图2.3关系模型（1）密码表（用户名，密码）（2）图书信息（书名，作者，价格，购买日期，类别，状态）（3）光盘信息（光盘名，出版社，价格，购买时间，类别，状态）（4）磁带信息（磁带名，磁带作者，价格，购
7、买时间，类别，状态）2.4表结构设计启动SQL Server 2000建立数据库课程设计，在该数据库中，用可视化的方法进行建表，要建的表有密码表、图书信息、光盘信息和磁带信息四个表，所建各表的表信息如下：表1：密码表： 表2：图书信息： 表3：光盘信息： 表4：磁带信息： 第三章 系统各功能模块的详细设计3.1 欢迎界面的设计点击欢迎界面上的欢迎词“欢迎进入个人图书音像管理系统” 时即可跳转到MDIForm1主界面，欢迎词用Label控件进行添加，程序运行时欢迎界面最大化。控件属性值表：控件名属性名属性值Label1Caption欢迎进入个人图书音像管理系统Font宋体、二号ForeColor
8、红色欢迎界面如下图所示：对应代码如下：Private Sub Label1_Click()MDIForm1.ShowEnd Sub3.2 主控界面主控界面是MDI窗体，含有的主菜单包含：文件、图书管理、音像管理和系统。在未登录之前只有文件和系统两菜单可用，成功登录之后图书管理和音像管理两个主菜单变为可用的。主控界面的详细情况如下：文件 包含以下子菜单和功能：登录菜单：打开登录界面图书管理菜单包含以下子菜单和功能：图书信息的浏览菜单：显示图书信息的浏览窗体图书信息的查询菜单：显示图书信息的查询窗体图书信息的修改菜单：显示图书信息的修改窗体音像管理菜单包含以下子菜单和功能：音像信息的浏览菜单：包括
9、光盘信息的浏览和磁带信息的浏览两个子菜单光盘信息的浏览菜单：显示光盘信息的浏览窗体磁带信息的浏览菜单：显示磁带信息的浏览窗体音像信息的查询菜单：包括光盘信息的查询和磁带信息的查询两个子菜单光盘信息的查询菜单：显示光盘信息的查询窗体磁带信息的查询菜单：显示图书信息的查询窗体音像信息的修改菜单：包括光盘信息的修改和磁带信息的修改两个子菜单光盘信息的修改菜单：显示光盘信息的修改窗体磁带信息的修改菜单：显示磁带信息的修改窗体系统菜单包含以下子菜单和功能：退出菜单：关闭程序主控界面的设计如下图所示： 对应代码如下：Private Sub Cchaxun_Click()fcchaxun.ShowEnd S
10、ubPrivate Sub Cliulan_Click()fcliulan.ShowEnd SubPrivate Sub Cxiugai_Click()fcxiugai.ShowEnd SubPrivate Sub denglu_Click()fdenglu.ShowEnd SubPrivate Sub Gchaxun_Click()fgchaxun.ShowEnd SubPrivate Sub Gliulan_Click()fgliulan.ShowEnd SubPrivate Sub Gxiugai_Click()fgxiugai.ShowEnd SubPrivate Sub MDIFor
11、m_Load()tushuguanli.Enabled = Falseyinxiangguanli.Enabled = FalseEnd SubPrivate Sub Tchazhao_Click()ftchaxun.ShowEnd SubPrivate Sub Tchaxun_Click()ftchaxun.ShowEnd SubPrivate Sub Tliulan_Click()ftliulan.ShowEnd SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub Txiugai_Click()ftxiugai.ShowEnd Sub3.3
12、 登录和注册界面（1）登录界面的设计用Label控件添加“用户名”和“密码”显示在界面上，并在后面用TextBox控件添加练个输入区，三个按钮则由CommandButton控件进行添加，最后由Adodc控件与数据库相连。控件属性值表： 控件名属性名属性值控件名属性名属性值Label1Caption用户名Command2Caption取消Font楷体、小四Font楷体、小四Label2Caption密码Command3Caption注册Font楷体、小四Font楷体、小四Command1Caption登录Font楷体、小四登录界面如下： 当输入的用户名不存在或者密码错误时系统会给出警告： 对应的
13、代码如下：Dim miCount As IntegerPrivate 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 ThenMDIForm1.tushuguanli.Enabled = TrueMDIForm1.yinxiangguanli.Enabled = TrueUnload MeElseMsgBox 密码错误，重新输入 , vbExclamation, 警告Text2.Text = : Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miC
