【正文】 = 0 End Sub為工具欄ToolBar1控件的Click事件相應(yīng)函數(shù)添加代碼。Private Sub ToolBar1_ButtonClick(ByVal sender As Object, _ ByVal e As ToolBarButtonClickEventArgs) _ Handles If Is tbbSave Then Dim row As Integer row = = New DataGridCell(row + 1, 0) Try 39。判斷DataSet11的數(shù)據(jù)是否有變化 39。即DataGrid控件上是否有數(shù)據(jù)更改或新增數(shù)據(jù) If Then 39。通過SqlDataAdapter1更新數(shù)據(jù)庫數(shù)據(jù) (DataSet11) (商品清單). _ = (數(shù)據(jù)修改成功!) Else (無修改的數(shù)據(jù)!) End If Catch ex As Exception (修改的數(shù)據(jù)出錯) End Try ElseIf Is tbbDel Then Try 39。獲得DataGrid當(dāng)前被選中的行號 Dim iRow = 39。彈出對話框讓用戶確認(rèn)要刪除記錄 39。如果用戶確認(rèn)要刪除記錄 If (你確認(rèn)要刪除此條記錄嗎？, _ Confirm, ) _ = Then 39。從商品清單表刪除當(dāng)前被選中記錄() (商品清單).Rows(iRow).Delete() Else Exit Sub End If TRY If Then 39。用SqlDataAdapter1更新數(shù)據(jù)庫 (DataSet11) (商品清單). _ = (數(shù)據(jù)修改成功!) Else (無修改的數(shù)據(jù)!) End If Catch ex As Exception (刪除數(shù)據(jù)出錯) End Try Catch ex As Exception (刪除數(shù)據(jù)出錯) End Try End If End Sub到此完成了商品資料維護(hù)的功能模塊，在主窗體中添加[商品資料維護(hù)]菜單的相應(yīng)函數(shù)即可運行程序查看結(jié)果，用戶可以在給模塊中修改已有商品，增加一個新商品，刪除現(xiàn)有商品的信息或者實現(xiàn)查詢出想要的商品在對其進(jìn)行增加、修改、刪除操作。 供貨商資料維護(hù)功能和客戶資料功能的實現(xiàn)與此類似，采用同樣的方法步驟實現(xiàn)的。這里不再贅述。（5）實現(xiàn)進(jìn)貨功能進(jìn)貨功能是指從供貨商處進(jìn)貨，增加庫存并同時產(chǎn)生應(yīng)付款。各控件的屬性設(shè)置如下?？丶愋? 對象名 屬性 取值（說明）Form frmOrderList Text 進(jìn)貨單Label lblOrderDate Text 進(jìn)貨日期TextBox txbOrderDate TextLabel lblListMaker Text 制單人TextBox txbListMaker TextLabel lblWorker Text 業(yè)務(wù)員ComboBox cbbWorker TextboBox cbbWorker DropDownStyle DropDownListLabel lblSupplyId Text 供貨商號TextBox txbSupplyId TextLabel lblSupplyName Text 供貨商名稱TextBox txbSupplyName TextLinkLabel linklbSupply Text 選擇GroupBox grbOrderListDetail Text 進(jìn)貨單明細(xì)Label lblGoodId Text 貨號TextBox txbGoodsId TextLabel lblGoodName Text 品名 TextBox txbGoodsName TextLabel lblUnit Text 單位TextBox txbGoodsUnit TextLinkLabel linklbGoods Text 選擇Label lblGoodsCount Text 進(jìn)貨數(shù)量TextBox txbGoodsCount TextLabel lblGoodsPrice Text 進(jìn)貨數(shù)量TextBox txbPrice TextLabel lblDepotId Text 進(jìn)貨數(shù)量ComboBox cbbDepotId Text Button btnAdd Text 添加Label lblRateText Text 稅率Label lblRateValue Text 17Label lblTotal Text 合計金額TextBox txbTotal TextLabel lblWithoutTax Text 不含稅金額TextBox txbWithoutTax TextLabel lblTax Text 稅額TextBox txbTax Text編碼設(shè)計：為窗體類frmOrderList添加私有變量。Private UserName As String = Private dtOrderList As DataTable為窗體類frmOrderList添加私有函數(shù)SetTaxDelOrUpgrade,SetTaxForAdd和Print.Private Sub SetTaxForDelOrUpgrade() Dim total As Integer = 0 Dim i As Integer Dim rate As Integer = CInt() Dim s As String 39。計算稅額 For i = 0 To 1 s = (i)(稅價合計) total = total + CInt() Next = (total total / (1 + rate / 100)).ToString(f) = = (total / (1 + rate / 100)).ToString(f) End SubPrivate Sub SetTaxForAdd(ByVal total As Integer) Try 39。計算稅額 Dim rate As Integer = CInt() Dim iAll As Integer = total + CInt(()) = = (iAll iAll / (1 + rate / 100)).ToString(f) = (iAll / (1 + rate / 100)).ToString(f) Catch ex As Exception (數(shù)據(jù)格式不正確) End Try End SubPrivate Sub Print() 39。新建表 Dim dtPrint As DataTable = New DataTable(Print) Dim dr As DataRow (名稱, ()) (品名, ()) (進(jìn)貨數(shù), ()) (單位, ()) (倉庫, ()) (不含稅, ()) (稅額, ()) (稅價合計, ()) (進(jìn)貨日期, ()) Dim i As Integer 39。對要打印的數(shù)據(jù)表賦值 For i = 0 To 1 dr = () dr(名稱) = dr(品名) = (i)(品名) dr(進(jìn)貨數(shù)) = (i)(數(shù)量) dr(單位) = (i)(單位) dr(倉庫) = (i)(倉庫) dr(不含稅) = (i)(不含稅價) dr(稅額) = (i)(稅額) dr(稅價合計) = (i)(稅價合計) dr(進(jìn)貨日期) = (dr) Next 39。顯示打印對話框 Dim frm As frmPrint = New frmPrint(dtPrint) () End Sub為窗體frmOrderList的Load事件添加事件相應(yīng)代碼。Private Sub frmOrderList_Load(ByVal sender As , _ ByVal e As ) Handles = UserName = Dim db As DataBase = New DataBase 39。為cbbWorker下拉列表框設(shè)置數(shù)據(jù)源 = _ (select 業(yè)務(wù)員號,姓名 from 業(yè)務(wù)員清單) = 業(yè)務(wù)員號 = 姓名 39。為cbbDepotId下拉列表框設(shè)置數(shù)據(jù)源 = _ (select 倉庫號,倉庫名 from 倉庫清單) = 倉庫號 = 倉庫名 () 39。新建表 dtOrderList = New DataTable With