超市管理系統(tǒng)

1、 20102010 屆畢業(yè)論文（設(shè)計）屆畢業(yè)論文（設(shè)計） 材材 料料 系 、 部： 數(shù)計系 學(xué)生姓名： 指導(dǎo)教師： 職稱 講師 專 業(yè)： 計算機(jī)教育 班 級： 一班 2010 年 5 月 i 2010 屆屆畢業(yè)論畢業(yè)論文（文（設(shè)計設(shè)計） ）課題課題任任務(wù)書務(wù)書 系： 數(shù)計系 專業(yè)： 計算機(jī)教育 指導(dǎo)教師學(xué)生姓名 課題名稱超市管理系統(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)外文獻(xiàn)，按時提交開題報告； 2. 論文內(nèi)容正確無誤，有一定的創(chuàng)新或個人見解； 3. 開發(fā)的系統(tǒng)必須在計算機(jī)上測試通過，程序運(yùn)行良好； 4. 論文必須按照學(xué)校規(guī)定的統(tǒng)一格式撰寫； 5. 論文嚴(yán)禁抄襲，引用別人的成果必須在文中注明。 ii 擬 達(dá) 到 的 要 求 或 技 術(shù) 指 標(biāo) 工資管理系統(tǒng)的主要任務(wù)是用計算機(jī)對各種工資信息進(jìn)行日常管理，如修改、增加、 刪除及查詢等，針對系統(tǒng)服務(wù)對象的具體要求，迅速、準(zhǔn)確地完成各種信息的工作。 1可行性 要力求最大限度地滿

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

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

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

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

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

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

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

10、mary with the social complexity, 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 d

11、evelopment. in computer applications, 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 o

12、f a strategic industry. software 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

13、constantly upgrading the software. 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

14、application system. this system 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

15、 down briefly what we have developed 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： visu

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

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

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

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

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

21、 所以我們必須為我們的系統(tǒng)設(shè)計一個用于保護(hù)本系統(tǒng)的密碼登錄功能。如圖 4.1 所示為我們 超市管理管理系統(tǒng)的登錄界面。它所具有的功能是驗(yàn)證用戶的登錄信息，即用戶名和對應(yīng)的 用戶密碼，檢驗(yàn)預(yù)進(jìn)入本系統(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.te

22、xt = ) then msgbox 請輸入用戶名稱！, vbexclamation 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 cbou

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

24、button 控件用來選擇查詢條件；1 個組合框用來選擇商品編號，3 個文本框用來輸入 商品名稱，商品價格。 圖 3.5 查詢商品功能模塊界面 （2）各控件的說明如表 3.6 控件屬性屬性值 textbos名稱txtproductname textbos名稱txtlowprice textbos名稱txthighprice combobox名稱cboproductid 名稱optcode optionbutton caption商品價格 名稱optname optionbutton caption商品名稱 名稱optprice optionbutton caption商品價格 表 3.6 11

25、 （3）核心代碼 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 productid = integ

26、rated 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.additem 瓶 cbounit.additem 盒 cbounit.additem 袋 30 changeformpos frmmain, me en

27、d sub private sub txtproductinfo_change(index as 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

28、strquery = select * from products where productid = & 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 按商品價格查

29、詢 if optprice.value = true then if trim(txtlowprice.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 價

30、格必須為數(shù)字量！, vbexclamation txthighprice.setfocus exit sub end if strquery = select * from products where unitprice= & txtlowprice.text & _ and unitprice= & txthighprice.text end if end if adodc1.commandtype = 1 31 adodc1.recordsource = strquery adodc1.refresh exit sub errhandler: msgbox 錯誤號: & err.numb

31、er & 錯誤信息： & err.description, vbexclamatio end sub 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 frm

32、main, frmproductquery end sub private sub o_click() 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

33、() dim sql as string dim rs as adodb.recordset dim 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 32 if trim(txtproductid.text = ) then msgbox 請輸入商品編號！, vbexclamati

34、on txtproductid.setfocus else if trim(txtproductqty = ) 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.set

35、focus txtproductid.text = exit sub else 取出對應(yīng)商品編號的商品名稱 strproductname = rs!productname 取出對應(yīng)商品編號的商品價格 strproductprice = rs!unitprice rs.close end if end if 將當(dāng)前購買的商品信息放大顯示 lngidspace = 8 - len(txtproductid.text) lngnamespace = 15 - 2 * len(strproductname) lngpricespace = 9 - len(strproductprice) lblpro

36、ductinfo.caption = txtproductid & space(2 * lngidspace) & 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

37、 dim intcount as integer dim intproductid as integer dim 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 + curproductp

38、rice * intproductqty next intcount 33 for intcount = 1 to 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()

39、exesql (sql) next intcount txtsum.text = cursum txtcash.setfocus 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.capti

40、on = rs!machineid lbluserid.caption = frmluserid 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) =

41、 1600 .colwidth(4) = 1600 .colwidth(5) = 1600 .rows = 1 end with end sub private sub msgsale_click() end sub private sub txtcash_change() dim curcash as currency 34 if txtcash.text = then exit sub curcash = txtcash.text txtchange.text = curcash - txtsum end sub private sub fillgrid(byval strproductn

42、ame as string, byval curunitprice as currency) with msgsale .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

43、sub cmdexit_click() unload me end sub private sub cmdquery_click() 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= &

44、dtpenddate.value & end if else strcmand = select users.username, 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 姓名不為空查詢查詢當(dāng)前員工的銷

45、售情況 if chktime.value = vbchecked then if datediff(d, dtpstartdate.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 , sale

46、s.salequantiy, sales.saledate & _ from products inner join sales 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 err

47、handler: msgbox 錯誤號: & err.number & 錯誤信息： & err.description 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 當(dāng)前數(shù)據(jù)庫中沒有信息！, vbexclamation else rs.movefirst do until rs.eof strusername = rs!username cbousername.additem strusername rs.movenext loop rs.close end if dtpstartda