采購管理信息系統(tǒng)設計

1、目錄目錄i1 前言11.1 作業(yè)背景11.2 選題說明11.2.1 基本思路21.2.2 作業(yè)目標21.3 工作業(yè)績21.3.1 個人主要工作21.3.2 主要收獲21.3.3 自我評定31.3.4 小組成員任務分工情況32 系統(tǒng)規(guī)劃42.1 可行性分析42.1.1可行性研究方法42.1.2可行性綜合分析43 系統(tǒng)分析53.1 詳細調查分析53.1.1 業(yè)務流程圖53.2 系統(tǒng)的邏輯模型53.2.1 數據流程圖53.2.2 數據字典64 系統(tǒng)設計84.2 總體設計84.2.1功能結構圖設計84.2.2 e-r94.3 詳細設計94.3.1 輸入輸出設計94.3.2代碼設計104.3.3數據庫設

2、計105 系統(tǒng)實施12結束語28參考文獻291 前言1.1 作業(yè)背景本文根據管理信息系統(tǒng)開發(fā)實踐課程要求而做。課程作業(yè)要求如下：管理信息系統(tǒng)開發(fā)作為獨立的教學環(huán)節(jié)，是學習完管理信息系統(tǒng)課程并進行完專業(yè)實習后進行的一次全面的綜合練習。其目的在于加深對管理信息系統(tǒng)基礎理論和基本知識的理解，掌握使用信息系統(tǒng)分析、設計的基本方法，提高解決實際管理問題、開發(fā)信息系統(tǒng)的實踐能力。具體內容是：用信息系統(tǒng)開發(fā)工具（例如powerbuilder、delphi、vb、vfp等）開發(fā)一個實用的中小型采購管理信息系統(tǒng)。具體要求如下：1、根據課程實踐時間選擇適當規(guī)模大小的設計課題。針對信息系統(tǒng)課程實踐的具體特點，體現項

3、目管理的思想，由指導教師對學生進行分組（每組4-6人），一組一題，分工合作，共同完成。2、根據合理的進度安排，按照系統(tǒng)開發(fā)的流程及方法，踏實地開展課程實踐活動。3、課程實踐過程中，根據選題的具體需求，在開發(fā)各環(huán)節(jié)中撰寫相關的技術文檔，最后要求提交詳細的課程實踐報告。4、開發(fā)出可以運行的管理信息系統(tǒng)，通過上機檢查。1.2 選題說明進入 21 世紀，隨著技術進步和客戶需求多樣化，企業(yè)經營的市場環(huán)境發(fā)生了很大的變化,從過去的供應商主導的、靜態(tài)的、簡單的市場環(huán)境變成客戶為主導的、動態(tài)的、復雜的市場環(huán)境。企業(yè)之間由單純產品質量、性能方面的競爭轉向企業(yè)所在的供應鏈之間的競爭。在企業(yè)經營管理中,采購是最重要

4、的一個環(huán)節(jié)。它對于企業(yè)降低經營成本、確保產品質量、縮短生產周期具有非常重要的意義。采購管理為降低采購成本，提高采購效益提供了廣闊的空間，但也同時為采購管理帶來了新的機遇和挑戰(zhàn)。目前,我國大多數企業(yè)仍然沒有建立健全的供應鏈管理體系,物資的采購還存在機構設置分散,資源浪費嚴重,信息傳遞滯后等問題。1.2.1 基本思路本文從全通公司提高采購管理的需求入手,給出了適合本企業(yè)的采購供應管理系統(tǒng)整體設計方案。在系統(tǒng)業(yè)務流程改造和功能模塊的設計中體現出先進的采購管理思想,并對采購業(yè)務管理的具體內容進行了分析與設計。1.2.2 作業(yè)目標該系統(tǒng)將有效的整合企業(yè)內外部的資源,加強企業(yè)與供應商之間的緊密合作,增強企

5、業(yè)采購業(yè)務的透明度,規(guī)范標準業(yè)務流程,提高采購的效率和質量,提升企業(yè)的核心競爭力。通過對采購管理系統(tǒng)設計與開發(fā)，使采購部門的工作效率大大提升，實現采購管理工作的信息化，網絡化等，從而降低采購的總體成本，增加企業(yè)的利潤，并能更好的完成企業(yè)最終目標。1.3 工作業(yè)績1.3.1 個人主要工作我在團隊中的主要工作是進行系統(tǒng)實施，系統(tǒng)實施的主要內容包括物理系統(tǒng)的實施、程序設計與調試、人員培訓、數據準備與錄入、系統(tǒng)轉換與評價等。系統(tǒng)實施階段既是成功地實現新系統(tǒng)，又是取得用戶對系統(tǒng)信任的關鍵。1.3.2 主要收獲通過對全通公司的采購管理系統(tǒng)進行設計，使我不僅了解到系統(tǒng)實施部分的內容，也使我更深的掌握了管理信

6、息系統(tǒng)的開發(fā)方法以及重要性。開發(fā)一個管理信息系統(tǒng)好像建一棟大樓，系統(tǒng)分析、系統(tǒng)設計是根據用戶的要求畫出各種藍圖，系統(tǒng)實施是調集各類人員、設備、材料，在現場根據圖紙按實施方案的要求把“大樓”建起來。通過對這個系統(tǒng)的開發(fā)設計，使我這學期所學的管理信息系統(tǒng)得到了運用，實現了從理論到實踐的升華，一個完善的管理信息系統(tǒng)可以促使公司向信息化方向發(fā)展，將管理工作統(tǒng)一化、規(guī)范化、現代化，使公司處于一個信息靈敏、管理科學、決策準確的良性循環(huán)中，為公司帶來跟高的效益。最后，我還明白了集體協(xié)作的重要性。我們組的各個成員通過合理分工、互幫互助才完成了這個系統(tǒng)的開發(fā)設計，所以。通過這次團隊合作，不僅學到先進的專業(yè)知識，

7、更加深了團隊合作的意識。1.3.3 自我評定 優(yōu) 良 中 及格 不及格1.3.4 小組成員任務分工情況本組為本次課程設計第四組，組長為：，小組所有成員分工如下：2 系統(tǒng)規(guī)劃2.1 可行性分析2.1.1可行性研究方法通過調查分析采購供應管理信息系統(tǒng)所具備的能力及實現的方法。確定總體結構，利用數據庫所具有的能力，以最簡潔最容易的方法，使其成為一個初級的系統(tǒng)軟件。2.1.2可行性綜合分析（1）可行性：系統(tǒng)現階段的發(fā)展過程中，利用現有人力和物力是完全具備的能力開發(fā)出來的，作為階段性產品，日后的發(fā)展空間大，實現方法逐步簡單容易。對于該系統(tǒng)的技術要求，現行的軟件開發(fā)條件，環(huán)境，完全可以實現。sql ser

8、ver 2000完全可以提供該系統(tǒng)的操作要求和數據庫需求。所以采購供應管理信息系統(tǒng)在技術上是完全可行的。（2）技術可行性：該系統(tǒng)的開發(fā)要求是界面簡單，易于操作。（3）經濟可行性：該系統(tǒng)做為課程設計開發(fā)，經濟可行性在此不做討論。（4）管理可行性：此次采購系統(tǒng)的開發(fā)得到了大商集團采購部門經理的大力支持，期待著設計出的采購系統(tǒng)能夠使大商百貨公司采購流程效率提高。采購部門的其他人員也期待著采購系統(tǒng)能夠成功的開發(fā)，幫助他們能夠快速準確的工作，減少作業(yè)量提高效率。3 系統(tǒng)分析系統(tǒng)分析在整個開發(fā)過程中，是要解決“做什么”的問題。從邏輯上，或者說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進行

9、物理方案設計、解決“怎么做”提供依據。3.1 詳細調查分析3.1.1 業(yè)務流程圖業(yè)務流程圖(transaction flow diagram,簡稱tfd),就是用一些規(guī)定的符號及連線來表示某個具體業(yè)務處理過程。是一種用盡可能少、盡可能簡單的方法來描述業(yè)務處理過程的方法。付款單供應商財務部退款單收貨單庫工采購訂單采購員采購單退貨單2份3.2 系統(tǒng)的邏輯模型3.2.1 數據流程圖 3.2.2 數據字典數據字典是對描述數據流程圖中的數據項、數據流、數據存儲、加工處理邏輯等組成部分的嚴格定義，下面是本系統(tǒng)的部分數據字典。(1) 數據流的描述數據流編號g-01數據流名稱采購訂單簡述全通公司實時購買的貨物

10、單數據流來源采購部門數據流去向采購員數據項組成訂單號+經手人+日期+貨物名稱+貨物代碼+數量+貨物單價+金額數據流量24張/天高峰流量30張/天（2）處理邏輯描述處理邏輯編號p1處理邏輯名稱采購處理簡述對采購訂單進行統(tǒng)計，開出采購單輸入的數據流采購訂單處理描述對采購訂單進行處理，將所訂的貨物進行分類，編制合理有效的采購單輸出的數據流采購單處理頻率1張/小時（3）數據存儲的描述數據存儲編號f1數據存儲名稱采購臺賬簡述采購的貨物的記錄數據存儲組成貨物名稱+貨物代碼+貨物數量+貨物單價+貨物單位+金額+日期關鍵字貨物相關聯(lián)的處理p1（4）外部實體的描述外部實體編號s1外部實體名稱采購員簡述采購貨物人

11、員輸入的數據流采購訂單輸出的數據流采購訂單4 系統(tǒng)設計4.2 總體設計4.2.1功能結構圖設計采購管理信息系統(tǒng)用戶登錄界面主界面采購訂單訂單收貨采購開單采購付款采購查詢密碼修改4.2.2 e-r4.3 詳細設計4.3.1 輸入輸出設計輸出設備：屏幕輸出方式：顯示輸出與打印輸出輸出形式：報表輸出形式輸入設計： 對輸入信息進行校驗1.在登陸界面： 用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會彈出對話框提醒請輸入用戶名與密碼！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒無該用戶！2.在采購訂單： 訂單號不能為空，否則會彈出對話框提醒請輸入完整信息，輸入訂單號 編號為數字

12、！在單價和數量中輸入數字，金額項目會自動顯示為兩者乘積結果。4.3.2代碼設計代碼設計部分主要是采購訂單號的設計。全通公司的主要合作伙伴為其設計固定的編碼。采購訂單號是由廠家名和產品類別構成的。廠家代碼廠家名稱產品類別代碼產品類別01百事可樂公司01果汁類飲品02可口可樂公司02茶系列飲品03娃哈哈公司03酸奶類飲品04農夫山泉公司04碳酸飲料類05統(tǒng)一公司05礦泉水06其他公司06其他類別4.3.3數據庫設計1、數據庫的建立該系統(tǒng)的數據庫主要是應用access編輯軟件進行編輯的。表5-1：采購信息表字段名稱數據類型訂單號文本時間文本經手人文本入庫文本供應商文本是否交貨文本數量數字單價數字金額

13、數字商品名稱文本商品編號數字2、數據庫的連接 在visual basic中，使程序與數據庫的連接有兩種方式，一種使通過設置ado控件的屬性將程序與數據庫進行連接，另一種是通過代碼形式將ado控件連接數據庫，通過代碼的形式雖然加大了開發(fā)難度，但是有很多的優(yōu)點，所以，在程序開發(fā)是選擇了以代碼的形式來連接數據庫。5 系統(tǒng)實施一、登錄界面當輸入的賬號為：1 密碼為：1 時，焦點會自動落在確定上面，此時點擊確定就可以登入系統(tǒng)。若錯誤，則會彈出對話框提醒“用戶名密碼錯誤,請重新輸入！”并且它的輸入密碼為“*”，是在屬性欄中的passwordchar設置“*”。用戶名及密碼不能為空，如不填寫兩者或兩者之一，

14、則會彈出對話框提醒請輸入用戶名與密碼！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會彈出對話框提醒無該用戶！圖5-1 登陸窗口它的具體代碼為：private sub command1_click()if text1 = or text2 = thenmsgbox 請輸入用戶名與密碼！elseadodc1.recordset.filter = 用戶名= + text1.text + adodc1.recordset.find 用戶名= + text1.text + if adodc1.recordset.eof then msgbox 無該用戶！ else adodc1.recordse

15、t.filter = 用戶名 + = + + text1.text + if text2 adodc1.recordset.fields(密碼) thenmsgbox 用戶名密碼錯誤,請重新輸入！elseform2.showform1.hideend ifend ifend if text2 = end subprivate sub command2_click()endend subprivate sub text2_change()if text2.text = 1 thencommand1.setfocusend ifend sub 二、主界面圖5-2 主界面主界面是登陸后最基礎的一個界

16、面，內容包括采購訂單，采購付款，訂單收貨，采購查詢，采購開單，密碼修改。它的具體代碼為：private sub command1_click()form3.showend subprivate sub command2_click()form3.hideform4.showend subprivate sub command3_click()form5.showend subprivate sub command4_click()form6.showend subprivate sub command5_click()form7.showend subprivate sub command7_

17、click()endend subprivate sub command8_click()form8.showend sub3、采購訂單企業(yè)向供應商訂貨物時，開據入庫訂單，以便了解收貨情況并預先安排存放貨物的倉庫。在界面內填入相應的商品信息，點擊保存則會將所輸入的采購信息保存到采購信息管理表中。如果輸入有誤，且已保存，可以應用刪除功能，將錯誤信息刪除。訂單號不能為空，否則會彈出對話框提醒請輸入完整信息，輸入訂單號 編號為數字！在單價和數量中輸入數字，金額項目會自動顯示為兩者乘積結果。圖5-3 商品信息的錄入它的具體代碼為：private sub command1_click()if text1

18、.text = thenmsgbox 請輸入完整信息，輸入訂單號 編號為數字！, vbokonly + vbexclamation, 警告！text1.setfocuselse adodc1.recordset.addnew adodc1.recordset.fields(時間) = text2.text adodc1.recordset.fields(訂單號) = text1.text adodc1.recordset.fields(供應商) = text4.text adodc1.recordset.fields(經手人) = text3.text adodc1.recordset.fie

19、lds(入庫) = text10.text adodc1.recordset.fields(是否交貨) = text11.text adodc1.recordset.update adodc1.recordset.addnew adodc1.recordset.fields(名稱) = text5.text adodc1.recordset.fields(數量) = val(text7.text) adodc1.recordset.fields(單價) = val(text6.text) adodc1.recordset.fields(金額) = val(text8.text) adodc1.

20、recordset.fields(商品編號) = val(text9.text) adodc1.recordset.update msgbox 已保存訂單！, vbokonly + vbexclamation, 提示 text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = text8.text = text9.text = text10.text = end ifend subprivate sub command2_click()form3.hideend subpr

21、ivate sub command5_click()adodc1.recordset.deleteend subprivate sub text8_change()if not isnumeric(text6.text) or not isnumeric(text7.text) thenmsgbox 請在單價和數量中輸入數字elsetext8 = val(text6) * val(text7)end ifend sub4、訂單收貨 訂單收貨：是“采購訂單”上的貨到后入庫完成交易。對采購訂單表中商品的訂單號進行查詢，訂單號不存在，則會彈出對話框提醒無該訂單。如存在，則會在表中顯示出來，如果其“入

22、庫”屬性為“否”，即說明其沒有入庫，可點擊“收貨交易”，把相應信息保存到倉庫信息管理表中。如果其“入庫”屬性為“是”則“收貨交易”按鈕不可用。 圖5-4訂單收貨它的具體代碼為：private sub command1_click() adodc1.recordset.fields(是否交貨) = 是 adodc1.recordset.update msgbox 完成交易，已入倉庫, vbokonly adodc2.recordset.find 訂單號= & adodc1.recordset.fields(訂單號) if adodc2.recordset.eof = true then adod

23、c2.recordset.addnew adodc2.recordset.fields(名稱) = adodc1.recordset.fields(名稱) adodc2.recordset.fields(數量) = adodc1.recordset.fields(數量) adodc2.recordset.fields(訂單號) = adodc1.recordset.fields(訂單號) adodc2.recordset.fields(單價) = adodc1.recordset.fields(單價) adodc2.recordset.fields(金額) = adodc1.recordset

24、.fields(金額) adodc2.recordset.update else adodc2.recordset.fields(數量) = (adodc2.recordset.fields(數量) + adodc1.recordset.fields(數量) adodc2.recordset.update end if command2.enabled = false text1.text = end subprivate sub command2_click() if text1.text = or not isnumeric(text1) then msgbox 訂單號，并輸入具體數值！,

25、 vbokonly else adodc1.recordset.filter = 訂單號 = + + text1.text + adodc1.recordset.find 訂單號= & text1.text if adodc1.recordset.eof then msgbox 無該訂單 else adodc1.recordset.filter = 訂單號 = + + text1.text + if adodc1.recordset.fields(是否交貨) = 是 then command1.enabled = false else command1.enabled = true end i

26、f end if end ifend subprivate sub command3_click()form4.hideform2.showend subprivate sub form_load()command1.enabled = falsecommand2.enabled = truetext1.text = end sub5、采購單 采購單是對庫存的商品查詢，了解哪些要進行采購。填入相關商品信息，會將相關商品信息。保存到庫存管理表中，對于倉庫中已有的商品，數量上會在原有的基礎上增加。 圖5-5 倉庫二的查詢具體代碼為：private sub text6_change()if not

27、isnumeric(text4.text) or not isnumeric(text5.text) thenmsgbox 請在單價和數量中輸入數字elsetext6 = val(text4) * val(text5)end ifend subprivate sub command1_click()if text1.text = or text2.text = thenmsgbox 請輸入完整信息，供應商與商品名稱！, vbokonly + vbexclamation, 警告！else adodc1.recordset.find 訂單號= & & text3.text & if adodc1.

28、recordset.eof then adodc1.recordset.addnew adodc1.recordset.fields(名稱) = text1.text adodc1.recordset.fields(數量) = val(text5.text) adodc1.recordset.fields(訂單號) = text3.text adodc1.recordset.fields(單價) = val(text4.text) adodc1.recordset.fields(金額) = val(text6.text) adodc1.recordset.fields(是否付款) = 否 ad

29、odc1.recordset.fields(倉庫名) = 倉庫一 adodc1.recordset.updateelse adodc1.recordset.fields(數量) = (val(text5.text) + adodc1.recordset.fields(數量) adodc1.recordset.update end if end if text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = end subprivate sub command2_click()form2.showf

30、orm5.hideend sub6、付款單付款給供應商，支付金額自動登賬入庫，完成入庫交易。輸入訂單號對要付款的訂單進行查詢，如果訂單號存在且其“是否付款”屬性為否，則確認付款，并將信息保存到倉庫管理表中完成付款交易。圖5-6倉庫調撥具體代碼如下：private sub command1_click() adodc1.recordset.fields(是否付款) = 是 adodc1.recordset.update msgbox 完成付款交易！, vbokonly text1.text = end subprivate sub command2_click()form2.showform6.

31、hideend subprivate sub command3_click() if text1.text = or not isnumeric(text1) thenmsgbox 輸入訂單號！, vbokonlyelse adodc1.recordset.filter = 訂單號 = + + text1.text + adodc1.recordset.find 訂單號= & & text1.text & if adodc1.recordset.eof then msgbox 無該訂單! else adodc1.recordset.filter = 訂單號 = + + text1.text +

32、 if adodc1.recordset.fields(是否付款) = 是 then command1.enabled = false else command1.enabled = true end if end if end ifend sub7、采購查詢采購查詢是一個有限制條件的查詢窗口，也就是說由用戶自定義最低的庫存數量，然后可以方便的讓操作人員進行查詢。本系統(tǒng)將最低庫存數量設置為小于50，這樣在一定時間內就可以對倉庫的數量進行查詢，及時采購補貨。圖5-7 采購查詢具體代碼如下：private sub command1_click()adodc1.recordset.filter =

33、數量50end subprivate sub command2_click()form2.showform7.hideend sub8、密碼修改 本功能允許使用者對密碼進行修改，取保系統(tǒng)的安全與方便。如果你是系統(tǒng)的用戶，輸入用戶名可對自己的密碼進行修改。如果密碼確認不同則提示兩次密碼不同，請從新輸入！圖4-9密碼修改具體代碼如下：private sub command1_click()if text1 = or text3 = or not isnumeric(text2) thenmsgbox 請完整信息，密碼為數字！elseif text1 text2 thenmsgbox 兩次密碼不同，請從新輸入！text1 = text2 = text1.setfocuselseadodc1.recordset.filter = 用戶名