毕业设计光盘管理系统计算机信息管理论文.docx

毕业设计光盘管理系统计算机信息管理论文.docx

《毕业设计光盘管理系统计算机信息管理论文.docx》由会员分享，可在线阅读，更多相关《毕业设计光盘管理系统计算机信息管理论文.docx（27页珍藏版）》请在冰豆网上搜索。

毕业设计光盘管理系统计算机信息管理论文

湖北省仙桃市广播电视大学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

M