数据库技术及应用课程设计项目设计报告说明书之跳蚤市场

数据库技术及应用课程设计项目设计报告说明书之跳蚤市场内容摘要：

39。 39。 有 点 晕 ElseIf = 0 Then If fs Is Nothing Then Dim conn As New (Initial Catalog =dddd。 Data Source = BIRD2C8AF63234\YB。 Integrated Security = SSPI。 ) Dim sqlm As New = INSERT INTO 商品 (商品号 ,商品名 ,价 格 , 厂家 ,详细描述 ,种类 ,上 架 日期 ,卖家 ID) VALUES (@_商品号 ,@_商品名 ,@_价格 ,@_厂 家 ,@_ 详细描述 ,@_种类 ,@_上 架 日期 ,@_卖 家 ID) amp。 = INSERT INTO 书籍 (商品号 ,出版社 ,作者 ) VALUES (@_商品号 ,@_出 版社 ,@_作 者 ) = conn goodnum = goodnum + 1 Dim prm0 As New (@_ 商 品 号 , (Format(goodnum, 000000))) Dim prm1 As New (@_ 商 品 名 , Trim()) Dim prm2 As New (@_ 价 格 , ()) Dim prm3 As New (@_ 厂 家 , Trim()) Trim()) Trim()) Trim()) Dim prm4 As New (@_种类 , ) Dim prm5 As New (@_ 详 细 描 述 , 39。 prm6 的缺损 时 为了下面情况的代码一致的需要 Dim prm7 As New (@_上架日期 , Now) Dim prm8 As New (@_卖家 ID, userID) Dim prm9 As New (@_ 出 版 社 , Dim prm10 As New (@_ 作 者 , (prm0) (prm1) (prm2) (prm3) (prm4) (prm5) (prm7) (prm8) (prm9) (prm10) Try () () 39。 执行 插 入 语句 () Catch ex As Exception MsgBox() End Try MsgBox(商品已成功上架 ) clear() Else Dim conn As New (Initial Catalog =dddd。 Data Source = BIRD2C8AF63234\YB。 Integrated Security = SSPI。 ) Dim sqlm As New = INSERT INTO 商品 (商品号 ,商品名 ,价 格 , 厂家 ,详细描述 ,种类 ,图片 ,上架日期 ,卖家 ID) VALUES (@_商品号 ,@_商 品 名 ,@_价格 ,@_厂 家 ,@_详细 描 述 ,@_种类 ,@_图片 ,@_上 架日期 ,@_卖 家 ID) amp。 = INSERT INTO 书籍 (商品号 ,出版社 ,作者 ) VALUES (@_商品号 ,@_出 版社 ,@_作 者 ) = conn Dim Data() As Byte (Data, 0, Int()) 39。 商 品号实现自动顺序产生，为此，应有一个公共变量 num 来 记 录 goodnum = goodnum + 1 Dim prm0 As New (@_ 商 品 号 , (Format(goodnum, 000000))) Dim prm1 As New (@_ 商 品 名 , Trim()) Dim prm2 As New (@_ 价 格 , ()) Dim prm3 As New (@_厂家 , ) Dim prm4 As New (@_种类 , ) Dim prm5 As New (@_详细描述 , ) Dim prm6 As New (@_ 图 片 , , Int(), , False, 0, 0, , , Data) Dim prm7 As New (@_上架日期 , Now) Dim prm8 As New (@_卖家 ID, userID) Dim prm9 As New (@_出版社 , ) Dim prm10 As New (@_作者 , ) (prm0) (prm1) (prm2) (prm3) (prm4) (prm5) (prm6) (prm7) (prm8) (prm9) (prm10) Try () () 39。 执行 插 入语句 () () Catch ex As Exception MsgBox() End Try MsgBox(商品已成功上架 ) clear() End If 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 接很 上 面的那个，超晕 ElseIf = 3 Then If fs Is Nothing Then Dim conn As New (Initial Catalog =dddd。 Data Source = BIRD2C8AF63234\YB。 Integrated Security = SSPI。 ) Dim sqlm As New = INSERT INTO 商品 (商品号 ,商品名 ,价 格 , 厂家 ,详细描述 ,种类 ,上 架 日期 ,卖家 ID) VALUES (@_商品号 ,@_商品名 ,@_价格 ,@_厂 家 ,@_ 详细描述 ,@_种类 ,@_上 架 日期 ,@_卖 家 ID) amp。 = INSERT INTO 服 饰 ( 商品 号 , 型 号 ) VALUES (@_商品号 ,@_型 号 ) = conn goodnum = goodnum + 1 Dim prm0 As New (@_ 商 品 号 , (Format(goodnum, 000000))) Dim prm1 As New (@_ 商 品 名 , Trim()) Dim prm2 As New (@_ 价 格 , ()) Dim prm3 As New (@_厂家 , ) Dim prm4 As New (@_种类 , ) Dim prm5 As New (@_详细描述 , ) 39。 prm6 的缺损 时 为了下面情况的代码一致的需要 Dim prm7 As New (@_上架日期 , Now) Dim prm8 As New (@_卖家 ID, userID) Dim prm9 As New (@_型号 , ) (prm0) (prm1) (prm2) (prm3) (prm4) (prm5) (prm7) (prm8) (prm9) Try () () 39。 执行 插 入语句 () Catch ex As Exception MsgBox() End Try Else MsgBox(商品已成功上架 ) clear() Dim conn As New (Initial Catalog =dddd。 Data Source = BIRD2C8AF63234\YB。 Integrated Security = SSPI。 ) Dim sqlm As New = INSERT INTO 商品 (商品号 ,商品名 ,价 格 , 厂家 ,详细描 述 ,种类 ,图片 ,上架日期 ,卖家 ID) VALUES (@_商品号 ,@_商 品 名 ,@_价格 ,@_厂 家 ,@_详细 描 述 ,@_种类 ,@_图片 ,@_上 架日期 ,@_卖 家 ID) amp。 = INSERT INTO 服 饰 ( 商品 号 , 型 号 ) VALUES (@_商品号 ,@_型 号 ) = conn Dim Data() As Byte (Data, 0, Int()) 39。 商 品号实现自动顺序产生，为此，应有一个公共变量 num 来 记 录 goodnum = goodnum + 1 Dim prm0 As New (@_ 商 品 号 , (Format(goodnum, 000000))) Dim prm1 As New (@_ 商 品 名 , Trim()) Dim prm2 As New (@_ 价 格 , ()) Dim prm3 As New (@_厂家 , ) Dim prm4 As New (@_种类 , ) Dim prm5 As New (@_详细描述 , ) Dim prm6 As New (@_ 图 片 , , Int(), , False, 0, 0, , , Data) Dim prm7 As New (@_上架日期 , Now) Dim prm8 As New (@_卖家 ID, userID) Dim prm9 As New (@_型号 , ) (prm0) (prm1) (prm2) (prm3) (prm4) (prm5) (prm6) (prm7) (prm8) (prm9) Try () () 39。 执行 插 入语句 () () Catch ex As Exception MsgBox() End Try MsgBox(商品已成功上架 ) clear() End If End If End If End Sub Private Sub Combbsort_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles If 0 And 3 Then = True = False = False = False = True = False = False = False Else : If = 0 Then = False = True = True = False = False = True = True = False Else = True = True = True = True = False = False = False = False End If End If End Sub Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles 39。 为我要买的 dataset11 添加 卖 家名和选择列 Dim mjm As DataColumn = New DataColumn(卖家名 ) = () = 品 .(mjm) Dim。