【導讀】本文論述了銷售管理系統(tǒng)的開發(fā)過程，它包括了軟件的開發(fā)環(huán)境，開發(fā)工具以及相關(guān)技術(shù)、系統(tǒng)分析、系統(tǒng)設(shè)計、實現(xiàn)等內(nèi)容?？斓忍攸c，我們選擇Visual開發(fā)此系統(tǒng)。代碼有效率以達到Visualc++的水平。在面向?qū)ο蟪绦蛟O(shè)計方面，象與屬性、類與成員、繼承與多態(tài)。管理、備分、查詢、添加、打印輸出、修改等功能。出來供使用者簡單的操作便可及時、準確地獲得所需的信息。缺，加之經(jīng)驗水平有限，系統(tǒng)可能不完善，敬請用戶批評指正。的指導與幫助，在此表示衷心的感謝。1)人員：軟件人員4人，要求接受過軟件工程的基礎(chǔ)訓練，因此為管理人員節(jié)省了大量的時間。此套銷售管理系統(tǒng)界面美觀，全中文操作，簡單明了，易學易用，的管理，而且目前市場上缺乏這件軟件。準的分類管理貨物的入庫、出庫、銷售、查看貨物等功能。制作上使用Windows中文平臺，中文顯示提示信息，易學易懂，貨物進、銷、存，打印報表，進行貨物管理的工作量。短，故在經(jīng)濟上可行。

　　

【正文】 d(Cancel As Integer) = True End Sub Private Sub Command1_Click() 39。盤點庫存大于零的庫存信息 = select * from kc where 0 = 9: = flexSortNumericAscending 39。第 9 行按升序排序 End Sub Private Sub Command2_Click() = True Unload Me End Sub 價格管理程序代碼： Public Sub eval() 39。定義賦值函數(shù) If (0) Then = (0) Else = 0 If (1) Then = (1) Else = 0 If (2) Then = (2) Else =0 End Sub Private Sub Form_Load() 39。自動識別數(shù)據(jù)庫路徑 = amp。 \倉庫 .mdb = amp。 \倉庫 .mdb End Sub Private Sub Form_Activate() 39。 向 bo1 添加查詢項目列表 (商品名稱 ) (簡稱 ) (批號 ) = 0 39。初始化查詢統(tǒng)計庫存 商品信息 = select count(*)as 品種 ,sum(庫存 )as 合計庫存 ,sum(庫存金額 )as 合計庫存金額 from kc Call eval 39。調(diào)用函數(shù) End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub texgjj_Change() = Val() * Val() 39。計算庫存金額 Call eval 39。調(diào)用函數(shù) End Sub Private Sub texgkc_Change() = Val() * Val() 39。計算庫存金額 Call eval 39。調(diào)用函數(shù) End Sub Private Sub Command1_Click() 39。查詢統(tǒng)計庫存 商品信息 = select * from kc where (kc. amp。 amp。 amp。 like + Chr(34) + + * + Chr(34) + ) = select count(*)as 品種 ,sum(庫存 )as 合計庫存 ,sum(庫存金額 )as 合計庫存金額 from kc where (kc. amp。 amp。 amp。 like + Chr(34) + + * + Chr(34) + ) Call eval 39。調(diào)用函數(shù) End Sub Private Sub Command2_Click() = True Unload Me End Sub 添加與刪除用戶程序代碼 ： Private Sub Command1_Click() If = 添加 Then = True = False = False = False = False = False = False = True: = True = 確認 = 0 Else = 添加 = False = True = True = True = True = True = True = False: = False End If End Sub Private Sub Command2_Click() = 添加 = False = True = True = True = True = True = True = False: = False 39。 = mbookmark End Sub Private Sub Command3_Click() On Error Resume Next r = MsgBox(你是否要真的刪除，注意不能恢復！ , vbOKCancel, 刪除 警告 ) If r = 1 Then If Then End If End Sub Private Sub Command4_Click() Unload Me = True End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() If Then End Sub Private Sub Command7_Click() If Then End Sub Private Sub Command8_Click() End Sub Private Sub Form_Load() = amp。 \倉庫 .mdb = False End Sub 修改密碼程序代碼 ： Private Sub Form_Load() = amp。 \倉庫 .mdb 39。自動識別數(shù)據(jù)庫路徑 End Sub Private Sub Command1_Click() 39。確認修改操作員信息 = select * from ma where 操作員 = 39。 amp。 amp。 39。 39。查詢操作員信息 If And And = Then If = Then MsgBox (請輸入新密碼 !!) Else (密碼 ) = If Then MsgBox (兩次密碼不一樣，請重新輸入 !) = = Else MsgBox (密碼修改成功 !) = : = : = : = : End If End If Else If = Then MsgBox (請輸入用戶名 !) Else If Then MsgBox 無此用戶 = ma = Else If = Then MsgBox (請輸入舊密碼 !) Else If (密碼 ) Then MsgBox (舊密碼錯誤 ,請重新輸入舊密碼 !) End If End If End If End If End If End Sub Private Sub Command2_Click() = True Unload Me End Sub 數(shù)據(jù)備份窗口代碼 ： Private Sub Command1_Click() 39。確認數(shù) 據(jù)備份 YesNo = MsgBox(準備好了嗎？ , vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 MkDir ( amp。 :\數(shù)據(jù)備份 ) FileCopy amp。 \, amp。 :\數(shù)據(jù)備份 \ = 0 MsgBox 數(shù)據(jù) 已備份完畢。 errprompt: = 0 Select Case Case 57 MsgBox 磁盤已滿！ , vbCritical Case 70 MsgBox 磁盤寫保護！ , vbCritical End Select End Sub Private Sub Command2_Click() Load frm_main = True Unload Me End Sub 數(shù)據(jù)恢復 窗口代碼 ： Private Sub Form_Activate() 39。賦值給 text1 = A End Sub Private Sub Command1_Click() 39。確認數(shù)據(jù)恢復 YesNo = MsgBox(準備好了嗎？ , vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 FileCopy amp。 :\數(shù)據(jù)備份 \, amp。 \ = 0 MsgBox 數(shù)據(jù)已恢復完畢。 errprompt: = 0 Select Case Case 57 MsgBox 磁盤已滿！ , vbCritical Case 70 MsgBox 磁盤寫保護！ , vbCritical End Select End Sub Private Sub Command2_Click() Load frm_main = True Unload Me End Sub 第五章 使用說明 簡介 本軟件是一個簡單的商品進銷存管理系統(tǒng)，前臺界面是使用 VB 開發(fā)的，后臺是 ACCESS 數(shù)據(jù)庫。用戶可以使用本軟件對商品的進、銷、存紀錄進行管 理，及時的掌握商品的進、銷、存情況。 軟件開發(fā)目的 針對小型的商品零售單位，業(yè)務發(fā)生頻繁，每筆業(yè)務涉及金額小、內(nèi)容重復等特點。 軟件 適用范圍 小型超市、商店、個體工商戶 4 銷售管理系統(tǒng)是專為小企業(yè)開發(fā)的貨物擋案計算機管理系統(tǒng)。它可以將原先貨物檔案手工管理變?yōu)橛嬎銠C可視化管理，充分發(fā)揮了計算機的快捷、準確、方便、高效的特點，使原來幾個小時的大工作量變?yōu)樵诙潭痰膸追昼娋屯瓿啥覝蚀_無誤，極大的提高了工作效率和工作質(zhì)量。該系統(tǒng)具有高度的可靠性和安全保密性，操作簡單，易行，用戶界面簡單，友好，又具有一定的美觀性，菜單式的使用方式方便，不繁瑣，便于用戶查詢、統(tǒng)計和打印等。讓人操作起來，得心應手，滿足了用戶的需要。 第六章 附 錄 開發(fā)小組人員分工一覽表 日常業(yè)務登記模塊：蘇兆民 閆新民 庫存管理模塊： 霍憲斌 閆新民 查詢統(tǒng)計模塊： 李業(yè)森 霍憲斌 業(yè)務信息管理模塊：蘇兆民 李業(yè)森 打印報表模塊： 閆新民 蘇兆民 系統(tǒng)設(shè)置和幫助： 霍憲斌 李業(yè)森 參 考 文 獻 書 名 作者 出版社 VB 程序設(shè)計簡明教程 龔沛曾 陸慰民 楊志強 高等教育出版社 VB 數(shù)據(jù)庫開發(fā) 入門與范例解析 郭 勝 夏邦貴 機械工業(yè)出版社 VB 程序設(shè)計教程 譚浩強 清華大學出版社 VB 程序設(shè)計題典 劉圣才 李春葆 清華大學出版社 VB For Windows 語言參考詳解 周民光 王復康 北京航空航天大學出版社 結(jié) 束 語 通過使用 VB 編程，使人真正體會到了可視化編程的優(yōu)點，自己動手開發(fā)小規(guī)模的應用系統(tǒng)，學會一種規(guī)范化的編程方法，使我加深了對軟件的理解。學以致用，學用結(jié)合，這既是學習理論知識目的，也是檢驗學習的最好方法。 畢業(yè)設(shè)計是整個教學過程的最后環(huán)節(jié)，是學生綜合運用所學知識解 決實際問題能力的考查。這次畢業(yè)設(shè)計不盡使我了解了 VB 在數(shù)據(jù)庫方面編程的概要，更讓我知道了計算機的編程秘訣在于嚴密的思考與仔細的推敲，只有這樣，才會有一個完善的軟件生成。 在此，我能夠依據(jù)實際情況以及課堂上所學習的知識，應用到自己的實際工作，幫助解決工作過程中的問題，對實施方法程序有深刻理解，在數(shù)據(jù)庫設(shè)計方面，編程技術(shù)方面有了一定的進步。通過這一系列工作使我系統(tǒng)地掌握三年來所學的專業(yè)知識，并基本掌握了開發(fā)一個應用軟件的能力。 通過這次畢業(yè)設(shè)計，我受益匪淺，不僅鞏固了三年來所學的知識，還深入學習了 Visual Basic ，這種面向?qū)ο蟪绦蛟O(shè)計理念及快捷靈活的編程手法讓人耳目一新。 在任老師的細心指導下，我解決了許多設(shè)計中遇到的問題，在此深表感謝，同時希望各位老師和同學對本系統(tǒng)提出寶貴意見，謝謝大家。 passages from his books to them, and sometimes reenacted some o