【正文】 ]王晟 . Visual Basic .NET數(shù)據(jù)庫開發(fā)經(jīng)典案例解析[M] . 北京： 清華大學(xué)出版社 2005：179201 [4] 陳文軍，陳曉銘 .Visual Basic .NET數(shù)據(jù)庫編程[M]. 北京：清華大學(xué)出版社， 2005：7996[5]Yen D C, Chou D C, Chang synergic analysis for Webbased enterprise resources planning systems [J], 2002, 2(6):254262[6]Sharifnia. A, Caramanis. M, Gershwin. SB. Dynamic Setup scheduling and Flow Control in Manufacturing Systems, Discrete Event Dynamic System, Theory and Applications[J], (2):149175[7]黃文劭， 2003 實戰(zhàn)進銷存系統(tǒng)[M].北京：中國跌道出版社，2004：238254[8]曹祖圣，蔡文龍，林義證. Visual Basic 2005 完全開發(fā)指南[M].北京：科學(xué)出版社，2007：389414[9][J].電腦知識與技術(shù)，2006，(35):1718[10]曾靜，[J].廣西科學(xué)院學(xué)報，2006，22(4):314316[11] 冉春玉等，基于B/S和C/S模式的進銷存系統(tǒng)的設(shè)計和實現(xiàn)[J].，6(12):811.[12]「J]，科技信息(學(xué)術(shù)版)，2006，(09):147148附錄供應(yīng)商界面相關(guān)代碼添加數(shù)據(jù)首先清空 Private Sub BtnAdd_Click(ByVal sender As , ByVal e As ) Handles = = = = = = = = True End Sub Private Sub BtnSave_Click(ByVal sender As , ByVal e As ) Handles = True = True = True = True = True = True = True = True () Dim condb As String condb = insert into 供應(yīng)商資料表(供應(yīng)商編號,供應(yīng)商名稱,地址,電話,信譽等級,提供商品,簡介) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) = con = = condb () ds = New DataSet Dim da As New SqlDataAdapter(select * from 供應(yīng)商資料表, con) (ds, add) = (add) () (添加成功！)End Sub修改供應(yīng)商數(shù)據(jù) Private Sub BtnReword_Click(ByVal sender As , ByVal e As ) Handles Try = True = True = True = True = True = True = True = True If = Then (此時內(nèi)容為空不能修改，請?zhí)砑訑?shù)據(jù)！) Else () Dim ole As String 39。定義一個變量接收內(nèi)容 39。修改內(nèi)容的數(shù)據(jù)庫語句 ole = update 供應(yīng)商資料表set 供應(yīng)商名稱=39。 amp。 amp。 39。,地址=39。 amp。 amp。 39。,電話=39。 amp。 amp。 39。,信譽等級=39。 amp。 amp。 39。,提供商品=39。 amp。 amp。 39。 , 簡介=39。 amp。 amp。 39。 where 供應(yīng)商編號=39。 amp。 amp。 39。 = con = = ole If () Then (修改成功) End If () Dim i As Integer Dim con1 As New SqlConnection(server=localhost。database=進銷存。uid=sa。pwd=szl) Dim da As New SqlDataAdapter(select * from 供應(yīng)商資料表, con) (ds, xiugai) = (xiugai) () End If Catch ex As Exception () End Try End SubEnd RegionRegion 刪除供應(yīng)商數(shù)據(jù) Private Sub BtnDelet_Click(ByVal sender As , ByVal e As ) Handles Try = True = True = True = True = True = True = True If = Then (此時不能刪除，請?zhí)砑訑?shù)據(jù)) Else If (真的要刪除嗎？, 警告, , , ) = Then () Dim ole As String ole = delete from 供應(yīng)商資料表where 供應(yīng)商編號=39。 amp。 amp。 39。 = con = = ole () Dim da As New SqlDataAdapter(select * from 供應(yīng)商資料表, con) ds = New DataSet (ds, Reword) = (Reword) () (刪除成功！) End If = = = = = = = End If Catch ex As Exception () End Try End SubEnd RegionRegion 詳細供應(yīng)商數(shù)據(jù)查詢數(shù)據(jù) Private Sub BtnSearch_Click(ByVal sender As , ByVal e As ) Handles Try If = Then (沒有輸入詳細信息不能查詢！) Else Dim da As New SqlDataAdapter(select * from 供應(yīng)商資料表where amp。 amp。 = 39。 amp。 amp。 39。, con) () ds = New DataSet (ds) = (0) () End If Catch ex As Exception () End Try End SubEnd Region37