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

1、商品進(jìn)銷存管理系統(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)銷存管理系統(tǒng)，它可以很好的支持銷售公司的事物處理，減輕事務(wù)處理人員的勞動(dòng)強(qiáng)度，提高工作效率。該系統(tǒng)可以實(shí)現(xiàn)銷售前臺(tái)管理，市場(chǎng)信息管理，庫(kù)存管理，商品管理，打印報(bào)表管理以及系統(tǒng)用戶及其權(quán)限的權(quán)利功能。本系

2、統(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è)中常見的采購(gòu)、庫(kù)存、銷售等企業(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)行瀏覽，如可以通過(guò)前臺(tái)管理的瀏覽窗體的按鈕對(duì)商品信息進(jìn)行瀏覽，商品查詢功能模塊主要是對(duì)該商場(chǎng)庫(kù)存中存在的商品進(jìn)行查詢，查看都有哪些商品以及具體的某類商品的信息資料。銷售報(bào)表模塊主要是對(duì)前臺(tái)銷售的商品進(jìn)行日常統(tǒng)計(jì)，以便于商場(chǎng)的管理。2、商場(chǎng)信息管理。在商

3、場(chǎng)信息管理系統(tǒng)中，主要是對(duì)商場(chǎng)的信息進(jìn)行編輯和修改等功能操作，如修改原來(lái)商場(chǎng)的名稱，地址以及聯(lián)系電話，聯(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)中，包括商品大類管理，商品小類管理，供應(yīng)商管理以及商品信息管理4個(gè)主要的管理功能模塊。商品大類管理模塊對(duì)商品的大類進(jìn)行管理，如對(duì)商品大類進(jìn)行添加，刪除，和修改等操作。商品小類管理同商品大類管

4、理相似，用于對(duì)商品的小類進(jìn)行添加，刪除和修改操作。供應(yīng)商管理主要對(duì)提供給商場(chǎng)商品的貨物提供商信息進(jìn)行管理，商品信息管理對(duì)商場(chǎng)中的具體的商品信息進(jìn)行管理。5報(bào)表打印。在這個(gè)管理系統(tǒng)中，包括入庫(kù)報(bà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. 用戶管理。用戶管理功能模塊用于對(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)信息管理 庫(kù)存管理 商品管理 報(bào)表管理 用戶管理 客戶管理圖1 系統(tǒng)功

5、能圖2.3數(shù)據(jù)庫(kù)設(shè)計(jì)在一個(gè)商品進(jìn)銷存管理系統(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ù)表：商品分類表。用于給商品分類，主要包括商品編號(hào)和名稱。表1 商品分類表字段名字段說(shuō)明數(shù)據(jù)類型長(zhǎng)度(字節(jié))必填字段主鍵Catcode分類編號(hào)自動(dòng)編號(hào)長(zhǎng)整型YESYESCategory分類名稱文本26YESNO客戶信息表。記錄了客戶的基本資料，主要包括客戶編號(hào)，供

6、應(yīng)商地址，客戶地址和電話號(hào)碼等。表2 客戶信息表字段名字段說(shuō)明數(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商品入庫(kù)表。主要記錄有關(guān)商品入庫(kù)的資料，包括入庫(kù)編號(hào)，商品編號(hào)，分類編號(hào)，供應(yīng)商編號(hào)，描述信息，單價(jià)，數(shù)量，入庫(kù)日期，修改日期，用戶編號(hào)?？梢苑奖悴樵兩虉?chǎng)商品的入庫(kù)的有管信息。表3 商品入庫(kù)表字段名字段說(shuō)明數(shù)據(jù)類型長(zhǎng)度（字節(jié)）必填字段主鍵DelId入庫(kù)編號(hào)自動(dòng)編號(hào)長(zhǎng)整型YESYESRefno退貨單號(hào)文

7、本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入庫(kù)日期日期/時(shí)間YESNODatePost修改日期日期/時(shí)間YESNOUsercode用戶編號(hào)數(shù)字長(zhǎng)整型YESNO商品信息表。記錄商品的有關(guān)信息，包括商品編號(hào)，供應(yīng)商編號(hào)和名稱，分類編號(hào)和名稱，子類編號(hào)和名稱，商品有關(guān)說(shuō)明，入庫(kù)數(shù)量，進(jìn)貨價(jià)和實(shí)際售出價(jià)，進(jìn)貨日期和售出日期等有關(guān)信息，可以方便查詢

8、有關(guān)商品的各種信息，有利于更好的管理商品。表4 商品信息表字段名字段說(shuō)明數(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商品說(shuō)明備注NONOPrice建議價(jià)貨幣標(biāo)準(zhǔn)YESNOStack入庫(kù)數(shù)量數(shù)字長(zhǎng)整型YESNOpicture圖片字節(jié)數(shù)組OLE對(duì)象YESNOimPrice進(jìn)貨價(jià)貨幣貨幣YESNOre

9、alPrice實(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是否有庫(kù)存?zhèn)渥ONO退貨信息表。反映了退貨所包含的相關(guān)信息，主要有返回編號(hào)，退貨單號(hào)，商品編號(hào)及描述，商品分類編號(hào)，價(jià)格和數(shù)量等相關(guān)信息?？梢允构芾韱T清楚掌握返回的商品的信息。表5 退貨

10、信息表字段名字段說(shuō)明數(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.登錄模塊此模塊的功能是檢查管理員是

11、否有進(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添加菜單：菜單的使用是為了更好的給用戶提供功能指引。圖4.2主頁(yè)面模塊界面為防止

12、不法用戶的隨便進(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

13、.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 0Er

14、r.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 =

15、 True cmdCancel.Enabled = True txtName.SetFocusEnd SubPrivate Sub cmdExit_Click() Unload MeEnd Sub圖4.5商場(chǎng)信息窗口4.5庫(kù)存管理模塊點(diǎn)擊庫(kù)存管理就可以查詢商品入庫(kù)和商品退貨的所有信息。點(diǎn)擊主菜單“庫(kù)存管理”“商品入庫(kù)”，系統(tǒng)自動(dòng)彈出“商品入庫(kù)”列表。單擊“商品退貨”按鈕，彈出商品退貨詳細(xì)信息。Option ExplicitDim blnAdd As BooleanDim intSalCount As IntegerDim lngIndex As LongPrivate Sub cmdAdd_C

16、lick() 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商品查詢模塊點(diǎn)擊商品查詢就可以查詢商品和供應(yīng)商的所有信息。Option ExplicitDim blnEdit As BooleanDim lngIndex As LongPublic Sub LoadCat() Dim itm As ListItem ListView1.ListItems.Clear

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

18、 = 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

19、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 w

20、ords 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+En

21、d 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()

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

23、+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.Visibl

24、e = 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 原始密碼錯(cuò)誤！ txtCurrentPass.SetFo