1、大連理工大學網絡教育學院軟件工程課程大作業題 目:小型超市管理系統的設計與實現層 次： 專升本學生姓名： 胡聰年 級：2016 年 春學 號： 201203238493專業：網絡工程完成日期： 2016 年9 月5 日目錄摘要“小型超市管理系統”是專門針對小型超市的綜合業務而開發的綜合商品管理 系統。本軟件的前臺采用 VB.Net，后臺采用SQL Server 2005數據庫。超市需要處理大量的庫存信息并且要時刻更新商品的銷售情況，不斷的進貨、 上柜、銷售、統計等。對于不同的信息，需要建立合理的數據結構來保存這些數據, 需要有效地程序結構支持各種數據操作的執行。超市進銷存最主要的特點是能夠實

2、時和準確的記錄超市的銷售情況，這樣就可以有效的加速商品的周轉和服務質量的 提高，而且可以減少商品售價不符等問題。顧客的消費要求是希望在超市中基本上 都能購買到所需的商品，并且要保證商品的質量還要享有優質、方便的服務。該系統主要由銷售管理、進貨管理、人員管理、入庫管理、上柜管理、統計查 詢、密碼修改等功能組成。關鍵字VB.Net ； SQL Server 2005數據庫；銷售；超市管理系Abstract"Integrated commodity small supermarket managementsystem" is designed to integrated serv

3、ices for small supermarket development. The front platform of the software adopts VB.Net, the backstage adopts SQLServer 2005 database.Supermarkets need to handle a large number of inventory informationandupdate the sale of products, continue to purchase, OTC, sale, statisticsetc.For differe ntin fo

4、rmati on,n eed to establish a reas on able data structureto store these data and to effectively program structure to support the operationof the various data. The main characteristic of supermarketinvoicing is that sales of real-time and accurate records of the supermarket, thus this can speed up th

5、e tur no ver of goods and service quality effectively improved, but also can reduce the commodity price discrepa ncy and so on.Con sumpti on requireme nts of customers want to be able to buy n eeded goods in supermarkets basically, and to guara ntee the quality of goods but also enjoy high-quality,

6、convenient service. The system consists of sales management, purchase management, personnel management, storage management, OTCmanagement, statisticalinquiry, password changes and other functionalcomp onen ts.The system is mai nly composed of sales man ageme nt, stock man ageme nt, pers onnel man ag

7、eme nt, storage man ageme nt, stock man ageme nt, statistical inq uiries, password cha nges and other fun cti ons.Keywords VB.Net,SQL Server 2005 Database,Sales,SupermarketManagementSyste第1章緒論1.1社會背景隨著信息時代的到來，計算機技術已滲透到各行各業，成為各個領域必不可少 的工具，特別是In ternet技術的推廣和信息高速公路的建立，使IT產業在市場競 爭中越發顯示出其獨特的優勢，步入數字化時代，有巨

8、大的數據信息等待著加工處 理和傳輸，這使得對數據庫的進一步開發和利用顯得尤為迫切。作為國內市場的一 些中小超市，他們在信息化過程中的步伐要落后大中型超市，而對于這些企業的資 源管理，信息的存儲和處理也顯的迫切需要，要適應市場競爭，就需要有高效的處 理方式和管理方法，因此加快超市的電算化進程是必不可少的。經過市場的調查，針對現在各中小超市對銷售業務的實際需要，開發了這套小 型超市管理系統。在開發過程中，針對當前各超市管理特點和自己技術的實際水平， 采用Windows是基于圖形界面這易學易用的操作系統環境，在系統設計過程中，盡 量采用一些易懂易讀的接口界面，使用戶可以在短期內完全掌握。在功能方面，

9、借 鑒現在市場上流行的財務軟件的特點，使設計的系統在功能上極貼近中小超市的使 用要求。在設計過程中，始終把系統的正確性放在首位，力求數據的完整，處理的 正確性。在此基礎上優化程序代碼，加速系統運行和減少對系統資源的占用。作為一家小型超市，他們的主要業務是銷售商品，目前系統運做中存在很多 題，所有的銷售單都是人工填寫，耗時而且易出現錯誤；庫存也是人工記帳，無法 隨時掌握最準確的存貨情況；對于銷售數據，往往要花好多時間和精力去計算銷售 額，每項商品的銷售狀況，為了解決上述問題，提高經濟效益，準備針對超市進行 計算機化管理。1.2超市背景超市形式在我國于20世紀90年代初期起步，現已成為我國零售業的

10、一種重要 形態。隨著超市的高速發展，其經營管理也變的愈加復雜，早期的售貨員站柜臺的 形式早已不能滿足現有銷售業的的發展這樣就迫切地需要引入新的思想技術和管 理技術進入到超市管理之中。超市形態具有種種優點，但在目前狀況下，它仍存在零售業商業企業所共有的 落后的一面，如：不能有效的管理每一種商品，收款結算速度慢，容易出現營業差 錯，不宜進行商品調價，盤點效率底等，而且在超市日常管理中，商品進、銷、存 決策以經驗為主，缺乏實時分析功能，管理人員對及時傳遞資料的要求始終得不到 滿足，隨著超市形態的高速發展，其經營管理也變的愈加復雜，日常所需處理的數 據量也逐漸增大，商業運轉的中間環節也越來越多，原始的

11、人工管理已無法應對這 復雜的市場。為此，我在本次設計之中選擇了超市信息管理系統設計，依靠現代化 的計算機信息處理技術來管理超市，從而節省了大量的人力、物力、改善了員工的 工作條件，減輕了勞動強度，并且能夠快速反映出商品的進銷存狀況和各種反饋信 息分析，使管理人員快速對市場的變化作出相應決策，加快超市管理的效率。第2章軟件設計開發平臺2.1 SQL Server 2005數據庫簡介Microsoft SQL Server 2005是一個全面的數據庫平臺，使用集成的商業智能(BI)工具提供了企業級的數據管理。Microsoft SQL Server 2005數據庫引擎為關系型數據和結構化數據提供了

12、更安全可靠的存儲功能，可以構建和管理用于業務 的高可用和高性能的數據應用程序。數據引擎是該企業數據管理解決方案的核心。此外Microsoft SQLServer 2005結合了分析、報表、集成和通知功能。SQLServer 2005引入了一些“ Studio ”幫助實現開發和管理任務：SQL Server ManagementStudio 和 Busin ess In tellige nee Developme nt Studio。在 Man ageme nt Studio中，可以開發和管理SQL Server數據庫引擎與通知解決方案，管理已部署的An alysis Services解決方案，

13、管理和運行In tegratio n Services包，以及管理報表服務器和 Reporting Services報表與報表模型。在 BI Development Studio中，可以使用以下項目來開發商業智能解決方案：使用An alysis Services 項目開發多維數據集、維度和挖掘結構；使用 Reporti ng Services項目創建報表；使用報表模型項目定義報表的模型；使用In tegration Services項目創建包。因此選擇SQL Server2005數據庫作為開發本系統使用的數據庫。2.2 Microsoft Visual Studio 2010簡介Microso

14、ft Visual Studio 2010司推出的開發環境。是目前最流行的 Win dows平臺應用程序開發環境。其集成開發環境(ID E)的界面被重新設計和組織，變得 更加簡單明了。Visual Studio 2010同時帶來了 NET Framework 4.0、MicrosoftVisual Studio 2010 CTP( Commu nity Techn ology Preview-CTP)，并且支持開發面向 Windows 7的應用程序。除了 Microsoft SQL Server ，它還支持IBM DB2和 Oracle數據庫。Microsoft Visual Studio 2

15、010采用拖曳式便能完成軟件的開發。簡簡單單的操作便可以實現一個界面的生成。但拖曳的界面，也應當有相應的代碼 來實現功能。Microsoft Visual Studio 2010 支持C# C+、VB 可以快速實現 相應的功能。所以所做的圖書館管理系統也就選擇了這種開發平臺。2.3運行環境2.3.1硬件環境處理器：雙核2.6G Hz以上內存：2G內存硬盤空間：最低5400r/min,建議7200r/min或更快2.3.2軟件環境軟件環境是一個系統開發的工具，它取決于開發人員對軟件的熟悉程度，如果 開發人員選擇一個不熟悉的軟件開發會大大增加開發系統所需要投入的成本，所以 說選擇軟件環境也是很重要

16、的。操作系統： Win dows XP或Win dows 7,操作系統必須安裝In ternet信息服務 (IIS )數據庫：SQL Server 2005軟件開發語言：VB.Net開發軟件：Microsoft Visual Studio 2010第3章系統可行性研究與需求分析3.1可行性研究可行性分析是在用戶的要求和系統調研的基礎上進行的，對新系統的開發從社 會、技術、經濟、管理等方面進行分析，并得出新系統的開發工作可行、不可行、 需要修改、追加投資、暫緩開發、分步實施等方案和結論，最后完成可行性分析。 可行性分析對擬議中的項目進行全面與綜合的技術、經濟能力的調查，判斷它是否 可行可行性研究

17、是程序員成功實施該系統的重要前提，是實施該系統的重要前提， 是實施必不可少的步驟。可行性研究的目的就是用最小的代價在盡可能短的時間內研究并確定提出的 問題是否行的通的解決辦法。分析這些方案的通常從技術可行性、經濟可行性、操 作可行性、法律可行性等方面，分析這些方案的可行性。3.1.1經濟可行性經濟可行性分析主要是對開發新系統所投入的資金與系統投入使用后所帶來 的經濟效益進行比較，確認新系統是否會給超市帶來一定的經濟效益。現在，計算 機的價格已經十分低廉，性能逐漸強大。從長遠角度來看，此系統的投入會給超市 帶來管理簡易化、信息統計完整化、數據處理智能化、經濟預算科學化、業務處理 高效化等綜合多方

18、面考慮，對超市的顧客滿意程度和超市的經濟效益會有長足的提 高，分析如下：(1) 本系統的運行可以大大的提高管理員的工作效率；(2) 本系統的運行可以節省許多資源；(3) 本系統的運行可以代替人工進行許多繁雜的勞動；所以，本系統在經濟上是可行的。3.1.2技術可行性在IT行業中從業的工作人員一般都要求掌握計算機技術，具有一定的軟硬件 基礎，能夠維護和操縱計算機，會使用各種管理軟件，熟悉IT產品至少精通的掌握一門計算機編程語言。現在的這個行業中分的更細了，每個企業都有自己的架構 工程師，設計工程師，測試專家，以及高素質的編程人員，他們都有長期的項目開 發經驗，就朝管理系統，只要通過實際的社會調查，

19、和超市管理者的要求，就可以 寫出需求分析說明書。因此，可以說系統在開發人員上沒有什么大的問題。并且現在很多超市對員工的素質要求比較高，從管理層到基層的銷售導購人 員，都要求具有一定的計算機基礎技術，所以在新系統投入使用時，只要對員工進 行少量的培訓，在掌握了系統的功能和使用方法時，就基本上能夠使系統順利的運 行，為超市提供服務。3.1.3操作可行性系統采用基于 Windows的圖形用戶界面，而該系統是大家熟悉的操作系統，對 于那些有一般的計算機知識的人員就可以輕松上手。而整個超市管理系統采用最友好的交互界面，簡介明了，不需要對數據庫進行深入的了解。由此，該系統的操作是可行的，有必要開發該系統。

20、綜合以上三方面，該系統具有很高的開發可行性，無論是從技術上或者經濟上 還是操作上。因此，可以設計該系統，并設計開發過程。3.2需求分析計算機的運用能夠準確記載和查閱關于超市經營活動的大量數據，幫助超市經 營者掌握和分析營銷情況，及時作出正確決策，并且有利于超市內部人員管理、庫 存、銷售情況等管理。超市管理系統應該滿足以下需求：(1) 業務上滿超市管理系統的基本需求，能夠方便地進行銷售管理、員工管理、 商品管理和統計查詢。(2) 與傳統的手工管理相比，要添加基本數據的管理和用戶權限的設置。(3) 所有的界面都要有信息的瀏覽功能，同時要保障數據的安全、可靠。(4) 系統應最大限度地實現易維護性性和

21、易操作性。3.2.1系統性能要求(1) 系統安全、可靠。(2) 保證數據查詢的靈活性。(3) 操作方便、界面友好。(4) 易于維護和擴充。3.2.2系統的功能分析根據系統的需求分析，為了保證系統的安全性，需對不同權限的人員分別設置 功能。本系統的功能要求如下：管理員：(1) 銷售管理：主要進行交易信息的錄入和收取相應款項通過銷售終端的掃描 條形碼方式或手工輸入每次交易的詳細情況，包括商品編號、名稱、數量、交易總 金額等，自動計算本次交易的總金額并保存。(2) 進貨管理：商品的入庫、查詢庫存商品的數量、添加或刪除供應商。(3) 人員管理：添加或刪除員工、查詢員工信息。(4) 商品上柜：進行上柜操

22、作，并對柜存報警的商品安排上柜操作。(5) 統計查詢：統計和查詢銷售清單、計算出總額與利潤并打印。(6) 密碼修改：管理員可自行修改密碼。銷售人員：(1) 銷售管理：主要進行交易信息的錄入和收取相應款項通過銷售終端的掃描 條形碼方式或手工輸入每次交易的詳細情況，包括商品編號、名稱、數量、交易總 金額等，自動計算本次交易的總金額并保存。(2) 商品上柜：進行上柜操作，并對柜存報警的商品安排上柜操作。(3)密碼修改：售貨員可自行修改密碼第4章系統總體設計4.1系統總體結構系統總體結構，圖4-1所示:圖4-1系統總體結構銷售管理功能描述：主要進行交易信息的錄入和收取相應款項通過銷售終端的掃描條形碼方

23、式或手工輸入每次交易的詳細情況（本系統使用手工方式），包括商品編號、名稱、數量、交易總金額（對于同類多件商品采用一次錄入數量的方式） ： 自動計算本次交易的總金額并保存。進貨管理功能描述：添加新商品和已有商品、查詢庫存商品的數量、添加或刪 除供應商。人員管理功能描述：添加或刪除員工、查詢員工信息。商品上柜功能描述：進行上柜操作，并對柜存報警的商品安排上柜操作。統計查詢功能描述：統計和查詢銷售清單，可查詢當天、當周、當月、當年、 全部或篩選日期，計算出總額與利潤并打印。密碼修改功能描述：當前登陸者可進行修改密碼。4.2數據庫設計4.2.1 系統ER圖系統數據庫E R圖，圖4-2所示:商品編號用戶

24、密碼銷售編號商品價格員工編號年齡nm客戶銷售員工姓名員工員工職位銷售日期員工電話性別岀售數量銷售編號總金額m商品名稱商品編號上柜供貨商編號岀售價格報警數量商品編號岀售價格供貨商名稱nn商品名稱供貨商聯系人姓名供貨商品進貨價格供貨商電話庫存數量供貨商電話商品規格供應商編號報警數量圖4-2系統數據庫E R圖4.2.2系統關系模型(1) 庫存表(商品編號，商品名稱，進貨價格，庫存數量，商品規格, 報警數量，供應商編號)(2) 員工表(員工編號，員工姓名，性別，年齡，登錄密碼，員工職位，員 工電話)(3) 柜存表(商品編號，商品名稱，出售價格，柜存數量，報警數量)(4) 銷售臨時表(銷售編號，商品編號

25、，商品價格，出售數量，總金額，銷 售日期，員工編號)(5) 供應商表(供應商編號，供應商名稱，聯系人姓名，供貨商電話，供貨 商地址)數據表結構：庫存表庫存表主要用于存儲各類商品，用于商品管理和查詢的依據。具體設計如下表4-1所示:表4-1庫存表字段名字段類型長度主/外鍵商品編號char6P商品名稱varchar50進貨價格nu meric(8, 2)庫存數量int商品規格char10報警數量int供應商編號char6F員工表員工表主要用于員工的個人資料，此表同樣用于管理員和員工進行管理和查詢的依據。具體設計如下表4-2所示:表4-2員工表字段名字段類型長度主/外鍵員工編號char10P員工姓名

26、char20性別char2年齡char10登錄密碼char10員工職位char10員工電話char20供應商表供應商表主要用于記錄供應商信息，管理員可進行查詢、添加、刪除。設計如F表4-3所示:表4-3供應商表字段名字段類型長度主/外鍵供應商編號char10P供應商的名稱varchar50聯系人姓名varchar50供應商電話char20供應商地址varchar50(4) 銷售臨時表銷售臨時表主要是用于記錄已售商品的信息。設計如下表4-4所示:表4-4銷售臨時表字段名字段類型長度主/外鍵銷售編號char100P商品編號char6F商品價格nu meric(8, 2)出售數量int總金額nu m

27、eric(8, 2)銷售日期datetime員工編號char4F柜存表柜存表主要用于記錄上柜的商品信息，方便管理員或銷售員出售商品。具體設計如下表4-5所示。表4-5柜存表字段名字段類型長度主/外鍵商品編號char6P商品名稱varchar50出售價格nu meric(8, 2)柜存數量int報警報警int第5章系統詳細設計與實現5.1用戶登錄模塊本模塊的主要功能是對用戶身份進行驗證，只有系統的合法用戶才能進入系統。在進行系統登錄過程中，登錄模塊將調用數據庫里的用戶清單，并對賬號和密 碼進行驗證，只有輸入了正確的賬號和密碼后，系統登錄才會成功。其窗體如圖5-1圖5-1用戶登陸的界面5.2菜單操

28、作模塊如果用戶以“管理員”身份登錄系統，則進入管理員主界面，如果用戶以“銷 售員”身份登錄系統，管理員菜單開放了所有界面，而銷售眼菜單只開放了銷售管理、商品上柜和密碼修改。如圖 5-2所示: £銷譽管咬貸管理人員管理商品上柜y J|r統計查詢密瑪悸改圖5-2菜單操作模塊5.3銷售管理界面本模塊主要進行交易信息的錄入和收取相應款項通過銷售終端的掃描條形碼 方式或手工輸入每次交易的詳細情況（本系統使用手工方式），包括商品編號、名稱、數量、交易總金額（對于同類多件商品采用一次錄入數量的方式），自動計算本次交易的總金額并保存。如圖5-3所示：圖5-3銷售管理界面代碼如下:Public Cla

29、ss銷售管理Private Sub TextBox2_TextCha nged(ByVal sender As System.Object, ByVai e As System.Eve ntArgs) Han dies TextBox2.TextCha ngedLabel12.Text =""Label24.Text =""dvsI.RowFilter ="商品編號 like '%" & TextBox2.Text & "%'"If TextBox2.Text.Le ngth = 6

30、 ThenIf dvsl.Cou nt = 0 ThenMsgBox（"商品編號輸入有誤，重新輸入?"）TextBox2.Text =""TextBox2.Focus()Elself dvsI.Cou nt = 1 ThenDim drO, dr1, dr3 As DataRowdrO = ds.Tables("stock").Rows.Fi nd(TextBox2.Text)dr1 = ds.Tables("stock").Rows.Fi nd(TextBox2.Text)dr3 = ds.Tables(&quo

31、t;stock").Rows.Fi nd(TextBox2.Text)Label12.Text = drO.ltem("商品名稱")Label24.Text = dr1.Item("出售價格")End IfEnd Ifdvs1.RowFilter ="商品編號 like '%" & TextBox2.Text & "%'"End SubPrivate Sub TextBox3_KeyPress(ByVal sen der As Object, ByVal e AsSyste

32、m.Wi ndows.Forms.KeyPressEve ntArgs) Han dles TextBox3.KeyPressIf e.KeyChar = vbCr ThenDim dr1, dr3 As DataRow dr1 = ds.Tables("stock1").NewRowdr1.Item("dr1.Item("商品編號")=TextBox2.Text銷售編號")=DateTime.Nowdr1.Item("出售數量")=TextBox3.Textdr1.Item("總金額")=La

33、bel24.Text * TextBox3.Textdr1.Item("銷售日期")=Now.Datedr1.Item("員工編號")= 登錄.TextBoxl.Textds.Tables("stock1").Rows. Add(drl)dr3 = ds.Tables("stock1").Rows.Fi nd(TextBox2.Text)TextBox4.Text = Val(TextBox4.Text) + drl.ltem(”總金額")Dim dr As DataRowdr = ds.Tables(&

34、quot;stock").Rows.Fi nd(TextBox2.Text)If dr.Item("柜存數量")< TextBox3.Text ThenMsgBox("柜存數量不足，重新輸入！")TextBox3.Text :_ IlliElsedr.ltem(”柜存數量")=dr.ltem(” 柜存數量")-TextBox3.TextDim cmdU As New SqlComma nd With .Co nn ecti on = conncmdU.CommandText = "update柜存表set柜存

35、數量=柜存數量"& TextBox3.Text & " where 商品編號='"& TextBox2.Text & "”'daap.UpdateComma nd = cmdUdaap.Update(ds.Tables("stock")TextBox2.Text :_ IlliTextBox3.Text :_ IlliTextBox2.Focus()Label12.Text =""End IfEnd IfEnd SubEnd Class5.4進貨管理界面本模塊主要是進

36、貨操作，可添加已有商品、新商品，如果新商品的供應商也是 新的可點擊其他，從新添加供應商。如圖5-4所示：巧細純樸.銷會管理銷會管理商品歸商品歸PSffiS 呂人員管理(»L密碼修改超市管理系統超市管理系統取消圖5-4進貨管理界面5.5商品上柜界面本模塊主要是柜存表里的商品如果達到報警數量可提示信息，從庫存表里取商品添加到柜存表，如果有新的商品上柜，可填寫數量、價格等。如圖5-5所示:苗品上柜超市管理系統0銷售管理進貨管理柜存人員管理兩品HI號商品宕押出些怕格柜存栽蟲報書栽蟲虹悅尙方便面2 00303s.pmD2伊利金再牛坍3.DOZ5誡003車¥可樂3 00iespDOM3

37、.DO183収匹壬中王3 CQ19sp0OD6癱茶3.0020s 1話品裔品丄柜庫存統計查詢密瑪修改商品宕稱悚存at 巒霹黠髒 p嚴上柜欄Lpooi紅燒囪.1.501加垃.500上柜審利金1. 99375D2上柜LfOOOO豐乍可樂2.50機垃5003上柜訶D04£.502Z50D4上柜13P0005釵匯王中王S.50TO5005上柜.L-dTTinAUno,i-*R圖5-5商品上柜界面5.6統計查詢界面本模塊主要是統計和查詢銷售清單、計算出總額與利潤并打印。查詢可分為快 捷查詢和日期篩選，快捷查詢可查詢當天、當周、當月、當年以及全部，而日期篩 選可查詢某一天。如圖5-6所示：圖5-

38、6統計查詢代碼如下:Public Class統計查詢PrivateSub DateTimePicker1_ValueChanged(ByVal sender As System.Object,ByVai e As System.Eve ntArgs) Han dles DateTimePicker1.ValueCha ngedShowSelectedDetal(se nder.value)ShowSelectedSumXiaoshoue(se nder.value)ShowSelectedSumJi nhuoe(se nder.value)End SubPrivate Sub ShowSele

39、ctedDetal(ByVal tm As DateTime)Dim stime As DateTime = Format(tm, "#yyyy-MM-dd ").ToString& "00:00:00.00#"Dim etime As DateTime = Format(tm, "#yyyy-MM-dd ").ToString& "23:59:59.99#"Dim pr1 As NewSqlParameter With .DbType = DbType.DateTime, .ParameterNa

40、me ="stime", .Value = stimeDim pr2 As NewSqlParameter With .DbType = DbType.DateTime, .ParameterName="etime", .Value = etimeDim sqlstr As String = "select * from銷售臨時表 where 銷售日期 betweenstime and etime"Dim cmd As New SqlComma ndcmd.Comma ndText = sqlstrcmd.Parameters.Add

41、(prl)cmd.Parameters.Add(pr2)cmd.C onn ecti on = conndaap.SelectComma nd = cmdTryds.Tables("stock1").CIear()Catch ex As Excepti onEnd TryTryIf conn .State <> Connection State.Ope n The n conn. Ope n()daap.Fill(ds, "stock1")dg1.DataSource = ds.Tables("stock1")Catch

42、ex As Excepti onMsgBox(ex.Message)Fi nallycmd.Dispose()daap.Dispose()End TryEnd SubPrivate Sub ShowSelectedSumXiaoshoue(ByVal tm As DateTime)DimstimeAsDateTime =Format(tm, ''#yyyy-MM-dd").ToStri ng&"00:00:00.00#"DimetimeAsDateTime =Format(tm, ''#yyyy-MM-dd").T

43、oStri ng&"23:59:59.99#"Dimpr1AsNewSqlParameterWith.DbType=DbType.DateTime, .ParameterName = "stime", .Value = stimeDim pr2 As New SqIParameter With .DbType = DbType.DateTime, .ParameterName = "etime", .Value = etimeDim sqlstr As String = "SELECTSUM總金額)AS Expr1

44、FROM銷售臨時表 where 銷售日期 between stime and etime"Dim cmd As New SqlComma ndDim rdr1 As SqlDataReadercmd.Comma ndText = sqlstrcmd.Parameters.Add(pr1)cmd.Parameters.Add(pr2)cmd.C onn ecti on 二 connTryIf conn .State <> Connection State.Ope n The n conn. Ope n() cmd.C onnection 二 conn rdr1 = cmd.ExecuteReader()If rdr1.Read() The nTextBox5.Text = rdr1.GetValue(0)End IfCatch ex As Excepti onMsgBox(ex.Message)Fi nallyTryrdr1.Close()Catch ex As Excepti onEnd Try cmd.Dispose()End TryEnd SubPrivate Sub ShowSelectedSumJi nhuoe(ByVal tm As DateTime)Dim sti