数据库初始化.txt

原创VB+SQL影音租赁系统 醮简单 具体看里边的文本文档

    PsBar2.Value = 100
    MsgBox "所有记录添加成功！数据表初始化成功！：））"
End With







Select Case TabStrip1.SelectedItem.index
       Case 1
       tableName = "love"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath ,'级别'=cLevel from love", con, adOpenDynamic, adLockOptimistic
       Call display
       LoveDataView.Visible = True
       ComedyDataView.Visible = False
       LoveData.rsCommandView.Requery
       Set LoveDataView.DataSource = LoveData
       rst.Close
       Case 2
       tableName = "comedy"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from comedy", con, adOpenDynamic, adLockOptimistic
       Call display
       With ComedyDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       LoveDataView.Visible = False
       ComedyDataView.Visible = True
       ComedyData.rsComComedy.Requery
       Set ComedyDataView.DataSource = ComedyData
       rst.Close
       Case 3
       tableName = "cartoon"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from cartoon", con, adOpenDynamic, adLockOptimistic
       Call display
       With Cartoondataview
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = True
       CartoonData.rsComCartoon.Requery
       Set Cartoondataview.DataSource = CartoonData
       rst.Close
       Case 4
       tableName = "Science"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from science", con, adOpenDynamic, adLockOptimistic
       Call display
       With ScienceDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       ScienceDataView.Visible = True
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       ScienceData.rsComScience.Requery
       Set ScienceDataView.DataSource = ScienceData
       rst.Close
       Case 5
       tableName = "venture"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from venture", con, adOpenDynamic, adLockOptimistic
       Call display
       With VentureDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       VentureDataView.Visible = True
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       VentureData.rsComVenture.Requery
       Set VentureDataView.DataSource = VentureData
       rst.Close
       Case 6
       tableName = "action"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from action", con, adOpenDynamic, adLockOptimistic
       Call display
       With ActionDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500