【正文】 控件類型 對(duì)象名 屬性 取值（說明） 27 Form frmOrderList Text 進(jìn)貨單 Label lblOrderDate Text 進(jìn)貨日期 TextBox txbOrderDate Text Label lblListMaker Text 制單人 TextBox txbListMaker Text Label lblWorker Text 業(yè)務(wù)員 ComboBox cbbWorker Text boBox cbbWorker DropDownStyle DropDownList Label lblSupplyId Text 供貨商號(hào) TextBox txbSupplyId Text Label lblSupplyName Text 供貨商名稱 TextBox txbSupplyName Text LinkLabel linklbSupply Text 選擇 GroupBox grbOrderListDetail Text 進(jìn)貨單明細(xì) Label lblGoodId Text 貨號(hào) TextBox txbGoodsId Text Label lblGoodName Text 品名 TextBox txbGoodsName Text Label lblUnit Text 單位 TextBox txbGoodsUnit Text LinkLabel linklbGoods Text 選擇 Label lblGoodsCount Text 進(jìn)貨數(shù)量 TextBox txbGoodsCount Text Label lblGoodsPrice Text 進(jìn)貨數(shù)量 TextBox txbPrice Text Label lblDepotId Text 進(jìn)貨數(shù)量 ComboBox cbbDepotId Text Button btnAdd Text 添加 Label lblRateText Text 稅率 Label 。 （五）實(shí)現(xiàn)進(jìn)貨功能 進(jìn)貨功能是指從供貨商處進(jìn)貨，增加庫(kù)存并同時(shí)產(chǎn)生應(yīng)付款。 供貨商資料維護(hù)功能和客戶資料功能的實(shí)現(xiàn)與此類似，采用同樣的方法步驟實(shí)現(xiàn)的。從商品清單表刪除當(dāng)前被選中記錄 () (商品清單 ).Rows(iRow).Delete() Else Exit Sub End If TRY If Then 39。彈出對(duì)話框讓用戶確認(rèn)要?jiǎng)h除記錄 39。通過 SqlDataAdapter1更新數(shù)據(jù)庫(kù)數(shù)據(jù) (DataSet11) (商品清單 ). _ = (數(shù)據(jù)修改成功 !) Else (無修改的數(shù)據(jù) !) End If Catch ex As Exception (修改的數(shù)據(jù)出錯(cuò) ) End Try 26 ElseIf Is tbbDel Then Try 39。判斷 DataSet11的數(shù)據(jù)是否有變化 39。 = True Else = False = 0 End If End Sub Private Sub dgdGoodInfo_Paint(ByVal sender As Object, _ ByVal e As PaintEventArgs) Handles If = 4 Then = End If End Sub Private Sub dgdGoodInfo_Scroll(ByVal sender As Object, _ ByVal e As ) Handles = False = 0 End Sub 為工具欄 ToolBar1 控件的 Click 事件相應(yīng)函數(shù)添加代碼。 Private Sub dgdGoodInfo_Click(ByVal sender As Object, _ ByVal e As ) Handles 39。其列號(hào)為 4，所以這里用 = 4 判斷。 = Then ( ) End If 39。判斷 DataGrid的當(dāng)前單元格是否屬于第四列 39。把 MyCombo加入到 dgdGoodInfo的 Controls集合中 (MyCombo) 為下拉列表框 MyCombo 的 TextChanged 事件相應(yīng)函數(shù) Ctrls_TextChanged 添加如下所示。清空 MyCombo () 39。為 MyCombo添加 TextChanged事件響應(yīng) AddHandler , AddressOf Ctrls_TextChanged 39。用于下拉列表的 ComboBox的對(duì)象 Public MyCombo As New ComboBox] 在 frmGoodsInfo 的 Load 事件相應(yīng)函數(shù)中添加如下代碼。 為 frmGoodsInfo 類添加變量。重新填充 DataSet11 (DataSet11) End Sub .NET 的 DataGrid 的列只支持兩種樣式：一種是 DataGridTextColumn,表現(xiàn)為單元格時(shí)是一個(gè) TextBox。 strSQL += () + %39。清空 DataSet11商品清單表的內(nèi)容 (商品清單 ).Clear() 39。 Private Sub btnSearch_Click(ByVal sender As , _ ByVal e As ) Handles Dim strSQL As String = SELECT 貨號(hào) , 條碼 , 拼音編碼 , strSQL += 品名 , 規(guī)格 , 單位 ,產(chǎn)地 , 類別 , 進(jìn)貨價(jià) , 銷售價(jià) 1 strSQL += , 銷售價(jià) 2, 最低 售價(jià) FROM 商品清單 If 0 Then 39。判斷兩次單擊時(shí)間是否小于雙擊的時(shí)間間隔 If ( _ ()) Then 39。 Private Sub dgdGoodInfo_MouseDown(ByVal sender As Object, _ ByVal e As MouseEventArgs) Handles 39。 Private Sub dgdGoodInfo_DoubleClick(ByVal sender As Object, _ ByVal e As ) Handles If bClose Then Close() End If End Sub 由于 .NET 的 DataGrid 不直接支持雙擊某個(gè)單元格的 DoubleClick 事件。用 SqlDataAdapter1填充 DataSet11的商品清單表 (DataSet11, 商品清單 ) 39。設(shè)置設(shè)置 DataGrid中奇數(shù)行的背景色 = = False 39。為 DataGrid單元格支持雙擊雙擊添加事件響應(yīng) AddHandler , _ New MouseEventHandler(AddressOf DGDoubleClick) AddHandler , _ New EventHandler(AddressOf dgdGoodInfo_DoubleClick) 39。設(shè)置格式化文本的方法 = F 39。設(shè)置 MappingName和 HeaderText屬性 = _ (商品清單 ).Columns(i).ColumnName() = _ (商品清單 ).Columns(i).ColumnName() 39。獲得 DataGrid數(shù)據(jù)源表的列數(shù) Dim numCols As Integer = _ (商品清單 ).() 22 Dim i As Integer 39。定義一個(gè) DataGrid表樣式 Dim ts As New DataGridTableStyle 39。用于記錄在 DataGrid上雙擊時(shí)間 Private gridMouseDownTime As DateTime 為窗體 frmGoodsInfo 的 Load 事件添加事件相應(yīng)代碼。 39。出現(xiàn)的生成數(shù)據(jù)集 ]對(duì)話框中（如圖 ），選擇 [新建 ]單選按鈕，然后單擊 [確定 ]按鈕。 [數(shù)據(jù)適配器配置向?qū)?]的畫面（如圖 ）單擊 [下一步 ]按鈕會(huì)出現(xiàn)一個(gè)新的對(duì)話框，單擊 [完成 ]按鈕，結(jié)束整個(gè)向?qū)А? [下一步 ]按鈕，繼續(xù)下一步驟。對(duì)于第一次可以單擊 [新建連接 ]按鈕，在彈出的 [數(shù)據(jù)鏈接屬性 ]對(duì)話框中（如圖 ）進(jìn)行相應(yīng)設(shè)置。 （四）實(shí)現(xiàn)商品資料維護(hù)功能 新建一個(gè)窗體，將其 Name 屬性位置為“ frmGoodsInfo” 并在窗體上分別添加一個(gè)ImageList 控件，一個(gè) ToolBar 控件，一個(gè) Label 控件，一個(gè) TextBox 控件，一個(gè) Button控件，一個(gè) GroupBox 控件和一個(gè) DataGrid 控件。關(guān)閉登陸對(duì)話框 () 39。合法用戶 bResult = True UserName = () () Else 39。 Private Sub btnSubmit_Click(ByVal sender As , _ ByVal e As ) Handles 39。獲得用戶的密碼級(jí)用戶名 = (0)(密碼 ) = (0)(姓名 ) End If 19 39。用戶 ID不存在 = = = Else