音像租赁销售管理系统毕业论文

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