【正文】 ”) ＇填充數(shù)據(jù)集的數(shù)據(jù)Objdataview =New Dataview (Objdataset．Tables(“User_Info”)) ＇初始化數(shù)據(jù)視圖Objcurrencymanager＝Ctype (Me．BindingContext(ObjDataview),CurrencyManager) ＇獲取設置當前窗體的綁定管理對象Cn．Close()＇關閉數(shù)據(jù)連接，這一點很重要Objdataset =Nothing ＇清空數(shù)據(jù)集的數(shù)據(jù)CatchEnd TryEnd SubPrivate Sub Bindsfield()Me．Textbox1．DataBindings．Clear()Me．Textbox2．DataBindings．Clear()Me．Combobox1．DataBindings．Clear()Me．Textbox3．DataBindings．Clear()Me．Textbox5．DataBindings．Clear()＇清除所有的數(shù)據(jù)綁定＇否則不能顯示所有的數(shù)據(jù)而只能顯示修改后的數(shù)據(jù)Me．Textbox1．DataBindings．Add(“Text,Objdataview,”User_Id”)Me．Textbox2．DataBindings．Add(“Text,Objdataview,”User_Name”)Me．bobox1．DataBinding．Add(“Text,Objdataview,”User_Type”)Me．Textbox3．DataBindings．Add(“Text,Objdataview,”User_Password”)Me．Textbox5．DataBindings．Add(“Text,Objdataview,”User_Tel”) ＇重新進行數(shù)據(jù)綁定End SubPrivate Sub ShowCurrectPosition()Me．TextBox6．Text = _objCurrencyManager. Position + 1amp。 Me．TextBox1. Text. Trim amp。 _＇ amp。 ＇ElseSqlstr = UPDATE user_Info SET user_ID= amp。＇,User_Password= amp。 Me．ComboBox1 . amp。 ＇Updatedata(Sqlstr)Filldataview()Bindsfield()Objcurrencymannager．Position =intpositionShowCurrectPosition()MsgBox(“已經(jīng)成功刪除了該用戶”，Msgboxstyle．Okonly +_)MsgBoxstyle．Exclamation,”刪除成功”End Sub 測試計劃由于用戶管理設置窗體的權限設置，用戶的添加、修改、刪除是要返回源數(shù)據(jù)庫的，這就要與源數(shù)據(jù)庫存表User_Info字段設計相對應。但是要對數(shù)據(jù)記錄是否存在和數(shù)據(jù)的有效性進行驗證：存在的記錄拒絕添加，無效的數(shù)據(jù)不得被添加。它極大的方便了對數(shù)據(jù)庫進行操作。如果錄入有誤，可以對數(shù)據(jù)進行修改和刪除。 輸入項 對數(shù)據(jù)記錄是否存在和數(shù)據(jù)的有效性進行驗證，存在的記錄拒絕輸入，無效的數(shù)據(jù)不得被添加。測試數(shù)據(jù)與數(shù)據(jù)庫存設計有出入的各種情況，也測試與其所要實現(xiàn)的功能能有出入的各種情況。 功能這個模塊所要實現(xiàn)的功能有：當僅輸入一個商品的條形碼，（以TexTBox的焦點失去為一個事件）就立即顯示這個商品的基本信息。零售員的換班管理：進入管理權限和退貨的處理。 輸出項 流程邏輯 限制條件確保輸入的是與數(shù)據(jù)設計相對應。 功能能夠較好地數(shù)據(jù)庫存的商品數(shù)據(jù)信息，使商品信息能及時反映出時效性 輸入項與輸出項下面這個界面是用戶修改商品數(shù)據(jù)的輸入界面：主要是要考慮到字段類型的問題，是否輸入的數(shù)據(jù)類型正確，是否方便用戶查詢到信息，以方便用戶作繭自縛好信息的處理。測試數(shù)據(jù)與數(shù)據(jù)庫存設計有出入的各種情況，也測試與其所要實現(xiàn)的功能有出入的各種情況。 軟件測試的目標與方法，這些規(guī)則可以看作是測試的目標或定義：（1）測試是為了發(fā)現(xiàn)程序中的錯誤而執(zhí)行程序的過程；（2）好的測試方案是極可能發(fā)現(xiàn)迄今為止尚未發(fā)現(xiàn)的錯誤的測試；（3）成功的測試是發(fā)現(xiàn)了至今為止尚未發(fā)現(xiàn)的錯誤的測試。通過測試并不能證明程序就是完全正確的，但我們的目的就是要通過測試保證軟件的可靠性，因此，必須仔細設計測試方案，力爭用最少的測試發(fā)現(xiàn)盡可能多的錯誤。下面的測試是以 有庫存的更新修改為例子說明的；登錄窗體先以查詢功能作一測試：主要是通過已知的商品信息查詢到該商品，方便修改更新數(shù)據(jù)。下面是以商品的過期報廢窗體來說明這個問題的。綜上所述,它是前臺零售的清單打印設置問題。基本商品信息錄入管理模塊各個窗體經(jīng)測試通過。選擇所需修改更新的商品信息，修改更新商品數(shù)據(jù)。測試環(huán)境為Win2000Pro(SP3)和WinXP。黑盒測試法（又稱功能測試法）是把程序看成一個黑盒子，完全不考慮程序的內(nèi)部結構和處理過程，是在程序接口進行的測試，它只檢查程序功能是否按照規(guī)格說明書的規(guī)定正常使用。確切的說，軟件測試就是為了發(fā)現(xiàn)錯誤而執(zhí)行的過程。 流程邏輯 測試計劃依據(jù)數(shù)據(jù)庫設計的表〈storageinfo〉的字段及這個模塊所要實現(xiàn)的功能，進行下列測試計劃：依數(shù)據(jù)庫設計的字段，測試是否輸入的數(shù)據(jù)對應于數(shù)據(jù)庫存的字段。 測試計劃：依據(jù)數(shù)據(jù)庫設計的表〈storageinfo的字段與這個模塊所要實現(xiàn)的功能,進行下列測試計劃:依數(shù)據(jù)庫設計的字段,測試輸入的數(shù)據(jù)是否能有效地返回給數(shù)據(jù)源.測試數(shù)據(jù)與數(shù)據(jù)庫存設計有出入的各種情況,也測試與其所要實現(xiàn)的功能有出入的各種情況. 目前存在的問題打印的格式設計問題,還有就是如果同時查詢一個商品的,也許會出現(xiàn)問題等等. 商品庫存管理模塊設計說明 模塊描述上面這個窗體僅是實現(xiàn)現(xiàn)有庫存商品信息更新修改功能。能夠有效的確保輸入的數(shù)據(jù)的實用性、高效性。系統(tǒng)就以上的信息可以得到每個商品的數(shù)量、金額，最后結算出總的數(shù)量與總的金額。 軟件的設計結果軟件的設計結果如下：Imports System. Data. SqlClientImports System. ComponentModelImports System. Data. CommonPrivate ds As New DataSetPrivate sqladpt As SqlDaAdapter＇＊＊＊＊＊＊＊＊＊＊＊＊把窗體中控件的內(nèi)容添加到dataset中＊＊＊Private Sub formtorow(ByVal row As DataRow)On Error GoTo errhandlerrow(″商品條形碼″) =Me. row(″商品名稱″) =Me. row(″商品類″) =Me. row(″數(shù)量″) =Me. row(″生產(chǎn)廠商″) =Me. row(″生產(chǎn)日期″) = Me. row(″過期日期″) = Me. row(″進貨日期″) = Me. row(″生產(chǎn)日期″) = Me. row(″進貨單價″) = Me. row(″ 零售單價″) =Me. row(″備注″) =Me. Exit SubErrhandler:MsgBox(Err. Description)Resume NextEnd Sub＇＊＊＊＊＊＊＊＊＊＊＊＊把窗體中控件的內(nèi)容添加到dataset中＊＊＊Private Sub rowtoform(ByVal row As DataRow)On Error GoTo errhandlerMe. =Set0bjToStr (row(″商品條形碼″))Me. =Set0bjToStr (row(″ 商品名稱″))If Set0bjToStr (row(″商品類″)) ??″″ThenMe. = Set0bjToStr (row(″商品類″))End IfMe. = Set0bjToStr (row(″數(shù)量″))If Set0bjToStr (row(″生產(chǎn)廠商″)) ??″″ThenMe. = Set0bjToStr (row(″ 生產(chǎn)廠商″))End IfIf Set0bjToStr (row(″生產(chǎn)日期″)) ??″″ThenMe. = Set0bjToStr (row(″ 生產(chǎn)日期″))End IfIf Set0bjToStr (row(″過期日期″)) ??″″ThenMe. = Set0bjToStr (row(″ 過期日期″))End IfIf Set0bjToStr (row(″進貨日期″)) ??″″ThenMe. = Set0bjToStr (row(″ 進貨日期″))End IfIf Set0bjToStr (row(″進貨單價″)) ??″″ThenMe. = Set0bjToStr (row(″ 進貨單價″))End IfMe. = Set0bjToStr (row(″ 零售單價″))If Set0bjToStr (row(″ 備注″)) ??″″Then = Set0bjToStr (row(″備注″))End IfExit SubErrhandler:MsgBox()Resume NextEnd Sub＇………………………初始化窗體………………………Private Sub iniform()Dim myTabMapping As New DataTableMappingTry=True=FalseSql=″selectGoods_ID,Goods_Name,Goods_number,Goods_Firm,Goods_ProDate,Goods_OutDate,Goods_InterDate,stok_price,retair,ment FromStorage_goods_info″Sgladpt = New SglDataAdapter(sql, )myTabMapping = New DataTableMapping(″storage_goods_info″,″ storage_goods_infoMap″)myTabMapping. SourceTable = ″ storage_goods_info″myTabMapping. SourceTable = ″ storage_goods_infoMap″With .Add(″Goods_ID″,″商品條形碼″).Add(″Goods_Name″,″商品名稱″).Add(″Goods_Kind″,″商品類″).Add(″Goods_number″,″數(shù)量″).Add(″Goods_Firm″,″生產(chǎn)廠商″).Add(″Goods_ProDate″,″生產(chǎn)日期″).Add(″Goods_OutDate″,″過期日期″).Add(″Goods_InterDate″,″進貨日期″).Add(″stock_Price″,″進貨單價″).Add(″retair_Price″,″零售單價″).Add(″ment″,″備注″)End WithSqladpt. (myTabMapping)Filldataset(ds, sqladpt, ″storage_goods_info″)Me. DataGridl. DataSource = dsMe. DataGridl. DataMember = ″storage_goods_infoMap″Catch ex As ExceptionMsgBox()FinallyIf ?? Then()End IfEnd TryEnd Sub＇＊＊＊＊＊＊＊＊＊＊＊＊保存數(shù)據(jù)＊＊＊＊＊＊＊＊＊＊＊＊＊Private Sub Button6_Click(ByVal sender As System. ByVal e As) Handles Button6. ClickTryDim sqlcmdb As SqlCommandBuiler = New SqlCommandBuilder(sqlatpt)Sqladpt. Update(ds, ″storage_goods_info″)MsgBox(″成功保存！″,″保存信息″)Catch ex As ExceptionMsgBox()End TryEnd Sub＇＊＊＊＊＊＊＊＊＊＊＊＊添加記錄＊＊＊＊＊＊＊＊＊＊＊＊＊Private Sub Button3_Click(ByVal sender As , ByVal e AsSystem. EventArgs) Handles Dim tb As DataTableDim row, rowarr() As DataRowOn Error GoTo errorhandlerIf ″″″″And ??″″And ??″″ Then Tb = ds. Tables(″storage_doods_