企業(yè)銷售采購管理系統(tǒng)課程設計及及

1、 目錄TOC o 1-2 u 1.引言 PAGEREF _Toc22738 1 需求分析 PAGEREF _Toc4879 1可行性分析 PAGEREF _Toc26811 12. 系統(tǒng)分析 PAGEREF _Toc5884 2 業(yè)務流程分析 PAGEREF _Toc2335 2 數(shù)據(jù)流程分析3 數(shù)據(jù)字典43. 系統(tǒng)設計 PAGEREF _Toc30135 5 系統(tǒng)總體結(jié)構(gòu) PAGEREF _Toc30848 5 數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設計 PAGEREF _Toc26455 5 代碼設計 PAGEREF _Toc9325 7 輸入輸出設計 PAGEREF _Toc17101 7系統(tǒng)的安全設計 PA

2、GEREF _Toc20343 84. 系統(tǒng)實施 PAGEREF _Toc30734 9 系統(tǒng)實施 PAGEREF _Toc16567 9系統(tǒng)運行管理制度 PAGEREF _Toc21728 325. 結(jié)束語 PAGEREF _Toc28072 33 參考文獻461.引言 需求分析隨著電子產(chǎn)品創(chuàng)新性技術(shù)的迅速發(fā)展、人民生活水平的提高，電腦已成為人們追求娛樂不可或缺的生活用品。而對于銷售這些產(chǎn)品的終端，無論是規(guī)模型的商場還是小的商店，都要求它們的采購業(yè)務能順利、高效地進行。博宏電腦公司近年來的銷售量激增，但是采購業(yè)務成為了它獲取高效益的掣肘。該公司無論是高層領導還是員工，都希望能開發(fā)一個采購管理

3、系統(tǒng)，對采購業(yè)務進行管理。 在該公司中，產(chǎn)品的采購管理是一項日常性的工作。電腦產(chǎn)品因其更新?lián)Q代迅速，如果做不到使產(chǎn)品的采購量以及采購時間適應需求的變化，那么很容易造成商品積壓或脫銷，不僅影響商品的銷售業(yè)績，也會增加庫存費以及采購環(huán)節(jié)不必要的支出，最終影響公司的效益。另外，該公司的商品種類非常繁多，采購量大且頻繁，依靠傳統(tǒng)的手工處理記錄是很難對采購環(huán)節(jié)進行及時、正確地處理。所以開發(fā)并應用采購管理系統(tǒng)成為適應時代發(fā)展，使管理現(xiàn)代化的重要措施。采購管理系統(tǒng)體現(xiàn)了當今先進的企業(yè)管理思想，對提高企業(yè)的管理水平有著重要的意義。采購管理系統(tǒng)能夠保證計劃的準確性和采購的合理性，降低商品的運營成本，讓利于消費者

4、，提升該公司的競爭力。可行性分析 可行性分析的任務是明確開發(fā)該采購管理系統(tǒng)的必要性和可行性。該公司的采購環(huán)節(jié)出現(xiàn)了制約商場發(fā)展的現(xiàn)象，利用計算機技術(shù)解決采購業(yè)務數(shù)據(jù)的處理迫在眉睫，公司的領導支持開發(fā)采購管理系統(tǒng)，管理人員、員工積極響應。因此開發(fā)采購管理系統(tǒng)的必要性與可行性是存在的。具體表現(xiàn)為：1）管理上的可行性：公司內(nèi)部的采購環(huán)節(jié)的滯后讓管理人員的日常管理工作難以順利地進行，領導層也注意到當前落后的采購管理手段對商品的銷售利潤影響很大，公司上下都對采購管理系統(tǒng)的開發(fā)有很大的熱情，迫切需要對其采購管理進行改革，開發(fā)采購管理系統(tǒng)的時機已成熟。2）技術(shù)上的可行性：由于該公司的辦公室、采購部門、庫存部

5、門、銷售部門和財務部門等都使用了電腦辦公，公司員工的素質(zhì)較高，員工的技術(shù)水平達到了采購管理系統(tǒng)所要求的水平。目前可視化開發(fā)技術(shù)及工具（如visual basic）和數(shù)據(jù)庫技術(shù)（如access）很成熟，并且該采購管理系統(tǒng)在公司現(xiàn)有的硬軟件資源基礎上可以實施，因此技術(shù)上是可行的。3）經(jīng)濟上的可行性：該系統(tǒng)所需的硬件設備，如服務器、PC機、打印機以及網(wǎng)絡配件等的市場價格不高，且目前主流的配置就能滿足該系統(tǒng)的功能要求，設備費用的支出很小。該公司對于此次開發(fā)MIS的經(jīng)濟效益和費用支出進行了比較評價，回收期短。該公司經(jīng)濟效益好，現(xiàn)金流正常，為此次項目開發(fā)提供了充足的經(jīng)費。由于該系統(tǒng)規(guī)模小，僅在公司內(nèi)部運行

6、，日常的維護量不大，所以運行費用低。但是由于采用了采購管理系統(tǒng)，減少了采購環(huán)節(jié)的人員作業(yè)，提高了工作效率，進而降低了商品的成本，這些費用的節(jié)省遠大于該采購管理系統(tǒng)的開發(fā)和運行費用。2. 系統(tǒng)分析 業(yè)務流程分析 圖為采購管理系統(tǒng)業(yè)務流程圖：描述了系統(tǒng)內(nèi)各單位、人員之間業(yè)務關(guān)系、作業(yè)順序和管理業(yè)務流向的圖表。供應商付款單供應商付款單退款單退款單采購訂單采購訂單財務部采購員財務部采購員退貨單采購開單退貨單采購開單收貨單倉庫管理員收貨單倉庫管理員 圖 采購管理業(yè)務流程圖 數(shù)據(jù)流程分析根據(jù)數(shù)據(jù)流程圖畫出的業(yè)務流程圖如圖和圖所示：數(shù)據(jù)流程圖能全面地描述信息系統(tǒng)邏輯模型供應商提貨單供應商采購處理采購處理 采

7、購訂單 圖 采購管理的頂層數(shù)據(jù)流程圖財務賬簿財務賬簿財務 部 財務 部 退貨單數(shù)據(jù) 訂 單 數(shù) 據(jù)采購訂單審核處理采購部供應商采購訂單審核處理采購部供應商 采購訂單 訂單數(shù)據(jù) 入 出 庫 庫 單 單銷售部 銷售部收退貨處理庫存處理 銷售報表 出、入庫數(shù)據(jù)收退貨處理庫存處理庫存臺賬庫存臺賬圖 采購管理系統(tǒng)的第二層數(shù)據(jù)流程圖 數(shù)據(jù)字典1）數(shù)據(jù)項的定義（以采購訂單的單據(jù)編號為例） 數(shù)據(jù)項編號：I02-01 數(shù)據(jù)項名稱：單據(jù)編號 別名：單據(jù)編號 簡述：區(qū)別采購訂單唯一性的代碼 類型與長度：字符型，長度為11 取值范圍：“001”“999” 2）數(shù)據(jù)結(jié)構(gòu)的定義（以采購訂單為例） 數(shù)據(jù)結(jié)構(gòu)編號：DS02-

8、01 數(shù)據(jù)結(jié)構(gòu)名稱：采購訂單 簡述：采購部門所填采購訂單信息 數(shù)據(jù)結(jié)構(gòu)組成：DS02-02 + DS02-03 + DS02-043）數(shù)據(jù)流的定義（以采購訂單為例） 數(shù)據(jù)流編號：D02-02 數(shù)據(jù)流名稱：合格的采購訂單 簡述：經(jīng)審核批準的采購訂單 數(shù)據(jù)流來源：采購訂單審核處理模塊 數(shù)據(jù)流去向：采購部門 數(shù)據(jù)項組成：單據(jù)編號+錄單日期+商品編號+商品名稱+型號+規(guī)格+單位+數(shù)量+單價+合計金額+供應商+到貨日期+聯(lián)系人+電話+業(yè)務員+摘要 數(shù)據(jù)流量：約30張/日 高峰流量：約50張/日 4）處理邏輯的定義（以采購訂單審核為例） 處理邏輯編號：P02-01 處理邏輯名稱：采購訂單審核處理 簡述：審

9、核采購訂單是否合格并給予批準或不批準 輸入的數(shù)據(jù)流：采購訂單 審核處理描述：審核采購部門送來的采購訂單填寫格式是否符合要求，單據(jù)上的信息是否符合采購計劃，是否真實等。不合格的單據(jù)返回采購部門，合格的單據(jù)登記采購訂單臺賬。輸出的數(shù)據(jù)流：合格的采購訂單，未批采購訂單 處理頻率：約30次/日5）數(shù)據(jù)存儲的定義（以采購訂單數(shù)據(jù)存儲為例） 數(shù)據(jù)存儲編號：F02-01 數(shù)據(jù)存儲名稱：采購訂單臺賬 簡述：存放采購訂單信息 數(shù)據(jù)存儲組成：單據(jù)編號+錄單日期+商品編號+商品名稱+型號+規(guī)格+單位+數(shù)量+單價+合計金額+預付賬戶+預付金額+供應商+到貨日期+聯(lián)系人+電話+業(yè)務員+摘要 關(guān)鍵字：單據(jù)編號 相關(guān)聯(lián)的處

10、理：P02-01 6）外部實體的定義（以供應商為例） 外部實體編號：S02-01 外部實體名稱：供應商 簡述：提供商品的供應商 輸入的數(shù)據(jù)流：D02-02 輸出的數(shù)據(jù)流：D02-013. 系統(tǒng)設計 系統(tǒng)總體結(jié)構(gòu) 新系統(tǒng)的功能設計是以業(yè)務流程圖和數(shù)據(jù)流程圖為依據(jù)的。對該采購管理系統(tǒng)劃分為系統(tǒng)設置、資料管理、采購訂單、訂單收貨、采購開單、采購付款、采購退貨、產(chǎn)品銷售等功能模塊。根據(jù)以上分析，該采購管理系統(tǒng)功能劃分圖如圖所示：采購管理系統(tǒng)采購管理系統(tǒng)系統(tǒng)設置系統(tǒng)設置采購管理采購管理產(chǎn)品銷售采購退貨采購付款采購開單訂單收貨采購訂單修改密碼權(quán)限管理添加用戶產(chǎn)品銷售采購退貨采購付款采購開單訂單收貨采購訂單

11、修改密碼權(quán)限管理添加用戶 圖 采購管理系統(tǒng)功能結(jié)構(gòu)圖 數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設計ER模型：概念模型的最常用的表示方法是實體-聯(lián)系方法。商品名稱商品名稱型號商品編號型號商品編號訂單號訂單號規(guī)格采購訂單規(guī)格采購訂單日期供應商名稱交給日期供應商名稱交給聯(lián)系人編號聯(lián)系人編號供應商供應商電話電話名稱名稱日期交貨日期交貨商品數(shù)量商品數(shù)量商品名稱倉庫商品名稱倉庫訂單號訂單號數(shù)量采購開單數(shù)量采購開單單價商品名稱單價商品名稱商品編號商品編號 圖 采購管理系統(tǒng)E-R模型圖 數(shù)據(jù)表的設計：這是根據(jù)數(shù)據(jù)流程圖設計的數(shù)據(jù)表主鍵列名數(shù)據(jù)類型長度允許空*供應商代碼char3*供應商名稱文本4*產(chǎn)品代碼char6*產(chǎn)品名稱文本4圖

12、 產(chǎn)品銷售表主鍵列名數(shù)據(jù)類型長度允許空*商品編號char6*商品名稱文本4*型號文本8*規(guī)格文本9*單位文本15*數(shù)量varchar15*單價char4*合計金額varchar19*單據(jù)編號varchar3*供應商文本4*入庫日期datatime8*聯(lián)系人文本3*電話char11*業(yè)務員文本3*摘要文本9表 商品庫存表 代碼設計 代碼設計部分主要是采購訂單號的設計。博宏公司的主要合作伙伴為其設計固定的編碼。采購訂單號是由供應商名和產(chǎn)品類別構(gòu)成的。表為采購訂單編號表 ：供應商代碼*供應商名稱產(chǎn)品代碼產(chǎn)品名稱001A經(jīng)銷商N-01聯(lián)想電腦002B經(jīng)銷商N-02戴爾電腦003C經(jīng)銷商N-03索尼電腦

13、004D經(jīng)銷商N-04華碩電腦005E經(jīng)銷商N-05宏基電腦006F經(jīng)銷商N-06三星電腦007G經(jīng)銷商N-07惠普電腦 表 采購訂單編號表 輸入輸出設計輸出設計：輸出設備：打印機、顯示器 輸出報告：輸出設計書資料代碼XS-01輸出名稱銷售報表份數(shù)1報送庫存部門項目號項目名稱位數(shù)及編輯備注1商品編號X(4)2商品名稱X(6)3型號X(6)4銷售數(shù)量X(3) 表 輸出設計書輸入設計： 對輸入信息進行校驗在登陸界面： 用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒用戶不存在，請從新輸入！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒用戶不存在，請從新輸入！在

14、產(chǎn)品銷售中：商品編號不能為空，否則會彈出對話框提醒Sorry,未找到你所查詢的數(shù)據(jù)，請查證后再試單據(jù)號規(guī)格數(shù)量錄單日期單位單價商品編號到貨日期合計金額商品名稱業(yè)務員預付賬戶型號聯(lián)系人預付金額供應商電話摘要 表 產(chǎn)品銷售單錄入屏幕系統(tǒng)的安全設計信息系統(tǒng)安全設計主要解決以下幾個問題：止帶寬資源濫用防止無關(guān)網(wǎng)絡行為影響工作效率管控外發(fā)信息，降低泄密風險掌握組織動態(tài)、優(yōu)化員工管理為網(wǎng)絡管理與優(yōu)化提供決策依據(jù)，防止病毒木馬等網(wǎng)絡風險低成本且有效推行信息管理制度等4. 系統(tǒng)實施 系統(tǒng)實施一、登錄界面當輸入的賬號為：xiaolin密碼為：xiaolin 時，焦點會自動落在確定上面，此時點擊確定或按回車鍵即可

15、以登入系統(tǒng)。若錯誤，則會彈出對話框提醒“此用戶不存在,請重新輸入！”并且它的輸入密碼為“*”，是在屬性欄中的passwordchar設置“*”。用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒此用戶不存在，請從新輸入！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒此用戶不在，請從新輸入！圖4-1 登陸窗口它的具體代碼為：Dim TIM As Integer 定義一個整型變量Dim myval As String 定義一個字符串變量Private Sub Form_Load() 連接access數(shù)據(jù)庫 = Provider= Source= & & 采購管理

16、系統(tǒng).mdb;Persist Security Info=False = select * from 用戶 End SubPrivate Sub Command1_Click()Static itimes As Integer = 驗證用戶名及密碼 = select * from 用戶 where 用戶名= + + If 0 Then 如果記錄數(shù)大于零 驗證密碼 If = 密碼) Then Load Form2 Unload Me Else If 密碼) Then MsgBox 密碼錯誤,請重新輸入！, vbCritical, 系統(tǒng)提示 itimes = itimes + 1 = End If

17、 End If Else MsgBox 用戶不存在,請重新輸入！, vbCritical, 系統(tǒng)提示 itimes = itimes + 1 = = End If If itimes = 3 Then 錯誤3次，退出系統(tǒng) MyMsg = MsgBox(輸入錯誤,請向管理員查詢！, vbCritical, 系統(tǒng)提示) If MyMsg = vbOK Then End End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) I

18、f KeyCode = vbKeyReturn Then Command1_Click 按回車鍵進入End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 按回車鍵，text2獲得焦點End Sub二、主界面主界面是登陸后最基礎的一個界面，內(nèi)容包括采購訂單，訂單收獲，采購開單，采購付款，采購退貨，產(chǎn)品銷售。圖4-2 主界面它的具體代碼為：Private Sub Command1_Click() = FalseEnd SubPrivate Sub 供應

19、商資料_Click() = FalseEnd SubPrivate Sub 庫存查詢_Click() = FalseEnd SubPrivate Sub 權(quán)限管理_Click() = FalseEnd SubPrivate Sub 添加用戶_Click() = FalseEnd SubPrivate Sub 退出系統(tǒng)_Click()EndEnd SubPrivate Sub 修改密碼_Click() = FalseEnd Sub三添加用戶圖4-3 添加用戶它的具體代碼為：Private Sub Form_Load() 自動識別數(shù)據(jù)庫路徑 = Provider= Source= & & 采購管理

20、系統(tǒng).mdb;Persist Security Info=False = select * from 權(quán)限設置 = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 用戶End SubPrivate Sub Form_Activate() text1獲得焦點End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As I

21、nteger) If KeyCode = vbKeyReturn Then 回車text2獲得焦點End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text3獲得焦點End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車Command1獲得焦點End SubPrivate Sub Comma

22、nd1_Click() Dim yhm 保存用戶名及密碼 If Then = select * from 用戶 where 用戶名= + + If = 用戶名) Then MsgBox 已添加該用戶，請重新添加, , 系統(tǒng)提示 = : = : = ElseIf And And = Then Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False select * from 用戶, adocon, adOpenKeyset, adLockOptimistic (用戶名) = (密碼) = Provider= Source= & &

23、 采購管理系統(tǒng).mdb;Persist Security Info=False select * from 權(quán)限設置, adocon, adOpenKeyset, adLockOptimistic (用戶名) = (密碼) = = : = : = MsgBox 添加用戶成功！, , 系統(tǒng)提示 ElseIf = Then MsgBox 請輸入確認密碼, , 系統(tǒng)提示 ElseIf Then MsgBox 兩次輸入的密碼不相同, , 系統(tǒng)提示 = = End If Else MsgBox 請輸入用戶名！, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command2_Click

24、() = : = : = End SubPrivate Sub Command3_Click() Unload Me = TrueEnd Sub四密碼設置 本功能允許使用者對密碼進行修改，取保系統(tǒng)的安全與方便。如果你是系統(tǒng)的用戶，輸入用戶名可對自己的密碼進行修改。圖4-4 密碼設置它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 權(quán)限設置 End SubPrivate Sub Command1_Click() If = Or

25、 = Or = Then MsgBox 輸入不能為空!, 48, 提示信息 Else = select * from 權(quán)限設置 where 用戶名= + + If 0 Then If = 密碼) Then Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False Set adoRs = (update 權(quán)限設置 set 密碼= + + where 用戶名= + + ) Dim rs1 As New select * from 用戶 where 用戶名= + + , StrCnn, adOpenKeyset, adLockPessi

26、mistic If 0 Then (密碼) = End If MsgBox 密碼修改成功,退出密碼設置!, , 系統(tǒng)提示 = True Unload Me Else MsgBox 原密碼錯誤,請重新輸入原密碼!, , 系統(tǒng)提示 End If Else MsgBox 該用戶不存在,請重新輸入, , 系統(tǒng)提示 End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Command2_Click() = True Unload Me End SubPrivate Sub Form_A

27、ctivate() 回車text1獲得焦點End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text2獲得焦點End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text3獲得焦點End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Sh

28、ift As Integer) If KeyCode = 13 Then Command1_ClickEnd Sub五權(quán)限管理： 圖詳細的陳述了權(quán)限設置的內(nèi)容，包括系統(tǒng)設置，資料管理，采購管理，庫存管理和退貨管理。圖4-5 權(quán)限管理它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 權(quán)限設置 = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = sel

29、ect * from 權(quán)限設置 Set = Adodc2End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Datalist1_Click() = select * from 權(quán)限設置 where 用戶名= & & If 0 Then For i = 0 To 11 If = -1 Then Check1(i).Value = 1 Else Check1(i).Value = 0 Next i Else = 0 End IfEnd SubPrivate Sub Command1_Click() 全

30、選For i = 0 To 11 Check1(i).Value = 1Next iEnd SubPrivate Sub Command2_Click() 全不選 For i = 0 To 11 Check1(i).Value = 0 Next iEnd SubPrivate Sub Command3_Click() 為用戶設置權(quán)限 If Then = select * from 權(quán)限設置 where 用戶名= + + If 0 Then For i = 0 To 11 If Check1(i).Value = 1 Then = -1 Else = 0 Next i End If MsgBox

31、 權(quán)限設置成功!, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command4_Click() Unload Me = True End SubPrivate Sub Command5_Click() 刪除用戶 On Error Resume Next A = MsgBox(確認刪除該用戶, 4, 系統(tǒng)提示) If A = vbYes Then Dim rs2 As New select * from 用戶 where 用戶名 = + + , StrCnn, adOpenKeyset, adLockPessimistic If 0 Then End If Unload M

32、e End IfEnd Sub六采購訂單企業(yè)向供應商訂貨物時，開據(jù)采購訂單，以便供應商及時供貨。在界面內(nèi)填入相應的商品信息，點擊添加則會將所輸入的訂單信息保存到采購訂單中中。如果輸入有誤，且已保存，可以應用刪除功能，將錯誤信息刪除。訂單號不能為空，否則會彈出對話框提醒請輸入完整信息！在單價和數(shù)量中輸入數(shù)字，金額項目會自動顯示為兩者乘積結(jié)果。 圖4-6 采購商品信息的錄入它的具體代碼為：Private Sub Form_Load() 連接access數(shù)據(jù)庫 = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = selec

33、t * from 采購訂單 = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 供應商資料 供應商名稱) DTPicker1 = Date DTPicker2 = Date = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 付款明細賬 End SubPrivate Sub Command1_Click() If = Or = Then MsgBox 請輸入單據(jù)編號和商品編號, , 系

34、統(tǒng)提示 Else If = 單據(jù)編號) Or = 商品編號) Then MsgBox 單據(jù)編號和商品編號不能重復添加，請重新輸入, , 系統(tǒng)提示 = = = = = = = = = = = = = = = = Else 單據(jù)編號) = Trim 錄單日期) = Trim 供應商) = Trim 到貨日期) = Trim 聯(lián)系人) = Trim 電話) = Trim 業(yè)務員) = Trim 摘要) = Trim 商品編號) = Trim 商品名稱) = Trim 型號) = Trim 規(guī)格) = Trim 單位) = Trim 數(shù)量) = Trim 單價) = Trim 合計金額) = Trim

35、 預付賬戶) = Trim 預付金額) = Trim 單據(jù)編號) = Trim 商品編號) = Trim 商品名稱) = Trim 合計金額) = Trim 已預付款) = Trim 應付款) = Trim - Trim = = = = = = = = = = = = = = = = End If End IfEnd SubPrivate Sub Command2_Click() = = = = = = = = = = = = = = = = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd SubPrivate Sub Text12

36、_Change() = Val * ValEnd Sub七訂單收貨訂單收貨：是“采購訂單”上的貨到貨后入庫，完成交易。對采購訂單表中商品的訂單號進行查找。在表中可查詢訂貨商品的詳細信息，如單價、數(shù)量、商品是否入庫等，如果沒有入庫，則可應用入庫功能，對商品進行入庫處理。圖為訂單收貨圖，包括單據(jù)編號，錄單日期，供應商，到貨日期，聯(lián)系人，電話，業(yè)務員，商品編號，商品名稱，型號，規(guī)格，單位，數(shù)量，單價。輸入單據(jù)編號就可以查找到提到的相關(guān)的所有信息。圖4-7 訂單收貨它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購管理系統(tǒng).mdb;Pe

37、rsist Security Info=False = select * from 采購訂單 where 是否已入庫=0 order by 單據(jù)編號 Set = Adodc1 = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 庫存商品 End SubPrivate Sub Command4_Click() 查找訂單 = select * from 采購訂單 where 采購訂單.單據(jù)編號 = & & End SubPrivate Sub Command1_Click() 入庫 商品編號)

38、 = 商品編號) 商品名稱) = 商品名稱) 型號) = 型號) 規(guī)格) = 規(guī)格) 單位) = 單位) 數(shù)量) = 數(shù)量) 單價) = 單價) 合計金額) = 合計金額) 單據(jù)編號) = 單據(jù)編號) 入庫日期) = 到貨日期) 供應商) = 供應商) 聯(lián)系人) = 聯(lián)系人) 電話) = 電話) 業(yè)務員) = 業(yè)務員) 摘要) = 摘要) 是否已入庫) = -1 Set = Adodc1 = End SubPrivate Sub Command2_Click() = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub八采購開單采

39、購開單是企業(yè)向供應商訂貨時，開據(jù)入庫訂單，以便了解收貨情況并預先安排存放貨物的倉庫。填入相關(guān)商品信息，將相關(guān)商品信息保存到庫存臺賬中，對于倉庫中已有的商品，數(shù)量上會在原有的基礎上增加。 圖為采購開單圖，包括單據(jù)編號，錄單日期，供應商，到貨日期，聯(lián)系人，電話，業(yè)務員，商品編號，商品名稱，型號，規(guī)格，單位，數(shù)量，單價。還包括摘要合計金額，付款賬戶，付款金額。輸入入庫日期就會彈出在此時間段入庫的商品的信息。 圖4-8 采購開單具體代碼為：Private Sub Form_Load() 連接access數(shù)據(jù)庫 = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Sec

40、urity Info=False = select * from 庫存商品 = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 付款明細賬 DTPicker2 = DateEnd SubPrivate Sub Command1_Click() 單據(jù)編號) = Trim 入庫日期) = Trim 供應商) = Trim 聯(lián)系人) = Trim 電話) = Trim 業(yè)務員) = Trim 摘要) = Trim 商品編號) = Trim 商品名稱) = Trim 型號) = Trim 規(guī)格)

41、= Trim 單位) = Trim 數(shù)量) = Trim 單價) = Trim 合計金額) = Trim 追加付款賬戶) = Trim 追加付款) = Trim 應付款) = Trim - Trim End SubPrivate Sub Command2_Click() = = = = = = = = = = = = = = = = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub九采購付款若付款給供應商，支付金額自動登賬入庫，完成入庫交易。輸入訂單號對要付款的訂單進行查詢，如果訂單號存在且其“是否付款”屬性為否，則確認付款，

42、并將信息保存到倉庫庫存臺賬中完成付款交易。圖為采購付款，包括單據(jù)編號，商品編號，商品名稱，合計金額，已預付款，追加付款金額，追加付款賬戶。 圖4-9 采購付款具體代碼如下：Private Sub Form_Load() = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 采購訂單 where 是否已核銷=0 order by 單據(jù)編號 Set = Adodc1 = = = = = = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Inf

43、o=False = select * from 付款明細賬 where 是否已核銷=0 order by 單據(jù)編號 End SubPrivate Sub Command1_Click() 單據(jù)編號) = Trim 商品編號) = Trim 商品名稱) = Trim 合計金額) = Trim 已預付款) = Trim 追加付款賬戶) = Trim 追加付款) = Trim 是否已核銷) = -1 應付款) = 0 是否已核銷) = -1 End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub十采購退貨采購退貨是對銷售中不滿意的商品向供

44、應商要求退貨。輸入需要退貨的商品的相關(guān)信息即可進行退貨處理，庫存臺賬中的商品數(shù)量會相應減少。采購部門也可對退貨產(chǎn)品進行查詢。 圖為采購退貨，包括商品編號，商品名稱，商品數(shù)量，型號，供應商和聯(lián)系方式。圖4-10 采購退貨具體代碼如下：Private Sub Command1_Click()Unload Me = TrueEnd SubPrivate Sub Command2_Click() = select * from 采購退貨 where 采購退貨.商品編號 = & & If Then MsgBox SORRY,未找到你所查詢的數(shù)據(jù)，請查證后再試, , 確定ElseText2 = 商品名稱)

45、Text3 = 商品數(shù)量)Text4 = 型號)Text5 = 供應商)Text6 = 聯(lián)系方式)End IfEnd SubPrivate Sub Command3_Click() If = Or = Or = Or = Or = Or = Then MsgBox 請輸入完整信息, , 系統(tǒng)提示 Else 商品編號) = Trim 商品名稱) = Trim 商品數(shù)量) = Trim 型號) = Trim 供應商) = Trim 聯(lián)系方式) = Trim = = = = = = MsgBox 商品已添加成功, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command4_Cl

46、ick() = = = = = = End SubPrivate Sub Form_Load() = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 采購退貨 End Sub十一. 產(chǎn)品銷售 本功能可以將銷售的產(chǎn)品信息輸入到管理系統(tǒng)中，生成銷售報表。也可對已銷售的商品信息進行查詢、刪除處理。 圖4-11產(chǎn)品銷售具體代碼如下：Private Sub Command1_Click() = select * from 產(chǎn)品銷售 where 產(chǎn)品銷售.商品編號 = & & If Then MsgB

47、ox SORRY,未找到你所查詢的數(shù)據(jù)，請查證后再試, , 確定ElseText2 = 商品名稱)Text3 = 型號)Text4 = 銷售數(shù)量)End IfEnd SubPrivate Sub Command2_Click()Unload Me = TrueEnd SubPrivate Sub Command3_Click() If = Or = Or = Or = Then MsgBox 請輸入完整信息, , 系統(tǒng)提示 Else 商品編號) = Trim 商品名稱) = Trim 型號) = Trim 銷售數(shù)量) = Trim = = = = MsgBox 商品已添加成功, , 系統(tǒng)提示

48、End IfEnd SubPrivate Sub Command4_Click() MsgBox 商品已刪除, , 系統(tǒng)提示End SubPrivate Sub Command5_Click() = = = = End SubPrivate Sub Form_Load() = Provider= Source= & & 采購管理系統(tǒng).mdb;Persist Security Info=False = select * from 產(chǎn)品銷售 End Sub系統(tǒng)運行管理制度企業(yè)銷售采購管理信息系統(tǒng)運行管理制度第一條為做好銷售采購管理信息系統(tǒng)運行管理工作，制定本制度。第二條本制度適用于采購管理所涉及的所有部門和人員。第三條本系統(tǒng)主要負責采購管理、銷售管理、庫存管理和財務管理等。第四條系統(tǒng)所有相關(guān)的部門都必須按照系