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

上传人:laozhun 文档编号:3935456 上传时间:2023-03-28 格式:DOC 页数:35 大小:351.50KB
返回 下载 相关 举报
光盘管理系统计算机信息管理论文.doc_第1页
第1页 / 共35页
光盘管理系统计算机信息管理论文.doc_第2页
第2页 / 共35页
光盘管理系统计算机信息管理论文.doc_第3页
第3页 / 共35页
光盘管理系统计算机信息管理论文.doc_第4页
第4页 / 共35页
光盘管理系统计算机信息管理论文.doc_第5页
第5页 / 共35页
点击查看更多>>
资源描述

《光盘管理系统计算机信息管理论文.doc》由会员分享,可在线阅读,更多相关《光盘管理系统计算机信息管理论文.doc(35页珍藏版)》请在三一办公上搜索。

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数字

6、89、影片类型1字符1010、影片格式1字符1011、影片语言1字符1012、总数1数字8四、系统功能模块实现:1、光盘管理模块:、添加模块功能:能方便得添加光盘,其中采用了预设方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下:Case Is = 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.Combo

7、1.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.Combo1.Text = Me.Combo2.Text = Me.Combo3.Text = Me.Combo4.Text = Me.Combo1.Clear Me.Combo2.Clear Me.Combo3.Clear Me.Combo4.Cle

8、ar Me.lstinfo.Clear 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 Call yn.opendb(select * from 影片类型) Do While yn.myrec.EOF = False Me.Combo2.AddItem yn.myrec.Fields(影片类型) y

9、n.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.Move

10、Next 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 = 3 msg = 修改光盘 Me.Caption = 光盘管理- & msg Msel(0).Visible = True Me.

11、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 For i = 0 To 8 Me.txtinfo(i).Text = Me.txtinfo(i).Locked = False Next Me.Combo1.Text = Me.Combo1.Clear Me.

12、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 For i = 0 To 8 Me.txtinfo(i).BackColor = vbWhite Me.txtinfo(i).Locked = False Next Me.Combo1.BackColor = vbWhite Me.Combo2.BackColor = vbWhite Me.Com

13、bo3.BackColor = vbWhite Me.Combo4.BackColor = vbWhite 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(影片格

14、式) 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 = 4 msg = 删除光盘 Me.Caption = 光盘管理- & msg

15、 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 For i = 0 To 8 Me.txtinfo(i).Text = Me.txtinfo(i).Locked = True Next Me.Combo1.

16、Text = Me.Combo2.Text = Me.Combo3.Text = Me.Combo4.Text = Msel(0).Text = Me.txtselect(0).Text = Me.lstinfo.Clear For i = 0 To 8 Me.txtinfo(i).BackColor = &H80000004 Next Me.Combo1.BackColor = &H80000004 Me.Combo2.BackColor = &H80000004 Me.Combo3.BackColor = &H80000004 Me.Combo4.BackColor = &H8000000

17、4 End Select查询光盘功能:完成了查询光盘功能,并设置了多项查询条件的选择。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下: 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).Selecte

18、d = True Me.txtselect(0).TabIndex = 0 Msel(0).TabIndex = 1 End SelectPrivate Sub selec() =查询过程 On Error Resume Next If Msel(0).Text = 影片编号 Or Msel(0).Text = 影片名称 Then Me.MSHFlexGrid1.Visible = False Me.Frame1.Visible = True db = select * from 影片资料 where & Msel(0).Text & = & Me.txtselect(0).Text & Ca

19、ll yn.opendb(db) If yn.myrec.EOF Then 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).

20、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

21、yn.opendb(select * from 演员 where 影片编号= & Me.txtinfo(0).Text & ) Do While Not yn.myrec.EOF Me.lstinfo.AddItem yn.myrec.Fields(演员).Value yn.myrec.MoveNext Loop Call yn.closedb Call yn.opendb(select * from 演员 where 影片编号= & Me.txtinfo(0).Text & ) Do While Not yn.myrec.EOF Me.Combo1.AddItem yn.myrec.Fiel

22、ds(演员).Value yn.myrec.MoveNext Loop End If Call yn.closedb ElseIf Msel(0).Text = 导演 Or Msel(0).Text = 影片类型 Or Msel(0).Text = 影片格式 Or Msel(0).Text = 影片语言 Then db = select * from 影片资料 where & Msel(0).Text & = & VBA.LCase(Me.txtselect(0).Text) & Call yn.opendb(db) If yn.myrec.EOF Then MsgBox 无此盘!, vbQu

23、estion 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 & Msel(0).Text & = & Me.txtselect(0).Text Call yn.opendb(db) If

24、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 SubPrivate Sub txtselect_KeyPress(Index As Integer, KeyAscii As

25、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 Sub End SubPrivate Sub modicd_Click() On Error Resume Next 忽略错误 msg = 修改光盘 Me.TabStrip1.Tabs(3).Selected = True Me.MSHFlexGrid1.Row = Me.MSHFle

26、xGrid1.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

27、.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.m

28、yrec.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 y

29、n.myrec.MoveNext Loop Call yn.closedb End SubPrivate Sub MSHFlexGrid1_Click() Me.PopupMenu modimsf 弹出修改菜单4.2管理员管理1、添加管理员功能:完成添加管理员功能, 采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下: Case Is = 添加管理员 If Me.Text1(0).Text And Me.Text1(1).Text And Me.Combo1.Text And Me.Text1(3).Text Then Call yn.opendb(se

30、lect * from 管理员 where 名字= & Me.Text1(0).Text & ) 查询条件在数据库中 If yn.myrec.EOF Then Call yn.myrec.AddNew 添加 yn.myrec.Fields(名字) = Me.Text1(0).Text yn.myrec.Fields(密码) = Me.Text1(1).Text yn.myrec.Fields(级别) = Me.Combo1.Text yn.myrec.Fields(解屏密码) = Me.Text1(3).Text Call yn.myrec.Update 更新 Call yn.closedb

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

32、(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.Combo1.Text yn.myrec.Fields(解屏密码) = Me.Text1(3).Text Call yn.myrec.Update Call yn.closedb MsgBox 修改成功!, vbInformatio

33、n End If3、删除管理员功能:完成删除管理员功能,采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下: Case Is = 删除管理员 Call yn.opendb(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.Combo1.Text = yn.myrec.Fields(级别)

34、 Me.Text1(3).Text = yn.myrec.Fields(解屏密码) Call yn.myrec.Delete 删除 Call yn.myrec.Update 更新 Call yn.closedb 关闭 MsgBox 删除成功!, vbInformation Me.Text1(0).Text = Me.Text1(1).Text = Me.Combo1.Text = Me.Text1(3).Text = End If End SelectEnd Sub Case Is = 管理员查询 Private Sub search_Click(Index As Integer) Call

35、yn.opendb(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.Combo1.Text = yn.myrec.Fields(级别) Me.Text1(3).Text = yn.myrec.Fields(解屏密码) Call yn.closedb Else MsgBox 没有此管理员!, vbInformation Cal

36、l 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.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.Fiel

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 办公文档 > 其他范文


备案号:宁ICP备20000045号-2

经营许可证:宁B2-20210002

宁公网安备 64010402000987号