VB課程設(shè)計商品進銷存管理系統(tǒng)

1、 課程設(shè)計說明書 no 28商品進銷存管理系統(tǒng)1.課程設(shè)計的目的本系統(tǒng)的主要目標(biāo)就是進一步培養(yǎng)我們綜合應(yīng)用 visual basic 進行程序設(shè)計的能力。通過完成一個小型的管理系統(tǒng),我們能達到具備設(shè)計功能較復(fù)雜的應(yīng)用程序的能力。學(xué)會利用計算機解決實際問題的初步能力,具體掌握的基本能力有visual basic 各種語句的綜合使用能力、有關(guān)控件的使用能力、設(shè)計數(shù)據(jù)庫管理系統(tǒng)的綜合能力，為以后的實際應(yīng)用奠定基礎(chǔ)。本系統(tǒng)是商品進銷存管理系統(tǒng)，它可以很好的支持銷售公司的事物處理，減輕事務(wù)處理人員的勞動強度，提高工作效率。該系統(tǒng)可以實現(xiàn)銷售前臺管理，市場信息管理，庫存管理，商品管理，打印報表管理以及系統(tǒng)

2、用戶及其權(quán)限的權(quán)利功能。本系統(tǒng)是采用visual basic6.0高級語言進行程序編制，以access數(shù)據(jù)庫為程序數(shù)據(jù)庫。2.系統(tǒng)總體設(shè)計2.1設(shè)計思路本系統(tǒng)對企業(yè)中常見的采購、庫存、銷售等企業(yè)活動及相關(guān)供應(yīng)商和客戶等基本信息進行管理。2.2設(shè)計方法1、前臺銷售管理。 在這個前臺銷售管理系統(tǒng)中，包括了商品瀏覽，商品查詢以及銷售報表這幾個模塊，商品瀏覽主要是對該商場內(nèi)的商品進行瀏覽，如可以通過前臺管理的瀏覽窗體的按鈕對商品信息進行瀏覽，商品查詢功能模塊主要是對該商場庫存中存在的商品進行查詢，查看都有哪些商品以及具體的某類商品的信息資料。銷售報表模塊主要是對前臺銷售的商品進行日常統(tǒng)計，以便于商場的

3、管理。2、商場信息管理。在商場信息管理系統(tǒng)中，主要是對商場的信息進行編輯和修改等功能操作，如修改原來商場的名稱，地址以及聯(lián)系電話，聯(lián)系人。3、庫存管理。在這個管理系統(tǒng)中主要包括商品入庫和商品出庫兩個功能模塊。商品入庫模塊即對系統(tǒng)中的庫存商品進行管理，如添加新的入庫商品，修改原來庫存中的商品，甚至刪除庫存中的商品。商品退貨可以理解為商品出庫管理，該功能模塊與商品入庫功能模塊相似，可以對退貨的商品進行管理。4、商品管理。在這個商品管理系統(tǒng)中，包括商品大類管理，商品小類管理，供應(yīng)商管理以及商品信息管理4個主要的管理功能模塊。商品大類管理模塊對商品的大類進行管理，如對商品大類進行添加，刪除，和修改等操

4、作。商品小類管理同商品大類管理相似，用于對商品的小類進行添加，刪除和修改操作。供應(yīng)商管理主要對提供給商場商品的貨物提供商信息進行管理，商品信息管理對商場中的具體的商品信息進行管理。5報表打印。在這個管理系統(tǒng)中，包括入庫報表和銷售報表兩個功能模塊。本管理系統(tǒng)用來實現(xiàn)對各種報表進行統(tǒng)一集中的管理，該系統(tǒng)數(shù)據(jù)由其他幾個管理系統(tǒng)提供，不必手工輸入，從而提高了工作效率。6. 用戶管理。用戶管理功能模塊用于對系統(tǒng)中的用戶進行管理，如添加新用戶，編輯用戶信息，設(shè)置用戶權(quán)限。7. 客戶管理?？蛻艄芾砉δ苣K對該商場的客戶進行統(tǒng)一管理。商品進銷存管理系統(tǒng)前臺銷售管理商場信息管理 庫存管理 商品管理 報表管理 用

5、戶管理 客戶管理圖1 系統(tǒng)功能圖2.3數(shù)據(jù)庫設(shè)計在一個商品進銷存管理系統(tǒng)中，數(shù)據(jù)庫的地位是非常重要的，是一個系統(tǒng)正常運行的基礎(chǔ)。本系統(tǒng)的數(shù)據(jù)庫是采用microsoft公司的access 2000設(shè)計的。在數(shù)據(jù)庫的設(shè)計過程中，首先是收集、分析需求；再從需求抽象出一般的實體、關(guān)系和他們的屬性；再將這些實體、關(guān)系和屬性按照一定的規(guī)則轉(zhuǎn)化為二元表結(jié)構(gòu)。本系統(tǒng)中共有五個數(shù)據(jù)表：商品分類表。用于給商品分類，主要包括商品編號和名稱。表1 商品分類表字段名字段說明數(shù)據(jù)類型長度(字節(jié))必填字段主鍵catcode分類編號自動編號長整型yesyescategory分類名稱文本26yesno客戶信息表。記錄了客戶的基

6、本資料，主要包括客戶編號，供應(yīng)商地址，客戶地址和電話號碼等。表2 客戶信息表字段名字段說明數(shù)據(jù)類型長度(字節(jié))必填字段主鍵supcode客戶編號自動編號長整型yesyessupplier供應(yīng)商地址文本50yesnoaddress客戶地址文本50yesnotelno電話號碼文本50yesnocontact聯(lián)系方式備注yesno商品入庫表。主要記錄有關(guān)商品入庫的資料，包括入庫編號，商品編號，分類編號，供應(yīng)商編號，描述信息，單價，數(shù)量，入庫日期，修改日期，用戶編號?？梢苑奖悴樵兩虉錾唐返娜霂斓挠泄苄畔?。表3 商品入庫表字段名字段說明數(shù)據(jù)類型長度（字節(jié)）必填字段主鍵delid入庫編號自動編號長整型ye

7、syesrefno退貨單號文本50yesnosku商品編號文本50yesnocatcode分類編號數(shù)字長整型yesnosubcatcode子類編號數(shù)字長整型yesnosupcode供應(yīng)商編號數(shù)字長整型yesnodescrip描述信息文本50yesnoprice單價貨幣標(biāo)準yesnoqty數(shù)量數(shù)字長整型yesnodateentry入庫日期日期/時間yesnodatepost修改日期日期/時間yesnousercode用戶編號數(shù)字長整型yesno商品信息表。記錄商品的有關(guān)信息，包括商品編號，供應(yīng)商編號和名稱，分類編號和名稱，子類編號和名稱，商品有關(guān)說明，入庫數(shù)量，進貨價和實際售出價，進貨日期和售出

8、日期等有關(guān)信息，可以方便查詢有關(guān)商品的各種信息，有利于更好的管理商品。表4 商品信息表字段名字段說明數(shù)據(jù)類型長度(字節(jié))必填字段主鍵sku商品編號文本50yesyessupcode供應(yīng)商編號數(shù)字長整型yesnosupplier供應(yīng)商名稱文本50yesnocatcode分類編號數(shù)字長整型yesnocategory分類名稱文本50yesnosubcatcode子類編號數(shù)字長整型yesnosubcategory子類名稱文本50yesnodescrip商品說明備注nonoprice建議價貨幣標(biāo)準yesnostack入庫數(shù)量數(shù)字長整型yesnopicture圖片字節(jié)數(shù)組ole對象yesnoimprice

9、進貨價貨幣貨幣yesnorealprice實際售出價貨幣貨幣yesnopicture1圖片字節(jié)數(shù)組ole對象yesnobarcode商品條碼文本50yesnoimdate進貨日期日期/時間yesnooutdate售出日期日期/時間yesnogold含金量文本50yesnobillnum發(fā)票號碼文本50yesnocernum證書編號文本50yesnobuyer客戶名稱文本50yesnoifsale是否已經(jīng)銷售數(shù)字長整型yesnostock是否有庫存?zhèn)渥ono退貨信息表。反映了退貨所包含的相關(guān)信息，主要有返回編號，退貨單號，商品編號及描述，商品分類編號，價格和數(shù)量等相關(guān)信息?？梢允构芾韱T清楚掌握

10、返回的商品的信息。表5 退貨信息表字段名字段說明數(shù)據(jù)類型長度(字節(jié))必填字段主鍵return返回編號自動編號長整型yesyesrefno退貨編號文本50yesnosku商品編號文本50yesnodescrip商品描述文本50yesnosupcode供應(yīng)商編號數(shù)字長整型yesnocatcode分類編號數(shù)字長整型yesnosubcatcode子類編號數(shù)字長整型yesnoprice單價文本50yesnoqty數(shù)量數(shù)字長整型yesnodateentry退貨日期日期/時間yesnodatepost修改日期日期/時間yesnousercode用戶編號數(shù)字長整型nono4.應(yīng)用軟件的開發(fā)與實習(xí)4.1.登錄模

11、塊此模塊的功能是檢查管理員是否有進入系統(tǒng)的權(quán)限。包括兩個command控件,兩個text控件和兩個lable控件。圖4.1登錄模塊界面4.2主頁面模塊此模塊是系統(tǒng)服務(wù)器端的主要控制界面，通過菜單的選擇，可以控制系統(tǒng)的所有功能。 主界面的設(shè)計步驟：1.設(shè)計主界面控件布局：在主界面的布局中使用了工具欄（toolbar）、狀態(tài)欄（statebar）、圖象列表（imagelist）等控件。2.圖象列表的設(shè)置：與工具欄連接，把圖片信息添加到工具欄。3.工具欄的設(shè)置： 給工具欄添加按鈕4.狀態(tài)欄的設(shè)置：顯示當(dāng)前日期、當(dāng)前時間。狀態(tài)欄的使用可以美化界面。5添加菜單：菜單的使用是為了更好的給用戶提供功能指引。

12、圖4.2主頁面模塊界面為防止不法用戶的隨便進入。在用戶名下拉列表中選擇你的姓名，在用戶密碼中輸入你的密碼，按“確定”按鈕，如果用戶名稱和用戶密碼匹配，就可以進入本系統(tǒng)了。圖4.3系統(tǒng)登錄窗口4.3前臺銷售模塊點擊“前臺銷售”，彈出一個”商品銷售管理菜單”，便可查詢賣出的商品的相應(yīng)信息。option explicitdim blnedit as booleandim filename as stringprivate sub cbocategory_click() dim strtemp strtemp = & cstr(cbocategory.text) & on error resume n

13、ext 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

14、error goto 0err.clearend sub圖4.4商品銷售管理窗口4.4商場信息模塊點擊商場信息就可以查詢商場的信息。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 cmd

15、save.enabled = true cmdcancel.enabled = true txtname.setfocusend subprivate sub cmdexit_click() unload meend sub圖4.5商場信息窗口4.5庫存管理模塊點擊庫存管理就可以查詢商品入庫和商品退貨的所有信息。點擊主菜單“庫存管理”“商品入庫”，系統(tǒng)自動彈出“商品入庫”列表。單擊“商品退貨”按鈕，彈出商品退貨詳細信息。option explicitdim blnadd as booleandim intsalcount as integerdim lngindex as longprivat

16、e 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商品查詢模塊點擊商品查詢就可以查詢商品和供應(yīng)商的所有信息。option explicitdim blnedit as booleandim lngindex as longpublic sub loadcat() dim itm as listitem listview1.l

17、istitems.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

18、+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 send

19、keys 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 cont

20、ain 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 se

21、ndkeys 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

22、 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

23、 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 你輸入三次密碼錯誤, 系統(tǒng)退出!., vbapplicationmodal, point of sale system end end if strsearch = cstr(txtuserid.text) blnfoundpass = finduser if blnfoundpass = true then p

24、icture2.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 原始