光盘管理系统计算机信息管理论文.docx
《光盘管理系统计算机信息管理论文.docx》由会员分享，可在线阅读，更多相关《光盘管理系统计算机信息管理论文.docx（28页珍藏版）》请在冰豆网上搜索。
光盘管理系统计算机信息管理论文
湖北省仙桃市广播电视大学06届
计算机信息管理专业毕业论文
题目：
光盘管理系统
姓名:
邓杨明
专业:
计算机信息管理
学号:
063150126
指导老师:
樊老师
摘要：
光盘管理系统是用VB6.0开发出来用于管理光盘的出租和出售的MIS系统。
该系统用于光盘出租或销售店，方便出售光盘、租盘、还盘、查找等操作,是出租光盘店的最佳助手。
可以自定义光盘，方便添加新盘、管理光盘。
提供完善的租盘和还盘操作，完全独立的数据库系统，数据管理为您提供：
光盘管理系统，数据查询为您提供：
租借情况，光盘查询。
本系统具有安全的数据库备份方案，简单易用，仿WINDOWS操作方式，可以使您很快上手，根据需要自行设置光盘类别和相应的借出时间、借出册数。
目录
摘要………………………………………………………………………1
一、系统需求分析………………………………………………………4
二、光盘管理系统分析与设计…………………………………………5
1、功能分析…………………………………………………………6
2、系统硬件，软件要求……………………………………………6三、数据库设计…………………………………………………………7
四、系统功能模块实现…………………………………………………10
1、光盘管理模块…………………………………………………10
2、管理员管理模块………………………………………………26
3、系统配置………………………………………………………32
结束语…………………………………………………………………35
参考文献………………………………………………………………35
一、系统需求分析
光盘出租与销售的管理是一个常见的问题，其特点是数据之间的关系简单，但数据量较大。
若用人工进行管理，不便于数据的汇总统计及各种数据分析。
例如，若每天有有1000条记录，则要进行1000次加法才能计算出每天的租金总额，当然要进行每个月的统计工作就更复杂了。
此时这对于光盘的管理就更难了。
例如，要查看哪些光盘是客户、最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。
所以本软件就是为了解决这个问题而开发的，它能方便得进行各种管理事务，
能自动计算押金、租金，界面设计大方、简洁、实用；操作简单方便。
让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世界
二、光盘管理系统分析与设计
1、光盘管理系统应该具有如下功能：
①光盘管理:
主要是对光盘的基本操作，如添加，修改，删除、查询。
②管理员管理：
对管理员操作有添加，修改，删除。
③系统配置：
可以预设置光盘的类型等资料，同时可以备份和恢复数据库，使其更安全。
④锁机系统：
这个功能可以便管理员暂时离开电脑，而其数据不被其它人更改。
⑤身份认证功能：
可以阻止没有受权人非法试图登陆系统。
⑥帮助功能：
使你可以更清楚的了解本系统。
综合以上分析该系统的功能结构图如下：
2、系统硬件要求
一台微机处理器为600、800MHz以上的微机；内存容量64MB以上；一个鼠标；硬盘的最小空间为2GB，用户自定义安装需要100MB硬盘空间；推荐使用VGA或更高分辨率的显示器，适用于Windows9x/windows2000/windowsxp
三、数据库设计
该系统是典型的数据库系统，应定义如下数据表：
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
四、系统功能模块实现：
1、光盘管理模块：
①、添加模块
功能：
能方便得添加光盘，其中采用了预设方式。
输入项目：
鼠标或键盘事件。
输出项目：
无。
界面如图所示：
功能代码如下：
CaseIs=2
msg="添加光盘"
Me.Caption="光盘管理---------"&msg
Msel（0）.Visible=False
Me.txtselect（0）.Visible=False
Me.Labinfo
（1）.Visible=False
Me.search（0）.Visible=False
Me.Combo1.Visible=True
Me.lstinfo.Visible=False
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
Fori=0To8
Me.txtinfo（i）.Text=""
Me.txtinfo（i）.Locked=False
Next
Me.Combo1.Text=""
Me.Combo2.Text=""
Me.Combo3.Text=""
Me.Combo4.Text=""
Me.Combo1.Clear
Me.Combo2.Clear
Me.Combo3.Clear
Me.Combo4.Clear
Me.lstinfo.Clear
Fori=0To8
Me.txtinfo（i）.BackColor=vbWhite
Next
Me.Combo1.BackColor=vbWhite
Me.Combo2.BackColor=vbWhite
Me.Combo3.BackColor=vbWhite
Me.Combo4.BackColor=vbWhite
Callyn.opendb（"select*from影片类型"）
DoWhileyn.myrec.EOF=False
Me.Combo2.AddItemyn.myrec.Fields（"影片类型"）
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb（"select*from影片格式"）
DoWhileyn.myrec.EOF=False
Me.Combo3.AddItemyn.myrec.Fields（"影片格式"）
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb（"select*from影片语言"）
DoWhileyn.myrec.EOF=False
Me.Combo4.AddItemyn.myrec.Fields（"影片语言"）
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb（"select*from自定义"）
Me.txtinfo（6）.Text=yn.myrec.Fields（"购买价格"）
Me.txtinfo（5）.Text=yn.myrec.Fields（"出租价格"）
Callyn.closedb
②修改光盘
功能：
完成了修改功能，同样也采用了预设得方式。
输入项目：
鼠标或键盘事件。
输出项目：
无。
界面如图所示：
功能代码如下：
CaseIs=3
msg="修改光盘"
Me.Caption="光盘管理---------"&msg
Msel（0）.Visible=True
Me.txtselect（0）.Visible=True
Me.Labinfo
（1）.Visible=True
Me.search（0）.Visible=True
Me.Combo1.Visible=True
Me.lstinfo.Visible=False
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
Fori=0To8
Me.txtinfo（i）.Text=""
Me.txtinfo（i）.Locked=False
Next
Me.Combo1.Text=""
Me.Combo1.Clear
Me.Combo2.Clear
Me.Combo3.Clear
Me.Combo4.Clear
Me.Combo2.Text=""
Me.Combo3.Text=""
Me.Combo4.Text=""
Msel（0）.Text=""
Me.txtselect（0）.Text=""
Me.lstinfo.Clear
Fori=0To8
Me.txtinfo（i）.BackColor=vbWhite
Me.txtinfo（i）.Locked=False
Next
Me.Combo1.BackColor=vbWhite
Me.Combo2.BackColor=vbWhite
Me.Combo3.BackColor=vbWhite
Me.Combo4.BackColor=vbWhite
Callyn.opendb（"select*from影片类型"）
DoWhileyn.myrec.EOF=False
Me.Combo2.AddItemyn.myrec.Fields（"影片类型"）
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb（"select*from影片格式"）
DoWhileyn.myrec.EOF=False
Me.Combo3.AddItemyn.myrec.Fields（"影片格式"）
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb（"select*from影片语言"）
DoWhileyn.myrec.EOF=False
Me.Combo4.AddItemyn.myrec.Fields（"影片语言"）
yn.myrec.MoveNext
Loop
Callyn.closedb
④删除光盘
功能：
完成了删除光盘功能，其设置资料为不可选方便了用户。
输入项目：
鼠标或键盘事件。
输出项目：
无。
界面如图所示：
功能代码如下
CaseIs=4
msg="删除光盘"
Me.Caption="光盘管理---------"&msg
Msel（0）.Visible=True
Me.txtselect（0）.Visible=True
Me.Labinfo
（1）.Visible=True
Me.search（0）.Visible=True
Me.Combo1.Visible=False
Me.lstinfo.Visible=True
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
Fori=0To8
Me.txtinfo（i）.Text=""
Me.txtinfo（i）.Locked=True
Next
Me.Combo1.Text=""
Me.Combo2.Text=""
Me.Combo3.Text=""
Me.Combo4.Text=""
Msel（0）.Text=""
Me.txtselect（0）.Text=""
Me.lstinfo.Clear
Fori=0To8
Me.txtinfo（i）.BackColor=&H80000004
Next
Me.Combo1.BackColor=&H80000004
Me.Combo2.BackColor=&H80000004
Me.Combo3.BackColor=&H80000004
Me.Combo4.BackColor=&H80000004
EndSelect
⑤查询光盘
功能：
完成了查询光盘功能，并设置了多项查询条件的选择。
输入项目：
鼠标或键盘事件。
输出项目：
无。
界面如图所示：
功能代码如下：
CaseIs="光盘查询"
Me.TabStrip1.Tabs
（1）.Selected=True
Me.Combo1.Visible=False
Fori=0To8
Me.txtinfo（i）.Locked=True
Next
Me.txtselect（0）.TabIndex=0
Msel（0）.TabIndex=1
CaseIs="删除光盘"
Me.TabStrip1.Tabs（4）.Selected=True
Me.txtselect（0）.TabIndex=0
Msel（0）.TabIndex=1
EndSelect
PrivateSubselec（）'=======查询过程
OnErrorResumeNext
IfMsel（0）.Text="影片编号"OrMsel（0）.Text="影片名称"Then
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
db="select*from影片资料where"&Msel（0）.Text&"='"&Me.txtselect（0）.Text&"'"
Callyn.opendb（db）
Ifyn.myrec.EOFThen
MsgBox"无此盘！
！
！
",vbQuestion
Else
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（"出租价格"）
Callyn.closedb
Callyn.opendb（"select*from演员where影片编号='"&Me.txtinfo（0）.Text&"'"）
DoWhileNotyn.myrec.EOF
Me.lstinfo.AddItemyn.myrec.Fields（"演员"）.Value
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb（"select*from演员where影片编号='"&Me.txtinfo（0）.Text&"'"）
DoWhileNotyn.myrec.EOF
Me.Combo1.AddItemyn.myrec.Fields（"演员"）.Value
yn.myrec.MoveNext
Loop
EndIf
Callyn.closedb
ElseIfMsel（0）.Text="导演"OrMsel（0）.Text="影片类型"OrMsel（0）.Text="影片格式"OrMsel（0）.Text="影片语言"Then
db="select*from影片资料where"&Msel（0）.Text&"='"&VBA.LCase（Me.txtselect（0）.Text）&"'"
Callyn.opendb（db）
Ifyn.myrec.EOFThen
MsgBox"无此盘！
！
！
",vbQuestion
Callyn.closedb
Else
Me.Frame1.Visible=False
Me.MSHFlexGrid1.Visible=True
SetMe.MSHFlexGrid1.DataSource=yn.myrec
Callyn.closedb
EndIf
Else
IfVBA.IsNumeric（Me.txtselect（0）.Text）=TrueThen
db="select*from影片资料where"&Msel（0）.Text&"="&Me.txtselect（0）.Text
Callyn.opendb（db）
Ifyn.myrec.EOFThen
MsgBox"无此盘！
！
！
",vbQuestion
Callyn.closedb
Else
Me.Frame1.Visible=False
Me.MSHFlexGrid1.Visible=True
SetMe.MSHFlexGrid1.DataSource=yn.myrec
Callyn.closedb
EndIf
Else
MsgBox"请输入数字！
！
！
",vbInformation
EndIf
EndIf
EndSub
PrivateSubtxtselect_KeyPress（IndexAsInteger,KeyAsciiAsInteger）
IfKeyAscii=13Then
Callsearch_Click（0）
EndIf
EndSub
2、main.frm
DimynAsNewyn
OptionExplicit
PrivateSubaboutmenu_Click（）
load.ShowvbModal
EndSub
EndSub
PrivateSubmodicd_Click（）
OnErrorResumeNext'忽略错误
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）&"'"
Callyn.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（"出租价格"）
Callyn.closedb
Callyn.opendb（"select*from演员where影片编号='"&Me.txtinfo（0）.Text&"'"）
DoWhileNotyn.myrec.EOF
升级会员 