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

課程設(shè)計(jì)說明書 no 28商品進(jìn)銷存管理系統(tǒng)1.課程設(shè)計(jì)的目的本系統(tǒng)的主要目標(biāo)就是進(jìn)一步培養(yǎng)我們綜合應(yīng)用 visual basic 進(jìn)行程序設(shè)計(jì)的能力。通過完成一個(gè)小型的管理系統(tǒng),我們能達(dá)到具備設(shè)計(jì)功能較復(fù)雜的應(yīng)用程序的能力。學(xué)會(huì)利用計(jì)算機(jī)解決實(shí)際問題的初步能力,具體掌握的基本能力有visual basic 各種語句的綜合使用能力、有關(guān)控件的使用能力、設(shè)計(jì)數(shù)據(jù)庫管理系統(tǒng)的綜合能力，為以后的實(shí)際應(yīng)用奠定基礎(chǔ)。本系統(tǒng)是商品進(jìn)銷存管理系統(tǒng)，它可以很好的支持銷售公司的事物處理，減輕事務(wù)處理人員的勞動(dòng)強(qiáng)度，提高工作效率。該系統(tǒng)可以實(shí)現(xiàn)銷售前臺(tái)管理，市場(chǎng)信息管理，庫存管理，商品管理，打印報(bào)表管理以及系統(tǒng)用戶及其權(quán)限的權(quán)利功能。本系統(tǒng)是采用visual basic6.0高級(jí)語言進(jìn)行程序編制，以access數(shù)據(jù)庫為程序數(shù)據(jù)庫。2.系統(tǒng)總體設(shè)計(jì)2.1設(shè)計(jì)思路本系統(tǒng)對(duì)企業(yè)中常見的采購、庫存、銷售等企業(yè)活動(dòng)及相關(guān)供應(yīng)商和客戶等基本信息進(jìn)行管理。2.2設(shè)計(jì)方法1、前臺(tái)銷售管理。 在這個(gè)前臺(tái)銷售管理系統(tǒng)中，包括了商品瀏覽，商品查詢以及銷售報(bào)表這幾個(gè)模塊，商品瀏覽主要是對(duì)該商場(chǎng)內(nèi)的商品進(jìn)行瀏覽，如可以通過前臺(tái)管理的瀏覽窗體的按鈕對(duì)商品信息進(jìn)行瀏覽，商品查詢功能模塊主要是對(duì)該商場(chǎng)庫存中存在的商品進(jìn)行查詢，查看都有哪些商品以及具體的某類商品的信息資料。銷售報(bào)表模塊主要是對(duì)前臺(tái)銷售的商品進(jìn)行日常統(tǒng)計(jì)，以便于商場(chǎng)的管理。2、商場(chǎng)信息管理。在商場(chǎng)信息管理系統(tǒng)中，主要是對(duì)商場(chǎng)的信息進(jìn)行編輯和修改等功能操作，如修改原來商場(chǎng)的名稱，地址以及聯(lián)系電話，聯(lián)系人。3、庫存管理。在這個(gè)管理系統(tǒng)中主要包括商品入庫和商品出庫兩個(gè)功能模塊。商品入庫模塊即對(duì)系統(tǒng)中的庫存商品進(jìn)行管理，如添加新的入庫商品，修改原來庫存中的商品，甚至刪除庫存中的商品。商品退貨可以理解為商品出庫管理，該功能模塊與商品入庫功能模塊相似，可以對(duì)退貨的商品進(jìn)行管理。4、商品管理。在這個(gè)商品管理系統(tǒng)中，包括商品大類管理，商品小類管理，供應(yīng)商管理以及商品信息管理4個(gè)主要的管理功能模塊。商品大類管理模塊對(duì)商品的大類進(jìn)行管理，如對(duì)商品大類進(jìn)行添加，刪除，和修改等操作。商品小類管理同商品大類管理相似，用于對(duì)商品的小類進(jìn)行添加，刪除和修改操作。供應(yīng)商管理主要對(duì)提供給商場(chǎng)商品的貨物提供商信息進(jìn)行管理，商品信息管理對(duì)商場(chǎng)中的具體的商品信息進(jìn)行管理。5報(bào)表打印。在這個(gè)管理系統(tǒng)中，包括入庫報(bào)表和銷售報(bào)表兩個(gè)功能模塊。本管理系統(tǒng)用來實(shí)現(xiàn)對(duì)各種報(bào)表進(jìn)行統(tǒng)一集中的管理，該系統(tǒng)數(shù)據(jù)由其他幾個(gè)管理系統(tǒng)提供，不必手工輸入，從而提高了工作效率。6. 用戶管理。用戶管理功能模塊用于對(duì)系統(tǒng)中的用戶進(jìn)行管理，如添加新用戶，編輯用戶信息，設(shè)置用戶權(quán)限。7. 客戶管理?？蛻艄芾砉δ苣K對(duì)該商場(chǎng)的客戶進(jìn)行統(tǒng)一管理。商品進(jìn)銷存管理系統(tǒng)前臺(tái)銷售管理商場(chǎng)信息管理 庫存管理 商品管理 報(bào)表管理 用戶管理 客戶管理圖1 系統(tǒng)功能圖2.3數(shù)據(jù)庫設(shè)計(jì)在一個(gè)商品進(jìn)銷存管理系統(tǒng)中，數(shù)據(jù)庫的地位是非常重要的，是一個(gè)系統(tǒng)正常運(yùn)行的基礎(chǔ)。本系統(tǒng)的數(shù)據(jù)庫是采用microsoft公司的access 2000設(shè)計(jì)的。在數(shù)據(jù)庫的設(shè)計(jì)過程中，首先是收集、分析需求；再從需求抽象出一般的實(shí)體、關(guān)系和他們的屬性；再將這些實(shí)體、關(guān)系和屬性按照一定的規(guī)則轉(zhuǎn)化為二元表結(jié)構(gòu)。本系統(tǒng)中共有五個(gè)數(shù)據(jù)表：商品分類表。用于給商品分類，主要包括商品編號(hào)和名稱。表1 商品分類表字段名字段說明數(shù)據(jù)類型長(zhǎng)度(字節(jié))必填字段主鍵catcode分類編號(hào)自動(dòng)編號(hào)長(zhǎng)整型yesyescategory分類名稱文本26yesno客戶信息表。記錄了客戶的基本資料，主要包括客戶編號(hào)，供應(yīng)商地址，客戶地址和電話號(hào)碼等。表2 客戶信息表字段名字段說明數(shù)據(jù)類型長(zhǎng)度(字節(jié))必填字段主鍵supcode客戶編號(hào)自動(dòng)編號(hào)長(zhǎng)整型yesyessupplier供應(yīng)商地址文本50yesnoaddress客戶地址文本50yesnotelno電話號(hào)碼文本50yesnocontact聯(lián)系方式備注yesno商品入庫表。主要記錄有關(guān)商品入庫的資料，包括入庫編號(hào)，商品編號(hào)，分類編號(hào)，供應(yīng)商編號(hào)，描述信息，單價(jià)，數(shù)量，入庫日期，修改日期，用戶編號(hào)。可以方便查詢商場(chǎng)商品的入庫的有管信息。表3 商品入庫表字段名字段說明數(shù)據(jù)類型長(zhǎng)度（字節(jié)）必填字段主鍵delid入庫編號(hào)自動(dòng)編號(hào)長(zhǎng)整型yesyesrefno退貨單號(hào)文本50yesnosku商品編號(hào)文本50yesnocatcode分類編號(hào)數(shù)字長(zhǎng)整型yesnosubcatcode子類編號(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入庫日期日期/時(shí)間yesnodatepost修改日期日期/時(shí)間yesnousercode用戶編號(hào)數(shù)字長(zhǎng)整型yesno商品信息表。記錄商品的有關(guān)信息，包括商品編號(hào)，供應(yīng)商編號(hào)和名稱，分類編號(hào)和名稱，子類編號(hào)和名稱，商品有關(guān)說明，入庫數(shù)量，進(jìn)貨價(jià)和實(shí)際售出價(jià)，進(jìn)貨日期和售出日期等有關(guān)信息，可以方便查詢有關(guān)商品的各種信息，有利于更好的管理商品。表4 商品信息表字段名字段說明數(shù)據(jù)類型長(zhǎng)度(字節(jié))必填字段主鍵sku商品編號(hào)文本50yesyessupcode供應(yīng)商編號(hào)數(shù)字長(zhǎng)整型yesnosupplier供應(yīng)商名稱文本50yesnocatcode分類編號(hào)數(shù)字長(zhǎng)整型yesnocategory分類名稱文本50yesnosubcatcode子類編號(hào)數(shù)字長(zhǎng)整型yesnosubcategory子類名稱文本50yesnodescrip商品說明備注nonoprice建議價(jià)貨幣標(biāo)準(zhǔn)yesnostack入庫數(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證書編號(hào)文本50yesnobuyer客戶名稱文本50yesnoifsale是否已經(jīng)銷售數(shù)字長(zhǎng)整型yesnostock是否有庫存?zhèn)渥ono退貨信息表。反映了退貨所包含的相關(guān)信息，主要有返回編號(hào)，退貨單號(hào)，商品編號(hào)及描述，商品分類編號(hào)，價(jià)格和數(shù)量等相關(guān)信息?？梢允构芾韱T清楚掌握返回的商品的信息。表5 退貨信息表字段名字段說明數(shù)據(jù)類型長(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分類編號(hào)數(shù)字長(zhǎng)整型yesnosubcatcode子類編號(hào)數(shù)字長(zhǎng)整型yesnoprice單價(jià)文本50yesnoqty數(shù)量數(shù)字長(zhǎng)整型yesnodateentry退貨日期日期/時(shí)間yesnodatepost修改日期日期/時(shí)間yesnousercode用戶編號(hào)數(shù)字長(zhǎng)整型nono4.應(yīng)用軟件的開發(fā)與實(shí)習(xí)4.1.登錄模塊此模塊的功能是檢查管理員是否有進(jìn)入系統(tǒng)的權(quán)限。包括兩個(gè)command控件,兩個(gè)text控件和兩個(gè)lable控件。圖4.1登錄模塊界面4.2主頁面模塊此模塊是系統(tǒng)服務(wù)器端的主要控制界面，通過菜單的選擇，可以控制系統(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添加菜單：菜單的使用是為了更好的給用戶提供功能指引。圖4.2主頁面模塊界面為防止不法用戶的隨便進(jìn)入。在用戶名下拉列表中選擇你的姓名，在用戶密碼中輸入你的密碼，按“確定”按鈕，如果用戶名稱和用戶密碼匹配，就可以進(jìn)入本系統(tǒng)了。圖4.3系統(tǒng)登錄窗口4.3前臺(tái)銷售模塊點(diǎn)擊“前臺(tái)銷售”，彈出一個(gè)”商品銷售管理菜單”，便可查詢賣出的商品的相應(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商品銷售管理窗口4.4商場(chǎng)信息模塊點(diǎn)擊商場(chǎng)信息就可以查詢商場(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庫存管理模塊點(diǎn)擊庫存管理就可以查詢商品入庫和商品退貨的所有信息。點(diǎn)擊主菜單“庫存管理”“商品入庫”，系統(tǒng)自動(dòng)彈出“商品入庫”列表。單擊“商品退貨”按鈕，彈出商品退貨詳細(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庫存管理子頁面4.6商品查詢模塊點(diǎ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 用戶名不存在, 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)前用戶為： & 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)前用戶為： & txtfullname.text else msgbox 用戶名不存在! txtuser.setfocus exit sub end if if txtcurrentpass.text text1.text then msgbox 原始