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ì)的能力。通過完成一個小型的管理系統(tǒng),我們能達(dá)到具備設(shè)計(jì)功能較復(fù)雜的應(yīng)用程序的能力。學(xué)會利用計(jì)算機(jī)解決實(shí)際問題的初步能力,具體掌握的基本能力有Visual Basic 各種語句的綜合使用能力、有關(guān)控件的使用能力、設(shè)計(jì)數(shù)據(jù)庫管理系統(tǒng)的綜合能力，為以后的實(shí)際應(yīng)用奠定基礎(chǔ)。本系統(tǒng)是商品進(jìn)銷存管理系統(tǒng)，它可以很好的支持銷售公司的事物處理，減輕事務(wù)處理人員的勞動強(qiáng)度，提高工作效率。該系統(tǒng)可以實(shí)現(xiàn)銷售前臺管理，市場信息管理，庫存管理，商品管理，打印報表管理以及系統(tǒng)用戶及其權(quán)限的權(quán)利功能。本系

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

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

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

5、能圖2.3數(shù)據(jù)庫設(shè)計(jì)在一個商品進(jìn)銷存管理系統(tǒng)中，數(shù)據(jù)庫的地位是非常重要的，是一個系統(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)中共有五個數(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入庫編號自動編號長整型YESYESRefno退貨單號文

7、本50YESNOSku商品編號文本50YESNOCatcode分類編號數(shù)字長整型YESNOSubcatcode子類編號數(shù)字長整型YESNOSupcode供應(yīng)商編號數(shù)字長整型YESNODescrip描述信息文本50YESNOPrice單價貨幣標(biāo)準(zhǔn)YESNOQty數(shù)量數(shù)字長整型YESNODateEntry入庫日期日期/時間YESNODatePost修改日期日期/時間YESNOUsercode用戶編號數(shù)字長整型YESNO商品信息表。記錄商品的有關(guān)信息，包括商品編號，供應(yīng)商編號和名稱，分類編號和名稱，子類編號和名稱，商品有關(guān)說明，入庫數(shù)量，進(jìn)貨價和實(shí)際售出價，進(jìn)貨日期和售出日期等有關(guān)信息，可以方便查詢

8、有關(guān)商品的各種信息，有利于更好的管理商品。表4 商品信息表字段名字段說明數(shù)據(jù)類型長度(字節(jié))必填字段主鍵Sku商品編號文本50YESYESSupCode供應(yīng)商編號數(shù)字長整型YESNOSupplier供應(yīng)商名稱文本50YESNOCatCode分類編號數(shù)字長整型YESNOCategory分類名稱文本50YESNOSubCatcode子類編號數(shù)字長整型YESNOSubCategory子類名稱文本50YESNODescrip商品說明備注NONOPrice建議價貨幣標(biāo)準(zhǔn)YESNOStack入庫數(shù)量數(shù)字長整型YESNOpicture圖片字節(jié)數(shù)組OLE對象YESNOimPrice進(jìn)貨價貨幣貨幣YESNOre

9、alPrice實(shí)際售出價貨幣貨幣YESNOpicture1圖片字節(jié)數(shù)組OLE對象YESNObarcode商品條碼文本50YESNOimDate進(jìn)貨日期日期/時間YESNOoutDate售出日期日期/時間YESNOGold含金量文本50YESNOBillNum發(fā)票號碼文本50YESNOcerNum證書編號文本50YESNOBuyer客戶名稱文本50YESNOifSale是否已經(jīng)銷售數(shù)字長整型YESNOStock是否有庫存?zhèn)渥ONO退貨信息表。反映了退貨所包含的相關(guān)信息，主要有返回編號，退貨單號，商品編號及描述，商品分類編號，價格和數(shù)量等相關(guān)信息。可以使管理員清楚掌握返回的商品的信息。表5 退貨

10、信息表字段名字段說明數(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ā)與實(shí)習(xí)4.1.登錄模塊此模塊的功能是檢查管理員是

11、否有進(jìn)入系統(tǒng)的權(quán)限。包括兩個Command控件,兩個Text控件和兩個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)前時間。狀態(tài)欄的使用可以美化界面。5添加菜單：菜單的使用是為了更好的給用戶提供功能指引。圖4.2主頁面模塊界面為防止

12、不法用戶的隨便進(jìn)入。在用戶名下拉列表中選擇你的姓名，在用戶密碼中輸入你的密碼，按“確定”按鈕，如果用戶名稱和用戶密碼匹配，就可以進(jìn)入本系統(tǒng)了。圖4.3系統(tǒng)登錄窗口4.3前臺銷售模塊點(diǎn)擊“前臺銷售”，彈出一個”商品銷售管理菜單”，便可查詢賣出的商品的相應(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商場信息模塊點(diǎn)擊商場信息就可以查詢商場的信息。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商場信息窗口4.5庫存管理模塊點(diǎn)擊庫存管理就可以查詢商品入庫和商品退貨的所有信息。點(diǎn)擊主菜單“庫存管理”“商品入庫”，系統(tǒng)自動彈出“商品入庫”列表。單擊“商品退貨”按鈕，彈出商品退貨詳細(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庫存管理子頁面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 你輸入三次密碼錯誤, 系統(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 原始密碼錯誤！ txtCurrentPass.SetFo