[优秀毕业论文]音像管理系统论文.doc

更多毕业设计大全: QQ:493092524
目录

内容摘要 ………………………………………………………………1 第一章 前言 …………………………………………………………2 1.1问题的提出………………………………………………………3 1.2本文研究路线……………………………………………………3 第二章 光盘管理系统研究概述…………………………………3 2.1 光盘管理系统的发展历史………………………………3 2.2 光盘管理系统发展现状…………………………………4 2.3本文的目标及相关专业理论　 …………………………………4 第三章 光盘管理系统分析与设计…………………………………4 3.1 光盘管理系统功能需求简介………………………………………4
3.2功能需求描述…………………………………………………4　　　　　3.3目标系统要求…………………………………………………5 3.4系统平台选择…………………………………………………5 3.5数据库设计…………………………………………………5 3.5.1数据词典分析…………………………………………………5 3.5.2数据库介绍…………………………………………………6 第四章 光盘管理系统的功能实现…………………………………6 4.1光盘管理…………………………………………………7　　　　　4.2管理员管理………………………………………………………9 4.3会员管理………………………………………………………10 4.4系统配置………………………………………………………12 4.5发布应用程序………………………………………………………12 4.5.1编译应用程序……………………………………………………12 4.5.2打包应用程序……………………………………………12 4.5.3发布应用程序的步骤……………………………………………12第五章 结论及体会……………………………………………………14参考文献 ………………………………………………………………14
附录 ………………………………………………………………14

毕业论文内容摘要

光盘管理系统是用VB6.0开发出来用于管理光盘的出租和出售的MIS系统。该系统用于光盘出租或销售店，方便出售光盘、租盘、还盘、查找等操作,是出租销售光盘店的最佳助手。可以自定义光盘，方便添加新盘、管理光盘、管理会员。提供完善的租盘和还盘操作，完全独立的数据库系统，数据管理为您提供：光盘管理，会员管理.数据查询为您提供：租借情况，光盘查询，会员查询。本系统具有安全的数据库备份方案，简单易用，仿WINDOWS操作方式，可以使您很快上手，根据需要自行设置光盘类别和相应的借出时间、借出册数。本系统采用ADO编程，程序中包含了许多编程技巧。

注解：

MIS：管理信息系统（Management Information System,简称MIS）是70年代开始发展的一个新兴的应用研究领域。

VB6.0:微软公司1998年开发出来用于编写WIN32程序的高级编程软件，经过1.0,2.0,3.0,4.0,5.0的几个版本的不断更新，VB的功能不断强大，它已成功当今开发速度最快的高级编程软件系统。

ADO：（Active Data Object）微软的一种新数据访问模型，支持用于建立基于客户端/服务器和WEB应用程序的主要功能。其主要优点是易于使用、高速度、低内存支出和占用磁盘较少。

欢迎光临毕业论文网
第一章 前言
目前，出租或销售光盘的商店很多，他们大部分是用人工的方式对其进行管理，在盘少的情况下还可以应付，但一旦盘量增多再用这样方式就会给管理者带来诸多的不便，比如查询，统计之类的事务。而这套光盘管理软件解决了这个问题，使您从出租销售业务摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！
模块功能：
1、 光盘的管理
2、 管理员的管理
3、 会员的管理
4、 系统配置
5、 锁机系统
6、 身份认证功能
7、 帮助功能

本论文分为五章：
第一章 前言主要阐明选题的背景和选题的意义。本课题的研究意义。本论文的目的、内容及作者的主要贡献 ，或担任的主要工作。
第二章 光盘管理系统研究概述阐述：课题来源、用户需求；当前同类系统存在的问题及解决办法，本课题要达到的设计目标及所依据的专业理论知识。
第三章 光盘管理系统分析与设计主要有系统结构、模块划分、数据库结构的设计。
第四章 光盘管理系统的功能实现开发环境：包括软件和硬件环境。开发工具：要求写明选择该工具的目的。模块说明、流程设计。关键技术（代码）分析。
第五章 结论及体会主要包含系统运行效果、自我评价、测试结果、改进意见；对整个毕业设计的感受、收获或提出问题和希望。

论文撰写：
论文程序：

2003年5月30日

1.1问题的提出
光盘出租与销售的管理是一个常见的问题，其特点是数据之间的关系简单，但数据量较大。若用人工进行管理，刚不便于数据的汇总统计及各种数据分析。例如，若每天有有1000条记录，则要进行1000次加法才能计算出每天的租金总额，当然要进行每个月的统计工作就更复杂了。此时这对于光盘的管理就更难了。例如，要查看哪些光盘是顾客最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。所以本软件就是为了解决这个问题而开发的，它能方便得进行各种管理事务，软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！

1.2本文研究路线
光盘管理是一个常见的问题,最主要的问题是对光盘和会员的管理不方便，例如，要查看哪些光盘是顾客最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。开发本软件的目的就是让管理者减少重复工作，提高信息管理的效率和准确度。它能方便得进行各种管理事务，软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！

第二章 光盘管理系统研究概述

2.1 光盘管理系统的发展历史
以前大多数管理者管理光盘的时候都是使用人工的方式来管理，一开始的时候大家都觉得没有问题，还都可以应付得过来。可是随着光盘的增多，经营业务也不断得增加，便使得经营者不得不雇越来越多的店员来管理这些事务，这样作得代价毫无疑问是成本的增加，这也是经营者最不愿意看到的情况。之后又出现了EXCEL作为数据库的管理系统，但其缺点很快就显示出来，那就是数据管理的不便与灵活性较差。随着软件的发展成熟，许多在OFFICE上开发的项目都成功移植到了软件上，这便使得项目的灵活性更大，用户更容易接受这种方式。
2.2 光盘管理系统系统发展现状
现在随着科技的发展，尤其是计算机的进步，给人们带来诸多的便利，而这样的发展却是经营者最愿意看到的，因为它可以代替那些店员来替他分担这些事务，它可以比那些店员更认真，更卖力，犯错率更低，而更要紧的是它替经营者降低了成本。

2.3本文的目标及相关专业理论
本文的目标就是让经营光盘业务的管理者利用时下的科技技术，来更好的帮助自己解决管理上的问题。然而目前经营光盘出租或销售的软件这么多，质量也参差不齐，这反而却成为困绕管理者的最大的问题。所以我们开发的这套管理软件不仅包括了光盘的出租业务也包括光盘的销售业务，这样作的目的是为了更好的统一管理，业者也不用为了解决事务上的问题而去购买两套软件，从而降低了成本。
另一方面本软件采用VB编写，由于它和数据库有很好的融合性，便　它编出来的软件速度更快，数据更安全，业者可以更放心得使用。

第三章　光盘管理系统分析与设计

3.1 光盘管理系统功能需求简介
本软件的主要功能有：
8、 光盘的管理
9、 管理员的管理
10、 会员的管理
11、 系统配置
12、 锁机系统
13、 身份认证功能
14、 帮助功能

3.2功能需求描述
1、 光盘管理:主要是对光盘的基本操作，如添加，修改，删除、查询。
2、 管理员管理：对管理员操作有添加，修改，删除。
3、 会员管理：对会员操作有添加，修改，删除。
4、 系统配置：可以预设置光盘的类型等资料，同时可以备份和恢复数据库，使其更安全。
5、 锁机系统：这个功能可以便管理员暂时离开电脑，而其数据不被其它人更改。
6、 身份认证功能：可以阻止没有受权人非法试图登陆系统。
7、 帮助功能：使你可以更清楚的了解本系统。

3.3目标系统要求
一台微机处理器为486、50MHz以上的微机；内存容量16MB以上；一个鼠标；硬盘的最小空间为15MB，用户自定义安装需要100MB硬盘空间；推荐使用VGA或更高分辨率的显示器。

3.4系统平台选择
　　本系统适用于Windows9x/windows2000。

3.5数据库设计
3.5.1数据词典分析
1、 管理员
1、 姓名 1{字符}10
2、 密码 1{字符}10
3、 销售总数 1{数字}8
4、 级别 1{字符}10
5、 解屏密码 1{字符}10
2、 客户
1、 客户姓名 1{字符}10
2、 客户号 1{数字}8
3、 电话 1{数字}8
4、 OICQ 1{数字}8
5、 Email 1{字符}10
3、 客户日志
1、 客户姓名 1{字符}10
2、 影片编号 1{数字}8
3、 借盘时期 1(日期/时间)
4、演员
1、 影片编号 1{数字}8
2、 演员 1{字符}10
5、影片格式
1、 影片格式 1{字符}10
6、影片类型
1、 影片类型 1{字符}10
7、影片语言
1、 影片语言 1{字符}10
8、 影片资料
1、 影片编号 1{数字}8
2、 影片名称 1{字符}10
3、 时间长度 1{数字}8
4、 导演 1{字符}10
5、 发行年度 1{字符}10
6、 影片介绍 1{字符}50
7、 购买价格 1{数字}8
8、 出租价格 1{数字}8
9、 影片类型 1{字符}10
10、 影片格式 1{字符}10
11、 影片语言 1{字符}10
12、 总数 1{数字}8

3.5.2数据库介绍
　　本系统采用得是ACCESS2000为后台数据库。数据库名为CD.MDB,其中数据库包含得表为：管理员、客户、客户日志、演员、影片格式、影片类型、影片语言、影片资料、自定义.

第四章 光盘管理系统的功能实现

该软件的开发环境是VB6.0+Windows98，采用得是ACCESS2000为后台数据库，从而使得系统更加安全，操作更加方便。
总体设计：
4.1光盘管理
1、 添加模块
功能：能方便得添加光盘，其中采用了预设方式。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：
2、 修改光盘
功能：完成了修改功能，同样也采用了预设得方式。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：
3、 删除光盘
功能：完成了删除光盘功能，其设置资料为不可选方便了用户。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

4、 查询光盘
功能：完成了查询光盘功能，并设置了多项查询条件的选择。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

4.2管理员管理
1、 添加管理员
功能：完成添加管理员功能, 采用了预设得方式。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

2、修改管理员
功能：完成修改管理员功能，采用了预设得方式。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

3、删除管理员
功能：完成删除管理员功能，采用了预设得方式。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

4.3会员管理
1、 添加会员
功能：添加会员功能。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

2、 修改会员
功能：修改会员功能。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

3、 删除会员
功能：删除会员功能。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

4.4系统配置
功能：查询光盘功能, 采用了预设得方式。
输入项目：鼠标或键盘事件。
输出项目：无。
界面如图所示：

4.5发布应用程序
4.5.1编译应用程序
选择[文件]-------[生成光盘管理系统.exe]
4.5.2打包应用程序
选择[Package & Deployment 向导]
4.5.3发布应用程序的步骤
1、选择[Package & Deployment 向导]

2、选择[打包]

3、选择[下一步]

4、一直选择[下一步]直到

5、选择[完成]。
第六章 结论及体会

整个程序的编写已经完成，经过这次的实践让我对如何利用VB开发数据库程序有了一个更深得理解。在此期间我遇到了许多困难，但经过反复的查阅资料和不断调试下，这些难题还是终究被克服了，比如数据库的加密、如何访问加密的数据库之类的，在这场实践中的调研、开发、调试，从中得到了开发的经验。虽然该系统还并不是很完美，有些功能因条件和自身能力的关系没有设计出来，比如打印之类的管理，所以使得我今后要不断学习更多的东西来完善它，使其真正成为功能完备的光盘管理系统。

参考文献
软件工程原理、方法与应用 史济民 著 高等教育出版社
软件工程实验 陈明、王智广、赵鹏翔 著 高等教育出版社
VB程序设计基础 郎洪、段银田、陈勇孝 著 高等教育出版社
VB程序设计教程习题及习题解答 刘瑞新、李树东、王为东 著电子工业出版社

附录：
1、光盘管理 cdm.frm
Dim yn As New yn '定义yn为yn类

Option Explicit

Private Sub Combo1_Click()
Me.PopupMenu list '弹出LIST菜单
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then '如果按回车键就添加一个记录
Me.Combo1.AddItem Me.Combo1.Text
Me.Combo1.SelStart = 0
Me.Combo1.SelLength = Len(Me.Combo1.Text)
End If

End Sub

Private Sub comsel_KeyPress(Index As Integer, KeyAscii As Integer)

If KeyAscii = 13 Then '如果按回车键就执行查询功能
Call search_Click(0)
End If

End Sub

Private Sub dele_Click()

Me.Combo1.RemoveItem Me.Combo1.ListIndex '单击后删除指定记录

End Sub

Private Sub delecd_Click()

msg = "删除光盘"
Me.TabStrip1.Tabs(4).Selected = True '4被选中
Dim a As String
a = Me.MSHFlexGrid1.Text
Me.MSHFlexGrid1.Row = 0
Me.MSHFlexGrid1.Col = Me.MSHFlexGrid1.Col '- 1
Msel(0).Text = Me.MSHFlexGrid1.Text
Me.txtselect(0).Text = a '赋值方便查询

If Msel(0).Text = "影片编号" Or Msel(0).Text = "影片名称" Or Msel(0).Text = "导演" Or Msel(0).Text = "影片类型" Or Msel(0).Text = "影片格式" Or Msel(0).Text = "影片语言" Then
db = "select * from 影片资料 where " & Msel(0).Text & "='" & Me.txtselect(0).Text & "'"
Call yn.opendb(db)
If Not yn.myrec.EOF Then
Call yn.myrec.Delete
Call yn.myrec.Update
MsgBox "此光盘记录已成功删除！！！", vbInformation
Call yn.closedb

db = "select * from 影片资料 where " & Msel(0).Text & "='" & Me.txtselect(0).Text & "'"
Call yn.opendb(db)
Set Me.MSHFlexGrid1.DataSource = yn.myrec
Call yn.closedb
Else
Me.MSHFlexGrid1.Visible = False
Me.Frame1.Visible = True
Call yn.closedb
End If
Else
db = "select * from 影片资料 where " & Msel(0).Text & "=" & Me.txtselect(0).Text & ""
Call yn.opendb(db)
Call yn.myrec.Delete
Call yn.myrec.Update
MsgBox "此光盘记录已成功删除！！！", vbInformation
Call yn.closedb

db = "select * from 影片资料 where " & Msel(0).Text & "=" & Me.txtselect(0).Text & ""
Call yn.opendb(db)
Set Me.MSHFlexGrid1.DataSource = yn.myrec
Call yn.closedb
End If

End Sub

Private Sub Form_Load()
On Error Resume Next
Me.Caption = Me.Caption & msg
Select Case msg

Case Is = "添加光盘"
Me.TabStrip1.Tabs(2).Selected = True
For i = 0 To 8
Me.txtinfo(i).BackColor = vbWhite
Next
Me.Combo1.BackColor = vbWhite '设置白色代表有效
Me.Combo2.BackColor = vbWhite
Me.Combo3.BackColor = vbWhite
Me.Combo4.BackColor = vbWhite
Me.txtselect(0).Visible = False
Me.Labinfo(1).Visible = False
Msel(0).Visible = False
Me.search(0).Visible = False
Me.Combo1.Clear
Me.Combo2.Clear
Me.Combo3.Clear
Me.Combo4.Clear

Call yn.opendb("select * from 影片类型")
Do While yn.myrec.EOF = False
Me.Combo2.AddItem yn.myrec.Fields("影片类型")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片格式")
Do While yn.myrec.EOF = False
Me.Combo3.AddItem yn.myrec.Fields("影片格式")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片语言")
Do While yn.myrec.EOF = False
Me.Combo4.AddItem yn.myrec.Fields("影片语言")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 自定义")
Me.txtinfo(6).Text = yn.myrec.Fields("购买价格")
Me.txtinfo(5).Text = yn.myrec.Fields("出租价格")
Call yn.closedb

Case Is = "修改光盘"
Me.txtselect(0).TabIndex = 0
Msel(0).TabIndex = 1

Me.TabStrip1.Tabs(3).Selected = True
For i = 0 To 8
Me.txtinfo(i).BackColor = vbWhite
Next
Me.Combo1.BackColor = vbWhite '设置白色代表有效
Me.Combo2.BackColor = vbWhite
Me.Combo3.BackColor = vbWhite
Me.Combo4.BackColor = vbWhite
Me.Combo1.Clear
Me.Combo2.Clear
Me.Combo3.Clear
Me.Combo4.Clear

Call yn.opendb("select * from 影片类型")
Do While yn.myrec.EOF = False
Me.Combo2.AddItem yn.myrec.Fields("影片类型")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片格式")
Do While yn.myrec.EOF = False
Me.Combo3.AddItem yn.myrec.Fields("影片格式")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片语言")
Do While yn.myrec.EOF = False
Me.Combo4.AddItem yn.myrec.Fields("影片语言")
yn.myrec.MoveNext
Loop
Call yn.closedb

Case Is = "光盘查询"
Me.TabStrip1.Tabs(1).Selected = True
Me.Combo1.Visible = False
For i = 0 To 8
Me.txtinfo(i).Locked = True
Next
Me.txtselect(0).TabIndex = 0
Msel(0).TabIndex = 1

Case Is = "删除光盘"
Me.TabStrip1.Tabs(4).Selected = True
Me.txtselect(0).TabIndex = 0
Msel(0).TabIndex = 1

End Select

End Sub

Private Sub modicd_Click()

On Error Resume Next '忽略错误
msg = "修改光盘"
Me.TabStrip1.Tabs(3).Selected = True
Me.MSHFlexGrid1.Row = Me.MSHFlexGrid1.RowSel '确定查询条件
Me.MSHFlexGrid1.Col = 1
Me.txtselect(0).Text = Me.MSHFlexGrid1.Text
Me.MSHFlexGrid1.Visible = False
Me.Frame1.Visible = True
db = "select * from 影片资料 where 影片名称='" & Trim(Me.txtselect(0).Text) & "'"
Call yn.opendb(db)
cdm.txtinfo(0).Text = yn.myrec.Fields("影片编号")
cdm.txtinfo(1).Text = yn.myrec.Fields("影片名称")
cdm.txtinfo(4).Text = yn.myrec.Fields("时间长度")
cdm.txtinfo(2).Text = yn.myrec.Fields("导演")
cdm.txtinfo(3).Text = yn.myrec.Fields("发行年度")
cdm.txtinfo(8).Text = yn.myrec.Fields("影片介绍")
cdm.txtinfo(6).Text = yn.myrec.Fields("购买价格")
cdm.Combo2.Text = yn.myrec.Fields("影片类型")
cdm.Combo4.Text = yn.myrec.Fields("影片语言")
cdm.Combo3.Text = yn.myrec.Fields("影片格式")
cdm.txtinfo(7).Text = yn.myrec.Fields("总数")
cdm.txtinfo(5).Text = yn.myrec.Fields("出租价格")
Call yn.closedb
Call yn.opendb("select * from 演员 where 影片编号='" & Me.txtinfo(0).Text & "'")
Do While Not yn.myrec.EOF
Me.Combo1.AddItem yn.myrec.Fields("演员").Value
yn.myrec.MoveNext
Loop
Call yn.closedb

End Sub

Private Sub MSHFlexGrid1_Click()

Me.PopupMenu modimsf '弹出修改菜单

End Sub

Private Sub qd_Click()

Select Case msg

Case Is = "添加光盘"
If Me.txtinfo(0).Text <> "" Then

For i = 0 To 8
If Me.txtinfo(i).Text = "" Then
MsgBox "对不起这里的每个选项你都要填写！！！", vbQuestion
Exit Sub
End If
Next
db = "select * from 影片资料 where 影片名称='" & Me.txtinfo(1).Text & "'"
Call yn.opendb(db)
If yn.myrec.EOF = False Then
MsgBox "已经有这部影片了！！！", vbQuestion
Call yn.closedb
Else
Call yn.closedb
Call yn.add("光盘信息")
Call yn.add("演员")
MsgBox "添加成功！！！", vbInformation
For i = 0 To 4
Me.txtinfo(i).Text = ""
Next
Me.txtinfo(7).Text = ""
Me.txtinfo(8).Text = ""
Me.Combo1.Text = ""
Me.Combo1.Clear
Me.Combo2.Text = ""
Me.Combo3.Text = ""
Me.Combo4.Text = ""
End If
End If

Case Is = "修改光盘"
If Me.txtinfo(0).Text <> "" Then
Call yn.modi("光盘信息")
Call yn.modi("演员")
MsgBox "修改成功！！！", vbInformation
'For i = 0 To 8
' Me.txtinfo(i).Text = ""
'Next
End If

Case Is = "删除光盘"
If Me.txtinfo(0).Text <> "" Then
db = "select * from 影片资料 where 影片名称='" & Me.txtinfo(1).Text & "'"
Call yn.opendb(db)
Call yn.myrec.Delete
Call yn.myrec.Update
Call yn.closedb
Call yn.opendb("select * from 演员")
yn.mycon.Execute "delete from 演员 where 影片编号='" & cdm.txtinfo(0).Text & "'"
Call yn.closedb
For i = 0 To 8
Me.txtinfo(i).Text = ""
Next
Me.Combo1.Text = ""
Me.Combo2.Text = ""
Me.Combo3.Text = ""
Me.Combo4.Text = ""
Msel(0).Text = ""
Me.txtselect(0).Text = ""
Me.lstinfo.Clear
MsgBox "此光盘记录已删除！！！", vbInformation
End If
End Select

End Sub

Private Sub qx_Click()

Unload Me

End Sub

Private Sub search_Click(Index As Integer)

If Msel(0).Text <> "" A