【正文】 rrhandler: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(″過(guò)期日期″)) ??″″ThenMe. = Set0bjToStr (row(″ 過(guò)期日期″))End IfIf Set0bjToStr (row(″進(jìn)貨日期″)) ??″″ThenMe. = Set0bjToStr (row(″ 進(jìn)貨日期″))End IfIf Set0bjToStr (row(″進(jìn)貨單價(jià)″)) ??″″ThenMe. = Set0bjToStr (row(″ 進(jìn)貨單價(jià)″))End IfMe. = Set0bjToStr (row(″ 零售單價(jià)″))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″,″過(guò)期日期″).Add(″Goods_InterDate″,″進(jìn)貨日期″).Add(″stock_Price″,″進(jìn)貨單價(jià)″).Add(″retair_Price″,″零售單價(jià)″).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_infoMap″)＇檢查Goods_ID是否已存在了。rowarr = Nothingrowarr = (″商品條形碼=’″＆_ Trim() ＆″’″)If UBound(rowarr) 0 ThenElesMsgBox(″已經(jīng)有此商品編碼了,請(qǐng)重新編碼!″,″添加確認(rèn)″)Exit SubEnd IfRow = Formtorow(row)(row)ElseIf Me. = ″″Then MsgBox(″商品編碼不能為空了,請(qǐng)編碼!″,″添加確認(rèn)″)()ElseIf Me. = ″″Then MsgBox(″商品名稱不能為空了,請(qǐng)編碼!″,″添加確認(rèn)″)()ElseIf Me. = ″″Then MsgBox(″商品數(shù)量不能為空了,請(qǐng)編碼!″,″添加確認(rèn)″)()ElseIf Me. = ″″Then MsgBox(″零售單價(jià)不能為空了,請(qǐng)編碼!″,″添加確認(rèn)″)()End IfExit SubErrorhandler:MsgBox（）Resume NextEnd SubPrivate Sub DataGridl_Click(ByVal sender As , ByVal e AsSystem. EventArgs) Handles Dim introw As IntegerDim row(), As DataRowIntrow = . RowNumberRow = (″storage_goods_infoMap″).Select(″商品名稱=’″＆_Trim((introw,1)) ＆″’″)Rowtoform(row(0))End Sub 商品前臺(tái)零售計(jì)價(jià)管理模塊設(shè)計(jì)說(shuō)明 用途 主要用于管理商品的零售記錄、零售員的換班管理、切換管理權(quán)限、切換成為超級(jí)管理員、商品退貨處理（包括客戶退貨處理和退還廠家處理）。 功能這個(gè)模塊所要實(shí)現(xiàn)的功能有：當(dāng)僅輸入一個(gè)商品的條形碼，（以TexTBox的焦點(diǎn)失去為一個(gè)事件）就立即顯示這個(gè)商品的基本信息。依據(jù)顧客要購(gòu)的商品的數(shù)量，寫入商品的數(shù)量。系統(tǒng)就以上的信息可以得到每個(gè)商品的數(shù)量、金額，最后結(jié)算出總的數(shù)量與總的金額。依據(jù)顧客所付的金額，可以智能的計(jì)算出要找的金額，并可以打印商品的清單來(lái)。零售員的換班管理：進(jìn)入管理權(quán)限和退貨的處理。 性能對(duì)必須輸入的項(xiàng)目進(jìn)行輸入，對(duì)一些項(xiàng)目不必要輸入（非必須輸入項(xiàng)）。能夠有效的確保輸入的數(shù)據(jù)的實(shí)用性、高效性。 輸入項(xiàng)確保商品的條形碼是有意義的，并且輸入的數(shù)量是數(shù)值類型的，如果輸入是正數(shù)，那么是在正常零售，如果輸入是有誤，可能是由于顧客在買時(shí)改變主了或是售貨員的輸入操作不當(dāng)，那么我們可以對(duì)零售商品作轍消處理。 輸出項(xiàng) 流程邏輯 限制條件確保輸入的是與數(shù)據(jù)設(shè)計(jì)相對(duì)應(yīng)。如要求是數(shù)值類型的就得是輸入數(shù)值類型等等。 測(cè)試計(jì)劃：依據(jù)數(shù)據(jù)庫(kù)設(shè)計(jì)的表〈storageinfo的字段與這個(gè)模塊所要實(shí)現(xiàn)的功能,進(jìn)行下列測(cè)試計(jì)劃:依數(shù)據(jù)庫(kù)設(shè)計(jì)的字段,測(cè)試輸入的數(shù)據(jù)是否能有效地返回給數(shù)據(jù)源.測(cè)試數(shù)據(jù)與數(shù)據(jù)庫(kù)存設(shè)計(jì)有出入的各種情況,也測(cè)試與其所要實(shí)現(xiàn)的功能有出入的各種情況. 目前存在的問(wèn)題打印的格式設(shè)計(jì)問(wèn)題,還有就是如果同時(shí)查詢一個(gè)商品的,也許會(huì)出現(xiàn)問(wèn)題等等. 商品庫(kù)存管理模塊設(shè)計(jì)說(shuō)明 模塊描述上面這個(gè)窗體僅是實(shí)現(xiàn)現(xiàn)有庫(kù)存商品信息更新修改功能。這個(gè)模塊的其他主要界面和功能還有如下這些：面和功能還有如下這些：庫(kù)存商品信息更新修改、零售商品信息的更新修改、顧客或廠商退貨處理、過(guò)期或報(bào)廢商品信息的更新處理、進(jìn)貨商品的信息處理、進(jìn)貨報(bào)表的生成。 功能能夠較好地?cái)?shù)據(jù)庫(kù)存的商品數(shù)據(jù)信息，使商品信息能及時(shí)反映出時(shí)效性 輸入項(xiàng)與輸出項(xiàng)下面這個(gè)界面是用戶修改商品數(shù)據(jù)的輸入界面：主要是要考慮到字段類型的問(wèn)題，是否輸入的數(shù)據(jù)類型正確，是否方便用戶查詢到信息，以方便用戶作繭自縛好信息的處理。當(dāng)界面運(yùn)行時(shí)，進(jìn)貨日期控件和種類控件這兩項(xiàng)的內(nèi)容就會(huì)顯示出來(lái)，以便用戶選擇內(nèi)容商品的信息輸入修改。 流程邏輯 測(cè)試計(jì)劃依據(jù)數(shù)據(jù)庫(kù)設(shè)計(jì)的表〈storageinfo〉的字段及這個(gè)模塊所要實(shí)現(xiàn)的功能，進(jìn)行下列測(cè)試計(jì)劃：依數(shù)據(jù)庫(kù)設(shè)計(jì)的字段，測(cè)試是否輸入的數(shù)據(jù)對(duì)應(yīng)于數(shù)據(jù)庫(kù)存的字段。依據(jù)此模塊的功能，測(cè)試是否輸入的數(shù)據(jù)能有效地返回給數(shù)據(jù)源。測(cè)試數(shù)據(jù)與數(shù)據(jù)庫(kù)存設(shè)計(jì)有出入的各種情況，也測(cè)試與其所要實(shí)現(xiàn)的功能有出入的各種情況。5 軟件的測(cè)試 什么是軟件測(cè)試軟件測(cè)試是在軟件投入運(yùn)行前,對(duì)軟件需求分析、設(shè)計(jì)規(guī)格說(shuō)明書和編碼的最終的復(fù)審，是軟件質(zhì)量保證的關(guān)鍵步驟。確切的說(shuō)，軟件測(cè)試就是為了發(fā)現(xiàn)錯(cuò)誤而執(zhí)行的過(guò)程。一般分為兩個(gè)階段：（1）單元測(cè)試：在編完一模塊后進(jìn)行測(cè)試；（2）綜合測(cè)試：在開發(fā)完軟件后進(jìn)行綜合測(cè)試。 軟件測(cè)試的目標(biāo)與方法，這些規(guī)則可以看作是測(cè)試的目標(biāo)或定義：（1）測(cè)試是為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過(guò)程；（2）好的測(cè)試方案是極可能發(fā)現(xiàn)迄今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試；（3）成功的測(cè)試是發(fā)現(xiàn)了至今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試。測(cè)試任何軟件都有兩種方法：黑盒測(cè)試和白盒測(cè)試法。黑盒測(cè)試法（又稱功能測(cè)試法）是把程序看成一個(gè)黑盒子，完全不考慮程序的內(nèi)部結(jié)構(gòu)和處理過(guò)程，是在程序接口進(jìn)行的測(cè)試，它只檢查程序功能是否按照規(guī)格說(shuō)明書的規(guī)定正常使用。白盒測(cè)試法（又稱結(jié)構(gòu)測(cè)試法）是把程序看成裝在一個(gè)透明的白盒子里，也就是完全了解程序的結(jié)構(gòu)和處理過(guò)程，這種方法按照程序內(nèi)部的邏輯測(cè)試程序，檢驗(yàn)程序中的每條通路是否都能按照預(yù)定要求正確工作。通過(guò)測(cè)試并不能證明程序就是完全正確的，但我們的目的就是要通過(guò)測(cè)試保證軟件的可靠性，因此，必須仔細(xì)設(shè)計(jì)測(cè)試方案，力爭(zhēng)用最少的測(cè)試發(fā)現(xiàn)盡可能多的錯(cuò)誤。 模塊測(cè)試模塊測(cè)試也叫單元測(cè)試，它的依據(jù)是詳細(xì)設(shè)計(jì)描述，模塊測(cè)試應(yīng)對(duì)模塊內(nèi)所有重要的控制路徑設(shè)計(jì)測(cè)試用例。測(cè)試環(huán)境為Win2000Pro(SP3)和WinXP。庫(kù)存管理模塊的各個(gè)窗體經(jīng)測(cè)試，通過(guò)的窗體有：各個(gè)查詢窗體，現(xiàn)有庫(kù)存的更新修改窗體等等，只有四個(gè)窗體存在保存時(shí)出現(xiàn)錯(cuò)誤。下面的測(cè)試是以 有庫(kù)存的更新修改為例子說(shuō)明的；登錄窗體先以查詢功能作一測(cè)試：主要是通過(guò)已知的商品信息查詢到該商品，方便修改更新數(shù)據(jù)。經(jīng)測(cè)試，通過(guò)。選擇所需修改更新的商品信息，修改更新商品數(shù)據(jù)。如下圖所示，測(cè)試通過(guò)。下面是以商品的過(guò)期報(bào)廢窗體來(lái)說(shuō)明這個(gè)問(wèn)題的。其更新、添加、修改、刪除的功能都是完好的，而唯有當(dāng)對(duì)商品的數(shù)據(jù)進(jìn)行保存時(shí)，出現(xiàn)如下的問(wèn)題：系統(tǒng)管理模塊的各個(gè)窗體的測(cè)試，經(jīng)測(cè)試通過(guò)?；旧唐沸畔浫牍芾砟K各個(gè)窗體經(jīng)測(cè)試通過(guò)。但有如下問(wèn)題要解決，當(dāng)統(tǒng)計(jì)的商品數(shù)據(jù)信息為空時(shí)，會(huì)出現(xiàn)下面這樣的一個(gè)錯(cuò)誤信息（雖然其對(duì)此模塊的功能影響微小）。綜上所述,它是前臺(tái)零售的清單打印設(shè)置問(wèn)題。參考文獻(xiàn)[1]：東方人華 著《SQL Server 2000與Visual 》清華大學(xué)出版社[2]：李海 龔學(xué)綱 李文亮 著《深入研究Visual Basic》電子工業(yè)出版社[3]：張海藩 著《軟件工程導(dǎo)論》清華大學(xué)出版社[4]：飛思科技產(chǎn)品研發(fā)中心 著《Visual Basic 靈感編程》電子工業(yè)出版社[5]：陶剛 作者 《用ADO管理數(shù)據(jù)庫(kù)》賽迪網(wǎng)