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

　　

【正文】 oad 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)設置和幫助： 霍憲斌 李業(yè)森 參 考 文 獻 書 名 作者 出版社 VB 程序設計簡明教程 龔沛曾 陸慰民 楊志強 高等教育出版社 VB 數(shù)據(jù)庫開發(fā) 入門與范例解析 郭 勝 夏邦貴 機械工業(yè)出版社 VB 程序設計教程 譚浩強 清華大學出版社 VB 程序設計題典 劉圣才 李春葆 清華大學出版社 VB For Windows 語言參考詳解 周民光 王復康 北京航空航天大學出版社 結(jié) 束 語 通過使用 VB 編程，使人真正體會到了可視化編程的優(yōu)點，自己動手開發(fā)小規(guī)模的應用系統(tǒng)，學會一種規(guī)范化的編程方法，使我加深了對軟件的理解。學以致用，學用結(jié)合，這既是學習理論知識目的，也是檢驗學習的最好方法。 畢業(yè)設計是整個教學過程的最后環(huán)節(jié)，是學生綜合運 用所學知識解決實際問題能力的考查。這次畢業(yè)設計不盡使我了解了 VB 在數(shù)據(jù)庫方面編程的概要，更讓我知道了計算機的編程秘訣在于嚴密的思考與仔細的推敲，只有這樣，才會有一個完善的軟件生成。 在此，我能夠依據(jù)實際情況以及課堂上所學習的知識，應用到自己的實際工作，幫助解決工作過程中的問題，對實施方法程序有深刻理解，在數(shù)據(jù)庫設計方面，編程技術(shù)方面有了一定的進步。通過這一系列工作使我系統(tǒng)地掌握三年來所學的專業(yè)知識，并基本掌握了開發(fā)一個應用軟件的能力。 通過這次畢業(yè)設計，我受益匪淺，不僅鞏固了三年來所學的知識，還深入學習了 Visual Basic ，這種面向?qū)ο蟪绦蛟O計理念及快捷靈活的編程手法讓人耳目一新。 在任老師的細心指導下，我解決了許多設計中遇到的問題，在此深表感謝，同時希望各位老師和同學對本系統(tǒng)提出寶貴意見，謝謝大家。 t was not until midafternoon that the inspector ambled up on his pony. My father pulled himself together, and went out to receive him。 the effort to be even formally polite nearly strangled him. Even then the inspector was not brisk. He dis mounted in a leisurely fashion, and strolled in