采購(gòu)管理信息系統(tǒng)設(shè)計(jì)

1、沈陽理工大學(xué)課程實(shí)踐（論文）目錄目錄i1 前言11.1 作業(yè)背景11.2 選題說明11.2.1 基本思路21.2.2 作業(yè)目標(biāo)21.3 工作業(yè)績(jī)21.3.1 個(gè)人主要工作21.3.2 主要收獲21.3.3 自我評(píng)定31.3.4 小組成員任務(wù)分工情況32 系統(tǒng)規(guī)劃42.1 可行性分析42.1.1可行性研究方法42.1.2可行性綜合分析43 系統(tǒng)分析53.1 詳細(xì)調(diào)查分析53.1.1 業(yè)務(wù)流程圖53.2 系統(tǒng)的邏輯模型53.2.1 數(shù)據(jù)流程圖53.2.2 數(shù)據(jù)字典64 系統(tǒng)設(shè)計(jì)84.2 總體設(shè)計(jì)84.2.1功能結(jié)構(gòu)圖設(shè)計(jì)84.2.2 e-r94.3 詳細(xì)設(shè)計(jì)94.3.1 輸入輸出設(shè)計(jì)94.3.2代

2、碼設(shè)計(jì)104.3.3數(shù)據(jù)庫(kù)設(shè)計(jì)105 系統(tǒng)實(shí)施12結(jié)束語28參考文獻(xiàn)2929沈陽理工大學(xué)課程實(shí)踐（論文）1 前言1.1 作業(yè)背景本文根據(jù)管理信息系統(tǒng)開發(fā)實(shí)踐課程要求而做。課程作業(yè)要求如下：管理信息系統(tǒng)開發(fā)作為獨(dú)立的教學(xué)環(huán)節(jié)，是學(xué)習(xí)完管理信息系統(tǒng)課程并進(jìn)行完專業(yè)實(shí)習(xí)后進(jìn)行的一次全面的綜合練習(xí)。其目的在于加深對(duì)管理信息系統(tǒng)基礎(chǔ)理論和基本知識(shí)的理解，掌握使用信息系統(tǒng)分析、設(shè)計(jì)的基本方法，提高解決實(shí)際管理問題、開發(fā)信息系統(tǒng)的實(shí)踐能力。具體內(nèi)容是：用信息系統(tǒng)開發(fā)工具（例如powerbuilder、delphi、vb、vfp等）開發(fā)一個(gè)實(shí)用的中小型采購(gòu)管理信息系統(tǒng)。具體要求如下：1、根據(jù)課程實(shí)踐時(shí)間選擇適

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

4、向企業(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)管理帶來了新的機(jī)遇和挑戰(zhàn)。目前,我國(guó)大多數(shù)企業(yè)仍然沒有建立健全的供應(yīng)鏈管理體系,物資的采購(gòu)還存在機(jī)構(gòu)設(shè)置分散,資源浪費(fèi)嚴(yán)重,信息傳遞滯后等問題。1.2.1 基本思路本文從全通公司提高采購(gòu)管理的需求入手,給出了適合本企業(yè)的采購(gòu)供應(yīng)管理系統(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ì)。1.2.2 作業(yè)目標(biāo)該系統(tǒng)將有效的

5、整合企業(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)力。通過對(duì)采購(gòu)管理系統(tǒng)設(shè)計(jì)與開發(fā)，使采購(gòu)部門的工作效率大大提升，實(shí)現(xiàn)采購(gòu)管理工作的信息化，網(wǎng)絡(luò)化等，從而降低采購(gòu)的總體成本，增加企業(yè)的利潤(rùn)，并能更好的完成企業(yè)最終目標(biāo)。1.3 工作業(yè)績(jī)1.3.1 個(gè)人主要工作我在團(tuán)隊(duì)中的主要工作是進(jìn)行系統(tǒng)實(shí)施，系統(tǒng)實(shí)施的主要內(nèi)容包括物理系統(tǒng)的實(shí)施、程序設(shè)計(jì)與調(diào)試、人員培訓(xùn)、數(shù)據(jù)準(zhǔn)備與錄入、系統(tǒng)轉(zhuǎn)換與評(píng)價(jià)等。系統(tǒng)實(shí)施階段既是成功地實(shí)現(xiàn)新系統(tǒng)，又是取得用戶對(duì)系統(tǒng)信任的關(guān)鍵。1.3.2 主要收獲通過對(duì)全通公司的采購(gòu)管理系統(tǒng)進(jìn)行設(shè)計(jì)

6、，使我不僅了解到系統(tǒng)實(shí)施部分的內(nèi)容，也使我更深的掌握了管理信息系統(tǒng)的開發(fā)方法以及重要性。開發(fā)一個(gè)管理信息系統(tǒng)好像建一棟大樓，系統(tǒng)分析、系統(tǒng)設(shè)計(jì)是根據(jù)用戶的要求畫出各種藍(lán)圖，系統(tǒng)實(shí)施是調(diào)集各類人員、設(shè)備、材料，在現(xiàn)場(chǎng)根據(jù)圖紙按實(shí)施方案的要求把“大樓”建起來。通過對(duì)這個(gè)系統(tǒng)的開發(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)中，為公司帶來跟高的效益。最后，我還明白了集體協(xié)作的重要性。我們組的各個(gè)成員通過合理分工、互幫互助才完成了這個(gè)系統(tǒng)

7、的開發(fā)設(shè)計(jì)，所以。通過這次團(tuán)隊(duì)合作，不僅學(xué)到先進(jìn)的專業(yè)知識(shí)，更加深了團(tuán)隊(duì)合作的意識(shí)。1.3.3 自我評(píng)定 優(yōu) 良 中 及格 不及格1.3.4 小組成員任務(wù)分工情況本組為本次課程設(shè)計(jì)第四組，組長(zhǎng)為：，小組所有成員分工如下：2 系統(tǒng)規(guī)劃2.1 可行性分析2.1.1可行性研究方法通過調(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ā)展過程中，利用現(xiàn)有人力和物力是完全具備的能力開發(fā)出來的，作為階段性產(chǎn)品，日后的發(fā)展空間大，實(shí)現(xiàn)方法逐步簡(jiǎn)單容易。對(duì)于該系統(tǒng)的技術(shù)

8、要求，現(xiàn)行的軟件開發(fā)條件，環(huán)境，完全可以實(shí)現(xiàn)。sql server 2000完全可以提供該系統(tǒng)的操作要求和數(shù)據(jù)庫(kù)需求。所以采購(gòu)供應(yīng)管理信息系統(tǒng)在技術(shù)上是完全可行的。（2）技術(shù)可行性：該系統(tǒng)的開發(fā)要求是界面簡(jiǎn)單，易于操作。（3）經(jīng)濟(jì)可行性：該系統(tǒng)做為課程設(shè)計(jì)開發(fā)，經(jīng)濟(jì)可行性在此不做討論。（4）管理可行性：此次采購(gòu)系統(tǒng)的開發(fā)得到了大商集團(tuán)采購(gòu)部門經(jīng)理的大力支持，期待著設(shè)計(jì)出的采購(gòu)系統(tǒng)能夠使大商百貨公司采購(gòu)流程效率提高。采購(gòu)部門的其他人員也期待著采購(gòu)系統(tǒng)能夠成功的開發(fā)，幫助他們能夠快速準(zhǔn)確的工作，減少作業(yè)量提高效率。3 系統(tǒng)分析系統(tǒng)分析在整個(gè)開發(fā)過程中，是要解決“做什么”的問題。從邏輯上，或者說從信

9、息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進(jìn)行物理方案設(shè)計(jì)、解決“怎么做”提供依據(jù)。3.1 詳細(xì)調(diào)查分析3.1.1 業(yè)務(wù)流程圖業(yè)務(wù)流程圖(transaction flow diagram,簡(jiǎn)稱tfd),就是用一些規(guī)定的符號(hào)及連線來表示某個(gè)具體業(yè)務(wù)處理過程。是一種用盡可能少、盡可能簡(jiǎn)單的方法來描述業(yè)務(wù)處理過程的方法。付款單供應(yīng)商財(cái)務(wù)部退款單收貨單庫(kù)工采購(gòu)訂單采購(gòu)員采購(gòu)單退貨單2份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ù)

10、據(jù)流編號(hào)g-01數(shù)據(jù)流名稱采購(gòu)訂單簡(jiǎn)述全通公司實(shí)時(shí)購(gòu)買的貨物單數(shù)據(jù)流來源采購(gòu)部門數(shù)據(jù)流去向采購(gòu)員數(shù)據(jù)項(xiàng)組成訂單號(hào)+經(jīng)手人+日期+貨物名稱+貨物代碼+數(shù)量+貨物單價(jià)+金額數(shù)據(jù)流量24張/天高峰流量30張/天（2）處理邏輯描述處理邏輯編號(hào)p1處理邏輯名稱采購(gòu)處理簡(jiǎn)述對(duì)采購(gòu)訂單進(jìn)行統(tǒng)計(jì)，開出采購(gòu)單輸入的數(shù)據(jù)流采購(gòu)訂單處理描述對(duì)采購(gòu)訂單進(jìn)行處理，將所訂的貨物進(jìn)行分類，編制合理有效的采購(gòu)單輸出的數(shù)據(jù)流采購(gòu)單處理頻率1張/小時(shí)（3）數(shù)據(jù)存儲(chǔ)的描述數(shù)據(jù)存儲(chǔ)編號(hào)f1數(shù)據(jù)存儲(chǔ)名稱采購(gòu)臺(tái)賬簡(jiǎn)述采購(gòu)的貨物的記錄數(shù)據(jù)存儲(chǔ)組成貨物名稱+貨物代碼+貨物數(shù)量+貨物單價(jià)+貨物單位+金額+日期關(guān)鍵字貨物相關(guān)聯(lián)的處理p1（4）外

11、部實(shí)體的描述外部實(shí)體編號(hào)s1外部實(shí)體名稱采購(gòu)員簡(jiǎn)述采購(gòu)貨物人員輸入的數(shù)據(jù)流采購(gòu)訂單輸出的數(shù)據(jù)流采購(gòu)訂單4 系統(tǒng)設(shè)計(jì)4.2 總體設(shè)計(jì)4.2.1功能結(jié)構(gòu)圖設(shè)計(jì)采購(gòu)管理信息系統(tǒng)用戶登錄界面主界面采購(gòu)訂單訂單收貨采購(gòu)開單采購(gòu)付款采購(gòu)查詢密碼修改4.2.2 e-r4.3 詳細(xì)設(shè)計(jì)4.3.1 輸入輸出設(shè)計(jì)輸出設(shè)備：屏幕輸出方式：顯示輸出與打印輸出輸出形式：報(bào)表輸出形式輸入設(shè)計(jì)： 對(duì)輸入信息進(jìn)行校驗(yàn)1.在登陸界面： 用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會(huì)彈出對(duì)話框提醒請(qǐng)輸入用戶名與密碼！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會(huì)彈出對(duì)話框提醒無該用戶！2.在采購(gòu)訂單： 訂單號(hào)不能為空

12、，否則會(huì)彈出對(duì)話框提醒請(qǐng)輸入完整信息，輸入訂單號(hào) 編號(hào)為數(shù)字！在單價(jià)和數(shù)量中輸入數(shù)字，金額項(xiàng)目會(huì)自動(dòng)顯示為兩者乘積結(jié)果。4.3.2代碼設(shè)計(jì)代碼設(shè)計(jì)部分主要是采購(gòu)訂單號(hào)的設(shè)計(jì)。全通公司的主要合作伙伴為其設(shè)計(jì)固定的編碼。采購(gòu)訂單號(hào)是由廠家名和產(chǎn)品類別構(gòu)成的。廠家代碼廠家名稱產(chǎn)品類別代碼產(chǎn)品類別01百事可樂公司01果汁類飲品02可口可樂公司02茶系列飲品03娃哈哈公司03酸奶類飲品04農(nóng)夫山泉公司04碳酸飲料類05統(tǒng)一公司05礦泉水06其他公司06其他類別4.3.3數(shù)據(jù)庫(kù)設(shè)計(jì)1、數(shù)據(jù)庫(kù)的建立該系統(tǒng)的數(shù)據(jù)庫(kù)主要是應(yīng)用access編輯軟件進(jìn)行編輯的。表5-1：采購(gòu)信息表字段名稱數(shù)據(jù)類型訂單號(hào)文本時(shí)間文本

13、經(jīng)手人文本入庫(kù)文本供應(yīng)商文本是否交貨文本數(shù)量數(shù)字單價(jià)數(shù)字金額數(shù)字商品名稱文本商品編號(hào)數(shù)字2、數(shù)據(jù)庫(kù)的連接 在visual basic中，使程序與數(shù)據(jù)庫(kù)的連接有兩種方式，一種使通過設(shè)置ado控件的屬性將程序與數(shù)據(jù)庫(kù)進(jìn)行連接，另一種是通過代碼形式將ado控件連接數(shù)據(jù)庫(kù)，通過代碼的形式雖然加大了開發(fā)難度，但是有很多的優(yōu)點(diǎn)，所以，在程序開發(fā)是選擇了以代碼的形式來連接數(shù)據(jù)庫(kù)。5 系統(tǒng)實(shí)施一、登錄界面當(dāng)輸入的賬號(hào)為：1 密碼為：1 時(shí)，焦點(diǎn)會(huì)自動(dòng)落在確定上面，此時(shí)點(diǎn)擊確定就可以登入系統(tǒng)。若錯(cuò)誤，則會(huì)彈出對(duì)話框提醒“用戶名密碼錯(cuò)誤,請(qǐng)重新輸入！”并且它的輸入密碼為“*”，是在屬性欄中的passwordcha

14、r設(shè)置“*”。用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會(huì)彈出對(duì)話框提醒請(qǐng)輸入用戶名與密碼！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會(huì)彈出對(duì)話框提醒無該用戶！圖5-1 登陸窗口它的具體代碼為：private sub command1_click()if text1 = or text2 = thenmsgbox 請(qǐng)輸入用戶名與密碼！elseadodc1.recordset.filter = 用戶名= + text1.text + adodc1.recordset.find 用戶名= + text1.text + if adodc1.recordset.eof then msg

15、box 無該用戶！ else adodc1.recordset.filter = 用戶名 + = + + text1.text + if text2 adodc1.recordset.fields(密碼) thenmsgbox 用戶名密碼錯(cuò)誤,請(qǐng)重新輸入！elseform2.showform1.hideend ifend ifend if text2 = end subprivate sub command2_click()endend subprivate sub text2_change()if text2.text = 1 thencommand1.setfocusend ifend s

16、ub 二、主界面圖5-2 主界面主界面是登陸后最基礎(chǔ)的一個(gè)界面，內(nèi)容包括采購(gòu)訂單，采購(gòu)付款，訂單收貨，采購(gòu)查詢，采購(gòu)開單，密碼修改。它的具體代碼為：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.sh

17、owend subprivate sub command7_click()endend subprivate sub command8_click()form8.showend sub3、采購(gòu)訂單企業(yè)向供應(yīng)商訂貨物時(shí)，開據(jù)入庫(kù)訂單，以便了解收貨情況并預(yù)先安排存放貨物的倉(cāng)庫(kù)。在界面內(nèi)填入相應(yīng)的商品信息，點(diǎn)擊保存則會(huì)將所輸入的采購(gòu)信息保存到采購(gòu)信息管理表中。如果輸入有誤，且已保存，可以應(yīng)用刪除功能，將錯(cuò)誤信息刪除。訂單號(hào)不能為空，否則會(huì)彈出對(duì)話框提醒請(qǐng)輸入完整信息，輸入訂單號(hào) 編號(hào)為數(shù)字！在單價(jià)和數(shù)量中輸入數(shù)字，金額項(xiàng)目會(huì)自動(dòng)顯示為兩者乘積結(jié)果。圖5-3 商品信息的錄入它的具體代碼為：privat

18、e sub command1_click()if text1.text = thenmsgbox 請(qǐng)輸入完整信息，輸入訂單號(hào) 編號(hào)為數(shù)字！, vbokonly + vbexclamation, 警告！text1.setfocuselse adodc1.recordset.addnew adodc1.recordset.fields(時(shí)間) = text2.text adodc1.recordset.fields(訂單號(hào)) = text1.text adodc1.recordset.fields(供應(yīng)商) = text4.text adodc1.recordset.fields(經(jīng)手人) = t

19、ext3.text adodc1.recordset.fields(入庫(kù)) = text10.text adodc1.recordset.fields(是否交貨) = text11.text adodc1.recordset.update adodc1.recordset.addnew adodc1.recordset.fields(名稱) = text5.text adodc1.recordset.fields(數(shù)量) = val(text7.text) adodc1.recordset.fields(單價(jià)) = val(text6.text) adodc1.recordset.fields

20、(金額) = val(text8.text) adodc1.recordset.fields(商品編號(hào)) = 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 comma

21、nd2_click()form3.hideend subprivate sub command5_click()adodc1.recordset.deleteend subprivate sub text8_change()if not isnumeric(text6.text) or not isnumeric(text7.text) thenmsgbox 請(qǐng)?jiān)趩蝺r(jià)和數(shù)量中輸入數(shù)字elsetext8 = val(text6) * val(text7)end ifend sub4、訂單收貨 訂單收貨：是“采購(gòu)訂單”上的貨到后入庫(kù)完成交易。對(duì)采購(gòu)訂單表中商品的訂單號(hào)進(jìn)行查詢，訂單號(hào)不存在，則會(huì)彈

22、出對(duì)話框提醒無該訂單。如存在，則會(huì)在表中顯示出來，如果其“入庫(kù)”屬性為“否”，即說明其沒有入庫(kù)，可點(diǎn)擊“收貨交易”，把相應(yīng)信息保存到倉(cāng)庫(kù)信息管理表中。如果其“入庫(kù)”屬性為“是”則“收貨交易”按鈕不可用。 圖5-4訂單收貨它的具體代碼為：private sub command1_click() adodc1.recordset.fields(是否交貨) = 是 adodc1.recordset.update msgbox 完成交易，已入倉(cāng)庫(kù), vbokonly adodc2.recordset.find 訂單號(hào)= & adodc1.recordset.fields(訂單號(hào)) if adodc2.

23、recordset.eof = true then adodc2.recordset.addnew adodc2.recordset.fields(名稱) = adodc1.recordset.fields(名稱) adodc2.recordset.fields(數(shù)量) = adodc1.recordset.fields(數(shù)量) adodc2.recordset.fields(訂單號(hào)) = adodc1.recordset.fields(訂單號(hào)) adodc2.recordset.fields(單價(jià)) = adodc1.recordset.fields(單價(jià)) adodc2.recordset

24、.fields(金額) = adodc1.recordset.fields(金額) adodc2.recordset.update else adodc2.recordset.fields(數(shù)量) = (adodc2.recordset.fields(數(shù)量) + adodc1.recordset.fields(數(shù)量) adodc2.recordset.update end if command2.enabled = false text1.text = end subprivate sub command2_click() if text1.text = or not isnumeric(te

25、xt1) then msgbox 訂單號(hào)，并輸入具體數(shù)值！, vbokonly else adodc1.recordset.filter = 訂單號(hào) = + + text1.text + adodc1.recordset.find 訂單號(hào)= & text1.text if adodc1.recordset.eof then msgbox 無該訂單 else adodc1.recordset.filter = 訂單號(hào) = + + text1.text + if adodc1.recordset.fields(是否交貨) = 是 then command1.enabled = false else

26、 command1.enabled = true end if end if end ifend subprivate sub command3_click()form4.hideform2.showend subprivate sub form_load()command1.enabled = falsecommand2.enabled = truetext1.text = end sub5、采購(gòu)單 采購(gòu)單是對(duì)庫(kù)存的商品查詢，了解哪些要進(jìn)行采購(gòu)。填入相關(guān)商品信息，會(huì)將相關(guān)商品信息。保存到庫(kù)存管理表中，對(duì)于倉(cāng)庫(kù)中已有的商品，數(shù)量上會(huì)在原有的基礎(chǔ)上增加。 圖5-5 倉(cāng)庫(kù)二的查詢具體代碼為：pri

27、vate sub text6_change()if not isnumeric(text4.text) or not isnumeric(text5.text) thenmsgbox 請(qǐng)?jiān)趩蝺r(jià)和數(shù)量中輸入數(shù)字elsetext6 = val(text4) * val(text5)end ifend subprivate sub command1_click()if text1.text = or text2.text = thenmsgbox 請(qǐng)輸入完整信息，供應(yīng)商與商品名稱！, vbokonly + vbexclamation, 警告！else adodc1.recordset.find 訂單

28、號(hào)= & & text3.text & if adodc1.recordset.eof then adodc1.recordset.addnew adodc1.recordset.fields(名稱) = text1.text adodc1.recordset.fields(數(shù)量) = val(text5.text) adodc1.recordset.fields(訂單號(hào)) = text3.text adodc1.recordset.fields(單價(jià)) = val(text4.text) adodc1.recordset.fields(金額) = val(text6.text) adodc1

29、.recordset.fields(是否付款) = 否 adodc1.recordset.fields(倉(cāng)庫(kù)名) = 倉(cāng)庫(kù)一 adodc1.recordset.updateelse adodc1.recordset.fields(數(shù)量) = (val(text5.text) + adodc1.recordset.fields(數(shù)量) adodc1.recordset.update end if end if text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = end subprivate s

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

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

32、ilter = 訂單號(hào) = + + text1.text + if adodc1.recordset.fields(是否付款) = 是 then command1.enabled = false else command1.enabled = true end if end if end ifend sub7、采購(gòu)查詢采購(gòu)查詢是一個(gè)有限制條件的查詢窗口，也就是說由用戶自定義最低的庫(kù)存數(shù)量，然后可以方便的讓操作人員進(jìn)行查詢。本系統(tǒng)將最低庫(kù)存數(shù)量設(shè)置為小于50，這樣在一定時(shí)間內(nèi)就可以對(duì)倉(cāng)庫(kù)的數(shù)量進(jìn)行查詢，及時(shí)采購(gòu)補(bǔ)貨。圖5-7 采購(gòu)查詢具體代碼如下：private sub command1_cli

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