數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告-超市進(jìn)銷存管理系統(tǒng)設(shè)計(jì)-資料下載頁
2025-08-14 11:15本頁面
【正文】 數(shù)量,商品進(jìn)價,總計(jì)) values(39。 amp。 _ ().Trim() amp。 _ 39。,39。 amp。 ().Trim() amp。 39。,39。 amp。 _ ().Trim() amp。 39。,39。 amp。 _ ().Trim() amp。 39。,39。 amp。 _ ().Trim() amp。 39。,39。 amp。 _ ().Trim() amp。 39。,39。 amp。 _ ().Trim() amp。 39。,39。 amp。 _ ().Trim() amp。 39。,39。 amp。 _ ().Trim() amp。 39。) Dim sql2 As String = select * from BookOrder where 編號=39。 amp。 ().Trim() amp。 39。 () Dim cmd1 As SqlCommand = New SqlCommand(sql1, con) Dim cmd2 As SqlCommand = New SqlCommand(sql2, con) Dim reader As SqlDataReader reader = If = True Then MsgBox(成功添加) () Else () () () End If 查詢和刪除訂貨單： Dim con As New SqlConnection(str) Dim sql As String = select * from BookOrder Dim ds As New DataSet Dim dr As SqlDataAdapter = New SqlDataAdapter(sql, con) Dim das As New DataSet () (das) = (0) () Dim con As New SqlConnection(str) Dim sql As String = select * from BookOrder Dim ds As New DataSet () Dim dr As New SqlDataAdapter(sql, con) Dim sqlcmb As New SqlCommandBuilder(dr) Dim i As Integer (ds) Dim rowcount As Integer = Dim msgbox1 As Integer For i = 0 To rowcount 1 If (i).Selected Then (0).Rows(i).Delete() msgbox1 = MsgBox(您確定要刪除嗎？, ) End If Next If msgbox1 = Then MsgBox(刪除成功) = (0) ((0)) Else MsgBox(刪除不成功) End If 修改訂貨單： Dim con As New SqlConnection(str) Dim cmd As New SqlCommand(updatebookorder_pro, con) = (@a, ) (@a).Direction = (@a).Value = (@b, ) (@b).Direction = (@b).Value = (@c, ) (@c).Direction = (@c).Value = (@d, ) (@d).Direction = (@d).Value = (@e, ) (@e).Direction = (@e).Value = (@f, , 10) (@f).Direction = (@f).Value = (@g, , 10) (@g).Direction = (@g).Value = () () If = Then MsgBox(修改失?。≥斎氲木幪柌荒転榭?！) End If MsgBox(修改成功！) () End Sub 入庫模塊管理 登記入庫單 查詢和刪除入庫單 省略。 銷售管理模塊 登記銷售單 查詢和刪除銷售單 修改銷售單 略 代碼 略參考文獻(xiàn)：【1】 王濤，《數(shù)據(jù)庫開發(fā)與實(shí)例》，清華大學(xué)出版社，2008年6月【2】 陳志泊，《數(shù)據(jù)庫原理及應(yīng)用教程》，人民郵電出版社，
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1