【導(dǎo)讀】摘要中小型超市管理系統(tǒng)，主要是針對(duì)中小型超市的銷售管理。我們采用傳統(tǒng)的瀑布原型對(duì)系統(tǒng)進(jìn)行架構(gòu)設(shè)計(jì)。到開發(fā)期的概要設(shè)計(jì)、詳細(xì)設(shè)計(jì)與編碼及編碼調(diào)試都進(jìn)行了比較詳細(xì)的介紹。在測試階段，結(jié)合。了軟件工程的方法，進(jìn)行了模塊和整體測試。

　　

【正文】 intPosition ShowCurrectPosition() MsgBox(已經(jīng)成功更新了該用戶 ， MsgBoxStyle． OkOnly + _ MsgBoxstyle． Exclamation,更新成功 ） ElseIf TextBox1． Text = Then MsgBox(編號(hào)不能為空，請輸入編號(hào) ， MsgBoxStyle． OkOnly 添加確認(rèn) ） TextBox1． Focus() Exit Sub ElseIf TextBox2． Text = Then MsgBox(用戶名不能為空，請輸入編號(hào) ， MsgBoxStyle． OkOnly 添加確認(rèn) ） TextBox2． Focus() Exit Sub ElseIf Me． ComboBox1 .Test = Then MsgBox(用戶的管理權(quán)限不能為空，請輸入用戶的管理權(quán)限 ， MsgBoxStyle． OkOnly 添加確認(rèn)） Me． ComboBox1 . Focus() Exit Sub End If errorhandler： Msgbox(Err． Description) Resume Next End Sub ＇ *********刪除控件的 ********* Private Sub btndelete_Click(ByVal sender As System ． Object,_Byval e As System． Eventargs)_ Handles btnDelete． Click Dim intPosition As Integer intposition =Me． Bindingcontext(ObjDataview),Position 1 If Intposition 0 Then intposition =0 End If Sqlstr=“DELETE FROM User_Info Where User_Id = ＇ amp。 Me． Textbox1． Text amp。 ＇ Updatedata(Sqlstr) 中國管理資訊網(wǎng) 中國管理資訊網(wǎng) 22 Filldataview() Bindsfield() Objcurrencymannager． Position =intposition ShowCurrectPosition() MsgBox(“ 已經(jīng)成功刪除了該用戶 ” ， Msgboxstyle． Okonly +_) MsgBoxstyle． Exclamation,” 刪除成功 ” End Sub 測試計(jì)劃 由于用戶管理設(shè)置窗體的權(quán)限設(shè)置，用戶的添加、修改、刪除是要返回源數(shù)據(jù)庫的，這就要與源數(shù)據(jù)庫存表 User_Info字段設(shè)計(jì)相對(duì)應(yīng)。 測試數(shù)據(jù)都與數(shù)據(jù)庫表設(shè)計(jì)相同時(shí)的情況。 測試數(shù)據(jù)與數(shù)據(jù)庫表設(shè)計(jì)有出入的各種情況。 “商品錄入管理”模塊設(shè)計(jì)說明 模塊描述 數(shù)據(jù)錄入模塊比較簡單，只是負(fù)責(zé)將數(shù)據(jù)添加到后臺(tái)數(shù)據(jù)庫中。但是要對(duì)數(shù)據(jù)記錄是否存在和數(shù)據(jù)的有效性進(jìn)行 驗(yàn)證：存在的記錄拒絕添加，無效的數(shù)據(jù)不得被添加。 由于是用數(shù)據(jù)集 DATASET，數(shù)據(jù)集在斷開數(shù)據(jù)源時(shí)存儲(chǔ)數(shù)據(jù)。數(shù)據(jù)集的結(jié)構(gòu)類似于關(guān)系數(shù)據(jù)庫的結(jié)構(gòu)；它公開表、行和列的分層對(duì)象模型。另外，它包含為數(shù)據(jù)集定義的約束和關(guān)系。它極大的方便了對(duì)數(shù)據(jù)庫進(jìn)行操作。 商品退貨 錄入（包括客房商品退貨錄入和退貨廠家的錄入）、過期報(bào)廢錄入和進(jìn)貨錄入、供貨廠商信息錄入等，共有五個(gè)窗體界面。 上面這個(gè)僅是介紹了其中的一個(gè)窗體界面的功能（庫存商品基本錄入界面），下面也是如此，以庫存商品基本錄入界面功能作為范例。 功能 功能有： 對(duì)數(shù)據(jù)進(jìn)行有效地、方面地、人性化地錄入。 如果錄入有誤，可以對(duì)數(shù)據(jù)進(jìn)行修改和刪除。能高效地修改更新。 性能 對(duì)必須輸入的項(xiàng)目進(jìn)行輸入，對(duì)一些項(xiàng)目不必要輸入（非必須輸入項(xiàng)）。能夠有效地確保輸入的數(shù)據(jù)的準(zhǔn)確性和方便性。 輸入項(xiàng) 對(duì)數(shù)據(jù)記錄是否存在和數(shù)據(jù)的有效性進(jìn)行驗(yàn)證，存在的記錄拒絕輸入，無效的數(shù)據(jù)不得被添加。如日期值、數(shù)字值。 以下是數(shù)字的輸入限制編碼實(shí)現(xiàn)： 中國管理資訊網(wǎng) 中國管理資訊網(wǎng) 23 Private Sub TextBox6_KeyPress (ByVal sender As Object, Byval e As System． . KeyPress Eventargs) Handles If( = Chr() And = Chr())Or _ = Chr() Or = Chr() Then e. Handled = False Else e. Handled = True End If End Sub 以下是日期輸入限制的編碼實(shí)現(xiàn)： Private Sub ComboBox6_LostFocus(ByVal sender As Object, Byval e As System． Eventargs) Handles ComboBox4_LostFocus If Not IsDate() Or Then MsgBox(請輸入日期的格式！ yyyymmdd， MsgBoxStyle． OkOnly, 確認(rèn) ） = ComboBox4. Focus() End If End Sub 以上的界面反映了數(shù)據(jù)基本信息的輸入內(nèi)容 中國管理資訊網(wǎng) 中國管理資訊網(wǎng) 24 流程邏輯 商品基本信息輸入邏輯流程圖 測試計(jì)劃 依據(jù)數(shù)據(jù)庫設(shè)計(jì)的表 storage_info和 history_stock_info字段和這個(gè)模塊所要實(shí)現(xiàn)的功能，進(jìn)行下列測試計(jì)劃： 依數(shù)據(jù)庫設(shè)計(jì)的字段，測試輸入的數(shù)據(jù)是否對(duì)應(yīng)于數(shù)據(jù)庫存的字段。 依據(jù)此模塊的功能，測試輸入的數(shù)據(jù)是否能有效地返回給數(shù)據(jù)源。 用 戶 拒 絕 輸 入 錯(cuò) 誤 報(bào) 告 開 始 添 加 錄入目標(biāo)數(shù)據(jù) 結(jié) 束 操 作 記錄是否存在 數(shù)據(jù)是否有效 寫入數(shù)據(jù)庫 中國管理資訊網(wǎng) 中國管理資訊網(wǎng) 25 測試數(shù)據(jù)與數(shù)據(jù)庫存設(shè)計(jì)有出入的各種情況，也測試與其所要實(shí)現(xiàn)的功能 能有出入的各種情況。 測試二張數(shù)據(jù)庫表間的數(shù)據(jù)是否輸入一致。 軟件的設(shè)計(jì)結(jié)果 軟件的設(shè)計(jì)結(jié)果如下： Imports System. Data. SqlClient Imports System. ComponentModel Imports System. Data. Common Private ds As New DataSet Private sqladpt As SqlDaAdapter ＇＊＊＊＊＊＊＊＊＊＊＊＊把窗體中控件的內(nèi)容添加到 dataset中＊＊＊ Private Sub formtorow(ByVal row As DataRow) On Error GoTo errhandler row(″商品條形碼″ ) =Me. row(″商品名稱″ ) =Me. row(″商品類″ ) =Me. row(″數(shù)量″ ) =Me. row(″生產(chǎn)廠商″ ) =Me. row(″生產(chǎn)日期″ ) = Me. row(″過期日期″ ) = Me. row(″進(jìn)貨日期″ ) = Me. row(″生產(chǎn)日期″ ) = Me. row(″進(jìn)貨單價(jià)″ ) = Me. row(″ 零售單價(jià)″ ) =Me. row(″備注″ ) =Me. Exit Sub Errhandler: MsgBox(Err. Description) Resume Next End Sub ＇＊＊＊＊＊＊＊＊＊＊＊＊把窗體中控件的內(nèi)容添加到 dataset中＊＊＊ Private Sub rowtoform(ByVal row As DataRow) On Error GoTo errhandler Me. =Set0bjToStr (row(″商品條形碼″ )) 中國管理資訊網(wǎng) 中國管理資訊網(wǎng) 26 Me. =Set0bjToStr (row(″ 商品名稱″ )) If Set0bjToStr (row(″商品類″ )) ??″″ Then Me. = Set0bjToStr (row(″商品類″ )) End If Me. = Set0bjToStr (row(″數(shù)量″ )) If Set0bjToStr (row(″生產(chǎn)廠商″ )) ??″″ Then Me. = Set0bjToStr (row(″ 生產(chǎn)廠商″ )) End If If Set0bjToStr (row(″生產(chǎn)日期″ )) ??″″ Then Me. = Set0bjToStr (row(″ 生產(chǎn)日期″ )) End If If Set0bjToStr (row(″過期日期″ )) ??″″ Then Me. = Set0bjToStr (row(″ 過期日期″ )) End If If Set0bjToStr (row(″進(jìn)貨日期″ )) ??″″ Then Me. = Set0bjToStr (row(″ 進(jìn)貨日期″ )) End If If Set0bjToStr (row(″進(jìn)貨單價(jià)″ )) ??″″ Then Me. = Set0bjToStr (row(″ 進(jìn)貨單價(jià)″ )) End If Me. = Set0bjToStr (row(″ 零售單價(jià)″ )) If Set0bjToStr (row(″ 備注″ )) ??″″ Then = Set0bjToStr (row(″備注″ )) End If Exit Sub Errhandler: MsgBox() Resume Next End Sub ＇ ????????? 初始化窗體 ????????? Private Sub iniform() Dim myTabMapping As New DataTableMapping Try =True 中國管理資訊網(wǎng) 中國管理資訊網(wǎng) 27 =False Sql=″ select Goods_ID,Goods_Name,Goods_number,Goods_Firm,Goods_ProDate, Goods_OutDate,Goods_InterDate,stok_price,retair,ment From Storage_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″ ,″進(jìn)貨日期″ ) .Add(″ stock_Price″ ,″進(jìn)貨單價(jià)″ ) .Add(″ retair_Price″ ,″零售單價(jià)″ ) .Add(″ ment″ ,″備注″ ) End With Sqladpt. (myTabMapping) Filldataset(ds, sqladpt, ″ storage_goods_info″ ) Me. DataGridl. DataSource = ds Me. DataGridl. DataMember = ″ storage_goods_infoMap″ Catch ex As Exception MsgBox() Finally If ?? Then () End If End Try 中國管理資訊網(wǎng) 中國管理資訊網(wǎng) 28 End Sub ＇＊＊＊＊＊＊＊＊＊＊＊＊保存數(shù)據(jù)＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub Button6_Click(ByVal sender As System. ByVal e As ) Handles Button6. Click Try Dim sqlcmdb As SqlCommandBuiler = N