发布时间 : 星期六 文章音像租赁销售管理系统毕业论文更新完毕开始阅读3eae9734f111f18583d05a1f
5.1光盘管理
5.1.1添加光盘
功能：能方便得添加光盘，其中采用了预设方式。 输入项目：鼠标或键盘事件。 输出项目：无。 界面如图5-1所示：
图5-1
Private 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
Me.txtinfo(i).BackColor = vbWhite Next
11
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 Me.comsel(0).Visible = False Me.search(0).Visible = False Me.Combo1.Clear Me.Combo2.Clear Me.Combo3.Clear Me.Combo4.Clear
Call yn.opendb(\影片类型\ Do While yn.myrec.EOF = False
Me.Combo2.AddItem yn.myrec.Fields(\影片类型\ yn.myrec.MoveNext Loop
Call yn.closedb
Call yn.opendb(\影片格式\ Do While yn.myrec.EOF = False
Me.Combo3.AddItem yn.myrec.Fields(\影片格式\ yn.myrec.MoveNext Loop
Call yn.closedb
Call yn.opendb(\影片语言\ Do While yn.myrec.EOF = False
Me.Combo4.AddItem yn.myrec.Fields(\影片语言\ yn.myrec.MoveNext Loop
12
Call yn.closedb
Call yn.opendb(\自定义\
Me.txtinfo(6).Text = yn.myrec.Fields(\购买价格\ Me.txtinfo(5).Text = yn.myrec.Fields(\租赁价格\ Call yn.closedb 5.1.2修改光盘
功能：完成了修改功能，同样也采用了预设得方式。 输入项目：鼠标或键盘事件。 输出项目：无。 界面如图5-2所示：
图5-2
Case Is = \修改光盘\
Me.txtselect(0).TabIndex = 0 Me.comsel(0).TabIndex = 1
Me.TabStrip1.Tabs(3).Selected = True For i = 0 To 8
13
Me.txtinfo(i).BackColor = vbWhite Next
Me.Combo1.BackColor = vbWhite '设置白色代表有效 Me.Combo2.BackColor = vbWhite Me.Combo3.BackColor = vbWhite Me.Combo4.BackColor = vbWhite Me.Combo1.Clear Me.Combo2.Clear Me.Combo3.Clear Me.Combo4.Clear
Call yn.opendb(\影片类型\ Do While yn.myrec.EOF = False
Me.Combo2.AddItem yn.myrec.Fields(\影片类型\ yn.myrec.MoveNext Loop
Call yn.closedb
Call yn.opendb(\影片格式\ Do While yn.myrec.EOF = False
Me.Combo3.AddItem yn.myrec.Fields(\影片格式\ yn.myrec.MoveNext Loop
Call yn.closedb
Call yn.opendb(\影片语言\ Do While yn.myrec.EOF = False
Me.Combo4.AddItem yn.myrec.Fields(\影片语言\ yn.myrec.MoveNext Loop
Call yn.closedb 5.1.3删除光盘
功能：完成了删除光盘功能，其设置资料为不可选方便了用户。
14