VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "yn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
 Public mycon As New ADODB.Connection
 Public myrec As New ADODB.Recordset
 Public yn As New yn
Option Explicit





Public Sub opendb(dbstring As String)
 
 Dim db As String
 db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\cd.mdb;Jet OLEDB:Database Password=cd;"
 mycon.Open db
 myrec.Open dbstring, mycon, adOpenDynamic, adLockOptimistic, adCmdText
 
 
End Sub


Public Sub closedb()

 myrec.Close
 mycon.Close

End Sub

Public Sub add(sele As String)
  
  Select Case sele
  
    Case Is = "光盤信息"
      Call yn.opendb("select * from 影片資料")
      Call yn.myrec.AddNew
      yn.myrec.Fields("影片編號") = cdm.txtinfo(0).Text
      yn.myrec.Fields("影片名稱") = cdm.txtinfo(1).Text
      yn.myrec.Fields("時間長度") = cdm.txtinfo(4).Text
      yn.myrec.Fields("導(dǎo)演") = cdm.txtinfo(2).Text
      yn.myrec.Fields("發(fā)行年度") = 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("總數(shù)") = cdm.txtinfo(7).Text
      yn.myrec.Fields("出租價格") = cdm.txtinfo(5).Text
      Call yn.myrec.Update
      Call yn.closedb

    Case Is = "演員"
      Call yn.opendb("select * from 演員")
      For i = 0 To cdm.Combo1.ListCount - 1
        Call yn.myrec.AddNew
        yn.myrec.Fields("演員") = cdm.Combo1.list(i)
        yn.myrec.Fields("影片編號") = cdm.txtinfo(0).Text
        Call yn.myrec.Update
      Next
      Call yn.closedb
  End Select
  
End Sub

Public Sub modi(sele As String)

   Dim yn As New yn
  Select Case sele
  
    Case Is = "光盤信息"
      Call yn.opendb("select * from 影片資料 where 影片編號='" & cdm.txtinfo(0).Text & "'")
      yn.myrec.Fields("影片編號") = cdm.txtinfo(0).Text
      yn.myrec.Fields("影片名稱") = cdm.txtinfo(1).Text
      yn.myrec.Fields("時間長度") = cdm.txtinfo(4).Text
      yn.myrec.Fields("導(dǎo)演") = cdm.txtinfo(2).Text
      yn.myrec.Fields("發(fā)行年度") = 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("總數(shù)") = cdm.txtinfo(7).Text
      yn.myrec.Fields("出租價格") = cdm.txtinfo(5).Text
      Call yn.myrec.Update
      
    Case Is = "演員"
      Dim a As String
      a = "delete from 演員 where 影片編號='" & cdm.txtinfo(0).Text & "'"
      Call yn.opendb("select * from 演員")
      yn.mycon.Execute a
      For i = 0 To cdm.Combo1.ListCount - 1
        Call yn.myrec.AddNew
        yn.myrec.Fields("演員") = cdm.Combo1.list(i)
        yn.myrec.Fields("影片編號") = cdm.txtinfo(0).Text
        Call yn.myrec.Update
      Next
      Call yn.closedb
            
  End Select

End Sub