论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VB6.0 >

A400224音像管理系统

第一章    前言

目前,出租或销售光盘的商店很多,他们大部分是用人工的方式对其进行管理,在盘少的情况下还可以应付,但一旦盘量增多再用这样方式就会给管理者带来诸多的不便,比如查询,统计之类的事务。而这套光盘管理软件解决了这个问题,使您从出租销售业务摆脱繁重混乱的手工时代,进入科学高效的信息管理世纪!

paper51.com

模块功能:

paper51.com

1、         光盘的管理 copyright paper51.com

2、         管理员的管理 内容来自www.paper51.com

3、         会员的管理 copyright paper51.com

4、         系统配置 copyright paper51.com

5、         锁机系统 copyright paper51.com

6、         身份认证功能 内容来自www.paper51.com

7、         帮助功能

http://www.paper51.com

本论文分为五章:

copyright paper51.com

第一章     前言主要阐明选题的背景和选题的意义。本课题的研究意义。本论文的目的、内容及作者的主要贡献,或担任的主要工作。 内容来自www.paper51.com

第二章     光盘管理系统研究概述阐述:课题来源、用户需求;当前同类系统存在的问题及解决办法,本课题要达到的设计目标及所依据的专业理论知识。 http://www.paper51.com

第三章     光盘管理系统分析与设计主要有系统结构、模块划分、数据库结构的设计。 http://www.paper51.com

第四章     光盘管理系统的功能实现开发环境:包括软件和硬件环境。开发工具:要求写明选择该工具的目的。模块说明、流程设计。关键技术(代码)分析。 内容来自论文无忧网 www.paper51.com

第五章     结论及体会主要包含系统运行效果、自我评价、测试结果、改进意见;对整个毕业设计的感受、收获或提出问题和希望。 http://www.paper51.com

   内容来自www.paper51.com

论文撰写: 内容来自论文无忧网 www.paper51.com

论文程序: copyright paper51.com

      2003年5月30日 内容来自www.paper51.com

1.1问题的提出 copyright paper51.com

光盘出租与销售的管理是一个常见的问题,其特点是数据之间的关系简单,但数据量较大。若用人工进行管理,刚不便于数据的汇总统计及各种数据分析。例如,若每天有有1000条记录,则要进行1000次加法才能计算出每天的租金总额,当然要进行每个月的统计工作就更复杂了。此时这对于光盘的管理就更难了。例如,要查看哪些光盘是顾客最喜欢看的,哪些光盘被损坏,哪些光盘超期未还等,这些问题用人工管理方式是难以解决的。所以本软件就是为了解决这个问题而开发的,它能方便得进行各种管理事务,软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据;能对会员及光盘信息进行方便有效的科学管理;界面设计大方、简洁、实用;操作简单方便。让你摆脱繁重混乱的手工时代,进入科学高效的信息管理世纪! http://www.paper51.com

1.2本文研究路线 内容来自论文无忧网 www.paper51.com

    光盘管理是一个常见的问题,最主要的问题是对光盘和会员的管理不方便,例如,要查看哪些光盘是顾客最喜欢看的,哪些光盘被损坏,哪些光盘超期未还等,这些问题用人工管理方式是难以解决的。开发本软件的目的就是让管理者减少重复工作,提高信息管理的效率和准确度。它能方便得进行各种管理事务,软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据;能对会员及光盘信息进行方便有效的科学管理;界面设计大方、简洁、实用;操作简单方便。让你摆脱繁重混乱的手工时代,进入科学高效的信息管理世纪! 内容来自论文无忧网 www.paper51.com

   第二章 光盘管理系统研究概述 内容来自www.paper51.com

2.1 光盘管理系统的发展历史 内容来自www.paper51.com

以前大多数管理者管理光盘的时候都是使用人工的方式来管理,一开始的时候大家都觉得没有问题,还都可以应付得过来。可是随着光盘的增多,经营业务也不断得增加,便使得经营者不得不雇越来越多的店员来管理这些事务,这样作得代价毫无疑问是成本的增加,这也是经营者最不愿意看到的情况。之后又出现了EXCEL作为数据库的管理系统,但其缺点很快就显示出来,那就是数据管理的不便与灵活性较差。随着软件的发展成熟,许多在OFFICE上开发的项目都成功移植到了软件上,这便使得项目的灵活性更大,用户更容易接受这种方式。

paper51.com

2.2 光盘管理系统系统发展现状

paper51.com

现在随着科技的发展,尤其是计算机的进步,给人们带来诸多的便利,而这样的发展却是经营者最愿意看到的,因为它可以代替那些店员来替他分担这些事务,它可以比那些店员更认真,更卖力,犯错率更低,而更要紧的是它替经营者降低了成本。 http://www.paper51.com

2.3本文的目标及相关专业理论

paper51.com

本文的目标就是让经营光盘业务的管理者利用时下的科技技术,来更好的帮助自己解决管理上的问题。然而目前经营光盘出租或销售的软件这么多,质量也参差不齐,这反而却成为困绕管理者的最大的问题。所以我们开发的这套管理软件不仅包括了光盘的出租业务也包括光盘的销售业务,这样作的目的是为了更好的统一管理,业者也不用为了解决事务上的问题而去购买两套软件,从而降低了成本。

http://www.paper51.com

另一方面本软件采用VB编写,由于它和数据库有很好的融合性,便 它编出来的软件速度更快,数据更安全,业者可以更放心得使用。

http://www.paper51.com

第三章 光盘管理系统分析与设计

http://www.paper51.com

3.1光盘管理系统功能需求简介

内容来自www.paper51.com

本软件的主要功能有: 内容来自论文无忧网 www.paper51.com

8、         光盘的管理 copyright paper51.com

9、         管理员的管理 paper51.com

10、     会员的管理 内容来自www.paper51.com

11、     系统配置

paper51.com

12、     锁机系统 copyright paper51.com

13、     身份认证功能

paper51.com

14、     帮助功能 内容来自论文无忧网 www.paper51.com

3.2功能需求描述 内容来自论文无忧网 www.paper51.com

1、         光盘管理:主要是对光盘的基本操作,如添加,修改,删除、查询。

内容来自www.paper51.com

2、         管理员管理:对管理员操作有添加,修改,删除。

内容来自论文无忧网 www.paper51.com

3、         会员管理:对会员操作有添加,修改,删除。

copyright paper51.com

4、         系统配置:可以预设置光盘的类型等资料,同时可以备份和恢复数据库,使其更安全。 copyright paper51.com

5、         锁机系统:这个功能可以便管理员暂时离开电脑,而其数据不被其它人更改。 paper51.com

6、         身份认证功能:可以阻止没有受权人非法试图登陆系统。

copyright paper51.com

7、         帮助功能:使你可以更清楚的了解本系统。 copyright paper51.com

3.3目标系统要求

paper51.com

一台微机处理器为486、50MHz以上的微机;内存容量16MB以上;一个鼠标;硬盘的最小空间为15MB,用户自定义安装需要100MB硬盘空间;推荐使用VGA或更高分辨率的显示器。 内容来自论文无忧网 www.paper51.com

3.4系统平台选择

http://www.paper51.com

  本系统适用于Windows9x/windows2000。

内容来自www.paper51.com

3.5数据库设计

内容来自论文无忧网 www.paper51.com

 3.5.1数据词典分析

http://www.paper51.com

1、         管理员 copyright paper51.com

1、         姓名  1{字符}10

copyright paper51.com

2、         密码  1{字符}10 内容来自论文无忧网 www.paper51.com

3、         销售总数  1{数字}8

http://www.paper51.com

4、         级别  1{字符}10 内容来自www.paper51.com

5、         解屏密码  1{字符}10 copyright paper51.com

2、         客户

http://www.paper51.com

1、         客户姓名  1{字符}10 http://www.paper51.com

2、         客户号  1{数字}8 内容来自www.paper51.com

3、         电话  1{数字}8 http://www.paper51.com

4、         OICQ  1{数字}8 内容来自论文无忧网 www.paper51.com

5、         Email  1{字符}10 内容来自论文无忧网 www.paper51.com

3、         客户日志 http://www.paper51.com

1、         客户姓名  1{字符}10 paper51.com

2、         影片编号  1{数字}8

copyright paper51.com

3、         借盘时期  1(日期/时间) 内容来自论文无忧网 www.paper51.com

4、演员 http://www.paper51.com

1、         影片编号  1{数字}8 paper51.com

2、         演员  1{字符}10 内容来自论文无忧网 www.paper51.com

5、影片格式 内容来自论文无忧网 www.paper51.com

1、         影片格式  1{字符}10

http://www.paper51.com

6、影片类型 copyright paper51.com

1、         影片类型  1{字符}10

内容来自www.paper51.com

7、影片语言 copyright paper51.com

1、         影片语言  1{字符}10

内容来自www.paper51.com

8、         影片资料

copyright paper51.com

1、         影片编号  1{数字}8

copyright paper51.com

2、         影片名称  1{字符}10 copyright paper51.com

3、         时间长度  1{数字}8

http://www.paper51.com

4、         导演     1{字符}10

paper51.com

5、         发行年度  1{字符}10

paper51.com

6、         影片介绍  1{字符}50

copyright paper51.com

7、         购买价格  1{数字}8 copyright paper51.com

8、         出租价格  1{数字}8 copyright paper51.com

9、         影片类型  1{字符}10 http://www.paper51.com

10、    影片格式  1{字符}10 paper51.com

11、    影片语言  1{字符}10 copyright paper51.com

12、    总数     1{数字}8 内容来自论文无忧网 www.paper51.com

3.5.2数据库介绍

copyright paper51.com

  本系统采用得是ACCESS2000为后台数据库。数据库名为CD.MDB,其中数据库包含得表为:管理员、客户、客户日志、演员、影片格式、影片类型、影片语言、影片资料、自定义.

paper51.com

第四章 光盘管理系统的功能实现 paper51.com

该软件的开发环境是VB6.0+Windows98,采用得是ACCESS2000为后台数据库,从而使得系统更加安全,操作更加方便。

内容来自www.paper51.com

总体设计:

copyright paper51.com

                                4.1光盘管理 内容来自www.paper51.com

1、         添加模块 copyright paper51.com

功能:能方便得添加光盘,其中采用了预设方式。 http://www.paper51.com

    输入项目:鼠标或键盘事件。

copyright paper51.com

    输出项目:无。 内容来自www.paper51.com

    界面如图所示:

http://www.paper51.com

2、         修改光盘 内容来自论文无忧网 www.paper51.com

功能:完成了修改功能,同样也采用了预设得方式。 copyright paper51.com

    输入项目:鼠标或键盘事件。 copyright paper51.com

    输出项目:无。 内容来自论文无忧网 www.paper51.com

    界面如图所示:

内容来自论文无忧网 www.paper51.com

3、         删除光盘

copyright paper51.com

功能:完成了删除光盘功能,其设置资料为不可选方便了用户。

内容来自论文无忧网 www.paper51.com

    输入项目:鼠标或键盘事件。

内容来自www.paper51.com

    输出项目:无。 paper51.com

  界面如图所示:

内容来自www.paper51.com

http://www.paper51.com

4、         查询光盘

paper51.com

功能:完成了查询光盘功能,并设置了多项查询条件的选择。

paper51.com

    输入项目:鼠标或键盘事件。 paper51.com

    输出项目:无。 内容来自www.paper51.com

    界面如图所示:

copyright paper51.com

http://www.paper51.com

4.2管理员管理 copyright paper51.com

1、         添加管理员 内容来自论文无忧网 www.paper51.com

功能:完成添加管理员功能, 采用了预设得方式。

http://www.paper51.com

  输入项目:鼠标或键盘事件。 http://www.paper51.com

  输出项目:无。

内容来自论文无忧网 www.paper51.com

  界面如图所示:

http://www.paper51.com

paper51.com

2、修改管理员 内容来自论文无忧网 www.paper51.com

功能:完成修改管理员功能,采用了预设得方式。 内容来自论文无忧网 www.paper51.com

  输入项目:鼠标或键盘事件。 paper51.com

  输出项目:无。

内容来自论文无忧网 www.paper51.com

  界面如图所示: http://www.paper51.com

paper51.com

3、删除管理员 内容来自论文无忧网 www.paper51.com

功能:完成删除管理员功能,采用了预设得方式。 paper51.com

  输入项目:鼠标或键盘事件。

http://www.paper51.com

  输出项目:无。 copyright paper51.com

  界面如图所示: 内容来自www.paper51.com

copyright paper51.com

4.3会员管理 paper51.com

1、         添加会员

内容来自论文无忧网 www.paper51.com

功能:添加会员功能。 内容来自论文无忧网 www.paper51.com

  输入项目:鼠标或键盘事件。

内容来自www.paper51.com

  输出项目:无。

http://www.paper51.com

  界面如图所示:

copyright paper51.com

内容来自www.paper51.com

2、         修改会员 内容来自www.paper51.com

功能:修改会员功能。 copyright paper51.com

  输入项目:鼠标或键盘事件。 paper51.com

  输出项目:无。

paper51.com

  界面如图所示: 内容来自论文无忧网 www.paper51.com

copyright paper51.com

3、         删除会员 http://www.paper51.com

功能:删除会员功能。 paper51.com

  输入项目:鼠标或键盘事件。 内容来自论文无忧网 www.paper51.com

  输出项目:无。 copyright paper51.com

  界面如图所示: paper51.com

内容来自www.paper51.com

4.4系统配置

paper51.com

功能:查询光盘功能, 采用了预设得方式。 http://www.paper51.com

  输入项目:鼠标或键盘事件。

paper51.com

  输出项目:无。

http://www.paper51.com

  界面如图所示:

http://www.paper51.com

http://www.paper51.com

4.5发布应用程序 内容来自www.paper51.com

4.5.1编译应用程序 内容来自www.paper51.com

  选择[文件]-------[生成光盘管理系统.exe] paper51.com

4.5.2打包应用程序

内容来自论文无忧网 www.paper51.com

  选择[Package & Deployment 向导] 内容来自www.paper51.com

4.5.3发布应用程序的步骤 内容来自论文无忧网 www.paper51.com

  1、选择[Package & Deployment 向导]

paper51.com

copyright paper51.com

2、选择[打包]

内容来自论文无忧网 www.paper51.com

3、选择[下一步]

http://www.paper51.com

copyright paper51.com

4、一直选择[下一步]直到

http://www.paper51.com

paper51.com

5、选择[完成]。 内容来自论文无忧网 www.paper51.com

第六章    结论及体会

内容来自论文无忧网 www.paper51.com

   整个程序的编写已经完成,经过这次的实践让我对如何利用VB开发数据库程序有了一个更深得理解。在此期间我遇到了许多困难,但经过反复的查阅资料和不断调试下,这些难题还是终究被克服了,比如数据库的加密、如何访问加密的数据库之类的,在这场实践中的调研、开发、调试,从中得到了开发的经验。虽然该系统还并不是很完美,有些功能因条件和自身能力的关系没有设计出来,比如打印之类的管理,所以使得我今后要不断学习更多的东西来完善它,使其真正成为功能完备的光盘管理系统。 http://www.paper51.com

参考文献

内容来自论文无忧网 www.paper51.com

软件工程原理、方法与应用         史济民 著            高等教育出版社

http://www.paper51.com

软件工程实验           陈明、王智广、赵鹏翔 著     高等教育出版社

内容来自论文无忧网 www.paper51.com

VB程序设计基础             郎洪、段银田、陈勇孝著     高等教育出版社

paper51.com

VB程序设计教程习题及习题解答 刘瑞新、李树东、王为东 著电子工业出版社

copyright paper51.com

附录: http://www.paper51.com

 1、光盘管理cdm.frm 内容来自论文无忧网 www.paper51.com

   Dim yn As New yn                '定义yn为yn类 内容来自www.paper51.com

OptionExplicit

copyright paper51.com

PrivateSub Combo1_Click()

内容来自论文无忧网 www.paper51.com

  Me.PopupMenu list                 '弹出LIST菜单 paper51.com

EndSub

copyright paper51.com

PrivateSub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) 内容来自www.paper51.com

  If KeyCode = 13 Then                  '如果按回车键就添加一个记录

内容来自www.paper51.com

    Me.Combo1.AddItemMe.Combo1.Text

paper51.com

    Me.Combo1.SelStart = 0 paper51.com

    Me.Combo1.SelLength =Len(Me.Combo1.Text)

http://www.paper51.com

  End If

copyright paper51.com

EndSub

内容来自www.paper51.com

PrivateSub comsel_KeyPress(Index As Integer, KeyAscii As Integer)

内容来自论文无忧网 www.paper51.com

  If KeyAscii = 13 Then           '如果按回车键就执行查询功能 http://www.paper51.com

    Call search_Click(0) paper51.com

  End If paper51.com

EndSub copyright paper51.com

PrivateSub dele_Click() 内容来自www.paper51.com

     Me.Combo1.RemoveItemMe.Combo1.ListIndex      '单击后删除指定记录

内容来自www.paper51.com

EndSub 内容来自www.paper51.com

PrivateSub delecd_Click() paper51.com

    内容来自论文无忧网 www.paper51.com

  msg = "删除光盘"

内容来自www.paper51.com

  Me.TabStrip1.Tabs(4).Selected =True      '4被选中 内容来自论文无忧网 www.paper51.com

  Dim a As String

copyright paper51.com

  a = Me.MSHFlexGrid1.Text

copyright paper51.com

  Me.MSHFlexGrid1.Row = 0 paper51.com

  Me.MSHFlexGrid1.Col =Me.MSHFlexGrid1.Col '- 1 http://www.paper51.com

  Me.comsel(0).Text = Me.MSHFlexGrid1.Text

copyright paper51.com

  Me.txtselect(0).Text = a                '赋值方便查询

copyright paper51.com

  If Me.comsel(0).Text = "影片编号" OrMe.comsel(0).Text = "影片名称" OrMe.comsel(0).Text = "导演" Or Me.comsel(0).Text= "影片类型" Or Me.comsel(0).Text = "影片格式" Or Me.comsel(0).Text = "影片语言"Then 内容来自www.paper51.com

    db = "select * from 影片资料 where "& Me.comsel(0).Text & "='" & Me.txtselect(0).Text &"'"

http://www.paper51.com

    Call yn.opendb(db)

内容来自www.paper51.com

    If Not yn.myrec.EOF Then copyright paper51.com

      Callyn.myrec.Delete

内容来自www.paper51.com

      Callyn.myrec.Update

paper51.com

      MsgBox "此光盘记录已成功删除!!!",vbInformation 内容来自www.paper51.com

      Call yn.closedb

paper51.com

     

http://www.paper51.com

      db ="select * from 影片资料 where " & Me.comsel(0).Text & "='" &Me.txtselect(0).Text & "'" 内容来自www.paper51.com

      Call yn.opendb(db)

http://www.paper51.com

      SetMe.MSHFlexGrid1.DataSource = yn.myrec

http://www.paper51.com

      Call yn.closedb http://www.paper51.com

    Else 内容来自www.paper51.com

     Me.MSHFlexGrid1.Visible = False copyright paper51.com

     Me.Frame1.Visible = True

copyright paper51.com

      Call yn.closedb

paper51.com

    End If

内容来自论文无忧网 www.paper51.com

  Else

http://www.paper51.com

    db = "select * from 影片资料 where "& Me.comsel(0).Text & "=" & Me.txtselect(0).Text &"" copyright paper51.com

    Call yn.opendb(db)

copyright paper51.com

    Call yn.myrec.Delete 内容来自www.paper51.com

    Call yn.myrec.Update paper51.com

    MsgBox "此光盘记录已成功删除!!!",vbInformation paper51.com

    Call yn.closedb copyright paper51.com

    内容来自www.paper51.com

    db = "select * from 影片资料 where "& Me.comsel(0).Text & "=" & Me.txtselect(0).Text &"" 内容来自论文无忧网 www.paper51.com

    Call yn.opendb(db)

内容来自论文无忧网 www.paper51.com

    SetMe.MSHFlexGrid1.DataSource = yn.myrec http://www.paper51.com

    Call yn.closedb 内容来自论文无忧网 www.paper51.com

  End If

http://www.paper51.com

EndSub 内容来自论文无忧网 www.paper51.com

PrivateSub Form_Load() copyright paper51.com

  On Error Resume Next copyright paper51.com

  Me.Caption = Me.Caption & msg

http://www.paper51.com

  Select Case msg 内容来自论文无忧网 www.paper51.com

   

内容来自论文无忧网 www.paper51.com

    Case Is = "添加光盘"

http://www.paper51.com

      Me.TabStrip1.Tabs(2).Selected= True

内容来自www.paper51.com

      For i = 0 To 8 内容来自论文无忧网 www.paper51.com

       Me.txtinfo(i).BackColor = vbWhite

内容来自论文无忧网 www.paper51.com

      Next

paper51.com

     Me.Combo1.BackColor = vbWhite          '设置白色代表有效 http://www.paper51.com

     Me.Combo2.BackColor = vbWhite

内容来自论文无忧网 www.paper51.com

     Me.Combo3.BackColor = vbWhite copyright paper51.com

     Me.Combo4.BackColor = vbWhite 内容来自论文无忧网 www.paper51.com

     Me.txtselect(0).Visible = False

paper51.com

     Me.Labinfo(1).Visible = False http://www.paper51.com

     Me.comsel(0).Visible = False 内容来自论文无忧网 www.paper51.com

     Me.search(0).Visible = False

内容来自论文无忧网 www.paper51.com

      Me.Combo1.Clear copyright paper51.com

      Me.Combo2.Clear 内容来自论文无忧网 www.paper51.com

      Me.Combo3.Clear http://www.paper51.com

      Me.Combo4.Clear paper51.com

      Call yn.opendb("select* from 影片类型") http://www.paper51.com

      Do Whileyn.myrec.EOF = False

paper51.com

       Me.Combo2.AddItem yn.myrec.Fields("影片类型") 内容来自www.paper51.com

       yn.myrec.MoveNext 内容来自论文无忧网 www.paper51.com

      Loop 内容来自www.paper51.com

      Call yn.closedb http://www.paper51.com

      Callyn.opendb("select * from 影片格式")

copyright paper51.com

      Do Whileyn.myrec.EOF = False paper51.com

       Me.Combo3.AddItemyn.myrec.Fields("影片格式") 内容来自www.paper51.com

       yn.myrec.MoveNext 内容来自论文无忧网 www.paper51.com

      Loop

内容来自论文无忧网 www.paper51.com

      Call yn.closedb

http://www.paper51.com

       Callyn.opendb("select * from 影片语言")

paper51.com

      Do Whileyn.myrec.EOF = False http://www.paper51.com

      Me.Combo4.AddItem yn.myrec.Fields("影片语言") copyright paper51.com

      yn.myrec.MoveNext 内容来自www.paper51.com

      Loop

paper51.com

      Call yn.closedb

内容来自www.paper51.com

      Callyn.opendb("select * from 自定义")

内容来自www.paper51.com

     Me.txtinfo(6).Text = yn.myrec.Fields("购买价格")

内容来自论文无忧网 www.paper51.com

     Me.txtinfo(5).Text = yn.myrec.Fields("出租价格") copyright paper51.com

      Call yn.closedb

内容来自论文无忧网 www.paper51.com

      内容来自www.paper51.com

    Case Is = "修改光盘"

内容来自论文无忧网 www.paper51.com

     Me.txtselect(0).TabIndex = 0

copyright paper51.com

     Me.comsel(0).TabIndex = 1 内容来自www.paper51.com

     Me.TabStrip1.Tabs(3).Selected = True copyright paper51.com

      For i = 0 To 8 copyright paper51.com

       Me.txtinfo(i).BackColor = vbWhite 内容来自www.paper51.com

      Next

copyright paper51.com

     Me.Combo1.BackColor = vbWhite             '设置白色代表有效 http://www.paper51.com

     Me.Combo2.BackColor = vbWhite

内容来自论文无忧网 www.paper51.com

      Me.Combo3.BackColor =vbWhite

内容来自www.paper51.com

     Me.Combo4.BackColor = vbWhite paper51.com

      Me.Combo1.Clear

内容来自www.paper51.com

      Me.Combo2.Clear

内容来自论文无忧网 www.paper51.com

      Me.Combo3.Clear

内容来自论文无忧网 www.paper51.com

      Me.Combo4.Clear

内容来自www.paper51.com

      Callyn.opendb("select * from 影片类型")

paper51.com

      Do Whileyn.myrec.EOF = False

copyright paper51.com

       Me.Combo2.AddItem yn.myrec.Fields("影片类型") paper51.com

       yn.myrec.MoveNext

http://www.paper51.com

      Loop

内容来自www.paper51.com

      Call yn.closedb paper51.com

      Callyn.opendb("select * from 影片格式") http://www.paper51.com

      Do Whileyn.myrec.EOF = False 内容来自www.paper51.com

      Me.Combo3.AddItem yn.myrec.Fields("影片格式")

内容来自论文无忧网 www.paper51.com

       yn.myrec.MoveNext

内容来自www.paper51.com

      Loop 内容来自www.paper51.com

      Call yn.closedb

paper51.com

       Callyn.opendb("select * from 影片语言")

copyright paper51.com

      Do Whileyn.myrec.EOF = False

内容来自www.paper51.com

      Me.Combo4.AddItem yn.myrec.Fields("影片语言") http://www.paper51.com

      yn.myrec.MoveNext 内容来自论文无忧网 www.paper51.com

      Loop

内容来自www.paper51.com

      Call yn.closedb http://www.paper51.com

     

copyright paper51.com

     内容来自www.paper51.com

    Case Is = "光盘查询"

copyright paper51.com

      Me.TabStrip1.Tabs(1).Selected= True

http://www.paper51.com

     Me.Combo1.Visible = False

内容来自论文无忧网 www.paper51.com

      For i = 0 To 8

copyright paper51.com

       Me.txtinfo(i).Locked = True

内容来自论文无忧网 www.paper51.com

      Next 内容来自www.paper51.com

     Me.txtselect(0).TabIndex = 0 copyright paper51.com

     Me.comsel(0).TabIndex = 1 paper51.com

     

paper51.com

    Case Is = "删除光盘" paper51.com

     Me.TabStrip1.Tabs(4).Selected = True http://www.paper51.com

     Me.txtselect(0).TabIndex = 0 copyright paper51.com

     Me.comsel(0).TabIndex = 1 内容来自论文无忧网 www.paper51.com

     

paper51.com

  End Select

paper51.com

EndSub

http://www.paper51.com

PrivateSub modicd_Click()

http://www.paper51.com

  On Error Resume Next           '忽略错误 内容来自论文无忧网 www.paper51.com

  msg = "修改光盘"

paper51.com

  Me.TabStrip1.Tabs(3).Selected = True copyright paper51.com

  Me.MSHFlexGrid1.Row =Me.MSHFlexGrid1.RowSel   '确定查询条件

paper51.com

  Me.MSHFlexGrid1.Col = 1 内容来自论文无忧网 www.paper51.com

  Me.txtselect(0).Text =Me.MSHFlexGrid1.Text 内容来自论文无忧网 www.paper51.com

  Me.MSHFlexGrid1.Visible = False paper51.com

  Me.Frame1.Visible = True copyright paper51.com

  db = "select * from 影片资料 where 影片名称='" & Trim(Me.txtselect(0).Text) & "'"

内容来自论文无忧网 www.paper51.com

  Call yn.opendb(db)

内容来自论文无忧网 www.paper51.com

  cdm.txtinfo(0).Text =yn.myrec.Fields("影片编号") paper51.com

  cdm.txtinfo(1).Text =yn.myrec.Fields("影片名称")

paper51.com

  cdm.txtinfo(4).Text =yn.myrec.Fields("时间长度") 内容来自论文无忧网 www.paper51.com

  cdm.txtinfo(2).Text =yn.myrec.Fields("导演")

内容来自www.paper51.com

  cdm.txtinfo(3).Text =yn.myrec.Fields("发行年度")

内容来自论文无忧网 www.paper51.com

  cdm.txtinfo(8).Text =yn.myrec.Fields("影片介绍") 内容来自论文无忧网 www.paper51.com

  cdm.txtinfo(6).Text =yn.myrec.Fields("购买价格")

内容来自www.paper51.com

  cdm.Combo2.Text = yn.myrec.Fields("影片类型")

内容来自www.paper51.com

  cdm.Combo4.Text = yn.myrec.Fields("影片语言")

paper51.com

  cdm.Combo3.Text = yn.myrec.Fields("影片格式") http://www.paper51.com

  cdm.txtinfo(7).Text = yn.myrec.Fields("总数") http://www.paper51.com

  cdm.txtinfo(5).Text =yn.myrec.Fields("出租价格")

内容来自论文无忧网 www.paper51.com

  Call yn.closedb 内容来自论文无忧网 www.paper51.com

  Call yn.opendb("select * from 演员 where 影片编号='" & Me.txtinfo(0).Text & "'") 内容来自www.paper51.com

  Do While Not yn.myrec.EOF paper51.com

    Me.Combo1.AddItemyn.myrec.Fields("演员").Value paper51.com

    yn.myrec.MoveNext

copyright paper51.com

  Loop

copyright paper51.com

  Call yn.closedb 内容来自论文无忧网 www.paper51.com

EndSub

http://www.paper51.com

PrivateSub MSHFlexGrid1_Click() paper51.com

      Me.PopupMenumodimsf     '弹出修改菜单 http://www.paper51.com

EndSub

内容来自论文无忧网 www.paper51.com

PrivateSub qd_Click() 内容来自论文无忧网 www.paper51.com

  Select Case msg 内容来自论文无忧网 www.paper51.com

    Case Is = "添加光盘"

内容来自www.paper51.com

     If Me.txtinfo(0).Text<> "" Then http://www.paper51.com

  

http://www.paper51.com

      For i = 0 To 8

copyright paper51.com

        If Me.txtinfo(i).Text ="" Then

copyright paper51.com

         MsgBox "对不起这里的每个选项你都要填写!!!", vbQuestion

内容来自www.paper51.com

         Exit Sub

copyright paper51.com

        EndIf

内容来自www.paper51.com

      Next http://www.paper51.com

      db ="select * from 影片资料 where 影片名称='" & Me.txtinfo(1).Text& "'"

内容来自www.paper51.com

      Callyn.opendb(db) 内容来自论文无忧网 www.paper51.com

      If yn.myrec.EOF= False Then 内容来自论文无忧网 www.paper51.com

       MsgBox "已经有这部影片了!!!", vbQuestion 内容来自论文无忧网 www.paper51.com

        Callyn.closedb 内容来自论文无忧网 www.paper51.com

      Else

paper51.com

      Call yn.closedb

http://www.paper51.com

      Callyn.add("光盘信息")

http://www.paper51.com

      Callyn.add("演员") copyright paper51.com

      MsgBox "添加成功!!!",vbInformation 内容来自论文无忧网 www.paper51.com

      For i = 0 To 4 paper51.com

        Me.txtinfo(i).Text = ""

内容来自www.paper51.com

      Next

内容来自www.paper51.com

     Me.txtinfo(7).Text = "" copyright paper51.com

     Me.txtinfo(8).Text = "" paper51.com

      Me.Combo1.Text ="" copyright paper51.com

      Me.Combo1.Clear http://www.paper51.com

      Me.Combo2.Text =""

copyright paper51.com

      Me.Combo3.Text ="" copyright paper51.com

      Me.Combo4.Text =""

内容来自论文无忧网 www.paper51.com

      End If http://www.paper51.com

     End If http://www.paper51.com

         

内容来自www.paper51.com

     Case Is = "修改光盘" paper51.com

      If Me.txtinfo(0).Text<> "" Then

paper51.com

       Callyn.modi("光盘信息") copyright paper51.com

       Callyn.modi("演员")

内容来自论文无忧网 www.paper51.com

       MsgBox"修改成功!!!", vbInformation paper51.com

       'For i = 0To 8 copyright paper51.com

        'Me.txtinfo(i).Text = ""

copyright paper51.com

       'Next copyright paper51.com

      End If 内容来自论文无忧网 www.paper51.com

       paper51.com

     Case Is = "删除光盘" 内容来自www.paper51.com

      IfMe.txtinfo(0).Text <> "" Then

paper51.com

       db ="select * from 影片资料 where 影片名称='" & Me.txtinfo(1).Text& "'"

内容来自论文无忧网 www.paper51.com

       Callyn.opendb(db) copyright paper51.com

       Callyn.myrec.Delete

内容来自www.paper51.com

       Callyn.myrec.Update

paper51.com

       Callyn.closedb

http://www.paper51.com

       Callyn.opendb("select * from 演员")

http://www.paper51.com

      yn.mycon.Execute "delete from 演员 where 影片编号='"& cdm.txtinfo(0).Text & "'"

内容来自论文无忧网 www.paper51.com

       Callyn.closedb 内容来自www.paper51.com

       For i = 0To 8

paper51.com

        Me.txtinfo(i).Text = ""

内容来自论文无忧网 www.paper51.com

       Next 内容来自www.paper51.com

      Me.Combo1.Text = "" 内容来自论文无忧网 www.paper51.com

      Me.Combo2.Text = "" paper51.com

      Me.Combo3.Text = "" 内容来自www.paper51.com

      Me.Combo4.Text = ""

copyright paper51.com

      Me.comsel(0).Text = ""

http://www.paper51.com

      Me.txtselect(0).Text = ""

paper51.com

      Me.lstinfo.Clear

paper51.com

       MsgBox"此光盘记录已删除!!!", vbInformation copyright paper51.com

      End If 内容来自www.paper51.com

  End Select http://www.paper51.com

EndSub paper51.com

PrivateSub qx_Click()

http://www.paper51.com

  Unload Me

内容来自论文无忧网 www.paper51.com

EndSub

内容来自www.paper51.com

PrivateSub search_Click(Index As Integer)

copyright paper51.com

  

http://www.paper51.com

  If Me.comsel(0).Text <>"" And Me.txtselect(0).Text <> "" Then

paper51.com

    Select Case msg

paper51.com

   

copyright paper51.com

    Case Is = "修改光盘"

copyright paper51.com

      Me.Combo1.Clear http://www.paper51.com

      Call selec 内容来自论文无忧网 www.paper51.com

    Case Is = "光盘查询" paper51.com

      Me.lstinfo.Clear

copyright paper51.com

      Call selec

内容来自www.paper51.com

   

copyright paper51.com

    Case Is = "删除光盘"

paper51.com

      Me.lstinfo.Clear

内容来自www.paper51.com

      Call selec copyright paper51.com

    End Select 内容来自论文无忧网 www.paper51.com

  Else

http://www.paper51.com

    MsgBox "请输入查询条件!!!",vbInformation

内容来自论文无忧网 www.paper51.com

  End If

内容来自论文无忧网 www.paper51.com

EndSub copyright paper51.com

PrivateSub TabStrip1_Click()

内容来自论文无忧网 www.paper51.com

  On Error Resume Next paper51.com

  Select CaseMe.TabStrip1.SelectedItem.Index

内容来自www.paper51.com

    copyright paper51.com

    Case Is = 1

内容来自www.paper51.com

      msg = "光盘查询"

paper51.com

      Me.Caption = "   光盘管理---------" & msg 内容来自www.paper51.com

     

paper51.com

     Me.comsel(0).Visible = True

http://www.paper51.com

     Me.txtselect(0).Visible = True

http://www.paper51.com

     Me.Labinfo(1).Visible = True http://www.paper51.com

     Me.search(0).Visible = True

paper51.com

     Me.Combo1.Visible = False copyright paper51.com

     Me.lstinfo.Visible = True 内容来自www.paper51.com

      Me.MSHFlexGrid1.Visible =False

paper51.com

     Me.Frame1.Visible = True

内容来自论文无忧网 www.paper51.com

      For i = 0 To 8 paper51.com

        Me.txtinfo(i).Text = ""

内容来自www.paper51.com

        Me.txtinfo(i).Locked = True http://www.paper51.com

      Next

paper51.com

      Me.Combo1.Text ="" http://www.paper51.com

      Me.Combo2.Text ="" paper51.com

      Me.Combo3.Text ="" 内容来自www.paper51.com

      Me.Combo4.Text =""

http://www.paper51.com

     Me.comsel(0).Text = ""

http://www.paper51.com

     Me.txtselect(0).Text = ""

paper51.com

      Me.lstinfo.Clear

内容来自论文无忧网 www.paper51.com

      For i = 0 To 8

paper51.com

       Me.txtinfo(i).BackColor = &H80000004 内容来自论文无忧网 www.paper51.com

      Next paper51.com

     Me.Combo1.BackColor = &H80000004 copyright paper51.com

     Me.Combo2.BackColor = &H80000004 内容来自论文无忧网 www.paper51.com

      Me.Combo3.BackColor =&H80000004

http://www.paper51.com

     Me.Combo4.BackColor = &H80000004 内容来自论文无忧网 www.paper51.com

    Case Is = 2

内容来自www.paper51.com

      msg = "添加光盘" copyright paper51.com

      Me.Caption ="   光盘管理---------"& msg

http://www.paper51.com

      内容来自www.paper51.com

     Me.comsel(0).Visible = False copyright paper51.com

     Me.txtselect(0).Visible = False

copyright paper51.com

      Me.Labinfo(1).Visible= False

http://www.paper51.com

     Me.search(0).Visible = False

paper51.com

     Me.Combo1.Visible = True

http://www.paper51.com

     Me.lstinfo.Visible = False

paper51.com

     Me.MSHFlexGrid1.Visible = False http://www.paper51.com

     Me.Frame1.Visible = True 内容来自www.paper51.com

      For i = 0 To 8

copyright paper51.com

        Me.txtinfo(i).Text = "" 内容来自论文无忧网 www.paper51.com

        Me.txtinfo(i).Locked = False

copyright paper51.com

      Next 内容来自www.paper51.com

      Me.Combo1.Text =""

内容来自论文无忧网 www.paper51.com

      Me.Combo2.Text =""

paper51.com

      Me.Combo3.Text =""

http://www.paper51.com

      Me.Combo4.Text ="" copyright paper51.com

      Me.Combo1.Clear 内容来自www.paper51.com

      Me.Combo2.Clear

内容来自论文无忧网 www.paper51.com

      Me.Combo3.Clear

内容来自论文无忧网 www.paper51.com

      Me.Combo4.Clear 内容来自www.paper51.com

      Me.lstinfo.Clear

paper51.com

      For i = 0 To 8

内容来自www.paper51.com

       Me.txtinfo(i).BackColor = vbWhite

paper51.com

      Next 内容来自www.paper51.com

     Me.Combo1.BackColor = vbWhite

内容来自论文无忧网 www.paper51.com

     Me.Combo2.BackColor = vbWhite 内容来自www.paper51.com

     Me.Combo3.BackColor = vbWhite

copyright paper51.com

     Me.Combo4.BackColor = vbWhite

内容来自论文无忧网 www.paper51.com

      Callyn.opendb("select * from 影片类型") 内容来自论文无忧网 www.paper51.com

      Do While yn.myrec.EOF = False

copyright paper51.com

       Me.Combo2.AddItem yn.myrec.Fields("影片类型")

paper51.com

       yn.myrec.MoveNext

内容来自论文无忧网 www.paper51.com

      Loop 内容来自www.paper51.com

      Call yn.closedb http://www.paper51.com

      Callyn.opendb("select * from 影片格式")

内容来自www.paper51.com

      Do Whileyn.myrec.EOF = False http://www.paper51.com

      Me.Combo3.AddItem yn.myrec.Fields("影片格式") copyright paper51.com

       yn.myrec.MoveNext

http://www.paper51.com

      Loop http://www.paper51.com

      Call yn.closedb

内容来自论文无忧网 www.paper51.com

       Callyn.opendb("select * from 影片语言") 内容来自www.paper51.com

      Do Whileyn.myrec.EOF = False

http://www.paper51.com

      Me.Combo4.AddItem yn.myrec.Fields("影片语言") 内容来自论文无忧网 www.paper51.com

      yn.myrec.MoveNext

内容来自www.paper51.com

      Loop

内容来自论文无忧网 www.paper51.com

      Call yn.closedb 内容来自论文无忧网 www.paper51.com

      Callyn.opendb("select * from 自定义") 内容来自论文无忧网 www.paper51.com

     Me.txtinfo(6).Text = yn.myrec.Fields("购买价格") 内容来自论文无忧网 www.paper51.com

     Me.txtinfo(5).Text = yn.myrec.Fields("出租价格") http://www.paper51.com

      Call yn.closedb

http://www.paper51.com

     

http://www.paper51.com

    Case Is = 3

http://www.paper51.com

      msg = "修改光盘"

内容来自www.paper51.com

      Me.Caption ="   光盘管理---------"& msg

http://www.paper51.com

     Me.comsel(0).Visible = True

paper51.com

     Me.txtselect(0).Visible = True

内容来自www.paper51.com

     Me.Labinfo(1).Visible = True

内容来自论文无忧网 www.paper51.com

     Me.search(0).Visible = True copyright paper51.com

     Me.Combo1.Visible = True paper51.com

     Me.lstinfo.Visible = False

copyright paper51.com

     Me.MSHFlexGrid1.Visible = False http://www.paper51.com

      Me.Frame1.Visible= True 内容来自论文无忧网 www.paper51.com

      For i = 0 To 8

paper51.com

        Me.txtinfo(i).Text = ""

copyright paper51.com

        Me.txtinfo(i).Locked = False

copyright paper51.com

      Next

paper51.com

      Me.Combo1.Text =""

http://www.paper51.com

      Me.Combo1.Clear 内容来自论文无忧网 www.paper51.com

      Me.Combo2.Clear 内容来自论文无忧网 www.paper51.com

      Me.Combo3.Clear

copyright paper51.com

      Me.Combo4.Clear

内容来自www.paper51.com

      Me.Combo2.Text ="" 内容来自论文无忧网 www.paper51.com

      Me.Combo3.Text ="" paper51.com

      Me.Combo4.Text =""

内容来自论文无忧网 www.paper51.com

     Me.comsel(0).Text = "" http://www.paper51.com

     Me.txtselect(0).Text = "" 内容来自www.paper51.com

      Me.lstinfo.Clear

copyright paper51.com

      For i = 0 To 8 paper51.com

       Me.txtinfo(i).BackColor = vbWhite 内容来自论文无忧网 www.paper51.com

       Me.txtinfo(i).Locked = False

copyright paper51.com

      Next

paper51.com

      Me.Combo1.BackColor = vbWhite copyright paper51.com

     Me.Combo2.BackColor = vbWhite

内容来自论文无忧网 www.paper51.com

     Me.Combo3.BackColor = vbWhite copyright paper51.com

     Me.Combo4.BackColor = vbWhite paper51.com

      Callyn.opendb("select * from 影片类型") 内容来自论文无忧网 www.paper51.com

      Do Whileyn.myrec.EOF = False

http://www.paper51.com

       Me.Combo2.AddItem yn.myrec.Fields("影片类型")

内容来自论文无忧网 www.paper51.com

       yn.myrec.MoveNext

copyright paper51.com

      Loop

copyright paper51.com

      Call yn.closedb http://www.paper51.com

      Callyn.opendb("select * from 影片格式") paper51.com

      Do Whileyn.myrec.EOF = False

http://www.paper51.com

      Me.Combo3.AddItem yn.myrec.Fields("影片格式")

http://www.paper51.com

       yn.myrec.MoveNext paper51.com

      Loop

paper51.com

      Call yn.closedb 内容来自www.paper51.com

       Callyn.opendb("select * from 影片语言")

内容来自论文无忧网 www.paper51.com

      Do Whileyn.myrec.EOF = False

内容来自论文无忧网 www.paper51.com

      Me.Combo4.AddItem yn.myrec.Fields("影片语言") copyright paper51.com

       yn.myrec.MoveNext 内容来自论文无忧网 www.paper51.com

      Loop 内容来自论文无忧网 www.paper51.com

      Call yn.closedb

内容来自论文无忧网 www.paper51.com

      内容来自论文无忧网 www.paper51.com

    Case Is = 4 内容来自论文无忧网 www.paper51.com

      msg = "删除光盘" 内容来自www.paper51.com

      Me.Caption ="   光盘管理---------"& msg

内容来自论文无忧网 www.paper51.com

     Me.comsel(0).Visible = True 内容来自www.paper51.com

     Me.txtselect(0).Visible = True

http://www.paper51.com

     Me.Labinfo(1).Visible = True

paper51.com

      Me.search(0).Visible= True http://www.paper51.com

     Me.Combo1.Visible = False http://www.paper51.com

     Me.lstinfo.Visible = True

paper51.com

     Me.MSHFlexGrid1.Visible = False

http://www.paper51.com

     Me.Frame1.Visible = True paper51.com

      For i = 0 To 8

copyright paper51.com

        Me.txtinfo(i).Text = ""

内容来自论文无忧网 www.paper51.com

        Me.txtinfo(i).Locked = True

copyright paper51.com

      Next 内容来自www.paper51.com

      Me.Combo1.Text ="" paper51.com

      Me.Combo2.Text =""

内容来自www.paper51.com

      Me.Combo3.Text ="" http://www.paper51.com

      Me.Combo4.Text =""

paper51.com

     Me.comsel(0).Text = ""

http://www.paper51.com

     Me.txtselect(0).Text = "" 内容来自www.paper51.com

      Me.lstinfo.Clear 内容来自论文无忧网 www.paper51.com

      For i = 0 To 8 http://www.paper51.com

       Me.txtinfo(i).BackColor = &H80000004

内容来自论文无忧网 www.paper51.com

      Next 内容来自www.paper51.com

     Me.Combo1.BackColor = &H80000004 paper51.com

     Me.Combo2.BackColor = &H80000004

内容来自www.paper51.com

     Me.Combo3.BackColor = &H80000004 内容来自www.paper51.com

     Me.Combo4.BackColor = &H80000004

copyright paper51.com

  End Select paper51.com

EndSub paper51.com

PrivateSub txtinfo_KeyPress(Index As Integer, KeyAscii As Integer) 内容来自论文无忧网 www.paper51.com

  If Index = 3 Or Index = 4 Or Index = 5Or Index = 6 Or Index = 7 Then paper51.com

    Select Case KeyAscii

paper51.com

      CaseAsc("0") To Asc("9")

http://www.paper51.com

      Case Else

http://www.paper51.com

       KeyAscii = 0 copyright paper51.com

       MsgBox "请输入数字!!!", vbInformation

paper51.com

    End Select

内容来自www.paper51.com

  End If http://www.paper51.com

EndSub copyright paper51.com

------分隔线----------------------------
联系方式