VB課程設(shè)計(jì)-商品進(jìn)銷(xiāo)存管理系統(tǒng).doc

課程設(shè)計(jì)說(shuō)明書(shū) no 28商品進(jìn)銷(xiāo)存管理系統(tǒng)1.課程設(shè)計(jì)的目的本系統(tǒng)的主要目標(biāo)就是進(jìn)一步培養(yǎng)我們綜合應(yīng)用 visual basic 進(jìn)行程序設(shè)計(jì)的能力。通過(guò)完成一個(gè)小型的管理系統(tǒng),我們能達(dá)到具備設(shè)計(jì)功能較復(fù)雜的應(yīng)用程序的能力。學(xué)會(huì)利用計(jì)算機(jī)解決實(shí)際問(wèn)題的初步能力,具體掌握的基本能力有visual basic 各種語(yǔ)句的綜合使用能力、有關(guān)控件的使用能力、設(shè)計(jì)數(shù)據(jù)庫(kù)管理系統(tǒng)的綜合能力，為以后的實(shí)際應(yīng)用奠定基礎(chǔ)。本系統(tǒng)是商品進(jìn)銷(xiāo)存管理系統(tǒng)，它可以很好的支持銷(xiāo)售公司的事物處理，減輕事務(wù)處理人員的勞動(dòng)強(qiáng)度，提高工作效率。該系統(tǒng)可以實(shí)現(xiàn)銷(xiāo)售前臺(tái)管理，市場(chǎng)信息管理，庫(kù)存管理，商品管理，打印報(bào)表管理以及系統(tǒng)用戶(hù)及其權(quán)限的權(quán)利功能。本系統(tǒng)是采用visual basic6.0高級(jí)語(yǔ)言進(jìn)行程序編制，以access數(shù)據(jù)庫(kù)為程序數(shù)據(jù)庫(kù)。2.系統(tǒng)總體設(shè)計(jì)2.1設(shè)計(jì)思路本系統(tǒng)對(duì)企業(yè)中常見(jiàn)的采購(gòu)、庫(kù)存、銷(xiāo)售等企業(yè)活動(dòng)及相關(guān)供應(yīng)商和客戶(hù)等基本信息進(jìn)行管理。2.2設(shè)計(jì)方法1、前臺(tái)銷(xiāo)售管理。 在這個(gè)前臺(tái)銷(xiāo)售管理系統(tǒng)中，包括了商品瀏覽，商品查詢(xún)以及銷(xiāo)售報(bào)表這幾個(gè)模塊，商品瀏覽主要是對(duì)該商場(chǎng)內(nèi)的商品進(jìn)行瀏覽，如可以通過(guò)前臺(tái)管理的瀏覽窗體的按鈕對(duì)商品信息進(jìn)行瀏覽，商品查詢(xún)功能模塊主要是對(duì)該商場(chǎng)庫(kù)存中存在的商品進(jìn)行查詢(xún)，查看都有哪些商品以及具體的某類(lèi)商品的信息資料。銷(xiāo)售報(bào)表模塊主要是對(duì)前臺(tái)銷(xiāo)售的商品進(jìn)行日常統(tǒng)計(jì)，以便于商場(chǎng)的管理。2、商場(chǎng)信息管理。在商場(chǎng)信息管理系統(tǒng)中，主要是對(duì)商場(chǎng)的信息進(jìn)行編輯和修改等功能操作，如修改原來(lái)商場(chǎng)的名稱(chēng)，地址以及聯(lián)系電話(huà)，聯(lián)系人。3、庫(kù)存管理。在這個(gè)管理系統(tǒng)中主要包括商品入庫(kù)和商品出庫(kù)兩個(gè)功能模塊。商品入庫(kù)模塊即對(duì)系統(tǒng)中的庫(kù)存商品進(jìn)行管理，如添加新的入庫(kù)商品，修改原來(lái)庫(kù)存中的商品，甚至刪除庫(kù)存中的商品。商品退貨可以理解為商品出庫(kù)管理，該功能模塊與商品入庫(kù)功能模塊相似，可以對(duì)退貨的商品進(jìn)行管理。4、商品管理。在這個(gè)商品管理系統(tǒng)中，包括商品大類(lèi)管理，商品小類(lèi)管理，供應(yīng)商管理以及商品信息管理4個(gè)主要的管理功能模塊。商品大類(lèi)管理模塊對(duì)商品的大類(lèi)進(jìn)行管理，如對(duì)商品大類(lèi)進(jìn)行添加，刪除，和修改等操作。商品小類(lèi)管理同商品大類(lèi)管理相似，用于對(duì)商品的小類(lèi)進(jìn)行添加，刪除和修改操作。供應(yīng)商管理主要對(duì)提供給商場(chǎng)商品的貨物提供商信息進(jìn)行管理，商品信息管理對(duì)商場(chǎng)中的具體的商品信息進(jìn)行管理。5報(bào)表打印。在這個(gè)管理系統(tǒng)中，包括入庫(kù)報(bào)表和銷(xiāo)售報(bào)表兩個(gè)功能模塊。本管理系統(tǒng)用來(lái)實(shí)現(xiàn)對(duì)各種報(bào)表進(jìn)行統(tǒng)一集中的管理，該系統(tǒng)數(shù)據(jù)由其他幾個(gè)管理系統(tǒng)提供，不必手工輸入，從而提高了工作效率。6. 用戶(hù)管理。用戶(hù)管理功能模塊用于對(duì)系統(tǒng)中的用戶(hù)進(jìn)行管理，如添加新用戶(hù)，編輯用戶(hù)信息，設(shè)置用戶(hù)權(quán)限。7. 客戶(hù)管理。客戶(hù)管理功能模塊對(duì)該商場(chǎng)的客戶(hù)進(jìn)行統(tǒng)一管理。商品進(jìn)銷(xiāo)存管理系統(tǒng)前臺(tái)銷(xiāo)售管理商場(chǎng)信息管理 庫(kù)存管理 商品管理 報(bào)表管理 用戶(hù)管理 客戶(hù)管理圖1 系統(tǒng)功能圖2.3數(shù)據(jù)庫(kù)設(shè)計(jì)在一個(gè)商品進(jìn)銷(xiāo)存管理系統(tǒng)中，數(shù)據(jù)庫(kù)的地位是非常重要的，是一個(gè)系統(tǒng)正常運(yùn)行的基礎(chǔ)。本系統(tǒng)的數(shù)據(jù)庫(kù)是采用microsoft公司的access 2000設(shè)計(jì)的。在數(shù)據(jù)庫(kù)的設(shè)計(jì)過(guò)程中，首先是收集、分析需求；再?gòu)男枨蟪橄蟪鲆话愕膶?shí)體、關(guān)系和他們的屬性；再將這些實(shí)體、關(guān)系和屬性按照一定的規(guī)則轉(zhuǎn)化為二元表結(jié)構(gòu)。本系統(tǒng)中共有五個(gè)數(shù)據(jù)表：商品分類(lèi)表。用于給商品分類(lèi)，主要包括商品編號(hào)和名稱(chēng)。表1 商品分類(lèi)表字段名字段說(shuō)明數(shù)據(jù)類(lèi)型長(zhǎng)度(字節(jié))必填字段主鍵catcode分類(lèi)編號(hào)自動(dòng)編號(hào)長(zhǎng)整型yesyescategory分類(lèi)名稱(chēng)文本26yesno客戶(hù)信息表。記錄了客戶(hù)的基本資料，主要包括客戶(hù)編號(hào)，供應(yīng)商地址，客戶(hù)地址和電話(huà)號(hào)碼等。表2 客戶(hù)信息表字段名字段說(shuō)明數(shù)據(jù)類(lèi)型長(zhǎng)度(字節(jié))必填字段主鍵supcode客戶(hù)編號(hào)自動(dòng)編號(hào)長(zhǎng)整型yesyessupplier供應(yīng)商地址文本50yesnoaddress客戶(hù)地址文本50yesnotelno電話(huà)號(hào)碼文本50yesnocontact聯(lián)系方式備注yesno商品入庫(kù)表。主要記錄有關(guān)商品入庫(kù)的資料，包括入庫(kù)編號(hào)，商品編號(hào)，分類(lèi)編號(hào)，供應(yīng)商編號(hào)，描述信息，單價(jià)，數(shù)量，入庫(kù)日期，修改日期，用戶(hù)編號(hào)?？梢苑奖悴樵?xún)商場(chǎng)商品的入庫(kù)的有管信息。表3 商品入庫(kù)表字段名字段說(shuō)明數(shù)據(jù)類(lèi)型長(zhǎng)度（字節(jié)）必填字段主鍵delid入庫(kù)編號(hào)自動(dòng)編號(hào)長(zhǎng)整型yesyesrefno退貨單號(hào)文本50yesnosku商品編號(hào)文本50yesnocatcode分類(lèi)編號(hào)數(shù)字長(zhǎng)整型yesnosubcatcode子類(lèi)編號(hào)數(shù)字長(zhǎng)整型yesnosupcode供應(yīng)商編號(hào)數(shù)字長(zhǎng)整型yesnodescrip描述信息文本50yesnoprice單價(jià)貨幣標(biāo)準(zhǔn)yesnoqty數(shù)量數(shù)字長(zhǎng)整型yesnodateentry入庫(kù)日期日期/時(shí)間yesnodatepost修改日期日期/時(shí)間yesnousercode用戶(hù)編號(hào)數(shù)字長(zhǎng)整型yesno商品信息表。記錄商品的有關(guān)信息，包括商品編號(hào)，供應(yīng)商編號(hào)和名稱(chēng)，分類(lèi)編號(hào)和名稱(chēng)，子類(lèi)編號(hào)和名稱(chēng)，商品有關(guān)說(shuō)明，入庫(kù)數(shù)量，進(jìn)貨價(jià)和實(shí)際售出價(jià)，進(jìn)貨日期和售出日期等有關(guān)信息，可以方便查詢(xún)有關(guān)商品的各種信息，有利于更好的管理商品。表4 商品信息表字段名字段說(shuō)明數(shù)據(jù)類(lèi)型長(zhǎng)度(字節(jié))必填字段主鍵sku商品編號(hào)文本50yesyessupcode供應(yīng)商編號(hào)數(shù)字長(zhǎng)整型yesnosupplier供應(yīng)商名稱(chēng)文本50yesnocatcode分類(lèi)編號(hào)數(shù)字長(zhǎng)整型yesnocategory分類(lèi)名稱(chēng)文本50yesnosubcatcode子類(lèi)編號(hào)數(shù)字長(zhǎng)整型yesnosubcategory子類(lèi)名稱(chēng)文本50yesnodescrip商品說(shuō)明備注nonoprice建議價(jià)貨幣標(biāo)準(zhǔn)yesnostack入庫(kù)數(shù)量數(shù)字長(zhǎng)整型yesnopicture圖片字節(jié)數(shù)組ole對(duì)象yesnoimprice進(jìn)貨價(jià)貨幣貨幣yesnorealprice實(shí)際售出價(jià)貨幣貨幣yesnopicture1圖片字節(jié)數(shù)組ole對(duì)象yesnobarcode商品條碼文本50yesnoimdate進(jìn)貨日期日期/時(shí)間yesnooutdate售出日期日期/時(shí)間yesnogold含金量文本50yesnobillnum發(fā)票號(hào)碼文本50yesnocernum證書(shū)編號(hào)文本50yesnobuyer客戶(hù)名稱(chēng)文本50yesnoifsale是否已經(jīng)銷(xiāo)售數(shù)字長(zhǎng)整型yesnostock是否有庫(kù)存?zhèn)渥ono退貨信息表。反映了退貨所包含的相關(guān)信息，主要有返回編號(hào)，退貨單號(hào)，商品編號(hào)及描述，商品分類(lèi)編號(hào)，價(jià)格和數(shù)量等相關(guān)信息?？梢允构芾韱T清楚掌握返回的商品的信息。表5 退貨信息表字段名字段說(shuō)明數(shù)據(jù)類(lèi)型長(zhǎng)度(字節(jié))必填字段主鍵return返回編號(hào)自動(dòng)編號(hào)長(zhǎng)整型yesyesrefno退貨編號(hào)文本50yesnosku商品編號(hào)文本50yesnodescrip商品描述文本50yesnosupcode供應(yīng)商編號(hào)數(shù)字長(zhǎng)整型yesnocatcode分類(lèi)編號(hào)數(shù)字長(zhǎng)整型yesnosubcatcode子類(lèi)編號(hào)數(shù)字長(zhǎng)整型yesnoprice單價(jià)文本50yesnoqty數(shù)量數(shù)字長(zhǎng)整型yesnodateentry退貨日期日期/時(shí)間yesnodatepost修改日期日期/時(shí)間yesnousercode用戶(hù)編號(hào)數(shù)字長(zhǎng)整型nono4.應(yīng)用軟件的開(kāi)發(fā)與實(shí)習(xí)4.1.登錄模塊此模塊的功能是檢查管理員是否有進(jìn)入系統(tǒng)的權(quán)限。包括兩個(gè)command控件,兩個(gè)text控件和兩個(gè)lable控件。圖4.1登錄模塊界面4.2主頁(yè)面模塊此模塊是系統(tǒng)服務(wù)器端的主要控制界面，通過(guò)菜單的選擇，可以控制系統(tǒng)的所有功能。 主界面的設(shè)計(jì)步驟：1.設(shè)計(jì)主界面控件布局：在主界面的布局中使用了工具欄（toolbar）、狀態(tài)欄（statebar）、圖象列表（imagelist）等控件。2.圖象列表的設(shè)置：與工具欄連接，把圖片信息添加到工具欄。3.工具欄的設(shè)置： 給工具欄添加按鈕4.狀態(tài)欄的設(shè)置：顯示當(dāng)前日期、當(dāng)前時(shí)間。狀態(tài)欄的使用可以美化界面。5添加菜單：菜單的使用是為了更好的給用戶(hù)提供功能指引。圖4.2主頁(yè)面模塊界面為防止不法用戶(hù)的隨便進(jìn)入。在用戶(hù)名下拉列表中選擇你的姓名，在用戶(hù)密碼中輸入你的密碼，按“確定”按鈕，如果用戶(hù)名稱(chēng)和用戶(hù)密碼匹配，就可以進(jìn)入本系統(tǒng)了。圖4.3系統(tǒng)登錄窗口4.3前臺(tái)銷(xiāo)售模塊點(diǎn)擊“前臺(tái)銷(xiāo)售”，彈出一個(gè)”商品銷(xiāo)售管理菜單”，便可查詢(xún)賣(mài)出的商品的相應(yīng)信息。option explicitdim blnedit as booleandim filename as stringprivate sub cbocategory_click() dim strtemp strtemp = & cstr(cbocategory.text) & on error resume next rscategory.movefirst on error goto errornotonfile:rscategory.find category = & strtemp, 0, adsearchforwardif rscategory!category = cstr(cbocategory.text) then lblcatcode.caption = rscategory!catcode loadsubcat load subcategory end if on error goto 0 err.clear exit suberrornotonfile: doevents on error goto 0err.clearend sub圖4.4商品銷(xiāo)售管理窗口4.4商場(chǎng)信息模塊點(diǎn)擊商場(chǎng)信息就可以查詢(xún)商場(chǎng)的信息。option explicitprivate sub cmdcancel_click() cmdsave.enabled = false cmdcancel.enabled = false cmdedit.enabled = true frame2.enabled = false loadstoreend subprivate sub cmdedit_click() cmdedit.enabled = false frame2.enabled = true cmdsave.enabled = true cmdcancel.enabled = true txtname.setfocusend subprivate sub cmdexit_click() unload meend sub圖4.5商場(chǎng)信息窗口4.5庫(kù)存管理模塊點(diǎn)擊庫(kù)存管理就可以查詢(xún)商品入庫(kù)和商品退貨的所有信息。點(diǎn)擊主菜單“庫(kù)存管理”“商品入庫(kù)”，系統(tǒng)自動(dòng)彈出“商品入庫(kù)”列表。單擊“商品退貨”按鈕，彈出商品退貨詳細(xì)信息。option explicitdim blnadd as booleandim intsalcount as integerdim lngindex as longprivate sub cmdadd_click() blnadd = true blnstatus false cleartxt if listview3.listitems.count = 0 then txtref.setfocus else txtsku.setfocus end ifend sub圖4.6庫(kù)存管理子頁(yè)面4.6商品查詢(xún)模塊點(diǎn)擊商品查詢(xún)就可以查詢(xún)商品和供應(yīng)商的所有信息。option explicitdim blnedit as booleandim lngindex as longpublic sub loadcat() dim itm as listitem listview1.listitems.clear if not rscategory.recordcount = count then cmdokchange.enabled = true end ifend subprivate sub txtnewpass_validate(keepfocus as boolean) dim count as integer dim searchstr as string dim mystr as string count = len(txtnewpass.text) if txtnewpass = txtcurrentpass.text then sendkeys home+end keepfocus = true msgbox new password cant be the same as old, vbcritical + vbokonly, new password sendkeys home+end exit sub end if if count minimum_password_length then sendkeys home+end keepfocus = true msgbox your password must be at least 8 characters., vbapplicationmodal, new password sendkeys home+end exit sub end if dim midstr, midpassstr, newmidstr as string midstr = txtcurrentpass.text midpassstr = midstr newmidstr = mid(midstr, 3, 4) searchstr = txtnewpass.text mystr = instr(1, searchstr, newmidstr, vbtextcompare) if mystr 0 then keepfocus = true msgbox the password can not contain similiar words from old password., vbcritical, new password. sendkeys home+end exit sub end ifend subprivate sub txtcurrentpass_validate(keepfocus as boolean) if txtcurrentpass userpassword then keepfocus = true msgbox your currrent password is invalid, vbcritical + vbokonly, current password sendkeys home+end txtcurrentpass.setfocus end ifend subprivate sub txtfullname_keypress(keyascii as integer) udp_rtrn keyasciiend subprivate sub txtnewpass_keypress(keyascii as integer) udp_rtrn keyasciiend subprivate sub txtcurrentpass_keypress(keyascii as integer) udp_rtrn keyasciiend subprivate sub cmdok_click() dim blnfoundpass as boolean dim task as string if to many tries we want to get rid of this user. if len(trim(txtuserid.text) = 0 then msgbox 用戶(hù)名不存在, vbcritical + vbokonly, invalid user id exit sub end if if len(trim(txtpassword.text) = 0 then msgbox 密碼不正確, vbcritical + vbokonly, login sendkeys home+end txtpassword.setfocus exit sub end if tries = tries + 1 if tries = num_tries then nope, otta hear, you have gotta go. msgbox 你輸入三次密碼錯(cuò)誤, 系統(tǒng)退出!., vbapplicationmodal, point of sale system end end if strsearch = cstr(txtuserid.text) blnfoundpass = finduser if blnfoundpass = true then picture2.visible = false call passcheck userid = txtuserid.text statusbar1.panels(1).text = 當(dāng)前用戶(hù)為： & txtfullname.text end ifend subprivate sub cmdokchange_click() dim blnfoundpass as booleanon error resume next strsearch = cstr(txtuser.text) blnfoundpass = finduser if blnfoundpass = false then picture2.visible = false call passcheck userid = txtuserid.text statusbar1.panels(1).text = 當(dāng)前用戶(hù)為： & txtfullname.text else msgbox 用戶(hù)名不存在! txtuser.setfocus exit sub end if if txtcurrentpass.text text1.text then msgbox 原始