|
第一章 前言 目前，出租或销售光盘的商店很多，他们大部分是用人工的方式对其进行管理，在盘少的情况下还可以应付，但一旦盘量增多再用这样方式就会给管理者带来诸多的不便，比如查询，统计之类的事务。而这套光盘管理软件解决了这个问题，使您从出租销售业务摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！ http://www.paper51.com 模块功能： 内容来自论文无忧网 www.paper51.com 1、 光盘的管理 copyright paper51.com 2、 管理员的管理 内容来自论文无忧网 www.paper51.com 3、 会员的管理 paper51.com
4、 系统配置 copyright paper51.com
5、 锁机系统 paper51.com 6、 身份认证功能 http://www.paper51.com 7、 帮助功能 paper51.com 本论文分为五章： paper51.com 第一章 前言主要阐明选题的背景和选题的意义。本课题的研究意义。本论文的目的、内容及作者的主要贡献，或担任的主要工作。 copyright paper51.com
第二章 光盘管理系统研究概述阐述：课题来源、用户需求；当前同类系统存在的问题及解决办法，本课题要达到的设计目标及所依据的专业理论知识。 内容来自论文无忧网 www.paper51.com 第三章 光盘管理系统分析与设计主要有系统结构、模块划分、数据库结构的设计。 paper51.com 第四章 光盘管理系统的功能实现开发环境：包括软件和硬件环境。开发工具：要求写明选择该工具的目的。模块说明、流程设计。关键技术（代码）分析。 copyright paper51.com 第五章 结论及体会主要包含系统运行效果、自我评价、测试结果、改进意见；对整个毕业设计的感受、收获或提出问题和希望。 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 论文撰写： http://www.paper51.com 论文程序： paper51.com 2003年5月30日 paper51.com
1.1问题的提出 内容来自论文无忧网 www.paper51.com
光盘出租与销售的管理是一个常见的问题，其特点是数据之间的关系简单，但数据量较大。若用人工进行管理，刚不便于数据的汇总统计及各种数据分析。例如，若每天有有1000条记录，则要进行1000次加法才能计算出每天的租金总额，当然要进行每个月的统计工作就更复杂了。此时这对于光盘的管理就更难了。例如，要查看哪些光盘是顾客最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。所以本软件就是为了解决这个问题而开发的，它能方便得进行各种管理事务，软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！ paper51.com
1.2本文研究路线 paper51.com
光盘管理是一个常见的问题,最主要的问题是对光盘和会员的管理不方便，例如，要查看哪些光盘是顾客最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。开发本软件的目的就是让管理者减少重复工作，提高信息管理的效率和准确度。它能方便得进行各种管理事务，软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！ paper51.com 第二章 光盘管理系统研究概述 内容来自论文无忧网 www.paper51.com 2.1 光盘管理系统的发展历史 copyright paper51.com
以前大多数管理者管理光盘的时候都是使用人工的方式来管理，一开始的时候大家都觉得没有问题，还都可以应付得过来。可是随着光盘的增多，经营业务也不断得增加，便使得经营者不得不雇越来越多的店员来管理这些事务，这样作得代价毫无疑问是成本的增加，这也是经营者最不愿意看到的情况。之后又出现了EXCEL作为数据库的管理系统，但其缺点很快就显示出来，那就是数据管理的不便与灵活性较差。随着软件的发展成熟，许多在OFFICE上开发的项目都成功移植到了软件上，这便使得项目的灵活性更大，用户更容易接受这种方式。 内容来自论文无忧网 www.paper51.com
2.2 光盘管理系统系统发展现状 内容来自www.paper51.com 现在随着科技的发展，尤其是计算机的进步，给人们带来诸多的便利，而这样的发展却是经营者最愿意看到的，因为它可以代替那些店员来替他分担这些事务，它可以比那些店员更认真，更卖力，犯错率更低，而更要紧的是它替经营者降低了成本。 内容来自www.paper51.com
2.3本文的目标及相关专业理论 内容来自www.paper51.com 本文的目标就是让经营光盘业务的管理者利用时下的科技技术，来更好的帮助自己解决管理上的问题。然而目前经营光盘出租或销售的软件这么多，质量也参差不齐，这反而却成为困绕管理者的最大的问题。所以我们开发的这套管理软件不仅包括了光盘的出租业务也包括光盘的销售业务，这样作的目的是为了更好的统一管理，业者也不用为了解决事务上的问题而去购买两套软件，从而降低了成本。 paper51.com 另一方面本软件采用VB编写，由于它和数据库有很好的融合性，便 它编出来的软件速度更快，数据更安全，业者可以更放心得使用。 内容来自www.paper51.com 第三章 光盘管理系统分析与设计 http://www.paper51.com 3.1光盘管理系统功能需求简介 paper51.com 本软件的主要功能有： copyright paper51.com 8、 光盘的管理 copyright paper51.com 9、 管理员的管理 copyright paper51.com
10、 会员的管理 内容来自www.paper51.com 11、 系统配置 http://www.paper51.com 12、 锁机系统 http://www.paper51.com 13、 身份认证功能 内容来自www.paper51.com
14、 帮助功能 http://www.paper51.com 3.2功能需求描述 http://www.paper51.com 1、 光盘管理:主要是对光盘的基本操作，如添加，修改，删除、查询。 内容来自www.paper51.com 2、 管理员管理：对管理员操作有添加，修改，删除。 paper51.com 3、 会员管理：对会员操作有添加，修改，删除。 内容来自论文无忧网 www.paper51.com 4、 系统配置：可以预设置光盘的类型等资料，同时可以备份和恢复数据库，使其更安全。 内容来自www.paper51.com 5、 锁机系统：这个功能可以便管理员暂时离开电脑，而其数据不被其它人更改。 http://www.paper51.com
6、 身份认证功能：可以阻止没有受权人非法试图登陆系统。 内容来自论文无忧网 www.paper51.com 7、 帮助功能：使你可以更清楚的了解本系统。 http://www.paper51.com 3.3目标系统要求 copyright paper51.com 一台微机处理器为486、50MHz以上的微机；内存容量16MB以上；一个鼠标；硬盘的最小空间为15MB，用户自定义安装需要100MB硬盘空间；推荐使用VGA或更高分辨率的显示器。 paper51.com 3.4系统平台选择 内容来自论文无忧网 www.paper51.com
本系统适用于Windows9x/windows2000。 paper51.com
3.5数据库设计 copyright paper51.com 3.5.1数据词典分析 copyright paper51.com
1、 管理员 http://www.paper51.com
1、 姓名 1{字符}10 内容来自www.paper51.com 2、 密码 1{字符}10 http://www.paper51.com 3、 销售总数 1{数字}8 copyright paper51.com
4、 级别 1{字符}10 copyright paper51.com 5、 解屏密码 1{字符}10 http://www.paper51.com
2、 客户 copyright paper51.com 1、 客户姓名 1{字符}10 内容来自论文无忧网 www.paper51.com
2、 客户号 1{数字}8 copyright paper51.com 3、 电话 1{数字}8 内容来自论文无忧网 www.paper51.com
4、 OICQ 1{数字}8 paper51.com 5、 Email 1{字符}10 paper51.com 3、 客户日志 copyright paper51.com 1、 客户姓名 1{字符}10 paper51.com
2、 影片编号 1{数字}8 http://www.paper51.com 3、 借盘时期 1(日期/时间) 内容来自www.paper51.com
4、演员 内容来自论文无忧网 www.paper51.com 1、 影片编号 1{数字}8 内容来自论文无忧网 www.paper51.com 2、 演员 1{字符}10 copyright paper51.com 5、影片格式 paper51.com 1、 影片格式 1{字符}10 内容来自论文无忧网 www.paper51.com 6、影片类型 内容来自www.paper51.com 1、 影片类型 1{字符}10 内容来自论文无忧网 www.paper51.com 7、影片语言 copyright paper51.com 1、 影片语言 1{字符}10 copyright paper51.com 8、 影片资料 内容来自www.paper51.com 1、 影片编号 1{数字}8 copyright paper51.com
2、 影片名称 1{字符}10 内容来自www.paper51.com 3、 时间长度 1{数字}8 paper51.com
4、 导演 1{字符}10 内容来自www.paper51.com 5、 发行年度 1{字符}10 内容来自www.paper51.com
6、 影片介绍 1{字符}50 内容来自www.paper51.com 7、 购买价格 1{数字}8 内容来自论文无忧网 www.paper51.com 8、 出租价格 1{数字}8 内容来自论文无忧网 www.paper51.com
9、 影片类型 1{字符}10 内容来自论文无忧网 www.paper51.com 10、 影片格式 1{字符}10 http://www.paper51.com 11、 影片语言 1{字符}10 copyright paper51.com 12、 总数 1{数字}8 内容来自论文无忧网 www.paper51.com
3.5.2数据库介绍 内容来自论文无忧网 www.paper51.com
本系统采用得是ACCESS2000为后台数据库。数据库名为CD.MDB,其中数据库包含得表为：管理员、客户、客户日志、演员、影片格式、影片类型、影片语言、影片资料、自定义. paper51.com
第四章 光盘管理系统的功能实现 paper51.com 该软件的开发环境是VB6.0+Windows98，采用得是ACCESS2000为后台数据库，从而使得系统更加安全，操作更加方便。 copyright paper51.com 总体设计： paper51.com 4.1光盘管理 内容来自论文无忧网 www.paper51.com 1、 添加模块 paper51.com 功能：能方便得添加光盘，其中采用了预设方式。 内容来自论文无忧网 www.paper51.com 输入项目：鼠标或键盘事件。 paper51.com 输出项目：无。 paper51.com 界面如图所示： 内容来自www.paper51.com 2、 修改光盘 内容来自www.paper51.com 功能：完成了修改功能，同样也采用了预设得方式。 内容来自www.paper51.com 输入项目：鼠标或键盘事件。 http://www.paper51.com 输出项目：无。 copyright paper51.com 界面如图所示： http://www.paper51.com 3、 删除光盘 copyright paper51.com 功能：完成了删除光盘功能，其设置资料为不可选方便了用户。 paper51.com 输入项目：鼠标或键盘事件。 http://www.paper51.com 输出项目：无。 内容来自论文无忧网 www.paper51.com
界面如图所示： 内容来自www.paper51.com paper51.com 4、 查询光盘 内容来自论文无忧网 www.paper51.com 功能：完成了查询光盘功能，并设置了多项查询条件的选择。 copyright paper51.com
输入项目：鼠标或键盘事件。 内容来自www.paper51.com
输出项目：无。 copyright paper51.com
界面如图所示： 内容来自www.paper51.com
http://www.paper51.com 4.2管理员管理 http://www.paper51.com 1、 添加管理员 paper51.com 功能：完成添加管理员功能, 采用了预设得方式。 内容来自www.paper51.com
输入项目：鼠标或键盘事件。 内容来自论文无忧网 www.paper51.com 输出项目：无。 copyright paper51.com 界面如图所示： 内容来自www.paper51.com 内容来自www.paper51.com 2、修改管理员 http://www.paper51.com 功能：完成修改管理员功能，采用了预设得方式。 内容来自论文无忧网 www.paper51.com 输入项目：鼠标或键盘事件。 内容来自www.paper51.com 输出项目：无。 paper51.com 界面如图所示： 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com 3、删除管理员 paper51.com
功能：完成删除管理员功能，采用了预设得方式。 内容来自论文无忧网 www.paper51.com 输入项目：鼠标或键盘事件。 内容来自论文无忧网 www.paper51.com
输出项目：无。 http://www.paper51.com 界面如图所示： paper51.com 内容来自www.paper51.com 4.3会员管理 paper51.com
1、 添加会员 内容来自www.paper51.com 功能：添加会员功能。 内容来自www.paper51.com 输入项目：鼠标或键盘事件。 内容来自论文无忧网 www.paper51.com 输出项目：无。 内容来自论文无忧网 www.paper51.com 界面如图所示： http://www.paper51.com 内容来自www.paper51.com 2、 修改会员 paper51.com 功能：修改会员功能。 copyright paper51.com 输入项目：鼠标或键盘事件。 内容来自www.paper51.com 输出项目：无。 copyright paper51.com 界面如图所示： paper51.com http://www.paper51.com 3、 删除会员 内容来自www.paper51.com
功能：删除会员功能。 copyright paper51.com
输入项目：鼠标或键盘事件。 copyright paper51.com 输出项目：无。 paper51.com
界面如图所示： paper51.com copyright paper51.com 4.4系统配置 http://www.paper51.com 功能：查询光盘功能, 采用了预设得方式。 内容来自论文无忧网 www.paper51.com 输入项目：鼠标或键盘事件。 内容来自论文无忧网 www.paper51.com
输出项目：无。 内容来自www.paper51.com 界面如图所示： 内容来自www.paper51.com
paper51.com 4.5发布应用程序 内容来自论文无忧网 www.paper51.com 4.5.1编译应用程序 内容来自www.paper51.com 选择[文件]-------[生成光盘管理系统.exe] http://www.paper51.com 4.5.2打包应用程序 paper51.com 选择[Package & Deployment 向导] copyright paper51.com 4.5.3发布应用程序的步骤 http://www.paper51.com 1、选择[Package & Deployment 向导] http://www.paper51.com
copyright paper51.com 2、选择[打包] copyright paper51.com
3、选择[下一步] 内容来自www.paper51.com http://www.paper51.com 4、一直选择[下一步]直到 paper51.com
http://www.paper51.com 5、选择[完成]。 paper51.com
第六章 结论及体会 paper51.com 整个程序的编写已经完成，经过这次的实践让我对如何利用VB开发数据库程序有了一个更深得理解。在此期间我遇到了许多困难，但经过反复的查阅资料和不断调试下，这些难题还是终究被克服了，比如数据库的加密、如何访问加密的数据库之类的，在这场实践中的调研、开发、调试，从中得到了开发的经验。虽然该系统还并不是很完美，有些功能因条件和自身能力的关系没有设计出来，比如打印之类的管理，所以使得我今后要不断学习更多的东西来完善它，使其真正成为功能完备的光盘管理系统。 内容来自论文无忧网 www.paper51.com 参考文献 内容来自www.paper51.com 软件工程原理、方法与应用 史济民 著 高等教育出版社 内容来自论文无忧网 www.paper51.com 软件工程实验 陈明、王智广、赵鹏翔 著 高等教育出版社 内容来自论文无忧网 www.paper51.com VB程序设计基础 郎洪、段银田、陈勇孝著 高等教育出版社 paper51.com VB程序设计教程习题及习题解答 刘瑞新、李树东、王为东 著电子工业出版社 http://www.paper51.com
附录： 内容来自论文无忧网 www.paper51.com 1、光盘管理cdm.frm 内容来自论文无忧网 www.paper51.com Dim yn As New yn '定义yn为yn类 copyright paper51.com
OptionExplicit http://www.paper51.com PrivateSub Combo1_Click() 内容来自论文无忧网 www.paper51.com Me.PopupMenu list '弹出LIST菜单 paper51.com EndSub 内容来自www.paper51.com PrivateSub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) http://www.paper51.com If KeyCode = 13 Then '如果按回车键就添加一个记录 内容来自www.paper51.com Me.Combo1.AddItemMe.Combo1.Text http://www.paper51.com
Me.Combo1.SelStart = 0 http://www.paper51.com Me.Combo1.SelLength =Len(Me.Combo1.Text) 内容来自论文无忧网 www.paper51.com End If http://www.paper51.com EndSub 内容来自www.paper51.com PrivateSub comsel_KeyPress(Index As Integer, KeyAscii As Integer) http://www.paper51.com If KeyAscii = 13 Then '如果按回车键就执行查询功能 内容来自www.paper51.com Call search_Click(0) paper51.com End If http://www.paper51.com EndSub paper51.com PrivateSub dele_Click() 内容来自论文无忧网 www.paper51.com Me.Combo1.RemoveItemMe.Combo1.ListIndex '单击后删除指定记录 copyright paper51.com
EndSub 内容来自www.paper51.com PrivateSub delecd_Click() http://www.paper51.com
内容来自论文无忧网 www.paper51.com msg = "删除光盘" 内容来自www.paper51.com Me.TabStrip1.Tabs(4).Selected =True '4被选中 内容来自论文无忧网 www.paper51.com Dim a As String paper51.com a = Me.MSHFlexGrid1.Text copyright paper51.com Me.MSHFlexGrid1.Row = 0 内容来自www.paper51.com
Me.MSHFlexGrid1.Col =Me.MSHFlexGrid1.Col '- 1 paper51.com Me.comsel(0).Text = Me.MSHFlexGrid1.Text paper51.com Me.txtselect(0).Text = a '赋值方便查询 内容来自论文无忧网 www.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 copyright 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 If Not yn.myrec.EOF Then copyright paper51.com Callyn.myrec.Delete http://www.paper51.com
Callyn.myrec.Update paper51.com MsgBox "此光盘记录已成功删除！！！",vbInformation http://www.paper51.com Call yn.closedb 内容来自www.paper51.com
http://www.paper51.com
db ="select * from 影片资料 where " & Me.comsel(0).Text & "='" &Me.txtselect(0).Text & "'" paper51.com
Call yn.opendb(db) paper51.com SetMe.MSHFlexGrid1.DataSource = yn.myrec paper51.com Call yn.closedb copyright paper51.com
Else paper51.com
Me.MSHFlexGrid1.Visible = False copyright paper51.com Me.Frame1.Visible = True http://www.paper51.com Call yn.closedb copyright paper51.com End If paper51.com Else 内容来自论文无忧网 www.paper51.com db = "select * from 影片资料 where "& Me.comsel(0).Text & "=" & Me.txtselect(0).Text &"" copyright paper51.com
Call yn.opendb(db) 内容来自www.paper51.com Call yn.myrec.Delete http://www.paper51.com Call yn.myrec.Update 内容来自论文无忧网 www.paper51.com MsgBox "此光盘记录已成功删除！！！",vbInformation 内容来自www.paper51.com Call yn.closedb 内容来自论文无忧网 www.paper51.com
内容来自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 SetMe.MSHFlexGrid1.DataSource = yn.myrec http://www.paper51.com
Call yn.closedb paper51.com End If paper51.com EndSub http://www.paper51.com PrivateSub Form_Load() 内容来自www.paper51.com On Error Resume Next copyright paper51.com Me.Caption = Me.Caption & msg 内容来自www.paper51.com Select Case msg http://www.paper51.com 内容来自论文无忧网 www.paper51.com Case Is = "添加光盘" 内容来自论文无忧网 www.paper51.com Me.TabStrip1.Tabs(2).Selected= True 内容来自www.paper51.com
For i = 0 To 8 paper51.com Me.txtinfo(i).BackColor = vbWhite 内容来自www.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 paper51.com Me.txtselect(0).Visible = False 内容来自www.paper51.com Me.Labinfo(1).Visible = False 内容来自www.paper51.com Me.comsel(0).Visible = False http://www.paper51.com Me.search(0).Visible = False copyright paper51.com Me.Combo1.Clear copyright paper51.com Me.Combo2.Clear 内容来自论文无忧网 www.paper51.com Me.Combo3.Clear 内容来自论文无忧网 www.paper51.com Me.Combo4.Clear 内容来自论文无忧网 www.paper51.com
Call yn.opendb("select* from 影片类型") 内容来自论文无忧网 www.paper51.com Do Whileyn.myrec.EOF = False 内容来自www.paper51.com Me.Combo2.AddItem yn.myrec.Fields("影片类型") 内容来自www.paper51.com yn.myrec.MoveNext http://www.paper51.com Loop http://www.paper51.com Call yn.closedb paper51.com
Callyn.opendb("select * from 影片格式") paper51.com Do Whileyn.myrec.EOF = False 内容来自www.paper51.com Me.Combo3.AddItemyn.myrec.Fields("影片格式") 内容来自论文无忧网 www.paper51.com
yn.myrec.MoveNext 内容来自论文无忧网 www.paper51.com Loop 内容来自论文无忧网 www.paper51.com Call yn.closedb copyright paper51.com Callyn.opendb("select * from 影片语言") http://www.paper51.com Do Whileyn.myrec.EOF = False 内容来自www.paper51.com Me.Combo4.AddItem yn.myrec.Fields("影片语言") http://www.paper51.com yn.myrec.MoveNext http://www.paper51.com Loop copyright paper51.com Call yn.closedb http://www.paper51.com Callyn.opendb("select * from 自定义") copyright paper51.com Me.txtinfo(6).Text = yn.myrec.Fields("购买价格") paper51.com Me.txtinfo(5).Text = yn.myrec.Fields("出租价格") copyright paper51.com Call yn.closedb copyright paper51.com
http://www.paper51.com Case Is = "修改光盘" 内容来自www.paper51.com Me.txtselect(0).TabIndex = 0 copyright paper51.com Me.comsel(0).TabIndex = 1 paper51.com
Me.TabStrip1.Tabs(3).Selected = True http://www.paper51.com For i = 0 To 8 内容来自论文无忧网 www.paper51.com Me.txtinfo(i).BackColor = vbWhite http://www.paper51.com Next paper51.com Me.Combo1.BackColor = vbWhite '设置白色代表有效 paper51.com Me.Combo2.BackColor = vbWhite 内容来自论文无忧网 www.paper51.com Me.Combo3.BackColor =vbWhite http://www.paper51.com Me.Combo4.BackColor = vbWhite copyright paper51.com Me.Combo1.Clear 内容来自www.paper51.com Me.Combo2.Clear 内容来自www.paper51.com Me.Combo3.Clear 内容来自www.paper51.com Me.Combo4.Clear http://www.paper51.com
Callyn.opendb("select * from 影片类型") 内容来自论文无忧网 www.paper51.com Do Whileyn.myrec.EOF = False 内容来自www.paper51.com Me.Combo2.AddItem yn.myrec.Fields("影片类型") 内容来自论文无忧网 www.paper51.com yn.myrec.MoveNext http://www.paper51.com Loop copyright paper51.com
Call yn.closedb http://www.paper51.com Callyn.opendb("select * from 影片格式") 内容来自www.paper51.com Do Whileyn.myrec.EOF = False paper51.com Me.Combo3.AddItem yn.myrec.Fields("影片格式") 内容来自www.paper51.com
yn.myrec.MoveNext http://www.paper51.com Loop copyright 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("影片语言") 内容来自论文无忧网 www.paper51.com yn.myrec.MoveNext paper51.com Loop http://www.paper51.com Call yn.closedb http://www.paper51.com
paper51.com
内容来自论文无忧网 www.paper51.com
Case Is = "光盘查询" http://www.paper51.com Me.TabStrip1.Tabs(1).Selected= True 内容来自论文无忧网 www.paper51.com Me.Combo1.Visible = False http://www.paper51.com For i = 0 To 8 内容来自www.paper51.com Me.txtinfo(i).Locked = True 内容来自www.paper51.com
Next paper51.com Me.txtselect(0).TabIndex = 0 内容来自论文无忧网 www.paper51.com Me.comsel(0).TabIndex = 1 内容来自www.paper51.com
copyright paper51.com Case Is = "删除光盘" 内容来自论文无忧网 www.paper51.com
Me.TabStrip1.Tabs(4).Selected = True paper51.com Me.txtselect(0).TabIndex = 0 copyright paper51.com Me.comsel(0).TabIndex = 1 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
End Select http://www.paper51.com EndSub http://www.paper51.com PrivateSub modicd_Click() copyright paper51.com On Error Resume Next '忽略错误 copyright paper51.com msg = "修改光盘" copyright paper51.com Me.TabStrip1.Tabs(3).Selected = True paper51.com Me.MSHFlexGrid1.Row =Me.MSHFlexGrid1.RowSel '确定查询条件 内容来自论文无忧网 www.paper51.com Me.MSHFlexGrid1.Col = 1 内容来自www.paper51.com
Me.txtselect(0).Text =Me.MSHFlexGrid1.Text http://www.paper51.com Me.MSHFlexGrid1.Visible = False 内容来自www.paper51.com
Me.Frame1.Visible = True 内容来自论文无忧网 www.paper51.com
db = "select * from 影片资料 where 影片名称='" & Trim(Me.txtselect(0).Text) & "'" http://www.paper51.com
Call yn.opendb(db) http://www.paper51.com
cdm.txtinfo(0).Text =yn.myrec.Fields("影片编号") http://www.paper51.com cdm.txtinfo(1).Text =yn.myrec.Fields("影片名称") 内容来自论文无忧网 www.paper51.com cdm.txtinfo(4).Text =yn.myrec.Fields("时间长度") http://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("影片介绍") copyright paper51.com
cdm.txtinfo(6).Text =yn.myrec.Fields("购买价格") 内容来自www.paper51.com cdm.Combo2.Text = yn.myrec.Fields("影片类型") paper51.com
cdm.Combo4.Text = yn.myrec.Fields("影片语言") http://www.paper51.com cdm.Combo3.Text = yn.myrec.Fields("影片格式") 内容来自论文无忧网 www.paper51.com
cdm.txtinfo(7).Text = yn.myrec.Fields("总数") 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 http://www.paper51.com Me.Combo1.AddItemyn.myrec.Fields("演员").Value http://www.paper51.com yn.myrec.MoveNext copyright paper51.com Loop paper51.com Call yn.closedb http://www.paper51.com EndSub 内容来自www.paper51.com
PrivateSub MSHFlexGrid1_Click() http://www.paper51.com Me.PopupMenumodimsf '弹出修改菜单 内容来自www.paper51.com EndSub copyright paper51.com
PrivateSub qd_Click() copyright paper51.com Select Case msg http://www.paper51.com Case Is = "添加光盘" copyright paper51.com If Me.txtinfo(0).Text<> "" Then copyright paper51.com
paper51.com For i = 0 To 8 内容来自www.paper51.com
If Me.txtinfo(i).Text ="" Then paper51.com MsgBox "对不起这里的每个选项你都要填写！！！", vbQuestion http://www.paper51.com
Exit Sub paper51.com EndIf copyright paper51.com
Next 内容来自www.paper51.com
db ="select * from 影片资料 where 影片名称='" & Me.txtinfo(1).Text& "'" 内容来自论文无忧网 www.paper51.com Callyn.opendb(db) copyright paper51.com If yn.myrec.EOF= False Then paper51.com MsgBox "已经有这部影片了！！！", vbQuestion copyright paper51.com Callyn.closedb 内容来自www.paper51.com Else 内容来自论文无忧网 www.paper51.com
Call yn.closedb 内容来自www.paper51.com Callyn.add("光盘信息") 内容来自论文无忧网 www.paper51.com Callyn.add("演员") paper51.com MsgBox "添加成功！！！",vbInformation paper51.com For i = 0 To 4 http://www.paper51.com Me.txtinfo(i).Text = "" copyright paper51.com Next 内容来自www.paper51.com Me.txtinfo(7).Text = "" copyright paper51.com Me.txtinfo(8).Text = "" 内容来自www.paper51.com Me.Combo1.Text ="" 内容来自论文无忧网 www.paper51.com Me.Combo1.Clear 内容来自论文无忧网 www.paper51.com Me.Combo2.Text ="" paper51.com Me.Combo3.Text ="" http://www.paper51.com Me.Combo4.Text ="" 内容来自论文无忧网 www.paper51.com
End If copyright paper51.com End If copyright paper51.com 内容来自www.paper51.com Case Is = "修改光盘" 内容来自www.paper51.com If Me.txtinfo(0).Text<> "" Then paper51.com Callyn.modi("光盘信息") http://www.paper51.com Callyn.modi("演员") copyright paper51.com
MsgBox"修改成功！！！", vbInformation http://www.paper51.com
'For i = 0To 8 paper51.com
'Me.txtinfo(i).Text = "" copyright paper51.com 'Next 内容来自www.paper51.com End If http://www.paper51.com copyright paper51.com Case Is = "删除光盘" http://www.paper51.com
IfMe.txtinfo(0).Text <> "" Then http://www.paper51.com db ="select * from 影片资料 where 影片名称='" & Me.txtinfo(1).Text& "'" copyright paper51.com Callyn.opendb(db) copyright paper51.com
Callyn.myrec.Delete 内容来自www.paper51.com Callyn.myrec.Update 内容来自www.paper51.com Callyn.closedb copyright paper51.com Callyn.opendb("select * from 演员") paper51.com yn.mycon.Execute "delete from 演员 where 影片编号='"& cdm.txtinfo(0).Text & "'" 内容来自www.paper51.com Callyn.closedb copyright paper51.com
For i = 0To 8 内容来自论文无忧网 www.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 = "" paper51.com
Me.Combo4.Text = "" http://www.paper51.com Me.comsel(0).Text = "" 内容来自论文无忧网 www.paper51.com Me.txtselect(0).Text = "" http://www.paper51.com Me.lstinfo.Clear 内容来自www.paper51.com MsgBox"此光盘记录已删除！！！", vbInformation 内容来自www.paper51.com End If 内容来自www.paper51.com End Select paper51.com EndSub 内容来自论文无忧网 www.paper51.com PrivateSub qx_Click() paper51.com Unload Me copyright paper51.com EndSub 内容来自www.paper51.com PrivateSub search_Click(Index As Integer) 内容来自www.paper51.com
paper51.com
If Me.comsel(0).Text <>"" And Me.txtselect(0).Text <> "" Then 内容来自www.paper51.com Select Case msg paper51.com http://www.paper51.com Case Is = "修改光盘" http://www.paper51.com Me.Combo1.Clear 内容来自www.paper51.com Call selec 内容来自www.paper51.com
Case Is = "光盘查询" http://www.paper51.com Me.lstinfo.Clear paper51.com Call selec 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com Case Is = "删除光盘" 内容来自论文无忧网 www.paper51.com Me.lstinfo.Clear 内容来自www.paper51.com Call selec 内容来自论文无忧网 www.paper51.com
End Select 内容来自论文无忧网 www.paper51.com
Else 内容来自www.paper51.com MsgBox "请输入查询条件！！！",vbInformation paper51.com
End If paper51.com EndSub copyright paper51.com PrivateSub TabStrip1_Click() copyright paper51.com On Error Resume Next copyright paper51.com Select CaseMe.TabStrip1.SelectedItem.Index 内容来自www.paper51.com
内容来自www.paper51.com
Case Is = 1 paper51.com
msg = "光盘查询" 内容来自www.paper51.com Me.Caption = " 光盘管理---------" & msg http://www.paper51.com paper51.com Me.comsel(0).Visible = True 内容来自www.paper51.com
Me.txtselect(0).Visible = True 内容来自论文无忧网 www.paper51.com Me.Labinfo(1).Visible = True http://www.paper51.com
Me.search(0).Visible = True copyright paper51.com Me.Combo1.Visible = False http://www.paper51.com Me.lstinfo.Visible = True paper51.com Me.MSHFlexGrid1.Visible =False 内容来自论文无忧网 www.paper51.com Me.Frame1.Visible = True http://www.paper51.com For i = 0 To 8 paper51.com
Me.txtinfo(i).Text = "" copyright paper51.com Me.txtinfo(i).Locked = True copyright paper51.com Next paper51.com
Me.Combo1.Text ="" copyright paper51.com Me.Combo2.Text ="" copyright paper51.com Me.Combo3.Text ="" 内容来自论文无忧网 www.paper51.com
Me.Combo4.Text ="" copyright paper51.com Me.comsel(0).Text = "" 内容来自论文无忧网 www.paper51.com Me.txtselect(0).Text = "" copyright paper51.com Me.lstinfo.Clear 内容来自www.paper51.com For i = 0 To 8 copyright paper51.com Me.txtinfo(i).BackColor = &H80000004 http://www.paper51.com Next copyright paper51.com
Me.Combo1.BackColor = &H80000004 http://www.paper51.com Me.Combo2.BackColor = &H80000004 copyright paper51.com
Me.Combo3.BackColor =&H80000004 内容来自www.paper51.com Me.Combo4.BackColor = &H80000004 http://www.paper51.com Case Is = 2 paper51.com msg = "添加光盘" 内容来自论文无忧网 www.paper51.com
Me.Caption =" 光盘管理---------"& msg 内容来自www.paper51.com
copyright paper51.com
Me.comsel(0).Visible = False 内容来自论文无忧网 www.paper51.com Me.txtselect(0).Visible = False copyright paper51.com Me.Labinfo(1).Visible= False http://www.paper51.com Me.search(0).Visible = False 内容来自论文无忧网 www.paper51.com Me.Combo1.Visible = True 内容来自论文无忧网 www.paper51.com Me.lstinfo.Visible = False paper51.com Me.MSHFlexGrid1.Visible = False 内容来自论文无忧网 www.paper51.com Me.Frame1.Visible = True copyright paper51.com For i = 0 To 8 内容来自论文无忧网 www.paper51.com Me.txtinfo(i).Text = "" 内容来自www.paper51.com Me.txtinfo(i).Locked = False paper51.com Next http://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.Combo1.Clear http://www.paper51.com
Me.Combo2.Clear 内容来自论文无忧网 www.paper51.com Me.Combo3.Clear copyright paper51.com Me.Combo4.Clear paper51.com Me.lstinfo.Clear 内容来自www.paper51.com For i = 0 To 8 paper51.com
Me.txtinfo(i).BackColor = vbWhite http://www.paper51.com Next paper51.com Me.Combo1.BackColor = vbWhite copyright paper51.com
Me.Combo2.BackColor = vbWhite 内容来自www.paper51.com Me.Combo3.BackColor = vbWhite paper51.com
Me.Combo4.BackColor = vbWhite copyright paper51.com
Callyn.opendb("select * from 影片类型") 内容来自www.paper51.com Do While yn.myrec.EOF = False 内容来自论文无忧网 www.paper51.com Me.Combo2.AddItem yn.myrec.Fields("影片类型") paper51.com yn.myrec.MoveNext 内容来自www.paper51.com
Loop paper51.com Call yn.closedb copyright paper51.com Callyn.opendb("select * from 影片格式") copyright paper51.com
Do Whileyn.myrec.EOF = False 内容来自www.paper51.com Me.Combo3.AddItem yn.myrec.Fields("影片格式") copyright paper51.com yn.myrec.MoveNext copyright paper51.com Loop 内容来自论文无忧网 www.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("影片语言") http://www.paper51.com
yn.myrec.MoveNext 内容来自www.paper51.com
Loop 内容来自www.paper51.com Call yn.closedb copyright 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 内容来自www.paper51.com http://www.paper51.com Case Is = 3 内容来自www.paper51.com msg = "修改光盘" 内容来自www.paper51.com Me.Caption =" 光盘管理---------"& msg copyright paper51.com Me.comsel(0).Visible = True copyright 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 copyright paper51.com Me.Combo1.Visible = True http://www.paper51.com Me.lstinfo.Visible = False 内容来自论文无忧网 www.paper51.com
Me.MSHFlexGrid1.Visible = False copyright 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 内容来自www.paper51.com
Next 内容来自www.paper51.com Me.Combo1.Text ="" copyright paper51.com Me.Combo1.Clear http://www.paper51.com Me.Combo2.Clear http://www.paper51.com Me.Combo3.Clear http://www.paper51.com
Me.Combo4.Clear http://www.paper51.com
Me.Combo2.Text ="" 内容来自www.paper51.com Me.Combo3.Text ="" copyright paper51.com Me.Combo4.Text ="" copyright paper51.com
Me.comsel(0).Text = "" copyright paper51.com Me.txtselect(0).Text = "" copyright paper51.com Me.lstinfo.Clear paper51.com For i = 0 To 8 内容来自论文无忧网 www.paper51.com
Me.txtinfo(i).BackColor = vbWhite copyright paper51.com Me.txtinfo(i).Locked = False 内容来自www.paper51.com Next paper51.com
Me.Combo1.BackColor = vbWhite 内容来自www.paper51.com Me.Combo2.BackColor = vbWhite paper51.com Me.Combo3.BackColor = vbWhite http://www.paper51.com
Me.Combo4.BackColor = vbWhite 内容来自论文无忧网 www.paper51.com Callyn.opendb("select * from 影片类型") 内容来自论文无忧网 www.paper51.com
Do Whileyn.myrec.EOF = False paper51.com
Me.Combo2.AddItem yn.myrec.Fields("影片类型") 内容来自www.paper51.com yn.myrec.MoveNext http://www.paper51.com Loop 内容来自www.paper51.com Call yn.closedb 内容来自www.paper51.com Callyn.opendb("select * from 影片格式") 内容来自论文无忧网 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 内容来自www.paper51.com Callyn.opendb("select * from 影片语言") http://www.paper51.com Do Whileyn.myrec.EOF = False 内容来自www.paper51.com Me.Combo4.AddItem yn.myrec.Fields("影片语言") http://www.paper51.com yn.myrec.MoveNext http://www.paper51.com Loop 内容来自论文无忧网 www.paper51.com
Call yn.closedb 内容来自论文无忧网 www.paper51.com
copyright 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 copyright paper51.com Me.Labinfo(1).Visible = True 内容来自论文无忧网 www.paper51.com Me.search(0).Visible= True 内容来自论文无忧网 www.paper51.com
Me.Combo1.Visible = False copyright paper51.com
Me.lstinfo.Visible = True 内容来自论文无忧网 www.paper51.com
Me.MSHFlexGrid1.Visible = False 内容来自www.paper51.com
Me.Frame1.Visible = True 内容来自www.paper51.com For i = 0 To 8 http://www.paper51.com Me.txtinfo(i).Text = "" paper51.com
Me.txtinfo(i).Locked = True 内容来自论文无忧网 www.paper51.com Next 内容来自论文无忧网 www.paper51.com Me.Combo1.Text ="" copyright paper51.com
Me.Combo2.Text ="" copyright paper51.com Me.Combo3.Text ="" paper51.com Me.Combo4.Text ="" 内容来自www.paper51.com Me.comsel(0).Text = "" 内容来自论文无忧网 www.paper51.com Me.txtselect(0).Text = "" paper51.com Me.lstinfo.Clear paper51.com For i = 0 To 8 内容来自www.paper51.com Me.txtinfo(i).BackColor = &H80000004 copyright paper51.com Next http://www.paper51.com
Me.Combo1.BackColor = &H80000004 内容来自论文无忧网 www.paper51.com
Me.Combo2.BackColor = &H80000004 paper51.com Me.Combo3.BackColor = &H80000004 内容来自www.paper51.com Me.Combo4.BackColor = &H80000004 内容来自www.paper51.com End Select http://www.paper51.com EndSub 内容来自www.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 http://www.paper51.com Select Case KeyAscii http://www.paper51.com
CaseAsc("0") To Asc("9") 内容来自论文无忧网 www.paper51.com Case Else 内容来自论文无忧网 www.paper51.com KeyAscii = 0 http://www.paper51.com MsgBox "请输入数字！！！", vbInformation 内容来自www.paper51.com End Select 内容来自论文无忧网 www.paper51.com End If copyright paper51.com
EndSub http://www.paper51.com |