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

1、 . 省仙桃市广播电视大学06届计算机信息管理专业毕业论文题目：光盘管理系统姓 名: 邓 明 专 业: 计算机信息管理 学 号: 063150126 指导老师: 樊老师 摘要：光盘管理系统是用VB6.0开发出来用于管理光盘的出租和出售的MIS系统。该系统用于光盘出租或销售店，方便出售光盘、租盘、还盘、查找等操作,是出租光盘店的最佳助手。可以自定义光盘，方便添加新盘、管理光盘。提供完善的租盘和还盘操作，完全独立的数据库系统，数据管理为您提供：光盘管理系统，数据查询为您提供：租借情况，光盘查询。本系统具有安全的数据库备份方案，简单易用，仿WINDOWS操作方式，可以使您很快上手，根据需要自行设置光

2、盘类别和相应的借出时间、借出册数。目 录摘要1一、系统需求分析4二、光盘管理系统分析与设计51、功能分析62、系统硬件，软件要求6三、数据库设计7四、系统功能模块实现101、光盘管理模块102、管理员管理模块263、系统配置32结束语 35参考文献 35一、系统需求分析光盘出租与销售的管理是一个常见的问题，其特点是数据之间的关系简单，但数据量较大。若用人工进行管理，不便于数据的汇总统计与各种数据分析。例如，若每天有有1000条记录，则要进行1000次加法才能计算出每天的租金总额，当然要进行每个月的统计工作就更复杂了。此时这对于光盘的管理就更难了。例如，要查看哪些光盘是客户、最喜欢看的，哪些光盘

3、被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。所以本软件就是为了解决这个问题而开发的，它能方便得进行各种管理事务，能自动计算押金、租金，界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世界二、光盘管理系统分析与设计1、光盘管理系统应该具有如下功能：光盘管理:主要是对光盘的基本操作，如添加，修改，删除、查询。管理员管理：对管理员操作有添加，修改，删除。系统配置：可以预设置光盘的类型等资料，同时可以备份和恢复数据库，使其更安全。锁机系统：这个功能可以便管理员暂时离开电脑，而其数据不被其它人更改。身份认证功能：可以阻止没有受权人非法试图登陆

4、系统。帮助功能：使你可以更清楚的了解本系统。综合以上分析该系统的功能结构图如下：身份验证验证通过YN退出主界面光盘管理管理员管理帮助系统配置2、系统硬件要求一台微机处理器为600、800MHz以上的微机；存容量64MB以上；一个鼠标；硬盘的最小空间为2GB，用户自定义安装需要100MB硬盘空间；推荐使用VGA或更高分辨率的显示器，适用于Windows 9x/windows 2000/windows xp三、数据库设计该系统是典型的数据库系统，应定义如下数据表：1、管理员字段名类型长度1、1字符102、密码1字符103、销售总数1数字84、级别1字符105、解屏密码1字符102、客户字段名类型长

5、度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字符1

6、010、影片格式1字符1011、影片语言1字符1012、总数1数字8四、系统功能模块实现：1、光盘管理模块：、添加模块功能：能方便得添加光盘，其中采用了预设方式。输入项目：鼠标或键盘事件。输出项目：无。界面如图所示：功能代码如下：Case Is = 2 msg = "添加光盘" Me.Caption = " 光盘管理-" & msg Me sel(0).Visible = False Me.txtselect(0).Visible = False Me.Labinfo(1).Visible = False Me.search(0).Visible

7、 = False Me bo1.Visible = True Me.lstinfo.Visible = False Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True For i = 0 To 8 Me.txtinfo(i).Text = "" Me.txtinfo(i).Locked = False Next Me bo1.Text = "" Me bo2.Text = "" Me bo3.Text = "" Me bo4.Text = "&

8、quot; Me bo1.Clear Me bo2.Clear Me bo3.Clear Me bo4.Clear Me.lstinfo.Clear For i = 0 To 8 Me.txtinfo(i).BackColor = vbWhite Next Me bo1.BackColor = vbWhite Me bo2.BackColor = vbWhite Me bo3.BackColor = vbWhite Me bo4.BackColor = vbWhite Call yn.opendb("select * from 影片类型") Do While yn.myre

9、c.EOF = False Me bo2.AddItem yn.myrec.Fields("影片类型") yn.myrec.MoveNextLoop Call yn.closedb Call yn.opendb("select * from 影片格式") Do While yn.myrec.EOF = False Me bo3.AddItem yn.myrec.Fields("影片格式") yn.myrec.MoveNextLoop Call yn.closedb Call yn.opendb("select * from

10、影片语言") Do While yn.myrec.EOF = False Me bo4.AddItem yn.myrec.Fields("影片语言") yn.myrec.MoveNextLoop 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

11、修改光盘功能：完成了修改功能，同样也采用了预设得方式。输入项目：鼠标或键盘事件。输出项目：无。界面如图所示：功能代码如下：Case Is = 3 msg = "修改光盘" Me.Caption = " 光盘管理-" & msg Me sel(0).Visible = True Me.txtselect(0).Visible = True Me.Labinfo(1).Visible = True Me.search(0).Visible = True Me bo1.Visible = True Me.lstinfo.Visible = False

12、Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True For i = 0 To 8 Me.txtinfo(i).Text = "" Me.txtinfo(i).Locked = False Next Me bo1.Text = "" Me bo1.Clear Me bo2.Clear Me bo3.Clear Me bo4.Clear Me bo2.Text = "" Me bo3.Text = "" Me bo4.Text = ""

13、Me sel(0).Text = "" Me.txtselect(0).Text = "" Me.lstinfo.Clear For i = 0 To 8 Me.txtinfo(i).BackColor = vbWhite Me.txtinfo(i).Locked = False Next Me bo1.BackColor = vbWhite Me bo2.BackColor = vbWhite Me bo3.BackColor = vbWhite Me bo4.BackColor = vbWhite Call yn.opendb("selec

14、t * from 影片类型") Do While yn.myrec.EOF = False Me bo2.AddItem yn.myrec.Fields("影片类型") yn.myrec.MoveNextLoop Call yn.closedb Call yn.opendb("select * from 影片格式") Do While yn.myrec.EOF = False Me bo3.AddItem yn.myrec.Fields("影片格式") yn.myrec.MoveNextLoop Call yn.closed

15、b Call yn.opendb("select * from 影片语言") Do While yn.myrec.EOF = False Me bo4.AddItem yn.myrec.Fields("影片语言") yn.myrec.MoveNextLoop Call yn.closedb删除光盘功能：完成了删除光盘功能，其设置资料为不可选方便了用户。输入项目：鼠标或键盘事件。输出项目：无。界面如图所示：功能代码如下Case Is = 4 msg = "删除光盘" Me.Caption = " 光盘管理-" &am

16、p; msg Me sel(0).Visible = True Me.txtselect(0).Visible = True Me.Labinfo(1).Visible = True Me.search(0).Visible = True Me bo1.Visible = False Me.lstinfo.Visible = True Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True For i = 0 To 8 Me.txtinfo(i).Text = "" Me.txtinfo(i).Locked = Tr

17、ue Next Me bo1.Text = "" Me bo2.Text = "" Me bo3.Text = "" Me bo4.Text = "" Me sel(0).Text = "" Me.txtselect(0).Text = "" Me.lstinfo.Clear For i = 0 To 8 Me.txtinfo(i).BackColor = &H80000004 Next Me bo1.BackColor = &H80000004 Me bo2

18、.BackColor = &H80000004 Me bo3.BackColor = &H80000004 Me bo4.BackColor = &H80000004 End Select查询光盘功能：完成了查询光盘功能，并设置了多项查询条件的选择。输入项目：鼠标或键盘事件。输出项目：无。界面如图所示：功能代码如下： Case Is = "光盘查询" Me.TabStrip1.Tabs(1).Selected = True Me bo1.Visible = False For i = 0 To 8 Me.txtinfo(i).Locked = Tru

19、e Next Me.txtselect(0).TabIndex = 0 Me sel(0).TabIndex = 1 Case Is = "删除光盘" Me.TabStrip1.Tabs(4).Selected = True Me.txtselect(0).TabIndex = 0 Me sel(0).TabIndex = 1 End SelectPrivate Sub selec() '=查询过程 On Error Resume Next If Me sel(0).Text = "影片编号" Or Me sel(0).Text = "

20、影片名称" Then Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True db = "select * from 影片资料 where " & Me sel(0).Text & "='" & Me.txtselect(0).Text & "'" Call yn.opendb(db) If yn.myrec.EOF Then MsgBox "无此盘！", vbQuestion Else cdm.tx

21、tinfo(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.myr

22、ec.Fields("影片介绍") cdm.txtinfo(6).Text = yn.myrec.Fields("购买价格") cdm bo2.Text = yn.myrec.Fields("影片类型") cdm bo4.Text = yn.myrec.Fields("影片语言") cdm bo3.Text = yn.myrec.Fields("影片格式") cdm.txtinfo(7).Text = yn.myrec.Fields("总数") cdm.txtinfo(5).

23、Text = yn.myrec.Fields("出租价格") Call yn.closedb Call yn.opendb("select * from 演员 where 影片编号='" & Me.txtinfo(0).Text & "'") Do While Not yn.myrec.EOF Me.lstinfo.AddItem yn.myrec.Fields("演员").Value yn.myrec.MoveNextLoop Call yn.closedb Call yn.ope

24、ndb("select * from 演员 where 影片编号='" & Me.txtinfo(0).Text & "'") Do While Not yn.myrec.EOF Me bo1.AddItem yn.myrec.Fields("演员").Value yn.myrec.MoveNextLoop End If Call yn.closedb ElseIf Me sel(0).Text = "导演" Or Me sel(0).Text = "影片类型"

25、Or Me sel(0).Text = "影片格式" Or Me sel(0).Text = "影片语言" Then db = "select * from 影片资料 where " & Me sel(0).Text & "='" & VBA.LCase(Me.txtselect(0).Text) & "'" Call yn.opendb(db) If yn.myrec.EOF Then MsgBox "无此盘！", vbQue

26、stion Call yn.closedb Else Me.Frame1.Visible = False Me.MSHFlexGrid1.Visible = True Set Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedb End If Else If VBA.IsNumeric(Me.txtselect(0).Text) = True Then db = "select * from 影片资料 where " & Me sel(0).Text & "=" & Me.tx

27、tselect(0).Text Call yn.opendb(db) If yn.myrec.EOF Then MsgBox "无此盘！", vbQuestion Call yn.closedb Else Me.Frame1.Visible = False Me.MSHFlexGrid1.Visible = True Set Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedb End If Else MsgBox "请输入数字！", vbInformation End If End IfEnd Su

28、bPrivate Sub txtselect_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Call search_Click(0) End IfEnd Sub2、main.frm Dim yn As New ynOption ExplicitPrivate Sub aboutmenu_Click()load.Show vbModalEnd SubEnd SubPrivate Sub modicd_Click() On Error Resume Next '忽略错误 msg = "修

29、改光盘" 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.txts

30、elect(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

31、= yn.myrec.Fields("发行年度") cdm.txtinfo(8).Text = yn.myrec.Fields("影片介绍") cdm.txtinfo(6).Text = yn.myrec.Fields("购买价格") cdm bo2.Text = yn.myrec.Fields("影片类型") cdm bo4.Text = yn.myrec.Fields("影片语言") cdm bo3.Text = yn.myrec.Fields("影片格式") cdm.t

32、xtinfo(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 bo1.AddItem yn.myrec.Fields("演员&qu

33、ot;).Value yn.myrec.MoveNextLoop Call yn.closedbEnd SubPrivate Sub MSHFlexGrid1_Click() Me.PopupMenu modimsf '弹出修改菜单4.2管理员管理1、添加管理员功能：完成添加管理员功能, 采用了预设得方式。输入项目：鼠标或键盘事件。输出项目：无。界面如图所示：功能代码如下： Case Is = "添加管理员" If Me.Text1(0).Text <> "" And Me.Text1(1).Text <> "&

34、quot; And Me bo1.Text <> "" And Me.Text1(3).Text <> "" Then Call yn.opendb("select * from 管理员 where 名字='" & Me.Text1(0).Text & "'") '查询条件在数据库中 If yn.myrec.EOF Then Call yn.myrec.AddNew ' 添加 yn.myrec.Fields("名字") =

35、Me.Text1(0).Text yn.myrec.Fields("密码") = Me.Text1(1).Text yn.myrec.Fields("级别") = Me bo1.Text yn.myrec.Fields("解屏密码") = Me.Text1(3).Text Call yn.myrec.Update '更新 Call yn.closedb '关闭 MsgBox "添加成功！", vbInformation Me.Text1(0).Text = "" Me.Text1

36、(1).Text = "" Me bo1.Text = "" Me.Text1(3).Text = "" Else MsgBox "已经有此管理员！", vbInformation Call yn.closedb End If Else MsgBox "请输入完整！", vbInformation End If2、修改管理员功能：完成修改管理员功能，采用了预设得方式。输入项目：鼠标或键盘事件。输出项目：无。界面如图所示：功能代码如下：Case Is = "修改管理员" Cal

37、l yn.opendb("select * from 管理员 where 名字='" & Me.txtselect(0).Text & "'") If Not yn.myrec.EOF Then yn.myrec.Fields("名字") = Me.Text1(0).Text yn.myrec.Fields("密码") = Me.Text1(1).Text yn.myrec.Fields("级别") = Me bo1.Text yn.myrec.Fields(&q

38、uot;解屏密码") = Me.Text1(3).Text Call yn.myrec.Update Call yn.closedb MsgBox "修改成功！", vbInformation End If3、删除管理员功能：完成删除管理员功能，采用了预设得方式。输入项目：鼠标或键盘事件。输出项目：无。界面如图所示：功能代码如下： Case Is = "删除管理员" Call yn.opendb("select * from 管理员 where 名字='" & Me.txtselect(0).Text &am

39、p; "'") If Not yn.myrec.EOF Then Me.Text1(0).Text = yn.myrec.Fields("名字") Me.Text1(1).Text = yn.myrec.Fields("密码") Me bo1.Text = yn.myrec.Fields("级别") Me.Text1(3).Text = yn.myrec.Fields("解屏密码") Call yn.myrec.Delete '删除 Call yn.myrec.Update &#

40、39;更新 Call yn.closedb '关闭 MsgBox "删除成功！", vbInformation Me.Text1(0).Text = "" Me.Text1(1).Text = "" Me bo1.Text = "" Me.Text1(3).Text = "" End If End SelectEnd Sub Case Is = "管理员查询" Private Sub search_Click(Index As Integer) Call yn.ope

41、ndb("select * from 管理员 where 名字='" & Me.txtselect(0).Text & "'") If Not yn.myrec.EOF Then Me.Text1(0).Text = yn.myrec.Fields("名字") Me.Text1(1).Text = yn.myrec.Fields("密码") Me bo1.Text = yn.myrec.Fields("级别") Me.Text1(3).Text = yn.myre

42、c.Fields("解屏密码") Call yn.closedb Else MsgBox "没有此管理员！", vbInformation Call yn.closedb End If4.3系统配置 功能：查询光盘功能, 采用了预设得方式。输入项目：鼠标或键盘事件。输出项目：无。界面如图所示：功能代码如下：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.Visibl