軟件課程設(shè)計報告企業(yè)采購管理系統(tǒng)

1、軟件課程設(shè)計報告 企業(yè)采購管理系統(tǒng) 課程設(shè)計說明書作 者：學(xué) 院：專 業(yè)：題 目：企業(yè)采購管理系統(tǒng)日期：2011年 9月目 錄第一章 概述 3 1.1項目背景 31.2編寫意義 31.3軟件定義 31.4開發(fā)環(huán)境 3第二章 需求分析42.1問題的提出 42.2系統(tǒng)的業(yè)務(wù)功能分析 42.3系統(tǒng)需要完成的功能 42.4系統(tǒng)的業(yè)務(wù)流程分析 52,5數(shù)據(jù)流圖 72.6數(shù)據(jù)字典 8第三章 系統(tǒng)設(shè)計93.1數(shù)據(jù)表 93.2數(shù)據(jù)庫的關(guān)系模式133.3表的設(shè)計133.3軟件功能表15第四章 系統(tǒng)實施164.1系統(tǒng)登錄界面 164.2商品信息匯總界面254.3采購界面 284.4訂購信息界面 404.5銷售界面

2、424.6客戶訂購界面 48第五章 系統(tǒng)測試565.1 給出單元測試的測試用例 565.2 給出系統(tǒng)測試的測試用例 58第六章 收獲體會62第七章 參考文獻641、 概述1、 項目背景：采購是企業(yè)物資供應(yīng)部門按已確定的物資供應(yīng)計劃，通過市場采購、加工訂制等各種渠道，取得企業(yè)生產(chǎn)經(jīng)營活動所需要的各種物資的經(jīng)濟活動。無論是工業(yè)企業(yè)還是商業(yè)企業(yè)，“采購”業(yè)務(wù)的狀況都會影響到企業(yè)的整體運營狀況。在日臻完善的現(xiàn)代經(jīng)營管理模式中，公司管理者越來越重視財務(wù)管理和財務(wù)運作的有效性。以往企業(yè)的采購采用的是紙質(zhì)文件傳輸，這樣勢必造成采購流程時間的拉長和對采購流程監(jiān)控不及時的問題存在，而這些問題隨著企業(yè)規(guī)模不斷的擴

3、大，以及產(chǎn)能的提高，將不可避免的制約企業(yè)發(fā)展的速度，因此電子商務(wù)的出現(xiàn)為解決這一問題提供了途徑。2、 編寫目的： 1）實用意義：材料采購成本在企業(yè)經(jīng)營中占了很大比重，且在很多的行業(yè)中均有上升趨勢；降低原材料成本是增加利潤的基本途徑。因此，建立和實施制度化的采購管理程序，是采購管理者工作有效進行的根本保證。該程序的針對性和實用性都比較強。 2）鍛煉意義：作為網(wǎng)絡(luò)工程專業(yè)的學(xué)生，設(shè)計與編碼的基本功夯實打牢，通過這次軟件課程設(shè)計，夯實基礎(chǔ)，發(fā)現(xiàn)問題，提高能力并且養(yǎng)成求是作風(fēng)，會讓我們受益良多。3、 軟件定義： 按照企業(yè)實際運營模式來設(shè)計一套企業(yè)采購管理系統(tǒng)。使這套系統(tǒng)能夠高效完成現(xiàn)代生產(chǎn)型企業(yè)采購流

4、程的需求。做到數(shù)據(jù)安全、穩(wěn)定性強、功能清晰。實現(xiàn)的功能主要圍繞在采購過程中所發(fā)生的訂貨、進貨、付款、退貨等行為創(chuàng)建訂單、進貨單、退貨單等。使之運用到企業(yè)的采購流程中去，提高采購流程效率，解決傳統(tǒng)采購中諸如查詢難，監(jiān)管不力等問題。4、 開發(fā)環(huán)境：windows7sql server2008 delphi72、 需求分析1、問題的提出：現(xiàn)在我國大多數(shù)企業(yè)都已經(jīng)在使用采購管理系統(tǒng)進行采購，他們在使用之后都反映說，通過企業(yè)采購管理系統(tǒng)能夠提高貨品的周轉(zhuǎn)速度，縮減企業(yè)的生產(chǎn)周期，提高員工的工作效率，增加企業(yè)的利潤。我們試著將該系統(tǒng)中需要實現(xiàn)的各個功能一一體現(xiàn)在本次軟件課程設(shè)計作品中。2、系統(tǒng)的業(yè)務(wù)功能分

5、析： 企業(yè)為了滿足生產(chǎn)所需和提高生產(chǎn)效率，開發(fā)企業(yè)采購管理系統(tǒng)。系統(tǒng)要求易于操作，有良好的互動性，能為使用者的工作帶來便利。一個全面的綜合管理系統(tǒng)需要在客觀現(xiàn)實的基礎(chǔ)上實現(xiàn)盡可能多的功能。根據(jù)現(xiàn)階段我們了解的企業(yè)需求，可以將系統(tǒng)分為以下幾個基本功能。3、需完成的功能：商品采購信息管理功能1）商品采購的基本信息記錄，查詢記錄的相關(guān)條目；2）實現(xiàn)商品采購的新增，刪除，提交信息功能；3）根據(jù)需要選擇更新制造商和商品信息?？蛻粲嗁徯畔⒐芾砉δ?） 客戶訂貨信息記錄（含訂貨單、客戶編號、商品編號、訂購數(shù)目、訂貨日期以及是否出貨）；2）實現(xiàn)多條件查詢功能（可根據(jù)訂單號、客戶編號、訂貨日期查詢訂貨信息）；3

6、）根據(jù)需要顯示清空與查詢記錄；商品信息匯總功能1） 商品記錄與顯示功能，商品信息匯總顯示列表功能；2） 實現(xiàn)多條件查詢功能（可根據(jù)商品編號、種類、名稱、產(chǎn)地、制造商查詢商品信息）；商品銷售管理功能1） 商品銷售信息記錄功能，查詢記錄相關(guān)條目；2） 實現(xiàn)銷售的新增記錄，刪除，提交等功能；客戶訂購專用通道功能1）實現(xiàn)商品信息的查看、訂購、打印報表功能；2）實現(xiàn)按條件查詢功能（通過訂單號、商品編號、時間段查詢商品訂購信息）；4、系統(tǒng)的業(yè)務(wù)流程分析：編輯、新增采購單編輯、新增商品編輯、新增制造商編輯、新增銷售單具體操作多條件查詢訂貨單信息退貨信息匯總進貨信息匯總訂貨信息匯總具體操作已有銷售單查詢管理員

7、登錄客戶訂貨記錄功能采購功能商品信息匯總功能企業(yè)采購管理系統(tǒng)銷售功能采購員登錄退貨信息匯總進貨信息匯總訂貨信息匯總商品信息匯總功能企業(yè)采購管理系統(tǒng)具體操作多條件查詢訂貨單信息客戶訂貨記錄功能編輯、新增采購單編輯、新增商品編輯、新增制造商采購功能銷售員登錄企業(yè)采購管理系統(tǒng)編輯、新增銷售單具體操作已有銷售單查詢銷售功能具體操作多條件查詢訂貨單信息客戶訂貨記錄功能退貨信息匯總進貨信息匯總訂貨信息匯總商品信息匯總功能客戶登錄企業(yè)采購管理系統(tǒng)下新的訂單查看商品的信息查看原來的訂單打印自己的訂單5、數(shù)據(jù)流圖查詢管理錄入 采購信息 銷售信息銷售員管理員采購員聯(lián)系管理 客戶訂購信息 商品匯總信息錄入錄入管理采

8、購員 采購信息 管理客戶銷售員 銷售統(tǒng)計訂購信息 通知信息 打印報表 六、數(shù)據(jù)字典名稱：商品記錄單描述：包括采購銷售過程中編號、制造商、經(jīng)辦人等信息位置：采購銷售管理中名稱：商品信息表描述：供企業(yè)查找編號、名稱、價格、型號等基本信息位置：商品信息匯總名稱：客戶訂單描述：商品編號、類型、名稱、單價、數(shù)量、訂貨日期位置：客戶訂購專用通道名稱：用戶類型表描述：管理員、銷售員與采購員查找業(yè)務(wù)分配情況位置：系統(tǒng)登錄三、系統(tǒng)設(shè)計1、數(shù)據(jù)表： (1) e-r圖productbookrecordoutrecordinrecorduseruser-outaccordingproducehaveinoutuser

9、-inbookproduceruser實體userusertypeuseriduserphonepasswordusernameproductproduceridproductidoutpriceinpriceproducttypeproductnametotalproduct實體inrecord實體inrecordinnumberinidinuseridproduceriddataproductidoutrecord實體outrecordoutnumberoutiddatabookidoutuseridcustomeridproductidbookrecord實體bookrecordbook

10、numberbookidproductidcustomeriddatais_saleproducer實體producerproducernameproduceridaddressproducerphonerange2、數(shù)據(jù)庫的關(guān)系模式：user(userid,password,username,userphone,usertype)product(productid,productname,producttype,producerid,inprice,outprice,total)outrecord(outid,bookid,customerid,outnumber,outuserid,pro

11、ductid,date)inrecord(inid,innumber,producerid,inuserid,productid,data)bookrecord(bookid,booknumber,customerid,productid,date,is_sale)producer(producerid,producername,producerphone,address,range)3、表的設(shè)計user表屬性名數(shù)據(jù)類型是否主鍵是否允許為空缺省值說明useridvarchar(15)yesnot nullautoincrement用戶代碼usernamevarchar(15)nonot nul

12、l用戶名passwordvarchar(15)nonot null密碼usertypevarchar(15)nonot null用戶類型userphonevarchar(15)nonull用戶電話product表屬性值數(shù)據(jù)類型是否主鍵是否允許為空缺省值說明productidvarchar(15)yesnot nullautoincrement商品代碼productnamevarchar(15)nonot null商品名稱producttypevarchar(15)nonot null商品類型produceridvarchar(15)nonot null制造商代碼inpricedecimal(8

13、,2)nonot null進貨單價outpricedecimal(8,2)nonot null銷售單價totalintegernonot null總數(shù)producer表屬性值數(shù)據(jù)類型是否主鍵是否允許為空缺省值說明produceridvarchar(15)yesnot nullautoincrement制造商代碼producernamevarchar(15)nonot null制造商名稱addressvarchar(15)nonull制造商地址producerphonevarchar(15)nonull制造商電話rangeintegernonot null評價等級outrecord表屬性值數(shù)據(jù)類

14、型是否主鍵是否允許為空缺省值說明outidvarchar(15)yesnot nullautoincrement出貨代碼outnumberintegernonot null出貨數(shù)量datadatanonot nullgetdate()出貨日期outuseridvarchar(15)nonot null銷售員代碼customeridvarchar(15)nonot null顧客代碼productidvarchar(15)nonot null商品代碼bookidintegernonot null訂單號inrecord表屬性值數(shù)據(jù)類型是否主鍵是否允許為空缺省值說明inidvarchar(15)yes

15、not nullautoincrement采購代碼innumberintegernonot null采購數(shù)量datadatanonot nullgetdate()采購日期inuseridvarchar(15)nonot null采購員代碼produceridvarchar(15)nonot null制造商代碼productidvarchar(15)nonot null商品代碼bookrecord表屬性值數(shù)據(jù)類型是否主鍵是否允許為空缺省值說明bookidvarchar(15)yesnot nullautoincrement訂單號customeridvarchar(15)nonot null顧客代

16、碼productidvarchar(15)nonot null商品代碼booknumberintegernonot null購買數(shù)量datedatanonot nullgetdate()訂單日期is_salebitnonot nullfalse是否出貨4、軟件功能表名稱說明系統(tǒng)登錄選擇用戶類型，并輸入正確的用戶名和密碼后才能進入系統(tǒng)主窗體，用戶類型分為管理員、采購員、銷售員和客戶。系統(tǒng)主窗體顯示不同類型的用戶所能操作的管理項目，并能按需求進入相應(yīng)的信息管理界面，不同類型的用戶顯示不同的管理項目。商品信息匯總、查詢管理員、采購員、銷售員可以查看企業(yè)現(xiàn)有商品的信息，并根據(jù)條件（商品編號、商品名稱、

17、產(chǎn)地、商品種類、制造商）查詢特定商品的信息。商品采購信息管理管理員可以編輯所有人的采購單，采購員可以編輯自己的采購單，并且采購員可以根據(jù)庫存需求新增采購單。商品銷售信息管理管理員可以編輯所有人的銷售單，銷售員可以編輯自己的銷售單，并且銷售員可以根據(jù)客戶的訂單新增銷售單。銷售商品必須是企業(yè)現(xiàn)有商品，同時庫存量必須滿足要求。制造商、商品信息管理管理員和采購員可以根據(jù)實際情況編輯現(xiàn)有制造商或商品的信息，以及增加新的制造商或新種類的商品?？蛻舨僮骺蛻舻卿浵到y(tǒng)后，可以根據(jù)現(xiàn)有商品信息訂購新的商品，并且可以按條件查詢自己原有的訂單，打印自己的訂單。客戶訂貨記錄查詢管理員、采購員和銷售員登錄可以根據(jù)條件（訂

18、單號、客戶編號、產(chǎn)品編號、訂貨日期）查詢客戶訂貨情況，是否出貨。注冊新用戶根據(jù)需要注冊新的采購員、銷售員或客戶。修改密碼給所有用戶修改登錄密碼。四、系統(tǒng)實施（1） 系統(tǒng)登錄界面歡迎界面主要代碼事件：procedure tform15.timer1timer(sender: tobject);begin timer1.enabled :=false; close;end;procedure tform15.formshow(sender: tobject);begin setwindowpos(handle,hwnd_topmost,0,0,0,0,swp_nomove or swp_nosiz

19、e);end;procedure tform15.timer2timer(sender: tobject);begin if label1.left + label1.width 0 then label1.left :=label1.left - 50 else label1.left :=label1.width + 350;end;啟動主界面點擊啟動界面中“登錄”按鈕之后，便可進入下面登錄界面：主要代碼事件：“登錄”代碼部分procedure tform2.speedbutton1click(sender: tobject);begin if (combobox1.text = ) or

20、 (edit1.text = ) or (edit2.text = ) or (edit1.text = 請輸入) or (edit2.text = *)or(combobox1.text = -請選擇-) then begin showmessage(請輸入完整信息!); exit; end; adoquery1.close; adoquery1.sql.text := select password from userinfo where usertype= + quotedstr (trim(combobox1.text) + and userid= + quotedstr(trim(e

21、dit1.text); adoquery1.open; if trim(edit2.text) = trim(adoquery1.fieldbyname(password).asstring) then begin showmessage(登陸成功); if trim(combobox1.text) = 管理員 then begin form1.speedbutton3.enabled := true; form1.speedbutton4.enabled := true; form1.speedbutton5.enabled := true; form1.speedbutton6.enabl

22、ed := true; form1.speedbutton3.visible := true; form1.speedbutton4.visible := true; form1.speedbutton5.visible := true; form1.speedbutton6.visible := true; customername:=trim(edit1.text); inuser:=trim(edit1.text); outuser:=trim(edit1.text); close; end; if trim(combobox1.text) = 采購員 then begin form1.

23、speedbutton3.enabled := true; form1.speedbutton6.enabled := true; form1.speedbutton4.enabled := false; form1.speedbutton5.enabled := true; form1.speedbutton3.visible := true; form1.speedbutton5.visible := true; form1.speedbutton6.visible := true; customername:=trim(edit1.text); inuser:=trim(edit1.te

24、xt); close; end; if trim(combobox1.text) = 銷售員 then begin form1.speedbutton4.enabled := true; form1.speedbutton6.enabled := true; form1.speedbutton3.enabled := false; form1.speedbutton5.enabled := true; form1.speedbutton4.visible := true; form1.speedbutton5.visible := true; form1.speedbutton6.visibl

25、e := true; customername:=trim(edit1.text); outuser:=trim(edit1.text); close; end; if trim(combobox1.text) = 客戶 then begin form1.speedbutton4.enabled := false; form1.speedbutton6.enabled := false; form1.speedbutton3.enabled := false; form1.speedbutton5.enabled := false; form1.speedbutton8.enabled :=

26、true; form1.speedbutton8.visible := true; customername:=trim(edit1.text); close; end; form1.speedbutton1.enabled := false; form1.speedbutton7.enabled := true; form1.speedbutton1.visible:=false; form1.speedbutton7.visible:=true; combobox1.text := -請選擇-; edit1.text := 請輸入; edit2.text := *; combobox1.s

27、etfocus; end else begin showmessage(登陸失敗，請重新登陸!); combobox1.text := -請選擇-; edit1.text := 請輸入; edit2.text := *; combobox1.setfocus; end;end;“重置”代碼部分procedure tform2.speedbutton2click(sender: tobject);begin combobox1.text := -請選擇-; edit1.text := 請輸入; edit2.text := *; combobox1.setfocus;end;“返回”代碼部分pro

28、cedure tform2.speedbutton3click(sender: tobject);begin combobox1.text := -請選擇-; edit1.text := 請輸入; edit2.text := *; combobox1.setfocus; close;end;procedure tform2.formclose(sender: tobject; var action: tcloseaction);begin combobox1.text := -請選擇-; edit1.text := 請輸入; edit2.text := *; combobox1.setfocu

29、s;end;end.新用戶注冊界面主要代碼事件“注冊”部分procedure tform8.speedbutton1click(sender: tobject);begin if (edit1.text = ) or (edit2.text = ) or (edit3.text = ) or (edit2.text = 請輸入) or (edit4.text = ) or (edit4.text = *) or (edit5.text = ) or (combobox1.text = ) or (combobox1.text = -請選擇-) then begin showmessage(為方

30、便公司管理，請輸入完整的信息!); exit; end; if (edit4.text edit5.text) then begin showmessage(兩次密碼輸入不一致!); edit5.clear; edit5.setfocus; exit; end; with form2.adoquery1 do begin close; sql.text := select * from userinfo; open; insert; fieldbyname(usertype).asstring := trim(combobox1.text); fieldbyname(userid).asstr

31、ing := trim(edit1.text); fieldbyname(username).asstring := trim(edit2.text); fieldbyname(userphone).asstring := trim(edit3.text); fieldbyname(password).asstring := trim(edit4.text); post; end; showmessage(注冊新用戶成功,請重新登錄); close;end;更改密碼界面主要代碼事件“確認”部分procedure tform9.speedbutton1click(sender: tobject)

32、;begin if (combobox1.text=)or (combobox1.text=-請選擇-)or (edit1.text=)or(edit2.text=)or(edit3.text=)or(edit2.text=*)or(edit3.text=*)or(edit4.text=) then begin showmessage(請輸入完整信息); exit; end; if edit3.textedit4.text then begin showmessage(新密碼輸入不一致，請重新輸入!); edit3.clear; edit4.clear; exit; end; form2.ad

33、oquery1.close; form2.adoquery1.sql.text:=select password from userinfo where usertype=+quotedstr(trim(combobox1.text)+ and userid=+quotedstr(trim(edit1.text); form2.adoquery1.open; if trim(edit2.text)=trim(form2.adoquery1.fieldbyname(password).asstring) then begin form2.adoquery1.edit;form2.adoquery

34、1.fieldbyname(password).asstring:=trim(edit3.text); form2.adoquery1.post; showmessage(修改密碼成功!); close; end else begin showmessage(用戶原信息不正確，請重新輸入); combobox1.text:=-請選擇-; edit1.clear; edit2.clear; edit3.clear; edit4.clear; combobox1.setfocus; end;end;選擇用戶類型，登錄成功后，進入下面界面右側(cè)為系統(tǒng)實現(xiàn)的四個主要功能，它們分別是采購、客戶訂購信息、商

35、品信息匯總、銷售。當(dāng)采用不同身份登錄時，右側(cè)顯示的功能各不相同。其中，管理員四種功能均可見（如上），銷售功能對采購員不顯示，采購功能對銷售員不顯示，客戶登錄后只顯示歡迎訂購界面。（2） 商品信息匯總界面商品信息記錄與查詢子系統(tǒng)的主界面主要事件代碼：procedure tform3.speedbutton1click(sender: tobject);beginadoquery1.first;end;procedure tform3.speedbutton2click(sender: tobject);beginadoquery1.prior;end;procedure tform3.speed

36、button3click(sender: tobject);beginadoquery1.next;end;procedure tform3.speedbutton4click(sender: tobject);beginadoquery1.last;end;procedure tform3.speedbutton6click(sender: tobject);beginform3.hide;form10.show;end;procedure tform3.speedbutton7click(sender: tobject);beginclose;end;procedure tform3.fo

37、rmclose(sender: tobject; var action: tcloseaction);beginform1.show;end;商品信息查詢功能的子界面主要代碼事件procedure tform10.speedbutton1click(sender: tobject);begin checkbox1.checked:=false; checkbox2.checked:=false; checkbox3.checked:=false; checkbox4.checked:=false; checkbox5.checked:=false; adoquery1.close; adoqu

38、ery1.sql.text:=select * from product,producer where pducerid=pducerid; adoquery1.open;end;procedure tform10.speedbutton2click(sender: tobject);var totalsqlstr:string; count : integer;begin totalsqlstr:=select * from product,producer where pducerid=pducerid;

39、sqlstr3:=producttype=+quotedstr(combobox1.text); sqlstr4:=producername=+quotedstr(combobox2.text); sqlstr5:=address=+quotedstr(combobox3.text); sqlstr1:=productid=+quotedstr(edit1.text); sqlstr2:=productname=+quotedstr(edit2.text); for count:=1 to 5 do begin if statuscount=true then totalsqlstr:=tot

40、alsqlstr+ and + sqlstrcount ; end; adoquery1.close; adoquery1.sql.text:=totalsqlstr; adoquery1.open;end;procedure tform10.speedbutton3click(sender: tobject);beginclose;end;end.（3） 采購界面商品采購信息管理的主界面主要代碼事件：procedure tform4.formclose(sender: tobject; var action: tcloseaction);beginform1.show;end;procedu

41、re tform4.speedbutton1click(sender: tobject);begin dbedit1.enabled:=true; dbedit2.enabled:=true; dbedit3.enabled:=true; dbedit4.enabled:=true; dbedit1.setfocus; form12.showmodal; dbedit5.text := formatdatetime(yyyy-mm-dd,now); dbedit6.text := inuser; dbedit1.enabled:=true; dbedit2.enabled:=true; dbe

42、dit3.enabled:=true; dbedit4.enabled:=true; dbedit5.enabled := false; dbedit6.enabled := false; dbedit1.setfocus;end;procedure tform4.speedbutton2click(sender: tobject);var return: integer;begin return := messagedlg(確定要刪除記錄嗎？, mtwarning, mbyes, mbno, 0); if return = 6 then begin if (inusertrim(dbedit

43、6.text) and (inusertrim(adoquery1.fieldbyname(inuserid).asstring) and (inuserboss1) and (inuserboss2) then begin showmessage(無權(quán)刪除該條記錄！); end else if adoquery1.eof then application.messagebox(當(dāng)前已無記錄可刪除！, 錯誤, 0) else adoquery1.delete; endend;procedure tform4.speedbutton3click(sender: tobject);begin if

44、 (adoquery1.state = dsedit) or (adoquery1.state = dsinsert) then begin if (dbedit1.text = ) or (dbedit2.text = ) or (dbedit3.text = ) or (dbedit4.text = ) or (dbedit5.text = ) or (dbedit6.text = ) then begin showmessage(請輸入完整信息!); exit; end; adoquery1.post; adoquery2.close; adoquery2.parameters0.val

45、ue:=dbedit2.text; adoquery2.open; if adoquery2.recordcount=0 then begin showmessage(商品編號出錯！請重新輸入); dbedit1.setfocus; exit; end; adoquery2.edit; adoquery2total:= adoquery2total+dbedit3.text; adoquery2.post; form3.adoquery1.refresh; showmessage(保存成功!); end else showmessage(當(dāng)前沒有信息可以保存!);end;procedure tform4.speedbutton4click(sender: tobject);begin close;end;procedure tform4.speedbutton5cl