畢業(yè)設(shè)計(jì)（論文）VB超市銷售管理系統(tǒng)

1、南京*大學(xué)畢業(yè)設(shè)計(jì)(論文)說(shuō)明書(shū)作者 * 學(xué)號(hào) * 系部 計(jì)算機(jī)科學(xué)與技術(shù)系 專業(yè) 計(jì)算機(jī)與信息管理 題目 超市銷售系統(tǒng) 指導(dǎo)教師 評(píng)閱教師 完成時(shí)間： 2010 年 05 月 20 日 畢業(yè)設(shè)計(jì)(論文)中文摘要題目：超市銷售系統(tǒng) 摘要：隨著信息技術(shù)的發(fā)展及管理信息系統(tǒng)（management information system ,簡(jiǎn)稱mis）的日益普及，計(jì)算機(jī)在企業(yè)管理中的作用越來(lái)越不容忽視。本課題就是針對(duì)超市的采購(gòu)與銷售兩方面的管理，開(kāi)發(fā)一個(gè)基于c/s構(gòu)架的管理信息系統(tǒng)，我采用了 vb做開(kāi)發(fā)工具，后臺(tái)采用access數(shù)據(jù)庫(kù)。其中系統(tǒng)涉及系統(tǒng)管理、基礎(chǔ)數(shù)據(jù)、單據(jù)錄入三大模塊。本系統(tǒng)能夠完成商

2、品管理、進(jìn)貨管理、供應(yīng)商管理、用戶管理等功能，使用本組開(kāi)發(fā)出來(lái)的超市管理系統(tǒng)，簡(jiǎn)單易懂，解決了中小型超市中進(jìn)銷貨以及購(gòu)買(mǎi)、庫(kù)存等眾多繁瑣問(wèn)題，以及從而導(dǎo)致的耗費(fèi)人員過(guò)多，超市經(jīng)營(yíng)紊亂等眾多問(wèn)題。在系統(tǒng)開(kāi)發(fā)的過(guò)程中，我主要負(fù)責(zé)登陸界面設(shè)計(jì)、所有界面美化及總體規(guī)劃。關(guān)鍵詞：mis c/s vb acess 銷售畢業(yè)設(shè)計(jì)(論文)外文摘要title: the sale system for supermarket abstract: with the development of information technology, the management information system (mi

3、s) becomes more popular, the computer is important in the business management.the topic is to be aimed at two aspects, one is purchase, and the other is sale. to design an mis this is on the base of c/s (client/server), in the process of designing. the system, we use visual basic as a tool, the back

4、stage uses access database .about the system, there are three modules: the management of the system, the foundation data and the documentary evidence inputs.the system can achieve some functions. such as the management of the goods, the management of the stock, the management of users and so on .use

5、 the system, youll operate it quickly. it can settle many kinds of problems. for example, it can settle the problems of sale, sale, stock and the waste of people resource .in the process of the subject, im responsible for the designing of login, and beautify all the interfaces.keywords: mis c/s vb a

6、ccess sale目 錄目 錄i1 前言12 超市銷售系統(tǒng)的功能13 可行性分析13.1 技術(shù)可行性13.2 經(jīng)濟(jì)可行性23.3 操作可行性24 登陸界面的設(shè)計(jì)24.1 流程圖34.2 數(shù)據(jù)庫(kù)連接34.3 界面設(shè)計(jì)45 access數(shù)據(jù)庫(kù)設(shè)計(jì)65.1 dealing表65.2 factory表65.3 merchinfo表75.4 provide表75.5 sale表75.6 user表75.7 stock表76 超市銷售系統(tǒng)各個(gè)功能模塊簡(jiǎn)介87 業(yè)務(wù)流程118 軟件的測(cè)試與運(yùn)行118.1 軟件測(cè)試118.2 測(cè)試小結(jié)12結(jié) 論12致 謝14參考文獻(xiàn)14附 錄 a151 前言超市已經(jīng)成為人們

7、日常生活中不可或缺的一部分，越來(lái)越多的人選擇超市購(gòu)物成為不可逆轉(zhuǎn)的趨勢(shì)。所以，隨著這種趨勢(shì)的前進(jìn)，超市的管理變的越來(lái)越復(fù)雜，這時(shí)候，就要借助計(jì)算機(jī)軟件來(lái)解決超市日常營(yíng)業(yè)中產(chǎn)生的矛盾，例如庫(kù)存的不足，普通員工查詢超市的商品信息以及新的商品的上市宣傳等，總之，利用超市管理信息系統(tǒng)可以節(jié)省大量的人力、物力，為超市節(jié)省了開(kāi)支，一定程度上增加了超市的收入，這是每一個(gè)營(yíng)業(yè)性的企業(yè)都想達(dá)到的目標(biāo)，針對(duì)這種情況，各種各樣的適合超市管理的軟件系統(tǒng)出現(xiàn)了， 我們?cè)趯?duì)市場(chǎng)作過(guò)調(diào)研以后，開(kāi)發(fā)了本系統(tǒng)，適用于中小型的超市，模擬實(shí)踐證明，本系統(tǒng)可以達(dá)到預(yù)期的目的。為超市的高層管理者提供了準(zhǔn)備的第一手資料。2 超市銷售系統(tǒng)

8、的功能本系統(tǒng)可以做到對(duì)于超市商品銷售的情況做出及時(shí)準(zhǔn)確的統(tǒng)計(jì)，可以快速查找到某種商品處于何種狀態(tài)，是滯銷還是庫(kù)存不足，并針對(duì)商品所處的狀態(tài)，超市的高層管理人員及時(shí)的做出正確的決策，獲得最大的贏利。在進(jìn)貨管理的模塊中，可以清楚的看到每種商品進(jìn)貨的時(shí)間，數(shù)量等情況，根據(jù)進(jìn)貨的情況?？梢怨烙?jì)出本商品是贏利還是虧損，在供應(yīng)商的模塊中，管理人員可以看到供應(yīng)商的信息，例如商品的調(diào)價(jià)等情況，以便于及時(shí)的對(duì)本超市的某種商品的價(jià)格做出調(diào)整，超市內(nèi)的員工可以申請(qǐng)自己的賬號(hào)登陸系統(tǒng)，查看關(guān)于超市商品和自己工資的信息，本系統(tǒng)運(yùn)行起來(lái)很簡(jiǎn)單，具有典型的windows操作界面，一目了然，不用經(jīng)過(guò)特定的培訓(xùn)等，為公司節(jié)省了

9、開(kāi)支，達(dá)到設(shè)計(jì)本系統(tǒng)的最終目的，即為超市創(chuàng)造最大的利潤(rùn)。3 可行性分析可行性研究可行性研究的目的使用最小的代價(jià)在盡可能短的時(shí)間內(nèi)確定問(wèn)題是否能夠解決，確定這個(gè)軟件是否值得去開(kāi)發(fā)。以下從技術(shù)可行性，經(jīng)濟(jì)可行性，操作可行性來(lái)分析。3.1 技術(shù)可行性此數(shù)據(jù)庫(kù)系統(tǒng)屬于一般的小型數(shù)據(jù)庫(kù)管理系統(tǒng)，并沒(méi)有特殊的技術(shù)要求。本系統(tǒng)采用access數(shù)據(jù)庫(kù)，雖然沒(méi)有sql數(shù)據(jù)庫(kù)的功能強(qiáng)大，但是操作起來(lái)非常簡(jiǎn)單，在系統(tǒng)設(shè)計(jì)過(guò)程中由于數(shù)據(jù)庫(kù)設(shè)計(jì)不當(dāng)引發(fā)的問(wèn)題比較好解決，很容易查找到是哪一部分出現(xiàn)了問(wèn)題。3.2 經(jīng)濟(jì)可行性從經(jīng)濟(jì)上分析，完成此系統(tǒng)所需要的開(kāi)發(fā)成本是十分少的，一旦軟件設(shè)計(jì)完成，就能給超市的銷售和統(tǒng)計(jì)管理帶來(lái)

10、非常大的便利，其經(jīng)濟(jì)效益遠(yuǎn)遠(yuǎn)大于開(kāi)發(fā)成本，因此，經(jīng)濟(jì)方面也是可行的。3.3 操作可行性本系統(tǒng)的界面是典型的windows應(yīng)用程序的界面，簡(jiǎn)單明了。只要熟悉windows，即使是初次使用也很容易上手，因此，操作方面也是可行的。4 登陸界面的設(shè)計(jì)在系統(tǒng)的設(shè)計(jì)過(guò)程中，我負(fù)責(zé)登陸界面的設(shè)計(jì)。這個(gè)模塊在整個(gè)系統(tǒng)中起著至關(guān)重要的作用。選擇什么樣的權(quán)限進(jìn)入系統(tǒng)就會(huì)對(duì)系統(tǒng)進(jìn)行不同的操作，系統(tǒng)管理員一般設(shè)一個(gè)，他對(duì)系統(tǒng)可以進(jìn)行任意的操作。在核對(duì)用戶名和密碼信息時(shí)，系統(tǒng)會(huì)彈出不同的提示頁(yè)面，例如當(dāng)密碼和用戶名不一致時(shí)，會(huì)提示錯(cuò)誤，而兩者相一致時(shí)，則可以正常登陸到系統(tǒng)里。下面，詳細(xì)介紹一下登陸界面的設(shè)計(jì)。4.1 流

11、程圖用戶登錄驗(yàn)證用戶稱是否存在驗(yàn)證密碼是否正確登錄系統(tǒng)登錄是否超過(guò)三次退出系統(tǒng)提示：用戶名不存在提示：密碼錯(cuò)誤提示：登錄超過(guò)限制次數(shù)存在不存在正確錯(cuò)誤是否圖 1 流程圖4.2 數(shù)據(jù)庫(kù)連接連接數(shù)據(jù)庫(kù)，這里選擇ado，下面簡(jiǎn)單介紹一下這種技術(shù)。ado是activex data object 的縮寫(xiě)，是microsoft數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)的新接口，是microsoft新的訪問(wèn)技術(shù)，是建立在ole db之上的高層數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)。使用ado操作數(shù)據(jù)庫(kù)的一般過(guò)程為：打開(kāi)數(shù)據(jù)庫(kù)。首先需要?jiǎng)?chuàng)建數(shù)據(jù)庫(kù)連接對(duì)象(connection),按后調(diào)用該對(duì)象的open方法即可打開(kāi)數(shù)據(jù)庫(kù)。操作數(shù)據(jù)庫(kù)對(duì)象，在數(shù)據(jù)庫(kù)打開(kāi)之后，

12、通過(guò)command 對(duì)象執(zhí)行sql命令，或者創(chuàng)建記錄集（recordset）對(duì)象，使用該對(duì)象的各種方法就可以進(jìn)行數(shù)據(jù)庫(kù)數(shù)據(jù)的查詢、定位、以及增加或修改。關(guān)閉數(shù)據(jù)庫(kù)。使用上面創(chuàng)建的數(shù)據(jù)庫(kù)連接對(duì)象的close方法就可以完成數(shù)據(jù)庫(kù)關(guān)閉的操作。本系統(tǒng)也是采用這種方法，從創(chuàng)建好的數(shù)據(jù)庫(kù)里取出數(shù)據(jù)，進(jìn)行登陸系統(tǒng)。4.3 界面設(shè)計(jì)在mysupmaket.exe工程中創(chuàng)建一個(gè)窗體為login.frm，在窗體中添加兩和標(biāo)簽控件，其caption屬性為用戶名和密碼，添加一個(gè)下拉列表框控件，用于選擇所要登陸的用戶名。添加一個(gè)文本框，用于輸入密碼，添加兩個(gè)命令按鈕，其caption屬性為確定和取消，由于本系統(tǒng)中使用的

13、控件較多，為了辨別起見(jiàn)，將其名稱相應(yīng)改為:cbouser, txtpw,cmdok_click,cmdquit_click.另外，窗體的背景選擇也很重要，要符合設(shè)計(jì)的風(fēng)格。 最后，來(lái)看一下登陸模塊在系統(tǒng)中的效果圖，如圖2所示。 圖 2 登陸界面輸入正確的密碼和用戶名后，可以成功登陸系統(tǒng)，進(jìn)入菜單的主頁(yè)面，系統(tǒng)由文件，視圖，幫助三個(gè)菜單項(xiàng)組成，如圖3所示。圖 3 主頁(yè)面 如果用戶名不存在，不能自動(dòng)登陸到系統(tǒng)，出現(xiàn)以下提示：如圖4所示。圖 4 出錯(cuò)對(duì)話框如果密碼不正確，出現(xiàn)以下提示：如圖5所示。圖 5 出錯(cuò)對(duì)話框出現(xiàn)這樣的提示后，登陸者就要核對(duì)一下自己的用戶名和密碼是否正確。然后重新登陸。在用戶管

14、理中可以添加用戶：用戶信息包括用戶名，密碼兩個(gè)字段。權(quán)限選擇有管理員和普通用戶。若選擇用戶的權(quán)限為管理員，則可以對(duì)本系統(tǒng)進(jìn)行一切操作，包括查詢信息，添加供應(yīng)商信息，刪除某商品的信息等。若選擇權(quán)限為普通用戶，則只能查看商品的信息，不能進(jìn)行添加，刪除等操作，包括對(duì)用戶的管理也一樣，只能以管理員的權(quán)限進(jìn)入系統(tǒng)中時(shí)，才能添加用戶，或者更改某用戶的信息，刪除某一個(gè)用戶等。在以普通用戶的權(quán)限進(jìn)入本系統(tǒng)的時(shí)候，若要添加、更改、刪除用戶或商品信息時(shí)，會(huì)出現(xiàn)下面的提示：如圖6所示。圖 6 提示界面登陸代碼見(jiàn)附錄a。5 access數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)采用access,簡(jiǎn)單易懂，主要的表及字段如下所示：5.1 dea

15、ling表：域段名稱描述類型是否強(qiáng)制缺省值是否可見(jiàn)是否indexdealingididint主鍵不可見(jiàn)建立索引dealingdate日期datedealingprice價(jià)格floatusername名稱stringmembercard編碼string5.2 factory表：域段名稱描述類型是否強(qiáng)制缺省值是否可見(jiàn)是否indexfactoryididint主鍵不可見(jiàn)建立索引factoryname名稱stringfactoryaddress地址stringfactoryphone電話string5.3 merchinfo表：域段名稱描述類型是否強(qiáng)制unset value是否可見(jiàn)是否indexmer

16、chididint主鍵不可見(jiàn)建立索引merchname名稱stringmerchprice價(jià)格floatmerchnum數(shù)量intbarcode條形碼string5.4 provide表：域段名稱描述類型是否強(qiáng)制unset value是否可見(jiàn)是否indexprovideididint主鍵不可見(jiàn)建立索引providename名稱stringprovideaddress地址stringprovidephone電話stringbarcode條形碼string5.5 sale表：域段名稱描述類型是否強(qiáng)制unset value是否可見(jiàn)是否indexsaleididint主鍵不可見(jiàn)建立索引merchid外

17、鍵idint是建立外鍵saledate日期datesalenum數(shù)量intsaleprice價(jià)格float5.6 user表：域段名稱描述類型是否強(qiáng)制unset value是否可見(jiàn)是否indexuserididint主鍵不可見(jiàn)建立索引username用戶名稱stringuserpw用戶密碼stringuserstyle用戶類型int5.7 stock表：域段名稱描述類型是否強(qiáng)制unset value是否可見(jiàn)是否indexstockididint主鍵不可見(jiàn)建立索引merchnum數(shù)量intmerchprice價(jià)格floatplandate計(jì)劃日期datestockdate存貨日期date6 超市

18、銷售系統(tǒng)各個(gè)功能模塊的美化此外，我還負(fù)責(zé)整體界面的美化工作。在系統(tǒng)其他模塊都創(chuàng)建好的情況下，開(kāi)始進(jìn)行各模塊的聯(lián)接，最終生成可執(zhí)行的文件。單個(gè)模塊在獨(dú)自運(yùn)行時(shí)界面是否美觀不容易看出來(lái)，運(yùn)行整個(gè)系統(tǒng)的時(shí)候，哪個(gè)模塊的界面設(shè)計(jì)的不協(xié)調(diào)（包括背景圖片和顏色的選擇上，控件擺放的整齊度，控件大小的設(shè)置等）就很容易的看出來(lái)，本著系統(tǒng)的界面要做到簡(jiǎn)潔大方、賞心悅目的原則，在背景的選擇和版面的布置上面，我都做了慎重的考慮，和其他的同學(xué)商量，不斷的修改和完善，最終達(dá)到了下面的效果。下面就是各個(gè)界面的效果圖。商品管理的界面如圖7所示。 圖 7 商品管理界面進(jìn)貨管理的界面如圖8 所示。圖 8 進(jìn)貨管理供貨商管理的界面

19、如圖9所示。 圖 9 供應(yīng)商界面用戶管理管理的界面如圖10所示。圖 10 用戶管理界面幫助菜單里則是關(guān)于本系統(tǒng)的一些簡(jiǎn)單介紹和作者的信息。如圖11所示。圖 11 提示界面7 業(yè)務(wù)流程業(yè)務(wù)流程圖是分析業(yè)務(wù)功能流程的重要工具。它是一種描述系統(tǒng)內(nèi)各單位、人員之間業(yè)務(wù)關(guān)系、作業(yè)順序和管理信息流向的圖表。管理人員商品管理進(jìn)貨管理供應(yīng)商管理用戶管理添加商品刪除商品修改商品新的商品列表添加供應(yīng)商刪除供應(yīng)商供應(yīng)商列表添加用戶修改用戶刪除用戶新的用戶查看信息圖 12 業(yè)務(wù)流程圖8 軟件的測(cè)試與運(yùn)行8.1 軟件測(cè)試這個(gè)階段是用來(lái)測(cè)試程序，找出系統(tǒng)bug并修改錯(cuò)誤的過(guò)程。雖然在每個(gè)模塊開(kāi)發(fā)的過(guò)程中都進(jìn)行過(guò)階段性的測(cè)

20、試，但是現(xiàn)場(chǎng)整體測(cè)試更接近將來(lái)系統(tǒng)投入使用的情況。在系統(tǒng)能夠正常運(yùn)行的情況下，打開(kāi)商品管理模塊，點(diǎn)擊添加按鈕，根據(jù)提示的信息，添加一件商品，例如條形碼為000001，名稱為上好佳奶糖。最后保存即可。在商品查詢的模塊中，輸入商品的條形碼000001，點(diǎn)擊查詢商品的信息，便可以看到商品的具體信息，包括名稱、價(jià)格、狀態(tài)等。數(shù)據(jù)庫(kù)中商品表中隨之也增加了一條記錄，修改，刪除的測(cè)試和其一樣。在用戶管理模塊的測(cè)試中，要注意用戶權(quán)限的問(wèn)題，如果增加用戶權(quán)限為管理員，則可以對(duì)系統(tǒng)進(jìn)行所有的操作，如果權(quán)限選擇普通用戶，則有些功能是不可以實(shí)現(xiàn)的。經(jīng)過(guò)反復(fù)的測(cè)試，確保系統(tǒng)的正確運(yùn)行。減少后期使用過(guò)程中出現(xiàn)的問(wèn)題。8.

21、2 測(cè)試小結(jié)在測(cè)試過(guò)程中，確實(shí)可以發(fā)現(xiàn)了自己的一些錯(cuò)誤。一部分因?yàn)殚_(kāi)發(fā)環(huán)境與實(shí)際使用環(huán)境不同產(chǎn)生的，比如說(shuō)圖片的效果不對(duì)，或者控件的位置出現(xiàn)偏移等等；還有數(shù)據(jù)庫(kù)的連接問(wèn)題，在不同的計(jì)算機(jī)上因?yàn)橛?jì)算機(jī)名的不同導(dǎo)致無(wú)法連接數(shù)據(jù)庫(kù)，這些問(wèn)題通過(guò)現(xiàn)場(chǎng)的調(diào)試基本得到了解決。另一部分錯(cuò)誤卻出乎意料，比如說(shuō)有些控件數(shù)組的初始化問(wèn)題。因?yàn)橐篮芏嗲闆r下程序的錯(cuò)誤是連鎖性的，一個(gè)語(yǔ)句錯(cuò)誤，其后相關(guān)語(yǔ)句也跟著出錯(cuò)，所以找出錯(cuò)誤源是很重要，在程序中設(shè)置斷點(diǎn)或在調(diào)試模式下執(zhí)行程序，可以快速發(fā)現(xiàn)和糾正錯(cuò)誤，把無(wú)法初始化的控件元素單獨(dú)初始化后，問(wèn)題可以得到解決。經(jīng)過(guò)測(cè)試的過(guò)程，認(rèn)識(shí)到自己在程序的編寫(xiě)和思路方面都存在一定

22、的問(wèn)題，相信經(jīng)過(guò)不斷的學(xué)習(xí)和經(jīng)驗(yàn)積累，可以實(shí)現(xiàn)較大的改觀。結(jié) 論 通過(guò)本系統(tǒng)的開(kāi)發(fā)，我對(duì)軟件開(kāi)發(fā)過(guò)程有了更清晰的了解，首先是問(wèn)題定義、需求分析，然后是功能設(shè)計(jì)、詳細(xì)設(shè)計(jì)等，并對(duì)軟件測(cè)試的方法、手段有了較深的理解，同時(shí)對(duì)制造業(yè)的流程有了一個(gè)系統(tǒng)的認(rèn)識(shí)。在開(kāi)發(fā)過(guò)程還認(rèn)真學(xué)習(xí)了與系統(tǒng)相關(guān)的知識(shí)，極大地拓寬了我的知識(shí)面,我感到收獲不小。在系統(tǒng)的開(kāi)發(fā)初期，必須要熟悉企業(yè)的管理流程，初步了解管理信息系統(tǒng)的相關(guān)知識(shí)，這樣才能進(jìn)入到設(shè)計(jì)的過(guò)程中去。從開(kāi)始熟悉這些知識(shí)到對(duì)整體設(shè)計(jì)有了解，再?gòu)母乓O(shè)計(jì)、詳細(xì)設(shè)計(jì)到開(kāi)始編碼，以及最后的測(cè)試，整個(gè)過(guò)程感覺(jué)很充實(shí)，雖然遇到了不少困難，但當(dāng)我通過(guò)自己查資料、或是向指導(dǎo)老師

23、請(qǐng)教以及向同學(xué)請(qǐng)教，最后都可以得到及時(shí)的解決。 經(jīng)過(guò)這幾個(gè)月的畢業(yè)設(shè)計(jì)實(shí)習(xí)，確實(shí)學(xué)到了不少的東西，同時(shí)也深感自己知識(shí)的欠缺。雖然即將畢業(yè)，但在以后的學(xué)習(xí)工作中，一定要繼續(xù)堅(jiān)持不斷地學(xué)習(xí)新的專業(yè)知識(shí)及相關(guān)的非專業(yè)知識(shí)，只有這樣才能緊跟時(shí)代的潮流。致 謝感謝周老師在系統(tǒng)的開(kāi)發(fā)過(guò)程中以及論文的修改過(guò)程中給予的幫助和建議，指導(dǎo)老師每一次幫我修改論文都很仔細(xì)，一目了然，這讓我節(jié)省了不少的時(shí)間，在系統(tǒng)的開(kāi)發(fā)過(guò)程中，給了不少好的建議，這樣才使得系統(tǒng)和論文能夠及時(shí)的開(kāi)發(fā)完成，另外，同組的同學(xué)同樣給了我不少幫助，這里一同表示感謝。參考文獻(xiàn)1 龔沛曾, 陸慰民,楊志強(qiáng).visual basic 程序設(shè)計(jì)簡(jiǎn)明教程.

24、第2版.北京:高等教育出版社, 2003 2 張宏林,孔艷,王哲. visual basic 6.0開(kāi)發(fā)數(shù)據(jù)庫(kù). 北京：人民郵電出版社, 2000 3 evangelos petroutsos,kevin hough.visual basic 6.0高級(jí)開(kāi)發(fā)指南.北京：電子工業(yè)出版社出版, 1999 4 李暢,王學(xué)卿,鄭廣成,朱翠苗,徐穎峻. visual basic 程序設(shè)計(jì).北京：中國(guó)鐵道出版社, 2005 5 常晉義，縐永林，周蓓.管理信息系統(tǒng). 第2版.北京: 中國(guó)電力出版社, 2005 6 尚俊杰. 網(wǎng)絡(luò)程序設(shè)計(jì)asp. 第2版. 北京： 清華大學(xué)出版社, 2005 7 張?jiān)迄i.v

25、b 6.0程序設(shè)計(jì) 英文改編版. 北京： 電子工業(yè)出版社, 2006 8 仲維俊. v b 6.0 完全自學(xué)手冊(cè). 北京： 機(jī)械工業(yè)出版社, 20079 林卓然. v b 6.0 程序設(shè)計(jì)教程. 北京:電子工業(yè)出版社, 2006 10 曹青, 邱李華, 郭志強(qiáng). v b 6.0程序設(shè)計(jì)教程. 北京： 機(jī)械工業(yè)出版社, 2006附 錄 a登陸代碼：private sub cmdok_click() if cbouser.text = then msgbox 請(qǐng)?zhí)顚?xiě)用戶名。, vbinformation cbouser.setfocus cbouser.setf exit sub end if i

26、f txtpw.text = then msgbox 請(qǐng)?zhí)顚?xiě)密碼。, vbinformation txtpw.setfocus exit sub end ifon error goto aaaa connectsysmdb cnmain, app.path & data.mdb dim rs as new adodb.recordset, strmd5 as string strmd5 = getmd5(txtpw.text) rs.open select * from user2;, cnmain, 1, 1 if rs.eof then msgbox 找不到任何用戶！, vbcritica

27、l cnmain.close else do until rs.eof if strcomp(rs(username), cbouser.text, 1) = 0 and strcomp(rs(userpw), strmd5, 1) = 0 then if rs(userstyle) = 1 then userstyleflags = 1 else userstyleflags = 0 end if curusername = rs(username) curuserstyle = clng(rs(userstyle) cbouser.additem curusername, 0 saveuserlist frmmain.icon = me.icon unload me frmmain.show exit sub end if rs.movenext loop end if msgbox