光盘管理系统计算机信息管理论文_第1页
光盘管理系统计算机信息管理论文_第2页
光盘管理系统计算机信息管理论文_第3页
光盘管理系统计算机信息管理论文_第4页
光盘管理系统计算机信息管理论文_第5页
已阅读5页,还剩31页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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.searc

7、h(0).visible = false 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.combo2.text = "" me.combo3.text = "&quo

8、t; me.combo4.text = "" me.combo1.clear me.combo2.clear me.combo3.clear me.combo4.clear 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.open

9、db("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("影片格式") yn.myrec.movene

10、xt 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 call yn.opendb("select * from 自定义") me.txtinfo(6).text = yn.myrec.fields("购买价格") me.txti

11、nfo(5).text = yn.myrec.fields("出租价格") call yn.closedb 修改光盘功能:完成了修改功能,同样也采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。界面如图所示: 功能代码如下:case is = 3 msg = "修改光盘" me.caption = " 光盘管理-" & msg msel(0).visible = true me.txtselect(0).visible = true me.labinfo(1).visible = true me.search(0)

12、.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.combo2.clear me.combo3.clear me.combo4.clea

13、r 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.back

14、color = 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("影片类型") yn.myrec.movenext loop call yn.closedb call yn.opendb("select * from 影片格式") do while

15、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.movenext loop call yn.closedb删除光盘功能:完成了删除光盘功能,其设置资

16、料为不可选方便了用户。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下case is = 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.mshflexgri

17、d1.visible = false me.frame1.visible = true for i = 0 to 8 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 = &qu

18、ot;" 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 = &h80000004 end select查询光盘功能:完成了查询光盘功能,并设置了多项查询条件的选择。 输入项目:鼠标或键盘事件。 输出项目:无。

19、界面如图所示:功能代码如下: 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).selected = true me.txtselect(0).tabindex = 0 msel

20、(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 & "='" &a

21、mp; me.txtselect(0).text & "'" call 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("时间长度") cd

22、m.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.f

23、ields("影片语言") 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 & "

24、'") 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.f

25、ields("演员").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 & "='

26、;" & vba.lcase(me.txtselect(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 if vba

27、.isnumeric(me.txtselect(0).text) = true then db = "select * from 影片资料 where " & msel(0).text & "=" & me.txtselect(0).text call yn.opendb(db) if yn.myrec.eof then msgbox "无此盘!", vbquestion call yn.closedb else me.frame1.visible = false me.mshflexgrid1.visible

28、 = 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 integer) if keyascii = 13 then call search_click(0) end ifend sub2、main.frm dim yn as new ynoption e

29、xplicitprivate 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.mshflexgrid1.rowsel '确定查询条件 me.mshflexgrid1.col = 1 me.txtselect(0).text = me.mshflex

30、grid1.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.myrec.fields("影片名

31、称") 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.te

32、xt = 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 yn.opendb("select * f

33、rom 演员 where 影片编号='" & me.txtinfo(0).text & "'") do while not yn.myrec.eof me.combo1.additem yn.myrec.fields("演员").value yn.myrec.movenext loop call yn.closedb end subprivate sub mshflexgrid1_click() me.popupmenu modimsf '弹出修改菜单4.2管理员管理1、添加管理员功能:完成添加管理员功能

34、, 采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下: 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("select * from 管理员 where 名字=&

35、#39;" & 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("解屏

36、密码") = me.text1(3).text call yn.myrec.update '更新 call yn.closedb '关闭 msgbox "添加成功!", vbinformation me.text1(0).text = "" me.text1(1).text = "" me.combo1.text = "" me.text1(3).text = "" else msgbox "已经有此管理员!", vbinformation call

37、 yn.closedb end if else msgbox "请输入完整!", vbinformation end if2、修改管理员功能:完成修改管理员功能,采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下:case is = "修改管理员" call yn.opendb("select * from 管理员 where 名字='" & me.txtselect(0).text & "'") if not yn.myrec.eof the

38、n 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 "修改成功!", vbinformation end if3、删除管理员功能:完

39、成删除管理员功能,采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下: 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.

40、fields("密码") me.combo1.text = yn.myrec.fields("级别") 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 = &q

41、uot;" me.combo1.text = "" me.text1(3).text = "" end if end selectend sub case is = "管理员查询" private sub search_click(index as integer) call yn.opendb("select * from 管理员 where 名字='" & me.txtselect(0).text & "'") if not yn.myrec.eof

42、 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 call yn.closedb end if4.3系统

43、配置 功能:查询光盘功能, 采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:功能代码如下: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 = fals

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论