超市管理系統(tǒng)

1、 20102010 屆畢業(yè)論文（設(shè)計）屆畢業(yè)論文（設(shè)計） 材材 料料 系 、 部： 數(shù)計系 學生姓名： 指導教師： 職稱 講師 專 業(yè)： 計算機教育 班 級： 一班 2010 年 5 月 2010 屆屆畢業(yè)論畢業(yè)論文（文（設(shè)計設(shè)計） ）課題課題任任務(wù)書務(wù)書 系： 數(shù)計系 專業(yè)： 計算機教育 指導教師學生姓名 課題名稱超市管理系統(tǒng) 內(nèi) 容 及 任 務(wù) 主要內(nèi)容： 通過 visual basic 6.0 和 sql server2000 構(gòu)造出一個小型的超市管理系統(tǒng)。此系 統(tǒng)能夠?qū)崿F(xiàn)以下功能： 1. 庫存管理（包括錄入商品、修改和刪除商品、查詢商品） （1）錄入商品 （2）修改和刪除商品 （3）查

2、詢商品 2. 商品銷售 （1）銷售商品 （2）查詢銷售情況 3. 系統(tǒng)設(shè)置 （1）用戶管理 （2）修改密碼 要求： 1. 查閱相關(guān)的國內(nèi)外文獻，按時提交開題報告； 2. 論文內(nèi)容正確無誤，有一定的創(chuàng)新或個人見解； 3. 開發(fā)的系統(tǒng)必須在計算機上測試通過，程序運行良好； 4. 論文必須按照學校規(guī)定的統(tǒng)一格式撰寫； 5. 論文嚴禁抄襲，引用別人的成果必須在文中注明。 擬 達 到 的 要 求 或 技 術(shù) 指 標 工資管理系統(tǒng)的主要任務(wù)是用計算機對各種工資信息進行日常管理，如修改、增加、 刪除及查詢等，針對系統(tǒng)服務(wù)對象的具體要求，迅速、準確地完成各種信息的工作。 1可行性 要力求最大限度地滿足實際工作

3、的需要，充分考慮各層次、各環(huán)節(jié)數(shù)據(jù)處理的實用 性，滿足小型超市的管理。而且操作簡便實用。 2安全性 應用軟件與數(shù)據(jù)庫系統(tǒng)的設(shè)計要做到安全可靠，防止非法用戶的入侵。數(shù)據(jù)庫的備 份策略恰當，同時設(shè)置多種管理人員。以防他人盜取有用的信息。 3實用性 用戶界面應當直觀、明了、條理清晰。實現(xiàn)了易學、易用、易管理。 起止日期工作內(nèi)容備注 進 度 安 排 1 月 10 日2 月 12 日 2 月 14 日2 月 20 日 2 月 20 日4 月 18 日 4 月 18 日5 月 10 日 收集信息以及進行系統(tǒng)整體規(guī)劃 寫任務(wù)書以及開題報告 開始進行系統(tǒng)開發(fā)，初步定稿 對系統(tǒng)進行進一步修改完善，最后定稿 主

4、要 參 考 資 料 1葉俊民，汪望珠.面向?qū)ο筌浖こ?第二版.清華大學出版社 2戴志誠. sqlserver 2005 數(shù)據(jù)庫系統(tǒng)開發(fā)與實例. 電子工業(yè)出版社 3鄭阿奇.sql server 教程.清華大學出版社 4胡勝利.動態(tài)報表在 vb6.0 中的設(shè)計和實現(xiàn).江蘇技術(shù)師范學院學報 5李占宣.數(shù)據(jù)庫中面向復雜應用的查詢方法.電腦學習 研室意見 年 月 日 系主管領(lǐng)導 意見 年 月 日 株洲師專 200 屆畢業(yè)論文（設(shè)計）指導教師評閱表 系： 學生姓名學 號10107120班 級計教一班 專 業(yè)計算機教育指導教師姓名 課題名稱超市管理系統(tǒng) 評語：（包括以下方面，學習態(tài)度工作量完成情況；檢索和

5、利用文獻能力、外文翻譯和計 算機應用能力；學術(shù)水平或技術(shù)水平、綜合運用知識能力和創(chuàng)新能力；限 300 字以上） 是否同意參加答辯：是 否 指導教師評定 （滿分：20 分） 分值： 20 指導教師簽字： 年 月 日 株洲師專 200 屆畢業(yè)論文（設(shè)計）評閱教師評閱表 系： 學生姓名學 號10107120班 級計教一班 專 業(yè)評閱教師姓名 課 題 評語：（對論文學術(shù)評語（包括選題意義；文獻利用能力；所用資料、實驗數(shù)據(jù)和計算結(jié)果可靠性；創(chuàng)新成 果及寫作規(guī)范化和邏輯性。注意對其中可能存在的剽竊、論據(jù)作假等把好關(guān)，如果發(fā)現(xiàn)請詳細說明） 針對課題內(nèi)容給設(shè)計者（作者）提出不少于 3 個問題，作為答辯時的必答

6、題 1. 2. 3. 選題與文獻綜述（20 分） 分值： 創(chuàng)新性(15 分) 分值： 基礎(chǔ)理論和專門知識(35 分) 分值： 作者寫作、表達能力(30 分) 分值： 綜合評價（滿分：30 分）分值： 30 是否同意參加答辯是 否 評閱人（簽名）： 年 月 日 株洲師專 200 屆畢業(yè)論文（設(shè)計）答辯及最終成績 評 定 表 系（公章）： 學生姓名學號 10107120 班級計教一班 答辯 日期 5 月 課題名稱超市管理系統(tǒng) 指導 教師 評 定 成 績 評 定 分 值教師 1教師 2教師 3教師 4教師 5 總 評 課 題 介 紹 思路清晰，語 言表達準確，概念 清楚，論點正確， 實驗方法科學，分

7、 析歸納合理，結(jié)論 嚴謹，論文（設(shè)計） 有應用價值。 30 必 答 題 40 答 辯 表 現(xiàn) 思維敏捷, 回答問題有 理論根據(jù)， 基本概念清 楚，主要問 題回答準確 大、深入,知 識面寬。 自 由 提 問 30 答辯評定 （滿分： 50 分） 分值： 50 答辯小組長簽名： 指導教師評定分值： 評閱教師評定分值： 最終評定成績： 分數(shù)： 等級： 答辯委員會主任簽名： 年 月 日 株株 洲洲 師師 范范 高高 等等 專專 科科 學學 校校 2010 屆屆畢業(yè)設(shè)計說畢業(yè)設(shè)計說明明書書 題 目 系、部： 數(shù)計系 學生姓名： 指導教師： 職稱 講師 專 業(yè)： 計算機教育 班 級： 計教一班 完成時間：

8、 2010-5-4 摘 要 伴隨著社會的復雜化，傳統(tǒng)的“一支筆，一本帳簿”的物品銷售管理方式也慢慢的 無法適應形勢的變化。隨著信息技術(shù)的發(fā)展，計算機已被廣泛的用于社會的各個領(lǐng)域， 成為推動社會發(fā)展的技術(shù)動力。而在計算機應用中，軟件的作用十分突出，軟件已經(jīng) 發(fā)展成為信息技術(shù)的核心，主導著信息產(chǎn)品的開發(fā)和信息技術(shù)市場的進一步的開拓。 軟件產(chǎn)業(yè)已成為社會信息化進程中的一個戰(zhàn)略性產(chǎn)業(yè)。在軟件技術(shù)的應用中軟件的開 發(fā)技術(shù)尤其是應用型軟件產(chǎn)品的開發(fā)技術(shù)成了重中之重。不斷開發(fā)適應用戶需求、市 場需要的新型軟件產(chǎn)品。隨著社會的發(fā)展，軟件也在不斷的更新?lián)Q代。隨著信息化的 發(fā)展，為了讓管理更快捷、更準確，實現(xiàn)商業(yè)

9、活動的信息化管理已經(jīng)成為各個領(lǐng)域的 當務(wù)之急。 本次課設(shè)就是利用 visual basic 來開發(fā)的應用系統(tǒng)的。我們的這個系統(tǒng)主要是針 對小型超市管理行業(yè)的，主要是用來對商品銷售的商業(yè)活動進行管理的。應用本系統(tǒng)， 我們可以使商品銷售管理簡單而有效的運行，這就是計算機的優(yōu)點。下來我來簡單介 紹一下我們所開發(fā)出來的這個系統(tǒng)，在我們的這個系統(tǒng)中，主要有三大方面的功能， 即庫存管理、商品銷售管理、系統(tǒng)設(shè)置管理。另外，利用我們利用文件來對數(shù)據(jù)進行 管理，從而使系統(tǒng)更加完善，功能更加強大。 關(guān)鍵詞：visual basic；文件；超市；系統(tǒng) summary with the social complexi

10、ty, the traditional a pen, a book, sales management articles can also slow to adapt to changing situations. with the development of information technology, computers have been widely used in various fields of society, as the technical driving force for promoting social development. in computer appli

11、cations, a very prominent role in the software, the software has become the core of information technology, leading the development of information products and information technology market to develop further. software industry has become the information in the process of a strategic industry. softw

12、are applications in the development of software technology, in particular the development of applied software technology has become the top priority. constantly develop to meet the customer needs, market needs, new software products. with the development of society, are constantly upgrading the soft

13、ware. with the development of information technology, in order to make management more efficient, more accurate information to achieve commercial activities in various areas of management has become an urgent task. the course design is to use visual basic to develop the application system. this syst

14、em is mainly our supermarket management for small industry is primarily used for sales of goods to manage the commercial activities. application of this system, we can make product sales management simple and effective operation, which is the computers advantages. i came down briefly what we have de

15、veloped this system, this system in our three main areas of functionality, inventory management, sales management, and system settings management. in addition, the use of the data we use to manage documents, making the system more complete, more features. key words： visual basic ；file； supermarket ；

16、system 目 錄 摘摘 要要x 第 1 章 緒 論 1 第 2 章 系統(tǒng)功能介紹2 2.1 系統(tǒng)功能總框圖2 2.2 模塊功能介紹3 第 3 章 系統(tǒng)功能實現(xiàn)4 3.1 系統(tǒng)登錄模塊的實現(xiàn)4 3.2 錄入商品模塊的實現(xiàn) 5 3.3 修改和刪除商品的實現(xiàn) 7 3.4 查詢商品功能的實現(xiàn)11 3.5 銷售商品功能的實現(xiàn)13 3.6 查詢銷售情況功能的實現(xiàn)17 3.7 用戶管理界面 20 結(jié) 論23 致 謝24 參考文獻25 附 錄 26 第 1 章 緒 論 緊張而又繁忙的課程設(shè)計過去了，在這一個星期里，讓我嘗到了以前我沒有體驗過的辛 苦與勞累。經(jīng)過本次的課程設(shè)計，使我克服了很多在程序設(shè)計上的弊

17、端和難點，也讓我體會 到了沖出重圍的幸福與喜悅。 編寫了幾百行的代碼最后寫出一個程序覺得很有成就感。對 visual basic 的掌握提高到 了一個新的水平，能夠利用 visual basic 編程平臺編寫出一個實用的程序，很大程度提高了 程序綜合設(shè)計能力、分析能力和編程能力。 世紀之初，以微電子、計算機、軟件和通信技術(shù)為主導的信息技術(shù)革命給我們生存的社 會所帶來的變化令人目不暇接。我選擇超市管理系統(tǒng)，它可以應用在小型的超市管理中，為 商品銷售的各項管理及信息保存提供了一個良好的操作環(huán)境，為這些單位提供了很大的方便。 隨著科學技術(shù)的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,

18、它已進 入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分,使用計算機 對超市管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲 量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高超市管理的效率,從而使企 業(yè)取得更大的利潤。 課程設(shè)計結(jié)束了，但是它留給我的印象是不可磨滅的。無論我以后會不會涉及這方面的 研究，我想，我至少掌握了一種系統(tǒng)的研究方法，我們學習的目的就在于運用，我們運用這 種研究方法的時候會很多，我最后要感謝課程設(shè)計，它的確教會我很多。 第 2 章 系統(tǒng)功能介紹 2.1 系統(tǒng)功能總框圖 在本次課程設(shè)計中，我所做的課設(shè)題目是超市銷售管

19、理系統(tǒng)，根據(jù)它的基本要求和經(jīng)過我們 查閱相關(guān)資料。經(jīng)過自己的研究，最后我制定出了本系統(tǒng)的總體功能。因為我所做的系統(tǒng)涉 及到了銷售，所以我們?yōu)樗O(shè)計了三個主要的功能模塊，即庫存管理模塊、商品銷售模塊、 和系統(tǒng)設(shè)置模塊。另外還有兩個文件管理模塊，即文件的保存和文件的打開。系統(tǒng)總體功能 框圖如圖 2.1 所示。 超市管理系統(tǒng) 商品 銷售 系統(tǒng) 設(shè)置 庫存 管理 圖 2.1 藥品銷售管理總框圖 錄 入 商 品 修 改 和 刪 除 商 品 查 詢 商 品 銷 售 商 品 查 詢 銷 售 情 況 用 戶 管 理 修 改 密 碼 2.2 模塊功能介紹 在系統(tǒng)功能總框圖中我們已經(jīng)介紹了我們這個系統(tǒng)的總體功能模

20、塊，即庫存管理模塊、 商品銷售模塊、和系統(tǒng)設(shè)置模塊。下面我來具體介紹一下它們。 （1）庫存管理模塊：此模塊用來錄入商品、修改和刪除商品還有查詢商品。 （2）商品銷售模塊：此模塊主要用來銷售商品和查詢銷售商品的情況。 （3）系統(tǒng)管理模塊：此模塊主要用來管理系統(tǒng)用戶中的一些操作，可以管理用戶和修 改用戶的密碼。 第 3 章 系統(tǒng)功能實現(xiàn) 3.1 系統(tǒng)登錄模塊的實現(xiàn) （1）在此模塊中，主要實現(xiàn)對用戶登錄系統(tǒng)的管理。我們知道，對于每個軟件應用系 統(tǒng)都有其特定的使用人員，尤其是用于商業(yè)活動的軟件系統(tǒng)，就更應該注意它的保密功能， 所以我們必須為我們的系統(tǒng)設(shè)計一個用于保護本系統(tǒng)的密碼登錄功能。如圖 4.1

21、所示為我們 超市管理管理系統(tǒng)的登錄界面。它所具有的功能是驗證用戶的登錄信息，即用戶名和對應的 用戶密碼，檢驗預進入本系統(tǒng)的用戶是不是合法用戶。 圖 3.1 登錄界面 （2）核心代碼 private sub cmdok_click() dim sql as string dim rs as adodb.recordset dim strusername as string dim intuserkey as integer on error goto errhandler: if trim(txtusername.text = ) then msgbox 請輸入用戶名稱！, vbexclamat

22、ion txtusername.setfocus else sql = select * from users where username = integrated security=sspi;persist security info=false;initial catalog=pos;data source=40f4d4dcb9dc46c adodc1.recordsource = select * from products adodc1.commandtype = 1 adodc1.refresh cbounit.additem 個 cbounit.additem 箱 cbounit

23、.additem 瓶 cbounit.additem 盒 cbounit.additem 袋 changeformpos frmmain, me end sub private sub txtproductinfo_change(index as integer) end sub 3.4 查詢商品功能的實現(xiàn) （1）超市管理系統(tǒng)的查詢功能模塊，如圖 3.5 所示，為查詢商品功能界面。本功能界 面由 1 個 ado data 控件用來連接數(shù)據(jù)源；1 個 datagrid 控件用來顯示查詢的數(shù)據(jù)；3 個 optionbutton 控件用來選擇查詢條件；1 個組合框用來選擇商品編號，3 個文本框用來輸

24、入 商品名稱，商品價格。 圖 3.5 查詢商品功能模塊界面 （2）各控件的說明如表 3.6 控件屬性屬性值 textbos名稱txtproductname textbos名稱txtlowprice textbos名稱txthighprice combobox名稱cboproductid 名稱optcode optionbutton caption商品價格 名稱optname optionbutton caption商品名稱 名稱optprice optionbutton caption商品價格 表 3.6 （3）核心代碼 private sub cmdexit_click() unload m

25、e end sub private sub cmdqurey_click() dim strquery as string on error goto errhandler: 按商品編號查詢 if optcode.value = true then if trim(cboproductid.text) = then strquery = select * from products else strquery = select * from products where productid = integrated security=sspi;persist security info=fal

26、se;initial catalog=pos;data source=40f4d4dcb9dc46c adodc1.recordsource = select * from products adodc1.commandtype = 1 adodc1.refresh cbounit.additem 個 cbounit.additem 箱 cbounit.additem 瓶 cbounit.additem 盒 cbounit.additem 袋 changeformpos frmmain, me end sub private sub txtproductinfo_change(index as

27、 integer) end sub private sub cmdexit_click() unload me end sub private sub cmdqurey_click() dim strquery as string on error goto errhandler: 按商品編號查詢 if optcode.value = true then if trim(cboproductid.text) = then strquery = select * from products else strquery = select * from products where producti

28、d = & cboproductid & end if end if 按商品名稱查詢 if optname.value = true then if trim(txtproductname.text) = then strquery = select * from products else strquery = select * from products where productname like % & txtproductname.text & % end if end if 按商品價格查詢 if optprice.value = true then if trim(txtlowpr

29、ice.text) = and trim(txthighprice.text) = then strquery = select * from products else if isnumeric(txtlowprice.text) = false then msgbox 價格必須為數(shù)字量！, vbexclamation txtlowprice.setfocus exit sub end if if isnumeric(txthighprice.text) = false then msgbox 價格必須為數(shù)字量！, vbexclamation txthighprice.setfocus ex

30、it sub end if strquery = select * from products where unitprice= & txtlowprice.text & _ and unitprice= & txthighprice.text end if end if adodc1.commandtype = 1 adodc1.recordsource = strquery adodc1.refresh exit sub errhandler: msgbox 錯誤號: & err.number & 錯誤信息： & err.description, vbexclamatio end sub

31、private sub form_load() dim rs as new adodb.recordset dim sql as string sql = select productid from products set rs = exesql(sql) rs.movefirst while not rs.eof cboproductid.additem rs!productid rs.movenext wend optcode.value = true changeformpos frmmain, frmproductquery end sub private sub o_click()

32、 end sub dim intbuy as integer private sub cmdcancel_click() lblproductinfo.caption = txtproductid.text = txtproductqty = txtsum.text = txtcash.text = txtchange.text = msgsale.rows = 1 intbuy = 0 txtproductid.setfocus end sub private sub cmdok_click() dim sql as string dim rs as adodb.recordset dim

33、lngidspace as long dim lngnamespace as long dim lngpricespace as long dim lngstringlen as long dim strproductname as string dim strproductprice as string dim intproductqty as integer if trim(txtproductid.text = ) then msgbox 請輸入商品編號！, vbexclamation txtproductid.setfocus else if trim(txtproductqty =

34、) then msgbox 請輸入商品數(shù)量！, vbexclamation txtproductqty.setfocus exit sub end if sql = select * from products where productid = & txtproductid.text & set rs = exesql(sql) if rs.eof = true then msgbox 沒有此編號商品，請重新輸入商品編號！, vbexclamation txtproductid.setfocus txtproductid.text = exit sub else 取出對應商品編號的商品名稱

35、strproductname = rs!productname 取出對應商品編號的商品價格 strproductprice = rs!unitprice rs.close end if end if 將當前購買的商品信息放大顯示 lngidspace = 8 - len(txtproductid.text) lngnamespace = 15 - 2 * len(strproductname) lngpricespace = 9 - len(strproductprice) lblproductinfo.caption = txtproductid & space(2 * lngidspace

36、) & strproductname & space(2 * lngnamespace) & strproductprice & space(2 * lngpricespace) & txtproductqty 商品購賣數(shù)量加 1 intbuy = intbuy + 1 在表格中加入商品購買信息 fillgrid strproductname, strproductprice end sub private sub cmdpayment_click() dim sql as string dim intcount as integer dim intproductid as integer d

37、im intproductqty as integer dim curproductprice as currency dim cursum as currency for intcount = 1 to intbuy curproductprice = msgsale.textmatrix(intcount, 4) intproductqty = msgsale.textmatrix(intcount, 5) 計算商品價格總和 cursum = cursum + curproductprice * intproductqty next intcount for intcount = 1 to

38、 intbuy intproductid = msgsale.textmatrix(intcount, 2) intproductqty = msgsale.textmatrix(intcount, 5) if frmluserid = 0 then exit sub sql = insert sales values( & intproductid & , & frmluserid & , & intproductqty & ,getdate() exesql (sql) next intcount txtsum.text = cursum txtcash.s

39、etfocus end sub private sub cmdquit_click() unload me end sub private sub form_activate() dim sql as string dim rs as adodb.recordset sql = select * from machineuser where userid = & frmluserid & set rs = exesql(sql) lblmachineid.caption = rs!machineid lbluserid.caption = frmluserid

40、txtproductid.setfocus end sub private sub form_load() dim i as integer 設(shè)置窗體位置 changeformpos frmmain, frmsales intbuy = 0 with msgsale .formatstring = |序號|商品編碼|商品名稱|商品單價|數(shù)量 .colwidth(0) = 0 .colwidth(1) = 1100 .colwidth(2) = 1400 .colwidth(3) = 1600 .colwidth(4) = 1600 .colwidth(5) = 1600 .rows = 1 e

41、nd with end sub private sub msgsale_click() end sub private sub txtcash_change() dim curcash as currency if txtcash.text = then exit sub curcash = txtcash.text txtchange.text = curcash - txtsum end sub private sub fillgrid(byval strproductname as string, byval curunitprice as currency) with msgsale

42、.rows = .rows + 1 .textmatrix(intbuy, 1) = intbuy .textmatrix(intbuy, 2) = txtproductid.text .textmatrix(intbuy, 3) = strproductname .textmatrix(intbuy, 4) = curunitprice .textmatrix(intbuy, 5) = txtproductqty.text end with end sub private sub cmdexit_click() unload me end sub private sub cmdquery_c

43、lick() dim strcmand as string on error goto errhandler 姓名為空查詢?nèi)繂T工的銷售情況 if trim(cbousername.text) = then if chktime.value = vbchecked then if datediff(d, dtpstartdate.value, dtpenddate.value) = & dtpstartdate.value & _ and sales.saledate= & dtpenddate.value & end if else strcmand = select users.usern

44、ame, products.productname, & _ products.unitprice , sales.salequantiy, sales.saledate & _ from products inner join sales on products.productid = sales.productid & _ inner join users on sales.userid = users.userid end if else 姓名不為空查詢查詢當前員工的銷售情況 if chktime.value = vbchecked then if datediff(d, dtpstar

45、tdate.value, dtpenddate.value) = & dtpstartdate.value & _ and sales.saledate= & dtpenddate.value & _ and users.username = & cbousername.text & end if else strcmand = select users.username, products.productname, & _ products.unitprice , sales.salequantiy, sales.saledate & _ from products inner join s

46、ales on products.productid = sales.productid & _ inner join users on sales.userid = users.userid & _ where users.username = & cbousername.text & end if end if adodc2.commandtype = 1 adodc2.recordsource = strcmand adodc2.refresh exit sub errhandler: msgbox 錯誤號: & err.number & 錯誤信息： & err.description

47、end sub private sub datagrid2_click() end sub private sub form_load() dim sql as string dim rs as adodb.recordset 設(shè)置窗體位置 changeformpos frmmain, frmsalesquery sql = select username from users set rs = exesql(sql) if rs.eof = true then msgbox 當前數(shù)據(jù)庫中沒有信息！, vbexclamation else rs.movefirst do until rs.eof strusername = rs!username cbousername.additem strusername rs.movenext loop rs.close end if dtpstartd