軟件課程設(shè)計(jì)報(bào)告企業(yè)采購(gòu)管理系統(tǒng)

1、軟件課程設(shè)計(jì)報(bào)告 企業(yè)采購(gòu)管理系統(tǒng) 課程設(shè)計(jì)說(shuō)明書(shū)作 者：學(xué) 院：專 業(yè)：題 目：企業(yè)采購(gòu)管理系統(tǒng)日期：2011年 9月目 錄第一章 概述 3 1.1項(xiàng)目背景 31.2編寫意義 31.3軟件定義 31.4開(kāi)發(fā)環(huán)境 3第二章 需求分析42.1問(wèn)題的提出 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è)計(jì)93.1數(shù)據(jù)表 93.2數(shù)據(jù)庫(kù)的關(guān)系模式133.3表的設(shè)計(jì)133.3軟件功能表15第四章 系統(tǒng)實(shí)施164.1系統(tǒng)登錄界面 164.2商品信息匯總界面254.3采購(gòu)界面 284.4訂購(gòu)信息界面 404.5銷售界面

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

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

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

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

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

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

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

9、-inbookproduceruser實(shí)體userusertypeuseriduserphonepasswordusernameproductproduceridproductidoutpriceinpriceproducttypeproductnametotalproduct實(shí)體inrecord實(shí)體inrecordinnumberinidinuseridproduceriddataproductidoutrecord實(shí)體outrecordoutnumberoutiddatabookidoutuseridcustomeridproductidbookrecord實(shí)體bookrecordbook

10、numberbookidproductidcustomeriddatais_saleproducer實(shí)體producerproducernameproduceridaddressproducerphonerange2、數(shù)據(jù)庫(kù)的關(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è)計(jì)user表屬性名數(shù)據(jù)類型是否主鍵是否允許為空缺省值說(shuō)明useridvarchar(15)yesnot nullautoincrement用戶代碼usernamevarchar(15)nonot nul

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

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

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

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

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

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

18、單號(hào)、客戶編號(hào)、產(chǎn)品編號(hào)、訂貨日期）查詢客戶訂貨情況，是否出貨。注冊(cè)新用戶根據(jù)需要注冊(cè)新的采購(gòu)員、銷售員或客戶。修改密碼給所有用戶修改登錄密碼。四、系統(tǒng)實(shí)施（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;啟動(dòng)主界面點(diǎn)擊啟動(dòng)界面中“登錄”按鈕之后，便可進(jìn)入下面登錄界面：主要代碼事件：“登錄”代碼部分procedure tform2.speedbutton1click(sender: tobject);begin if (combobox1.text = ) or

20、 (edit1.text = ) or (edit2.text = ) or (edit1.text = 請(qǐng)輸入) or (edit2.text = *)or(combobox1.text = -請(qǐng)選擇-) then begin showmessage(請(qǐng)輸入完整信息!); 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) = 采購(gòu)員 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 := -請(qǐng)選擇-; edit1.text := 請(qǐng)輸入; edit2.text := *; combobox1.s

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

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

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

30、便公司管理，請(qǐng)輸入完整的信息!); 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(注冊(cè)新用戶成功,請(qǐng)重新登錄); close;end;更改密碼界面主要代碼事件“確認(rèn)”部分procedure tform9.speedbutton1click(sender: tobject)

32、;begin if (combobox1.text=)or (combobox1.text=-請(qǐng)選擇-)or (edit1.text=)or(edit2.text=)or(edit3.text=)or(edit2.text=*)or(edit3.text=*)or(edit4.text=) then begin showmessage(請(qǐng)輸入完整信息); exit; end; if edit3.textedit4.text then begin showmessage(新密碼輸入不一致，請(qǐng)重新輸入!); 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(用戶原信息不正確，請(qǐng)重新輸入); combobox1.text:=-請(qǐng)選擇-; edit1.clear; edit2.clear; edit3.clear; edit4.clear; combobox1.setfocus; end;end;選擇用戶類型，登錄成功后，進(jìn)入下面界面右側(cè)為系統(tǒng)實(shí)現(xiàn)的四個(gè)主要功能，它們分別是采購(gòu)、客戶訂購(gòu)信息、商

35、品信息匯總、銷售。當(dāng)采用不同身份登錄時(shí)，右側(cè)顯示的功能各不相同。其中，管理員四種功能均可見(jiàn)（如上），銷售功能對(duì)采購(gòu)員不顯示，采購(gòu)功能對(duì)銷售員不顯示，客戶登錄后只顯示歡迎訂購(gòu)界面。（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） 采購(gòu)界面商品采購(gòu)信息管理的主界面主要代碼事件：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(確定要?jiǎng)h除記錄嗎？, 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(無(wú)權(quán)刪除該條記錄！); end else if adoquery1.eof then application.messagebox(當(dāng)前已無(wú)記錄可刪除！, 錯(cuò)誤, 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(請(qǐng)輸入完整信息!); exit; end; adoquery1.post; adoquery2.close; adoquery2.parameters0.val

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