数据库初始化.txt

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

          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       ActionDataView.Visible = True
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       ActionData.rsComAction.Requery
       Set ActionDataView.DataSource = ActionData
       rst.Close
       Case 7
       tableName = "art"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from art", con, adOpenDynamic, adLockOptimistic
       Call display
       With ArtDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       ArtDataView.Visible = True
       ActionDataView.Visible = False
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       ArtData.rsComArt.Requery
       Set ArtDataView.DataSource = ArtData
       Case 8
       tableName = "war"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from war", con, adOpenDynamic, adLockOptimistic
       Call display
       With WarDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       WarDataView.Visible = True
       ActionDataView.Visible = False
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       WarData.rsWarCommand.Requery
       Set WarDataView.DataSource = WarData
       Case 9
       tableName = "advertisement"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from advertisement", con, adOpenDynamic, adLockOptimistic
       Call display
       With AdvertisementDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       AdvertisementDataView.Visible = True
       ActionDataView.Visible = False
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       AdvertisementData.rsComAdvertisement.Requery
       Set AdvertisementDataView.DataSource = AdvertisementData
       Case 10
       tableName = "terror"
       rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=iPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from terror", con, adOpenDynamic, adLockOptimistic
       Call display
       With TerrorDataView
          .ColWidth(0) = 1300
          .ColWidth(1) = 400
          .ColWidth(2) = 2500
          .ColWidth(3) = 1500
          .ColWidth(4) = 1000
          .ColWidth(5) = 500
          .ColWidth(6) = 500
       End With
       TerrorDataView.Visible = True
       ActionDataView.Visible = False
       VentureDataView.Visible = False
       ScienceDataView.Visible = False
       LoveDataView.Visible = False
       ComedyDataView.Visible = False
       Cartoondataview.Visible = False
       TerrorData.rsComTerror.Requery
       Set TerrorDataView.DataSource = TerrorData
       
End Select