音像制品出租及销售管理系统源代码.docVIP

1、音像管理 cdm.frm Dim yn As New yn 定义yn为yn类 Option Explicit Private Sub Combo1_Click() Me.PopupMenu list 弹出LIST菜单 End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, 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 Sub Private Sub comsel_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then 如果按回车键就执行查询功能 Call search_Click(0) End If End Sub Private Sub dele_Click() Me.Combo1.RemoveItem Me.Combo1.ListIndex 单击后删除指定记录 End Sub Private 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.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 Call yn.opendb(db) If Not yn.myrec.EOF Then Call yn.myrec.Delete Call yn.myrec.Update MsgBox 此音像记录已成功删除！！！, vbInformation + vbOKOnly, 音像制品出租及销售管理系统 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.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 + vbOKOnly, 音像制品出租及销售管理系统 Call yn.closedb db = select * from 影片资料 where Msel(0).Text = Me.txtselect(0).Text Call