音像管理系统论文-VB编程毕业设计

1、目录内容摘要 1 第一章 前言 2 1.1问题的提出3 1.2本文研究路线3 第二章 光盘管理系统研究概述3 2.1 光盘管理系统的发展历史3 2.2 光盘管理系统发展现状4 2.3本文的目标及相关专业理论 4 第三章 光盘管理系统分析与设计4 3.1 光盘管理系统功能需求简介43.2功能需求描述43.3目标系统要求5 3.4系统平台选择5 3.5数据库设计5 3.5.1数据词典分析5 3.5.2数据库介绍6 第四章 光盘管理系统的功能实现6 4.1光盘管理74.2管理员管理9 4.3会员管理10 4.4系统配置12 4.5发布应用程序12 4.5.1编译应用程序12 4.5.2打包应用程序1

2、2 4.5.3发布应用程序的步骤12第五章 结论及体会14参考文献 14附录 14毕业论文内容摘要 光盘管理系统是用VB6.0开发出来用于管理光盘的出租和出售的MIS系统。该系统用于光盘出租或销售店,方便出售光盘、租盘、还盘、查找等操作,是出租销售光盘店的最佳助手。可以自定义光盘,方便添加新盘、管理光盘、管理会员。提供完善的租盘和还盘操作,完全独立的数据库系统,数据管理为您提供:光盘管理,会员管理.数据查询为您提供:租借情况,光盘查询,会员查询。本系统具有安全的数据库备份方案,简单易用,仿WINDOWS操作方式,可以使您很快上手,根据需要自行设置光盘类别和相应的借出时间、借出册数。本系统采用A

3、DO编程,程序中包含了许多编程技巧。注解:MIS:管理信息系统(Management Information System,简称MIS)是70年代开始发展的一个新兴的应用研究领域。VB6.0:微软公司1998年开发出来用于编写WIN32程序的高级编程软件,经过1.0,2.0,3.0,4.0,5.0的几个版本的不断更新,VB的功能不断强大,它已成功当今开发速度最快的高级编程软件系统。ADO:(Active Data Object)微软的一种新数据访问模型,支持用于建立基于客户端/服务器和WEB应用程序的主要功能。其主要优点是易于使用、高速度、低内存支出和占用磁盘较少。82第一章 前言目前,出租或

4、销售光盘的商店很多,他们大部分是用人工的方式对其进行管理,在盘少的情况下还可以应付,但一旦盘量增多再用这样方式就会给管理者带来诸多的不便,比如查询,统计之类的事务。而这套光盘管理软件解决了这个问题,使您从出租销售业务摆脱繁重混乱的手工时代,进入科学高效的信息管理世纪！模块功能:1、 光盘的管理2、 管理员的管理3、 会员的管理4、 系统配置5、 锁机系统6、 身份认证功能7、 帮助功能本论文分为五章:第一章 前言主要阐明选题的背景和选题的意义。本课题的研究意义。本论文的目的、内容及作者的主要贡献 ,或担任的主要工作。第二章 光盘管理系统研究概述阐述:课题来源、用户需求；当前同类系统存在的问题及

5、解决办法,本课题要达到的设计目标及所依据的专业理论知识。第三章 光盘管理系统分析与设计主要有系统结构、模块划分、数据库结构的设计。第四章 光盘管理系统的功能实现开发环境:包括软件和硬件环境。开发工具:要求写明选择该工具的目的。模块说明、流程设计。关键技术(代码)分析。第五章 结论及体会主要包含系统运行效果、自我评价、测试结果、改进意见；对整个毕业设计的感受、收获或提出问题和希望。论文撰写: 论文程序: 20XX年5月30日1.1问题的提出光盘出租与销售的管理是一个常见的问题,其特点是数据之间的关系简单,但数据量较大。若用人工进行管理,刚不便于数据的汇总统计及各种数据分析。例如,若每天有有100

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

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

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

9、因为它可以代替那些店员来替他分担这些事务,它可以比那些店员更认真,更卖力,犯错率更低,而更要紧的是它替经营者降低了成本。2.3本文的目标及相关专业理论本文的目标就是让经营光盘业务的管理者利用时下的科技技术,来更好的帮助自己解决管理上的问题。然而目前经营光盘出租或销售的软件这么多,质量也参差不齐,这反而却成为困绕管理者的最大的问题。所以我们开发的这套管理软件不仅包括了光盘的出租业务也包括光盘的销售业务,这样作的目的是为了更好的统一管理,业者也不用为了解决事务上的问题而去购买两套软件,从而降低了成本。另一方面本软件采用VB编写,由于它和数据库有很好的融合性,便它编出来的软件速度更快,数据更安全,业

10、者可以更放心得使用。第三章光盘管理系统分析与设计3.1 光盘管理系统功能需求简介本软件的主要功能有:8、 光盘的管理9、 管理员的管理10、 会员的管理11、 系统配置12、 锁机系统13、 身份认证功能14、 帮助功能3.2功能需求描述1、 光盘管理:主要是对光盘的基本操作,如添加,修改,删除、查询。2、 管理员管理:对管理员操作有添加,修改,删除。3、 会员管理:对会员操作有添加,修改,删除。4、 系统配置:可以预设置光盘的类型等资料,同时可以备份和恢复数据库,使其更安全。5、 锁机系统:这个功能可以便管理员暂时离开电脑,而其数据不被其它人更改。6、 身份认证功能:可以阻止没有受权人非法试

11、图登陆系统。7、 帮助功能:使你可以更清楚的了解本系统。3.3目标系统要求一台微机处理器为486、50MHz以上的微机；内存容量16MB以上；一个鼠标；硬盘的最小空间为15MB,用户自定义安装需要100MB硬盘空间；推荐使用VGA或更高分辨率的显示器。3.4系统平台选择本系统适用于Windows9x/windows20XX。3.5数据库设计 3.5.1数据词典分析1、 管理员1、 姓名 1字符102、 密码 1字符103、 销售总数 1数字84、 级别 1字符105、 解屏密码 1字符102、 客户1、 客户姓名 1字符102、 客户号 1数字83、 TEL 1数字84、 OICQ 1数字85

12、、 Email 1字符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字符1010、 影片格式 1字符1011、 影片语言 1字符1012、 总数 1数

13、字83.5.2数据库介绍本系统采用得是ACCESS20XX为后台数据库。数据库名为CD.MDB,其中数据库包含得表为:管理员、客户、客户日志、演员、影片格式、影片类型、影片语言、影片资料、自定义.第四章 光盘管理系统的功能实现该软件的开发环境是VB6.0+Windows98,采用得是ACCESS20XX为后台数据库,从而使得系统更加安全,操作更加方便。总体设计: 4.1光盘管理1、 添加模块功能:能方便得添加光盘,其中采用了预设方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:2、 修改光盘功能:完成了修改功能,同样也采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无

14、。 界面如图所示: 3、 删除光盘功能:完成了删除光盘功能,其设置资料为不可选方便了用户。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:4、 查询光盘功能:完成了查询光盘功能,并设置了多项查询条件的选择。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:4.2管理员管理1、 添加管理员功能:完成添加管理员功能, 采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:2、修改管理员功能:完成修改管理员功能,采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:3、删除管理员功能:完成删除管理员功能,采用了预设得方式。 输入项

15、目:鼠标或键盘事件。 输出项目:无。 界面如图所示:4.3会员管理1、 添加会员功能:添加会员功能。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:2、 修改会员功能:修改会员功能。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:3、 删除会员功能:删除会员功能。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:4.4系统配置 功能:查询光盘功能, 采用了预设得方式。 输入项目:鼠标或键盘事件。 输出项目:无。 界面如图所示:4.5发布应用程序4.5.1编译应用程序 选择文件-生成光盘管理系统.exe4.5.2打包应用程序 选择Package & Deploy

16、ment 向导4.5.3发布应用程序的步骤 1、选择Package & Deployment 向导2、选择打包3、选择下一步4、一直选择下一步直到5、选择完成。第六章 结论及体会 整个程序的编写已经完成,经过这次的实践让我对如何利用VB开发数据库程序有了一个更深得理解。在此期间我遇到了许多困难,但经过反复的查阅资料和不断调试下,这些难题还是终究被克服了,比如数据库的加密、如何访问加密的数据库之类的,在这场实践中的调研、开发、调试,从中得到了开发的经验。虽然该系统还并不是很完美,有些功能因条件和自身能力的关系没有设计出来,比如打印之类的管理,所以使得我今后要不断学习更多的东西来完善它,使其真正成

17、为功能完备的光盘管理系统。参考文献软件工程原理、方法与应用 史济民 著 高等教育出版社软件工程实验 陈明、王智广、赵鹏翔 著 高等教育出版社VB程序设计基础 郎洪、段银田、陈勇孝 著 高等教育出版社VB程序设计教程习题及习题解答 刘瑞新、李树东、王为东 著电子工业出版社附录: 1、光盘管理 cdm.frm Dim yn As New yn 定义yn为yn类Option ExplicitPrivate Sub Combo1_Click() Me.PopupMenu list 弹出LIST菜单End SubPrivate Sub Combo1_KeyDown(KeyCode As Integer,

18、 Shift As Integer) If KeyCode = 13 Then 如果按回车键就添加一个记录 Me.Combo1.AddItem Me.Combo1.Text Me.Combo1.SelStart = 0 Me.Combo1.SelLength = Len(Me.Combo1.Text) End If End SubPrivate Sub comsel_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then 如果按回车键就执行查询功能 Call search_Click(0) End IfEnd

19、SubPrivate Sub dele_Click() Me.Combo1.RemoveItem Me.Combo1.ListIndex 单击后删除指定记录 End SubPrivate Sub delecd_Click() msg = 删除光盘 Me.TabStrip1.Tabs(4).Selected = True 4被选中 Dim a As String a = Me.MSHFlexGrid1.Text Me.MSHFlexGrid1.Row = 0 Me.MSHFlexGrid1.Col = Me.MSHFlexGrid1.Col - 1 Msel(0).Text = Me.

20、MSHFlexGrid1.Text Me.txtselect(0).Text = a 赋值方便查询 If Msel(0).Text = 影片编号 Or Msel(0).Text = 影片名称 Or Msel(0).Text = 导演 Or Msel(0).Text = 影片类型 Or Msel(0).Text = 影片格式 Or Msel(0).Text = 影片语言 Then db = select * from 影片资料 where & Msel(0).Text & = & Me.txtselect(0).Text &

21、Call yn.opendb(db) If Not yn.myrec.EOF Then Call yn.myrec.Delete Call yn.myrec.Update MsgBox 此光盘记录已成功删除！, vbInformation Call yn.closedb db = select * from 影片资料 where & Msel(0).Text & = & Me.txtselect(0).Text & Call yn.opendb(db) Set Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedb Else Me.

22、MSHFlexGrid1.Visible = False Me.Frame1.Visible = True Call yn.closedb End If Else db = select * from 影片资料 where & Msel(0).Text & = & Me.txtselect(0).Text & Call yn.opendb(db) Call yn.myrec.Delete Call yn.myrec.Update MsgBox 此光盘记录已成功删除！, vbInformation Call yn.closedb db = select * from 影片资料 wher

23、e & Msel(0).Text & = & Me.txtselect(0).Text & Call yn.opendb(db) Set Me.MSHFlexGrid1.DataSource = yn.myrec Call yn.closedb End If End SubPrivate Sub Form_Load() On Error Resume Next Me.Caption = Me.Caption & msg Select Case msg Case Is = 添加光盘 Me.TabStrip1.Tabs(2).Selected = True For i = 0 To 8

24、Me.txtinfo(i).BackColor = vbWhite Next Me.Combo1.BackColor = vbWhite 设置白色代表有效 Me.Combo2.BackColor = vbWhite Me.Combo3.BackColor = vbWhite Me.Combo4.BackColor = vbWhite Me.txtselect(0).Visible = False Me.Labinfo(1).Visible = False Msel(0).Visible = False Me.search(0).Visible = False Me.Combo1.Cl

25、ear Me.Combo2.Clear Me.Combo3.Clear Me.Combo4.Clear 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(影片格式)

26、 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 Call yn.opendb(select * from 自定义) Me.txtinfo(6).Text = yn.myrec.Fields(购买价格) Me.txtinfo(5).Text = yn.myrec.Fields(出租

27、价格) Call yn.closedb Case Is = 修改光盘 Me.txtselect(0).TabIndex = 0 Msel(0).TabIndex = 1 Me.TabStrip1.Tabs(3).Selected = True 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

28、= vbWhite Me.Combo1.Clear Me.Combo2.Clear Me.Combo3.Clear Me.Combo4.Clear 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

29、 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 Case Is = 光盘查询 Me.TabStrip1.Tabs(1).Selected = True Me.Combo1.Visible = False For i = 0 To 8 M

30、e.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(0).TabIndex = 1 End Select End SubPrivate Sub modicd_Click() On Error Resume Next 忽略错误 msg = 修改光盘 Me.TabStrip1.Tabs(3).Sel

31、ected = 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

32、.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.myrec.Fields(影片介绍) cdm.txtinfo(6).Text = yn.myrec.Fields(购买价格) cdm.Combo2.Text =

33、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 * from 演员 where 影片编号= & Me.txtinfo(0).Text & ) Do While Not yn.myrec.EOF M

34、e.Combo1.AddItem yn.myrec.Fields(演员).Value yn.myrec.MoveNext Loop Call yn.closedb End SubPrivate Sub MSHFlexGrid1_Click() Me.PopupMenu modimsf 弹出修改菜单End SubPrivate Sub qd_Click() Select Case msg Case Is = 添加光盘 If Me.txtinfo(0).Text Then For i = 0 To 8 If Me.txtinfo(i).Text = Then MsgBox 对不起这里的每个选项你都

35、要填写！, vbQuestion Exit Sub End If Next db = select * from 影片资料 where 影片名称= & Me.txtinfo(1).Text & Call yn.opendb(db) If yn.myrec.EOF = False Then MsgBox 已经有这部影片了！, vbQuestion Call yn.closedb Else Call yn.closedb Call yn.add(光盘信息) Call yn.add(演员) MsgBox 添加成功！, vbInformation For i = 0 To 4 Me.txtinfo(i

36、).Text = Next Me.txtinfo(7).Text = Me.txtinfo(8).Text = Me.Combo1.Text = Me.Combo1.Clear Me.Combo2.Text = Me.Combo3.Text = Me.Combo4.Text = End If End If Case Is = 修改光盘 If Me.txtinfo(0).Text Then Call yn.modi(光盘信息) Call yn.modi(演员) MsgBox 修改成功！, vbInformation For i = 0 To 8 Me.txtinfo(i).Text = Next

37、 End If Case Is = 删除光盘 If Me.txtinfo(0).Text Then db = select * from 影片资料 where 影片名称= & Me.txtinfo(1).Text & Call yn.opendb(db) Call yn.myrec.Delete Call yn.myrec.Update Call yn.closedb Call yn.opendb(select * from 演员) yn.mycon.Execute delete from 演员 where 影片编号= & cdm.txtinfo(0).Text & Call yn.close

38、db For i = 0 To 8 Me.txtinfo(i).Text = Next Me.Combo1.Text = Me.Combo2.Text = Me.Combo3.Text = Me.Combo4.Text = Msel(0).Text = Me.txtselect(0).Text = Me.lstinfo.Clear MsgBox 此光盘记录已删除！, vbInformation End If End SelectEnd SubPrivate Sub qx_Click() Unload MeEnd SubPrivate Sub search_Click(Index As

39、 Integer) If Msel(0).Text And Me.txtselect(0).Text Then Select Case msg Case Is = 修改光盘 Me.Combo1.Clear Call selec Case Is = 光盘查询 Me.lstinfo.Clear Call selec Case Is = 删除光盘 Me.lstinfo.Clear Call selec End Select Else MsgBox 请输入查询条件！, vbInformation End IfEnd SubPrivate Sub TabStrip1_Click() On Er

40、ror Resume Next Select Case Me.TabStrip1.SelectedItem.Index Case Is = 1 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.MSHFlexGrid1.Visible

41、= 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 = Me.lstinfo.Clear For i = 0 To 8 Me.txtinfo(i).BackColor = &H80000004 Next Me.Combo1.Bac

42、kColor = &H80000004 Me.Combo2.BackColor = &H80000004 Me.Combo3.BackColor = &H80000004 Me.Combo4.BackColor = &H80000004 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.Combo1.Vis

43、ible = 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.Clear Me

44、.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(影片类型) yn.myr

45、ec.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.MoveNext Loop Call yn.closedb Call yn.opendb(select * from 自定义) Me.txtinfo(6).Text = yn.myrec.Fields(购买价格) Me.txtinfo(5).Text = yn.myre