还剩33页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
湖北省仙桃市广播电视大学06届计算机信息管理专业毕业论文题目光盘管理系统姓名:邓杨明专业:计算机信息管理学号:063150126指导老师:樊老师摘要光盘管理系统是用VB
6.0开发出来用于管理光盘的出租和出售的MIS系统该系统用于光盘出租或销售店,方便出售光盘、租盘、还盘、查找等操作是出租光盘店的最佳助手可以自定义光盘,方便添加新盘、管理光盘提供完善的租盘和还盘操作,完全独立的数据库系统,数据管理为您提供光盘管理系统,数据查询为您提供租借情况,光盘查询本系统具有安全的数据库备份方案,简单易用,仿WINDOWS操作方式,可以使您很快上手,根据需要自行设置光盘类别和相应的借出时间、借出册数目录摘要………………………………………………………………………1
一、系统需求分析………………………………………………………4
二、光盘管理系统分析与设计…………………………………………
51、功能分析…………………………………………………………
62、系统硬件,软件要求……………………………………………6
三、数据库设计…………………………………………………………7
四、系统功能模块实现…………………………………………………
101、光盘管理模块…………………………………………………
102、管理员管理模块………………………………………………
263、系统配置………………………………………………………32结束语…………………………………………………………………35参考文献………………………………………………………………35
一、系统需求分析光盘出租与销售的管理是一个常见的问题,其特点是数据之间的关系简单,但数据量较大若用人工进行管理,不便于数据的汇总统计及各种数据分析例如,若每天有有1000条记录,则要进行1000次加法才能计算出每天的租金总额,当然要进行每个月的统计工作就更复杂了此时这对于光盘的管理就更难了例如,要查看哪些光盘是客户、最喜欢看的,哪些光盘被损坏,哪些光盘超期未还等,这些问题用人工管理方式是难以解决的所以本软件就是为了解决这个问题而开发的,它能方便得进行各种管理事务,能自动计算押金、租金,界面设计大方、简洁、实用;操作简单方便让你摆脱繁重混乱的手工时代,进入科学高效的信息管理世界
二、光盘管理系统分析与设计
1、光盘管理系统应该具有如下功能
①光盘管理:主要是对光盘的基本操作,如添加,修改,删除、查询
②管理员管理对管理员操作有添加,修改,删除
③系统配置可以预设置光盘的类型等资料,同时可以备份和恢复数据库,使其更安全
④锁机系统这个功能可以便管理员暂时离开电脑,而其数据不被其它人更改
⑤身份认证功能可以阻止没有受权人非法试图登陆系统
⑥帮助功能使你可以更清楚的了解本系统综合以上分析该系统的功能结构图如下
2、系统硬件要求一台微机处理器为
600、800MHz以上的微机;内存容量64MB以上;一个鼠标;硬盘的最小空间为2GB,用户自定义安装需要100MB硬盘空间;推荐使用VGA或更高分辨率的显示器,适用于Windows9x/windows2000/windowsxp
三、数据库设计该系统是典型的数据库系统,应定义如下数据表
1、管理员字段名类型长度
1、姓名1{字符}
102、密码1{字符}
103、销售总数1{数字}
84、级别1{字符}
105、解屏密码1{字符}
102、客户字段名类型长度
1、客户姓名1{字符}
102、客户号1{数字}
83、电话1{数字}
84、OICQ1{数字}
85、Email1{字符}
103、客户日志字段名类型长度
1、客户姓名1{字符}
102、影片编号1{数字}
83、借盘时期1日期/时间
4、演员字段名类型长度
1、影片编号1{数字}
82、演员1{字符}
105、影片格式字段名类型长度
1、影片格式1{字符}
106、影片类型字段名类型长度
1、影片类型1{字符}
107、影片语言字段名类型长度
1、影片语言1{字符}
108、影片资料字段名类型长度
1、影片编号1{数字}
82、影片名称1{字符}
103、时间长度1{数字}
84、导演1{字符}
105、发行年度1{字符}
106、影片介绍1{字符}
507、购买价格1{数字}
88、出租价格1{数字}
89、影片类型1{字符}
1010、影片格式1{字符}
1011、影片语言1{字符}
1012、总数1{数字}8
四、系统功能模块实现
1、光盘管理模块
①、添加模块功能能方便得添加光盘,其中采用了预设方式输入项目鼠标或键盘事件输出项目无界面如图所示功能代码如下CaseIs=2msg=添加光盘Me.Caption=光盘管理---------msgMe.comsel
0.Visible=FalseMe.txtselect
0.Visible=FalseMe.Labinfo
1.Visible=FalseMe.search
0.Visible=FalseMe.Combo
1.Visible=TrueMe.lstinfo.Visible=FalseMe.MSHFlexGrid
1.Visible=FalseMe.Frame
1.Visible=TrueFori=0To8Me.txtinfoi.Text=Me.txtinfoi.Locked=FalseNextMe.Combo
1.Text=Me.Combo
2.Text=Me.Combo
3.Text=Me.Combo
4.Text=Me.Combo
1.ClearMe.Combo
2.ClearMe.Combo
3.ClearMe.Combo
4.ClearMe.lstinfo.ClearFori=0To8Me.txtinfoi.BackColor=vbWhiteNextMe.Combo
1.BackColor=vbWhiteMe.Combo
2.BackColor=vbWhiteMe.Combo
3.BackColor=vbWhiteMe.Combo
4.BackColor=vbWhiteCallyn.opendbselect*from影片类型DoWhileyn.myrec.EOF=FalseMe.Combo
2.AddItemyn.myrec.Fields影片类型yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselect*from影片格式DoWhileyn.myrec.EOF=FalseMe.Combo
3.AddItemyn.myrec.Fields影片格式yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselect*from影片语言DoWhileyn.myrec.EOF=FalseMe.Combo
4.AddItemyn.myrec.Fields影片语言yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselect*from自定义Me.txtinfo
6.Text=yn.myrec.Fields购买价格Me.txtinfo
5.Text=yn.myrec.Fields出租价格Callyn.closedb
②修改光盘功能完成了修改功能,同样也采用了预设得方式输入项目鼠标或键盘事件输出项目无界面如图所示功能代码如下CaseIs=3msg=修改光盘Me.Caption=光盘管理---------msgMe.comsel
0.Visible=TrueMe.txtselect
0.Visible=TrueMe.Labinfo
1.Visible=TrueMe.search
0.Visible=TrueMe.Combo
1.Visible=TrueMe.lstinfo.Visible=FalseMe.MSHFlexGrid
1.Visible=FalseMe.Frame
1.Visible=TrueFori=0To8Me.txtinfoi.Text=Me.txtinfoi.Locked=FalseNextMe.Combo
1.Text=Me.Combo
1.ClearMe.Combo
2.ClearMe.Combo
3.ClearMe.Combo
4.ClearMe.Combo
2.Text=Me.Combo
3.Text=Me.Combo
4.Text=Me.comsel
0.Text=Me.txtselect
0.Text=Me.lstinfo.ClearFori=0To8Me.txtinfoi.BackColor=vbWhiteMe.txtinfoi.Locked=FalseNextMe.Combo
1.BackColor=vbWhiteMe.Combo
2.BackColor=vbWhiteMe.Combo
3.BackColor=vbWhiteMe.Combo
4.BackColor=vbWhiteCallyn.opendbselect*from影片类型DoWhileyn.myrec.EOF=FalseMe.Combo
2.AddItemyn.myrec.Fields影片类型yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselect*from影片格式DoWhileyn.myrec.EOF=FalseMe.Combo
3.AddItemyn.myrec.Fields影片格式yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselect*from影片语言DoWhileyn.myrec.EOF=FalseMe.Combo
4.AddItemyn.myrec.Fields影片语言yn.myrec.MoveNextLoopCallyn.closedb
④删除光盘功能完成了删除光盘功能,其设置资料为不可选方便了用户输入项目鼠标或键盘事件输出项目无界面如图所示功能代码如下CaseIs=4msg=删除光盘Me.Caption=光盘管理---------msgMe.comsel
0.Visible=TrueMe.txtselect
0.Visible=TrueMe.Labinfo
1.Visible=TrueMe.search
0.Visible=TrueMe.Combo
1.Visible=FalseMe.lstinfo.Visible=TrueMe.MSHFlexGrid
1.Visible=FalseMe.Frame
1.Visible=TrueFori=0To8Me.txtinfoi.Text=Me.txtinfoi.Locked=TrueNextMe.Combo
1.Text=Me.Combo
2.Text=Me.Combo
3.Text=Me.Combo
4.Text=Me.comsel
0.Text=Me.txtselect
0.Text=Me.lstinfo.ClearFori=0To8Me.txtinfoi.BackColor=H80000004NextMe.Combo
1.BackColor=H80000004Me.Combo
2.BackColor=H80000004Me.Combo
3.BackColor=H80000004Me.Combo
4.BackColor=H80000004EndSelect
⑤查询光盘功能完成了查询光盘功能,并设置了多项查询条件的选择输入项目鼠标或键盘事件输出项目无界面如图所示功能代码如下CaseIs=光盘查询Me.TabStrip
1.Tabs
1.Selected=TrueMe.Combo
1.Visible=FalseFori=0To8Me.txtinfoi.Locked=TrueNextMe.txtselect
0.TabIndex=0Me.comsel
0.TabIndex=1CaseIs=删除光盘Me.TabStrip
1.Tabs
4.Selected=TrueMe.txtselect
0.TabIndex=0Me.comsel
0.TabIndex=1EndSelectPrivateSubselec=======查询过程OnErrorResumeNextIfMe.comsel
0.Text=影片编号OrMe.comsel
0.Text=影片名称ThenMe.MSHFlexGrid
1.Visible=FalseMe.Frame
1.Visible=Truedb=select*from影片资料whereMe.comsel
0.Text=Me.txtselect
0.TextCallyn.opendbdbIfyn.myrec.EOFThenMsgBox无此盘!!!vbQuestionElsecdm.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.Combo
2.Text=yn.myrec.Fields影片类型cdm.Combo
4.Text=yn.myrec.Fields影片语言cdm.Combo
3.Text=yn.myrec.Fields影片格式cdm.txtinfo
7.Text=yn.myrec.Fields总数cdm.txtinfo
5.Text=yn.myrec.Fields出租价格Callyn.closedbCallyn.opendbselect*from演员where影片编号=Me.txtinfo
0.TextDoWhileNotyn.myrec.EOFMe.lstinfo.AddItemyn.myrec.Fields演员.Valueyn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselect*from演员where影片编号=Me.txtinfo
0.TextDoWhileNotyn.myrec.EOFMe.Combo
1.AddItemyn.myrec.Fields演员.Valueyn.myrec.MoveNextLoopEndIfCallyn.closedbElseIfMe.comsel
0.Text=导演OrMe.comsel
0.Text=影片类型OrMe.comsel
0.Text=影片格式OrMe.comsel
0.Text=影片语言Thendb=select*from影片资料whereMe.comsel
0.Text=VBA.LCaseMe.txtselect
0.TextCallyn.opendbdbIfyn.myrec.EOFThenMsgBox无此盘!!!vbQuestionCallyn.closedbElseMe.Frame
1.Visible=FalseMe.MSHFlexGrid
1.Visible=TrueSetMe.MSHFlexGrid
1.DataSource=yn.myrecCallyn.closedbEndIfElseIfVBA.IsNumericMe.txtselect
0.Text=TrueThendb=select*from影片资料whereMe.comsel
0.Text=Me.txtselect
0.TextCallyn.opendbdbIfyn.myrec.EOFThenMsgBox无此盘!!!vbQuestionCallyn.closedbElseMe.Frame
1.Visible=FalseMe.MSHFlexGrid
1.Visible=TrueSetMe.MSHFlexGrid
1.DataSource=yn.myrecCallyn.closedbEndIfElseMsgBox请输入数字!!!vbInformationEndIfEndIfEndSubPrivateSubtxtselect_KeyPressIndexAsIntegerKeyAsciiAsIntegerIfKeyAscii=13ThenCallsearch_Click0EndIfEndSub
2、main.frmDimynAsNewynOptionExplicitPrivateSubaboutmenu_Clickload.ShowvbModalEndSubEndSubPrivateSubmodicd_ClickOnErrorResumeNext忽略错误msg=修改光盘Me.TabStrip
1.Tabs
3.Selected=TrueMe.MSHFlexGrid
1.Row=Me.MSHFlexGrid
1.RowSel确定查询条件Me.MSHFlexGrid
1.Col=1Me.txtselect
0.Text=Me.MSHFlexGrid
1.TextMe.MSHFlexGrid
1.Visible=FalseMe.Frame
1.Visible=Truedb=select*from影片资料where影片名称=TrimMe.txtselect
0.TextCallyn.opendbdbcdm.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.Combo
2.Text=yn.myrec.Fields影片类型cdm.Combo
4.Text=yn.myrec.Fields影片语言cdm.Combo
3.Text=yn.myrec.Fields影片格式cdm.txtinfo
7.Text=yn.myrec.Fields总数cdm.txtinfo
5.Text=yn.myrec.Fields出租价格Callyn.closedbCallyn.opendbselect*from演员where影片编号=Me.txtinfo
0.TextDoWhileNotyn.myrec.EOFMe.Combo
1.AddItemyn.myrec.Fields演员.Valueyn.myrec.MoveNextLoopCallyn.closedbEndSubPrivateSubMSHFlexGrid1_ClickMe.PopupMenumodimsf弹出修改菜单
4.2管理员管理
1、添加管理员功能完成添加管理员功能采用了预设得方式输入项目鼠标或键盘事件输出项目无界面如图所示功能代码如下CaseIs=添加管理员IfMe.Text
10.TextAndMe.Text
11.TextAndMe.Combo
1.TextAndMe.Text
13.TextThenCallyn.opendbselect*from管理员where名字=Me.Text
10.Text查询条件在数据库中Ifyn.myrec.EOFThenCallyn.myrec.AddNew添加yn.myrec.Fields名字=Me.Text
10.Textyn.myrec.Fields密码=Me.Text
11.Textyn.myrec.Fields级别=Me.Combo
1.Textyn.myrec.Fields解屏密码=Me.Text
13.TextCallyn.myrec.Update更新Callyn.closedb关闭MsgBox添加成功!!!vbInformationMe.Text
10.Text=Me.Text
11.Text=Me.Combo
1.Text=Me.Text
13.Text=ElseMsgBox已经有此管理员!!!vbInformationCallyn.closedbEndIfElseMsgBox请输入完整!!!vbInformationEndIf
2、修改管理员功能完成修改管理员功能,采用了预设得方式输入项目鼠标或键盘事件输出项目无界面如图所示功能代码如下CaseIs=修改管理员Callyn.opendbselect*from管理员where名字=Me.txtselect
0.TextIfNotyn.myrec.EOFThenyn.myrec.Fields名字=Me.Text
10.Textyn.myrec.Fields密码=Me.Text
11.Textyn.myrec.Fields级别=Me.Combo
1.Textyn.myrec.Fields解屏密码=Me.Text
13.TextCallyn.myrec.UpdateCallyn.closedbMsgBox修改成功!!!vbInformationEndIf
3、删除管理员功能完成删除管理员功能,采用了预设得方式输入项目鼠标或键盘事件输出项目无界面如图所示功能代码如下CaseIs=删除管理员Callyn.opendbselect*from管理员where名字=Me.txtselect
0.TextIfNotyn.myrec.EOFThenMe.Text
10.Text=yn.myrec.Fields名字Me.Text
11.Text=yn.myrec.Fields密码Me.Combo
1.Text=yn.myrec.Fields级别Me.Text
13.Text=yn.myrec.Fields解屏密码Callyn.myrec.Delete删除Callyn.myrec.Update更新Callyn.closedb关闭MsgBox删除成功!!!vbInformationMe.Text
10.Text=Me.Text
11.Text=Me.Combo
1.Text=Me.Text
13.Text=EndIfEndSelectEndSubCaseIs=管理员查询PrivateSubsearch_ClickIndexAsIntegerCallyn.opendbselect*from管理员where名字=Me.txtselect
0.TextIfNotyn.myrec.EOFThenMe.Text
10.Text=yn.myrec.Fields名字Me.Text
11.Text=yn.myrec.Fields密码Me.Combo
1.Text=yn.myrec.Fields级别Me.Text
13.Text=yn.myrec.Fields解屏密码Callyn.closedbElseMsgBox没有此管理员!!!vbInformationCallyn.closedbEndIf
4.3系统配置功能查询光盘功能采用了预设得方式输入项目鼠标或键盘事件输出项目无界面如图所示功能代码如下PrivateSubmodicd_ClickOnErrorResumeNextmsg=设置基本数据Me.TabStrip
1.Tabs
3.Selected=TrueMe.MSHFlexGrid
1.Row=Me.MSHFlexGrid
1.RowSelMe.MSHFlexGrid
1.Col=1Me.txtselect
0.Text=Me.MSHFlexGrid
1.TextMe.MSHFlexGrid
1.Visible=FalseMe.Frame
1.Visible=Truedb=select*from影片资料where影片名称=TrimMe.txtselect
0.TextCallyn.opendbdbcdm.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.Combo
2.Text=yn.myrec.Fields影片类型cdm.Combo
4.Text=yn.myrec.Fields影片语言cdm.Combo
3.Text=yn.myrec.Fields影片格式cdm.txtinfo
7.Text=yn.myrec.Fields总数cdm.txtinfo
5.Text=yn.myrec.Fields出租价格Callyn.closedbCallyn.opendbselect*from演员where影片编号=Me.txtinfo
0.TextDoWhileNotyn.myrec.EOFMe.Combo
1.AddItemyn.myrec.Fields演员.Valueyn.myrec.MoveNextLoopCallyn.closedbEndSub结束语整个程序的编写已经完成,经过这次的实践让我们对如何利用VB开发数据库程序有了一个更深得理解在此期间我们遇到了许多困难,但经过我们反复的查阅资料和不断调试下,这些难题还是终究被我们一一克服了,比如数据库的加密、如何访问加密的数据库之类的,在这场实践中我们一起调研、开发、调试,从中我们也得到了宝贵的的经验虽然该系统还并不是很完美,有些功能因条件和自身能力的关系没有设计出来,比如打印之类的管理,所以使得我们今后要不断学习更多的东西来完善它,使其真正成为功能完备的光盘管理系统参考文献软件工程原理、方法与应用史济民著高等教育出版社软件工程实验陈明、王智广、赵鹏翔著高等教育出版社VB程序设计基础郎洪、段银田、陈勇孝著高等教育出版社VB程序设计教程习题及习题解答刘瑞新、李树东、王为东著电子工业出版社身份验证验证通过YN退出主界面光盘管理管理员管理帮助系统配置。