采購(gòu)管理系統(tǒng)課程設(shè)計(jì)說(shuō)明書(shū)

前言作業(yè)背景本文根據(jù)《管理信息系統(tǒng)開(kāi)發(fā)實(shí)踐》課程要求而做。課程作業(yè)要求如下：管理信息系統(tǒng)開(kāi)發(fā)作為獨(dú)立的教學(xué)環(huán)節(jié)，是學(xué)習(xí)完《管理信息系統(tǒng)》課程并進(jìn)行完專(zhuān)業(yè)實(shí)習(xí)后進(jìn)行的一次全面的綜合練習(xí)。其目的在于加深對(duì)管理信息系統(tǒng)基礎(chǔ)理論和基本知識(shí)的理解，掌握使用信息系統(tǒng)分析、設(shè)計(jì)的基本方法，提高解決實(shí)際管理問(wèn)題、開(kāi)發(fā)信息系統(tǒng)的實(shí)踐能力。具體內(nèi)容是：用信息系統(tǒng)開(kāi)發(fā)工具（例如PowerBuilder、Delphi、Vb、Vfp等）開(kāi)發(fā)一個(gè)實(shí)用的中小型采購(gòu)管理信息系統(tǒng)。具體要求如下：1、 根據(jù)課程實(shí)踐時(shí)間選擇適當(dāng)規(guī)模大小的設(shè)計(jì)課題。針對(duì)信息系統(tǒng)課程實(shí)踐的具體特點(diǎn)，體現(xiàn)項(xiàng)目管理的思想。2、 根據(jù)合理的進(jìn)度安排，按照系統(tǒng)開(kāi)發(fā)的流程及方法，踏實(shí)地開(kāi)展課程實(shí)踐活動(dòng)。3、 課程實(shí)踐過(guò)程中，根據(jù)選題的具體需求，在開(kāi)發(fā)各環(huán)節(jié)中撰寫(xiě)相關(guān)的技術(shù)文檔，最后要求提交詳細(xì)的課程實(shí)踐報(bào)告。4、 開(kāi)發(fā)出可以運(yùn)行的管理信息系統(tǒng)，通過(guò)上機(jī)檢查。選題說(shuō)明進(jìn)入21世紀(jì)，隨著技術(shù)進(jìn)步和客戶(hù)需求多樣化，企業(yè)經(jīng)營(yíng)的市場(chǎng)環(huán)境發(fā)生了很大的變化,從過(guò)去的供應(yīng)商主導(dǎo)的、靜態(tài)的、簡(jiǎn)單的市場(chǎng)環(huán)境變成客戶(hù)為主導(dǎo)的、動(dòng)態(tài)的、復(fù)雜的市場(chǎng)環(huán)境。企業(yè)之間由單純產(chǎn)品質(zhì)量、性能方面的競(jìng)爭(zhēng)轉(zhuǎn)向企業(yè)所在的供應(yīng)鏈之間的競(jìng)爭(zhēng)。在企業(yè)經(jīng)營(yíng)管理中,采購(gòu)是最重要的一個(gè)環(huán)節(jié)。它對(duì)于企業(yè)降低經(jīng)營(yíng)成本、確保產(chǎn)品質(zhì)量、縮短生產(chǎn)周期具有非常重要的意義。采購(gòu)管理為降低采購(gòu)成本，提高采購(gòu)效益提供了廣闊的空間，但也同時(shí)為采購(gòu)管理帶來(lái)了新的機(jī)遇和挑戰(zhàn)。目前,我國(guó)大多數(shù)企業(yè)仍然沒(méi)有建立健全的供應(yīng)鏈管理體系,物資的采購(gòu)還存在機(jī)構(gòu)設(shè)置分散,資源浪費(fèi)嚴(yán)重,信息傳遞滯后等問(wèn)題。基本思路通過(guò)對(duì)課程設(shè)計(jì)的要求而進(jìn)行初步調(diào)查，從提高采購(gòu)管理的需求入手,給出了適合中小企業(yè)的采購(gòu)管理系統(tǒng)整體設(shè)計(jì)方案。在系統(tǒng)業(yè)務(wù)流程改造和功能模塊的設(shè)計(jì)中體現(xiàn)出先進(jìn)的采購(gòu)管理思想,并對(duì)采購(gòu)業(yè)務(wù)管理的具體內(nèi)容進(jìn)行了分析與設(shè)計(jì)。作業(yè)目標(biāo)該系統(tǒng)將有效的整合企業(yè)內(nèi)外部的資源,加強(qiáng)企業(yè)與供應(yīng)商之間的緊密合作,增強(qiáng)企業(yè)采購(gòu)業(yè)務(wù)的透明度,規(guī)范標(biāo)準(zhǔn)業(yè)務(wù)流程,提高采購(gòu)的效率和質(zhì)量,提升企業(yè)的核心競(jìng)爭(zhēng)力。通過(guò)對(duì)采購(gòu)管理系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)，使采購(gòu)部門(mén)的工作效率大大提升，實(shí)現(xiàn)采購(gòu)管理工作的信息化，網(wǎng)絡(luò)化等，從而降低采購(gòu)的總體成本，增加企業(yè)的利潤(rùn)，并能更好的完成企業(yè)最終目標(biāo)。1.3工作業(yè)績(jī)個(gè)人主要工作我的課程設(shè)計(jì)主要是有4項(xiàng)主要界面，主要內(nèi)容包括采購(gòu)信息系統(tǒng)的權(quán)限管理、采購(gòu)信息系統(tǒng)的采購(gòu)訂單，采購(gòu)信息系統(tǒng)的采購(gòu)付款，采購(gòu)信息系統(tǒng)的訂單收貨。同時(shí)還進(jìn)行了程序的調(diào)試、數(shù)據(jù)準(zhǔn)備與錄入、系統(tǒng)轉(zhuǎn)換與評(píng)價(jià)等。系統(tǒng)實(shí)施階段既是成功地實(shí)現(xiàn)新系統(tǒng)，又是取得用戶(hù)對(duì)系統(tǒng)信任的關(guān)鍵。主要收獲通過(guò)對(duì)全通公司的采購(gòu)管理系統(tǒng)進(jìn)行設(shè)計(jì)，使我不僅了解到系統(tǒng)實(shí)施部分的內(nèi)容，也使我更深的掌握了管理信息系統(tǒng)的開(kāi)發(fā)方法以及重要性。開(kāi)發(fā)一個(gè)管理信息系統(tǒng)好像建一棟大樓，系統(tǒng)分析、系統(tǒng)設(shè)計(jì)是根據(jù)用戶(hù)的要求畫(huà)出各種藍(lán)圖，系統(tǒng)實(shí)施是調(diào)集各類(lèi)人員、設(shè)備、材料，在現(xiàn)場(chǎng)根據(jù)圖紙按實(shí)施方案的要求把“大樓”建起來(lái)。更重要是我終于明白了VB原來(lái)這么有用。通過(guò)對(duì)這個(gè)系統(tǒng)的開(kāi)發(fā)設(shè)計(jì)，使我這學(xué)期所學(xué)的管理信息系統(tǒng)得到了運(yùn)用，實(shí)現(xiàn)了從理論到實(shí)踐的升華，一個(gè)完善的管理信息系統(tǒng)可以促使公司向信息化方向發(fā)展，將管理工作統(tǒng)一化、規(guī)范化、現(xiàn)代化，使公司處于一個(gè)信息靈敏、管理科學(xué)、決策準(zhǔn)確的良性循環(huán)中，為公司帶來(lái)跟高的效益。系統(tǒng)規(guī)劃可行性分析2.1.1可行性研究方法通過(guò)調(diào)查分析采購(gòu)供應(yīng)管理信息系統(tǒng)所具備的能力及實(shí)現(xiàn)的方法。確定總體結(jié)構(gòu)，利用數(shù)據(jù)庫(kù)所具有的能力，以最簡(jiǎn)潔最容易的方法，使其成為一個(gè)初級(jí)的系統(tǒng)軟件。2.1.2可行性綜合分析（1） 可行性：系統(tǒng)現(xiàn)階段的發(fā)展過(guò)程中，利用現(xiàn)有人力和物力是完全具備的能力開(kāi)發(fā)出來(lái)的，作為階段性產(chǎn)品，日后的發(fā)展空間大，實(shí)現(xiàn)方法逐步簡(jiǎn)單容易。對(duì)于該系統(tǒng)的技術(shù)要求，現(xiàn)行的軟件開(kāi)發(fā)條件，環(huán)境，完全可以實(shí)現(xiàn)。SQLServer2000完全可以提供該系統(tǒng)的操作要求和數(shù)據(jù)庫(kù)需求。但由于SQLServer較Access復(fù)雜，本設(shè)計(jì)又是注重研究系統(tǒng)的實(shí)現(xiàn)，所以采購(gòu)管理信息系統(tǒng)在Access技術(shù)上是完全可行的。（2） 技術(shù)可行性：該系統(tǒng)的開(kāi)發(fā)要求是界面簡(jiǎn)單，易于操作。（3） 經(jīng)濟(jì)可行性：該系統(tǒng)做為課程設(shè)計(jì)開(kāi)發(fā)，經(jīng)濟(jì)可行性必然不能完全考察出來(lái)，但本人認(rèn)為此次設(shè)計(jì)的采購(gòu)管理信息系統(tǒng)完全可行。（4） 管理可行性：此次采購(gòu)管理系統(tǒng)的設(shè)計(jì)由于操作簡(jiǎn)單，內(nèi)容較少，且炒作簡(jiǎn)單，同時(shí)又能適應(yīng)大部分的采購(gòu)系統(tǒng)，故能使采購(gòu)流程效率提高。又經(jīng)過(guò)權(quán)限的設(shè)置，幫助他們能夠快速準(zhǔn)確和職能化的工作，減少作業(yè)量并提高效率。系統(tǒng)分析系統(tǒng)分析在整個(gè)開(kāi)發(fā)過(guò)程中，是要解決“做什么”的問(wèn)題。從邏輯上，或者說(shuō)從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進(jìn)行物理方案設(shè)計(jì)、解決“怎么做”提供依據(jù)。本企業(yè)采購(gòu)管理業(yè)務(wù)的系統(tǒng)功能：1．采購(gòu)訂單：如果企業(yè)向供應(yīng)商訂貨物時(shí)，開(kāi)據(jù)入庫(kù)訂單，以便了解收貨情況并預(yù)先安排存放貨物的倉(cāng)庫(kù)。2．訂單收貨：是“采購(gòu)訂單”上的貨到后入庫(kù)完成交易。3．采購(gòu)開(kāi)單：就是貨物購(gòu)買(mǎi)后直接進(jìn)入倉(cāng)庫(kù)，此時(shí)倉(cāng)庫(kù)商品增加。4．采購(gòu)付款：付款給供應(yīng)商，支付金額自動(dòng)登帳進(jìn)入明細(xì)賬中。5．采購(gòu)?fù)素洠菏前焉唐吠嘶亟o供應(yīng)商，退貨時(shí)有幾種方式，如選擇退款沖應(yīng)付款，則系統(tǒng)數(shù)據(jù)庫(kù)會(huì)自動(dòng)更改用戶(hù)與供應(yīng)商的交易情況，自動(dòng)修改明細(xì)賬；如選擇退貨收回現(xiàn)款，表示退貨以現(xiàn)金的形式收回，現(xiàn)金形式也分為二種，一種是以銀行賬戶(hù)的，另一種是以現(xiàn)金的，用戶(hù)可自行選擇。6．系統(tǒng)操作人員口令及權(quán)限管理。3.1詳細(xì)調(diào)查分析業(yè)務(wù)流程圖業(yè)務(wù)流程圖(transactionflowdiagram,簡(jiǎn)稱(chēng)TFD),就是用一些規(guī)定的符號(hào)及連線來(lái)表示某個(gè)具體業(yè)務(wù)處理過(guò)程。是一種用盡可能少、盡可能簡(jiǎn)單的方法來(lái)描述業(yè)務(wù)處理過(guò)程的方法。付款單退款單入庫(kù)單收貨單米購(gòu)訂單采購(gòu)員供應(yīng)商退貨單2份-庫(kù)工付款單退款單入庫(kù)單收貨單米購(gòu)訂單采購(gòu)員供應(yīng)商退貨單2份-庫(kù)工財(cái)務(wù)部3.2系統(tǒng)的邏輯模型3.2.1數(shù)據(jù)流程圖3.2.2數(shù)據(jù)字典數(shù)據(jù)字典是對(duì)描述數(shù)據(jù)流程圖中的數(shù)據(jù)項(xiàng)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)、加工處理邏輯等組成部分的嚴(yán)格定義，下面是本系統(tǒng)的部分?jǐn)?shù)據(jù)字典。(1)數(shù)據(jù)流的描述數(shù)據(jù)流編號(hào)G-01數(shù)據(jù)流名稱(chēng)米購(gòu)訂單簡(jiǎn)述企業(yè)購(gòu)置商品時(shí)內(nèi)部流動(dòng)的單據(jù)數(shù)據(jù)流來(lái)源采購(gòu)部門(mén)數(shù)據(jù)流去向米購(gòu)員數(shù)據(jù)項(xiàng)組成訂單號(hào)+經(jīng)手人+日期+貨物名稱(chēng)+貨物代碼+數(shù)量+貨物單價(jià)+金額單價(jià)+摘要+供應(yīng)商+商品編號(hào)+聯(lián)系電話(huà)+預(yù)入倉(cāng)庫(kù)數(shù)據(jù)流量25張/天高峰流量50張/天(2)處理邏輯描述處理邏輯編號(hào)P1處理邏輯名稱(chēng)采購(gòu)處理簡(jiǎn)述對(duì)采購(gòu)訂單進(jìn)行統(tǒng)計(jì)，開(kāi)出采購(gòu)單輸入的數(shù)據(jù)流采購(gòu)訂單處理描述對(duì)米購(gòu)訂單進(jìn)行處理，將所訂的貨物進(jìn)行分類(lèi)，編制合理有效的米購(gòu)單輸出的數(shù)據(jù)流采購(gòu)單處理頻率1張/小時(shí)(3)數(shù)據(jù)存儲(chǔ)的:苗述數(shù)據(jù)存儲(chǔ)編號(hào)F1數(shù)據(jù)存儲(chǔ)名稱(chēng)收貨表簡(jiǎn)述采購(gòu)的貨物的記錄數(shù)據(jù)存儲(chǔ)組成貨物名稱(chēng)+貨物代碼+貨物數(shù)量+貨物單價(jià)+貨物單位+金額+日期關(guān)鍵字貨物相關(guān)聯(lián)的處理P1(4)外部實(shí)體的?苗述外部實(shí)體編號(hào)S1

外部實(shí)體名稱(chēng)米購(gòu)員簡(jiǎn)述米購(gòu)商品人員輸入的數(shù)據(jù)流米購(gòu)訂單輸出的數(shù)據(jù)流米購(gòu)訂單3.3.1組織結(jié)構(gòu)分析組織結(jié)構(gòu)圖如下：|1計(jì)劃ijII!|1計(jì)劃ijII!札r.R":4系統(tǒng)設(shè)計(jì)4.2總體設(shè)計(jì)4.2.1功能結(jié)構(gòu)圖設(shè)計(jì)

4.3詳細(xì)設(shè)計(jì)4.3.1輸入輸出設(shè)計(jì)輸出設(shè)備：屏幕輸出方式：顯示輸出與打印輸出輸出形式：報(bào)表輸出形式輸入設(shè)計(jì)：對(duì)輸入信息進(jìn)行校驗(yàn)1?在登陸界面：用戶(hù)名及密碼不能為空，如不填寫(xiě)兩者或兩者之一，則會(huì)彈出對(duì)話(huà)框提醒〃請(qǐng)輸入用戶(hù)名與密碼！"如果用戶(hù)輸入的密碼不是密碼管理表中的用戶(hù)名及密碼，則會(huì)彈出對(duì)話(huà)框提醒〃無(wú)該用戶(hù)！"2?在采購(gòu)訂單： 訂單號(hào)不能為空，否則會(huì)彈出對(duì)話(huà)框提醒〃請(qǐng)輸入完整信息，輸入訂單號(hào)編號(hào)為數(shù)字！〃在單價(jià)和數(shù)量中輸入數(shù)字，金額項(xiàng)目會(huì)自動(dòng)顯示為兩者乘積結(jié)果。5系統(tǒng)實(shí)施一、登錄界面當(dāng)輸入的賬號(hào)和密碼符合Access數(shù)據(jù)庫(kù)中的cgdl表中的數(shù)據(jù)時(shí)時(shí)，焦點(diǎn)落在確定上面,此時(shí)點(diǎn)擊確定就可以登入系統(tǒng)。若錯(cuò)誤，則會(huì)彈出對(duì)話(huà)框提醒“用戶(hù)名密碼錯(cuò)誤，請(qǐng)重新輸入!”并且它的輸入密碼為“*”，是在屬性欄中的passwordchar設(shè)置“*”。用戶(hù)名及密碼不能為空，如不填寫(xiě)兩者或兩者之一，則會(huì)彈出對(duì)話(huà)框提醒〃請(qǐng)輸入用戶(hù)名與密碼！〃如果用戶(hù)輸入的密碼不是密碼管理表中的用戶(hù)名及密碼，則會(huì)彈出對(duì)話(huà)框提醒〃無(wú)該用戶(hù)！"設(shè)置了訪問(wèn)權(quán)限，根據(jù)不同人的管理職能提供相應(yīng)的管理權(quán)限圖5-1登陸窗口它的具體代碼為：PrivateSubCommandl_Click()DimsqlAsStringDimcgdlAsNewADODB.RecordsetDimdlqxAsStringIfTrim(Textl.Text)=ThenMsgBox"用戶(hù)名不能為空，請(qǐng)重新輸入！"Textl.SetFocusElsesql="select*fromcgdlwhere登錄名='"&Trim(Textl.Text)&cgdl.Opensql,cnn,adOpenKeyset,adLockPessimisticIfcgdl.EOF=TrueThenMsgBox"用戶(hù)名不存在，請(qǐng)重新輸入！"，vbOKOnly+vbExclamation,Textl.Text=Text2.Text="”Textl.SetFocusElseIfTrim(cgdl.Fields(”密碼"))=Trim(Text2.Text)ThenForm2.Showdlqx="select*from權(quán)限管理where用戶(hù)名='"&Trim(Textl.Text)&"'"Adodc2.RecordSource=dlqxAdodc2.RefreshIfAdodc2.Recordset.Fields("權(quán)限管理")="Yes"ThenForm2.權(quán)限管理(lO).Enabled=TrueEndIfIfAdodc2.Recordset.Fields(“采購(gòu)付款")="Yes"ThenForm2.釆購(gòu)付款(5).Enabled=TrueEndIfIfAdodc2.Recordset.Fields("釆購(gòu)訂單")="Yes"ThenForm2.釆購(gòu)訂單(2).Enabled=TrueEndIfIfAdodc2.Recordset.Fields("訂單收貨")="Yes"ThenForm2.訂單收貨(3).Enabled=TrueEndIfUnloadMeElseMsgBox"密碼不正確,請(qǐng)重輸入！",vbOKOnly+vbExclamation,〃〃Text2.SetFocusText2.Text=""EndIfEndIfEndIfcgdl.CloseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub二、主界面

新塔產(chǎn)品=品柜關(guān)I逼已產(chǎn)品乘購(gòu)適貨新塔產(chǎn)品=品柜關(guān)I逼已產(chǎn)品乘購(gòu)適貨圖5-2主界面主界面是登陸后最基礎(chǔ)的一個(gè)界面，內(nèi)容包括采購(gòu)訂單，采購(gòu)付款，訂單收貨，采購(gòu)查詢(xún),采購(gòu)開(kāi)單，密碼修改，權(quán)限管理，采購(gòu)開(kāi)單，幫助，新增產(chǎn)品等。它的具體代碼為：PrivateSubToolbarl_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase〃采購(gòu)訂單〃LoadForm3Form3.ShowCase〃新增產(chǎn)品〃LoadForm5Form5.ShowCase〃產(chǎn)品幫助〃MsgBox"該產(chǎn)品正在試運(yùn)行，不能顯示幫助！",vbOKOnly,""Form2.ShowCase"退出系統(tǒng)"Case〃產(chǎn)品相關(guān)〃MsgBox"本采購(gòu)系統(tǒng)由倪斯文制作！"Case"退出產(chǎn)品"EndEndSelectEndSubPrivateSub采購(gòu)查詢(xún)_Click(IndexAsInteger)Form5.ShowEndSubPrivateSub采購(gòu)訂單_Click(IndexAsInteger)Form3.ShowEndSubPrivateSub采購(gòu)付款Click(IndexAsInteger)Form8.ShowEndSubPrivateSub訂單收貨_Click(IndexAsInteger)Form4.ShowEndSubPrivateSub權(quán)限管理_Click(IndexAsInteger)Form7.ShowEndSubPrivateSub新增產(chǎn)品_Click(IndexAsInteger)Form5.ShowEndSub3、商品采購(gòu)訂單企業(yè)向供應(yīng)商訂貨物時(shí)，開(kāi)據(jù)入庫(kù)訂單，以便了解收貨情況并預(yù)先安排存放貨物的倉(cāng)庫(kù)。在界面內(nèi)填入相應(yīng)的商品信息，點(diǎn)擊保存則會(huì)將所輸入的采購(gòu)信息保存到采購(gòu)信息管理表中。如果輸入有誤，且已保存，可以應(yīng)用刪除功能，將錯(cuò)誤信息刪除，同時(shí)可以計(jì)算出應(yīng)付金額。訂單號(hào)不能為空，否則會(huì)彈出對(duì)話(huà)框提醒"請(qǐng)輸入完整信息，輸入訂單號(hào)編號(hào)為數(shù)字！"在單價(jià)和數(shù)量中輸入數(shù)字，金額項(xiàng)目會(huì)自動(dòng)顯示為兩者乘積結(jié)果。圖5-3商品信息的錄入它的具體代碼為：DimcgAsNewADODB.RecordsetPrivateSubCommand1_Click（）Dimcgdd1AsStringcgddl=""select*from采購(gòu)訂單管理""IfTrim（Text12.Text）=""ThenMsgBox"電話(huà)號(hào)碼不能為空",vbOKOnly+vbExclamation,Text12.SetFocusExitSubEndIfIfTrim（Text7.Text）=""ThenMsgBox"單價(jià)不能為空",vbOKOnly+vbExclamation,""Text7.SetFocusExitSubEndIfIfTrim（Text1.Text）=""ThenMsgBox"數(shù)量不能為空",vbOKOnly+vbExclamation,""Text14.SetFocusExitSubEndIfcg.Opencgdd1,cnn,adOpenKeyset,adLockOptimisticcg.AddNewcg.Fields（""交貨時(shí)間""）=Datecg.Fields（""經(jīng)手人""）=DataCombol.Textcg.Fields（""摘要""）=TextlO.Textcg.Fields（""聯(lián)系電話(huà)""）=Textl2.Textcg.Fields（""商品名稱(chēng)""）=Combo3.Textcg.Fields（""商品編號(hào)""）=Combo4.Textcg.Fields（""單價(jià)""）=Text7.Textcg.Fields（""數(shù)量""）=Textl.Textcg.Fields（""預(yù)入倉(cāng)庫(kù)""）=Combol.Textcg.Fields（"供應(yīng)商"）=Combo2.Textcg.Fields（"錄入時(shí)間"）=DTPickerl.Valuecg.Fields（"交貨時(shí)間"）=DTPicker2.Valuecg.Fields（"訂單號(hào)"）=Label20.Captioncg.Fields（"合計(jì)金額"）=Labell9.Captioncg.Updatecg.AddNewcg.Fields（"預(yù)入倉(cāng)庫(kù)"）=Combol.Textcg.Fields（"供應(yīng)商"）=Combo2.Textcg.Fields（"錄入時(shí)間"）=DTPickerl.Valuecg.Fields（"交貨時(shí)間"）=DTPicker2.Valuecg.Fields（"訂單號(hào)"）=Label20.Captioncg.Fields（"交貨時(shí)間"）=Datecg.Fields（"經(jīng)手人"）=DataCombo1.Textcg.Fields（"摘要"）=Text10.Textcg.Fields（"聯(lián)系電話(huà)"）=Text12.Textcg.Fields（"商品名稱(chēng)"）=DataCombo3.Textcg.Fields（"商品編號(hào)"）=DataCombo2.Textcg.Fields（"單價(jià)"）=Text3.Textcg.Fields（"數(shù)量"）=Text2.Textcg.Fields（"合計(jì)金額"）=Label21.Captioncg.Updatecg.CloseMsgBox"保存成功",vbOKOnly+vbExclamation,Adodcl.RefreshEndSubPrivateSubCommand2_Click（）DimMagAsIntegerMag=MsgBox（"是否刪除！"，vbYesNo,"警告"）IfMag=vbYesThenAdodcl.Recordset.Delete'刪除記錄EndIfLabell9.Caption=Val（Text7.Text）*Val（Textl.Text）EndSubPrivateSubCommand3_Click（）UnloadMeEndSubPrivateSubCommand4_Click（）Text9.Text=""Textl0.Text=""Textl2.Text=""Text7.Text=""Textl.Text=""Adodcl.Recordset.AddNewEndSubPrivateSubForm_Load（）Label20.Caption=Trim（Format（Val（Year（Date）&Month（Date）&Day（Date）&Hour（Time）&Minute（Time）&Second（Time））,"00000000000000"））EndSubPrivateSubTextl_Change（）Labell9.Caption=Val（Text7.Text）*Val（Textl.Text）

EndSubPrivateSubText2_Change()Label21.Caption二Val(Text3.Text)*Val(Text2.Text)EndSub4、訂單收貨訂單收貨：是“采購(gòu)訂單”上的貨到后入庫(kù)完成交易。對(duì)采購(gòu)訂單表中商品的訂單號(hào)進(jìn)行查詢(xún)，會(huì)在表中顯示出來(lái)，說(shuō)明其沒(méi)有入庫(kù)，可點(diǎn)擊“詳單查詢(xún)”，把相應(yīng)信息保存到收貨管理表中。同時(shí)刪除采購(gòu)訂單中相應(yīng)的內(nèi)容。并計(jì)算出支付的金額。5.訂單收貨訂單詳單查詢(xún)確定坡瑾?jiǎng)h除取消10201161495452圖5-4訂單收貨5.訂單收貨訂單詳單查詢(xún)確定坡瑾?jiǎng)h除取消10201161495452圖5-4訂單收貨曲品定稱(chēng)訂單曇004百事可樂(lè)00201161-|ooi可口可樂(lè)002011B1001可口可樂(lè)02011614(1丄一 =它的具體代碼為：PrivateSubCommandl_Click()DimdhAsStringdh=""select*from采購(gòu)訂單管理where訂單號(hào)二'"&Combol.Text&Adodcl.RecordSource=dhAdodcl.RefreshSetDataGridl.DataSource=AdodclDimsumAsDouble 'sum就是所有的和sum=0 '先給賦值為0Adodcl.Recordset.MoveFirstDoWhileNotAdodcl.Recordset.EOF '從開(kāi)始一直到結(jié)尾，累加sum=sum+Val(Adodc1.Recordset.Fields(12))Adodcl.Recordset.MoveNextLoopTextl.Text=str(sum) '保存到textl中去Adodcl.Recordset.MoveFirstEndSubPrivateSubCommand2_Click()DimdhAsStringdh=""select*from采購(gòu)訂單管理where訂單號(hào)二'""&Combol.Text&Adodcl.RecordSource=dhAdodcl.RefreshDimshAsStringsh=""select*from收貨表""Adodc2.RecordSource=shAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.FieldsC訂單號(hào)"")=Combol.TextAdodc2.Recordset.FieldsC總金額"")=Textl.TextAdodc2.Recordset.UpdateAdodcl.Recordset.DeleteMsgBox"成功收貨",vbExclamation,"提示"'付款成功后刪除該采購(gòu)單Adodcl.Recordset.UpdateAdodcl.RefreshCombol.Text=""SetDataGrad=AdodclEndSubPrivateSubCommand3_Click()DimMagAsIntegerMag=MsgBox(""是否刪除！""，vbYesNo,""警告"")IfMag=vbYesThenAdodcl.Recordset.Delete'刪除記錄EndIfEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubForm_Load()EndSub5、采購(gòu)付款采購(gòu)付款是對(duì)采購(gòu)訂單中的商品進(jìn)行金額統(tǒng)計(jì)并付款，并且應(yīng)知道付款時(shí)間，并將付款的單據(jù)存入公司的數(shù)據(jù)庫(kù)中，以備調(diào)查。圖5-5采購(gòu)付款具體代碼為：DimfkAsNewADODB.RecordsetPrivateSubCommandl_Click()DimfklAsStringfk1=""select*from付款表""IfTextl.Text=""ThenMsgBox"應(yīng)付金額不能為空，請(qǐng)輸入應(yīng)付金額！",vbOKOnly+vbExclamation,"警告！〃Text2.SetFocusEndIffk.Openfkl,cnn,adOpenKeyset,adLockOptimisticfk.AddNewfk.Fields(""訂單號(hào)"")=Combo5.Textfk.Fields(""應(yīng)付金額"")=Textl.Textfk.Updatefk.CloseMsgBox"保存成功",vbOKOnly+vbExclamation,""Adodcl.RefreshEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSubPrivateSubLabel7_Click()EndSubPrivateSubCommand3_Click()DimsumAsDouble 'sum就是所有的和sum=0 '先給賦值為0Adodc6.Recordset.MoveFirstDoWhileNotAdodc6.Recordset.EOF '從開(kāi)始一直到結(jié)尾，累加sum=sum+Val(Adodc6.Recordset.Fields(12))Adodc6.Recordset.MoveNextLoopTextl.Text二str(sum) '保存到textl中去Adodc6.Recordset.MoveFirstEndSubPrivateSubCommand4_Click()DimstrAsStringstr=""select*from采購(gòu)訂單管理where訂單號(hào)二'""&Combo5.Text&""'""Adodc4.RecordSource=strAdodc4.RefreshSetDataGridl.DataSource=Adodc4EndSubPrivateSubForm_Load()EndSub6、權(quán)限管理根據(jù)公司人員管理業(yè)務(wù)與只能的不同，分別對(duì)不同的員工提供不同的權(quán)限，并設(shè)管理員，管理下成員工的訪問(wèn)權(quán)限。Form7 「三〕1亙圖5-6權(quán)限管理具體代碼如下：PrivateSubCommand1_Click()DimsqlllAsStringDimqxllAsNewADODB.Recordsetsqlll=""select*from權(quán)限管理where用戶(hù)名二'""&Label3.Caption&""'""qx11.Opensql11,cnn,adOpenKeyset,adLockOptimisticqx11.Fields(1)=Combo1.Textqx11.Fields(3)=Combo2.Textqx11.Fields(4)=Combo3.Textqx11.Fields(2)=Combo4.Textqx11.Updateqx11.CloseMsgBox"保存成功!",vbOKOnly,""UnloadMeEndSubPrivateSubdatagrid1_rowcolchange(lastrowAsVariant,ByVallastcolAsInteger)Label3.Caption二DataGridl.ColumnsC用戶(hù)名").TextEndSubPrivateSubForm_Load()Calldatagrid1_rowcolchange(lastrow,lastcol)Combo1.AddItem"Yes"Combo1.AddItem"No"Combo2.AddItem"Yes"Combo2.AddItem"No"Combo3.AddItem"Yes"Combo3.AddItem"No"Combo4.AddItem"Yes"Combo4.AddItem"No"EndSubPrivateSubText2_Change()EndSubPrivateSubLabel3_Click()EndSub開(kāi)發(fā)環(huán)境首先選擇可視化的開(kāi)發(fā)界面的簡(jiǎn)單易操作的開(kāi)發(fā)語(yǔ)言為開(kāi)發(fā)平臺(tái)，充分的利用WINDOWS自帶的資源，既可以減少開(kāi)發(fā)的工作量，也確保了程序的最大兼容性。MicrosoftVisualBasic6.0中文企業(yè)版符合了這項(xiàng)要求，即功能強(qiáng)大，又操作簡(jiǎn)單。MicrosoftVisualBasic6.0中文企業(yè)版在功能方面優(yōu)于MicrosoftVisualBasic6.0的其他版本。對(duì)于數(shù)據(jù)庫(kù)的選擇，對(duì)于中小程序來(lái)說(shuō)，SQL與ACCESS都可以滿(mǎn)足開(kāi)發(fā)的要求，SQL需要另外進(jìn)