cdm.frm

易能光盘管理系统 ,含源程序与毕业论文 可以提供源代码和文档

End Sub

Private Sub MSHFlexGrid1_Click()

      Me.PopupMenu modimsf     '弹出修改菜单


End Sub

Private 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 "对不起这里的每个选项你都要填写！！！", 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).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
      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.closedb
       For i = 0 To 8
         Me.txtinfo(i).Text = ""
       Next
       Me.Combo1.Text = ""
       Me.Combo2.Text = ""
       Me.Combo3.Text = ""
       Me.Combo4.Text = ""
       Me.comsel(0).Text = ""
       Me.txtselect(0).Text = ""
       Me.lstinfo.Clear
       MsgBox "此光盘记录已删除！！！", vbInformation
      End If
  End Select

End Sub

Private Sub qx_Click()

  Unload Me

End Sub

Private Sub search_Click(Index As Integer)
   
  If Me.comsel(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 If
End Sub

Private Sub TabStrip1_Click()

  On Error Resume Next
  Select Case Me.TabStrip1.SelectedItem.Index
    
    Case Is = 1
      msg = "光盘查询"
      Me.Caption = "   光盘管理---------" & msg
      

      Me.comsel(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 = 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 = ""
      Me.comsel(0).Text = ""
      Me.txtselect(0).Text = ""
      Me.lstinfo.Clear
      For i = 0 To 8
        Me.txtinfo(i).BackColor = &H80000004
      Next
      Me.Combo1.BackColor = &H80000004
      Me.Combo2.BackColor = &H80000004
      Me.Combo3.BackColor = &H80000004
      Me.Combo4.BackColor = &H80000004

    Case Is = 2
      msg = "添加光盘"
      Me.Caption = "   光盘管理---------" & msg
      
      Me.comsel(0).Visible = False
      Me.txtselect(0).Visible = False
      Me.Labinfo(1).Visible = False
      Me.search(0).Visible = False
      Me.Combo1.Visible = 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.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.myrec.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.myrec.Fields("出租价格")
      Call yn.closedb
      

    Case Is = 3
      msg = "修改光盘"
      Me.Caption = "   光盘管理---------" & msg

      Me.comsel(0).Visible = True
      Me.txtselect(0).Visible = True
      Me.Labinfo(1).Visible = True
      Me.search(0).Visible = True
      Me.Combo1.Visible = 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.Combo1.Clear
      Me.Combo2.Clear
      Me.Combo3.Clear
      Me.Combo4.Clear
      Me.Combo2.Text = ""
      Me.Combo3.Text = ""
      Me.Combo4.Text = ""
      Me.comsel(0).Text = ""
      Me.txtselect(0).Text = ""
      Me.lstinfo.Clear
      For i = 0 To 8
        Me.txtinfo(i).BackColor = vbWhite
        Me.txtinfo(i).Locked = False
      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.myrec.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
      
    Case Is = 4
      msg = "删除光盘"
      Me.Caption = "   光盘管理---------" & msg

      Me.comsel(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 = 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 = ""
      Me.comsel(0).Text = ""
      Me.txtselect(0).Text = ""
      Me.lstinfo.Clear
      For i = 0 To 8
        Me.txtinfo(i).BackColor = &H80000004
      Next
      Me.Combo1.BackColor = &H80000004
      Me.Combo2.BackColor = &H80000004
      Me.Combo3.BackColor = &H80000004
      Me.Combo4.BackColor = &H80000004

  End Select
  

End Sub

Private Sub txtinfo_KeyPress(Index As Integer, KeyAscii As Integer)
 
  If Index = 3 Or Index = 4 Or Index = 5 Or Index = 6 Or Index = 7 Then
    Select Case KeyAscii
      Case Asc("0") To Asc("9")
      Case Else
        KeyAscii = 0
        MsgBox "请输入数字！！！", vbInformation
    End Select
  End If
  
End Sub


Private Sub selec()     '=======查询过程
  
      On Error Resume Next

      If Me.comsel(0).Text = "影片编号" Or Me.comsel(0).Text = "影片名称" Then
        Me.MSHFlexGrid1.Visible = False
        Me.Frame1.Visible = True
        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
        Call yn.closedb
      Else
        Me.Frame1.Visible = False
        Me.MSHFlexGrid1.Visible = True
        Set Me.MSHFlexGrid1.DataSource = yn.myrec
        Call yn.closedb
      End If
        Else
        If VBA.IsNumeric(Me.txtselect(0).Text) = True Then
        db = "select * from 影片资料 where " & Me.comsel(0).Text & "=" & Me.txtselect(0).Text
        Call yn.opendb(db)
      If yn.myrec.EOF Then
        MsgBox "无此盘！！！", vbQuestion
        Call yn.closedb
      Else
        Me.Frame1.Visible = False
        Me.MSHFlexGrid1.Visible = True
        Set Me.MSHFlexGrid1.DataSource = yn.myrec
        Call yn.closedb
      End If
        Else
        MsgBox "请输入数字！！！", vbInformation
        End If
      End If

End Sub

Private Sub txtselect_KeyPress(Index As Integer, KeyAscii As Integer)
  If KeyAscii = 13 Then
    Call search_Click(0)
  End If
End Sub