yn.cls

音像制品出租及销售管理系统,用VB实现

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("导演") = 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
      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("导演") = 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
      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