光盘出租与销售的管理是一个常见的问题，其特点是数据之间的关系简单，但数据量较大。若用人工进行管理，刚不便于数据的汇总统计及各种数据分析。例如，若每天有有1000条记录，则要进行1000次加法才能计算出每天的租金总额，当然要进行每个月的统计工作就更复杂了。此时这对于光盘的管理就更难了。例如，要查看哪些光盘是顾客最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。所以本软件就是为了解决这个问题而开发的，它能方便得进行各种管理事务，软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！
1.2本文研究路线
光盘管理是一个常见的问题,最主要的问题是对光盘和会员的管理不方便，例如，要查看哪些光盘是顾客最喜欢看的，哪些光盘被损坏，哪些光盘超期未还等，这些问题用人工管理方式是难以解决的。开发本软件的目的就是让管理者减少重复工作，提高信息管理的效率和准确度。它能方便得进行各种管理事务，软件设计综合了具有一定代表性多家光盘出租销售店的业务处理模式。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。让你摆脱繁重混乱的手工时代，进入科学高效的信息管理世纪！
db = "select * from 影片资料 where " & Me.comsel(0).Text & "='" & 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("时间长度")
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.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
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.Fields("演员").Value
yn.myrec.MoveNext
Loop
End If
Call yn.closedb
ElseIf Me.comsel(0).Text = "导演" Or Me.comsel(0).Text = "影片类型" Or Me.comsel(0).Text = "影片格式" Or Me.comsel(0).Text = "影片语言" Then
db = "select * from 影片资料 where " & Me.comsel(0).Text & "='" & VBA.LCase(Me.txtselect(0).Text) & "'"
Call yn.opendb(db)
If yn.myrec.EOF Then
MsgBox "无此盘！！！", vbQuestion
