企業(yè)銷售采購(gòu)管理系統(tǒng)課程設(shè)計(jì)及及

1、 目錄TOC o 1-2 u 1.引言 PAGEREF _Toc22738 1 需求分析 PAGEREF _Toc4879 1可行性分析 PAGEREF _Toc26811 12. 系統(tǒng)分析 PAGEREF _Toc5884 2 業(yè)務(wù)流程分析 PAGEREF _Toc2335 2 數(shù)據(jù)流程分析3 數(shù)據(jù)字典43. 系統(tǒng)設(shè)計(jì) PAGEREF _Toc30135 5 系統(tǒng)總體結(jié)構(gòu) PAGEREF _Toc30848 5 數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設(shè)計(jì) PAGEREF _Toc26455 5 代碼設(shè)計(jì) PAGEREF _Toc9325 7 輸入輸出設(shè)計(jì) PAGEREF _Toc17101 7系統(tǒng)的安全設(shè)計(jì) PA

2、GEREF _Toc20343 84. 系統(tǒng)實(shí)施 PAGEREF _Toc30734 9 系統(tǒng)實(shí)施 PAGEREF _Toc16567 9系統(tǒng)運(yùn)行管理制度 PAGEREF _Toc21728 325. 結(jié)束語 PAGEREF _Toc28072 33 參考文獻(xiàn)461.引言 需求分析隨著電子產(chǎn)品創(chuàng)新性技術(shù)的迅速發(fā)展、人民生活水平的提高，電腦已成為人們追求娛樂不可或缺的生活用品。而對(duì)于銷售這些產(chǎn)品的終端，無論是規(guī)模型的商場(chǎng)還是小的商店，都要求它們的采購(gòu)業(yè)務(wù)能順利、高效地進(jìn)行。博宏電腦公司近年來的銷售量激增，但是采購(gòu)業(yè)務(wù)成為了它獲取高效益的掣肘。該公司無論是高層領(lǐng)導(dǎo)還是員工，都希望能開發(fā)一個(gè)采購(gòu)管理

3、系統(tǒng)，對(duì)采購(gòu)業(yè)務(wù)進(jìn)行管理。 在該公司中，產(chǎn)品的采購(gòu)管理是一項(xiàng)日常性的工作。電腦產(chǎn)品因其更新?lián)Q代迅速，如果做不到使產(chǎn)品的采購(gòu)量以及采購(gòu)時(shí)間適應(yīng)需求的變化，那么很容易造成商品積壓或脫銷，不僅影響商品的銷售業(yè)績(jī)，也會(huì)增加庫存費(fèi)以及采購(gòu)環(huán)節(jié)不必要的支出，最終影響公司的效益。另外，該公司的商品種類非常繁多，采購(gòu)量大且頻繁，依靠傳統(tǒng)的手工處理記錄是很難對(duì)采購(gòu)環(huán)節(jié)進(jìn)行及時(shí)、正確地處理。所以開發(fā)并應(yīng)用采購(gòu)管理系統(tǒng)成為適應(yīng)時(shí)代發(fā)展，使管理現(xiàn)代化的重要措施。采購(gòu)管理系統(tǒng)體現(xiàn)了當(dāng)今先進(jìn)的企業(yè)管理思想，對(duì)提高企業(yè)的管理水平有著重要的意義。采購(gòu)管理系統(tǒng)能夠保證計(jì)劃的準(zhǔn)確性和采購(gòu)的合理性，降低商品的運(yùn)營(yíng)成本，讓利于消費(fèi)者

4、，提升該公司的競(jìng)爭(zhēng)力?？尚行苑治?可行性分析的任務(wù)是明確開發(fā)該采購(gòu)管理系統(tǒng)的必要性和可行性。該公司的采購(gòu)環(huán)節(jié)出現(xiàn)了制約商場(chǎng)發(fā)展的現(xiàn)象，利用計(jì)算機(jī)技術(shù)解決采購(gòu)業(yè)務(wù)數(shù)據(jù)的處理迫在眉睫，公司的領(lǐng)導(dǎo)支持開發(fā)采購(gòu)管理系統(tǒng)，管理人員、員工積極響應(yīng)。因此開發(fā)采購(gòu)管理系統(tǒng)的必要性與可行性是存在的。具體表現(xiàn)為：1）管理上的可行性：公司內(nèi)部的采購(gòu)環(huán)節(jié)的滯后讓管理人員的日常管理工作難以順利地進(jìn)行，領(lǐng)導(dǎo)層也注意到當(dāng)前落后的采購(gòu)管理手段對(duì)商品的銷售利潤(rùn)影響很大，公司上下都對(duì)采購(gòu)管理系統(tǒng)的開發(fā)有很大的熱情，迫切需要對(duì)其采購(gòu)管理進(jìn)行改革，開發(fā)采購(gòu)管理系統(tǒng)的時(shí)機(jī)已成熟。2）技術(shù)上的可行性：由于該公司的辦公室、采購(gòu)部門、庫存部

5、門、銷售部門和財(cái)務(wù)部門等都使用了電腦辦公，公司員工的素質(zhì)較高，員工的技術(shù)水平達(dá)到了采購(gòu)管理系統(tǒng)所要求的水平。目前可視化開發(fā)技術(shù)及工具（如visual basic）和數(shù)據(jù)庫技術(shù)（如access）很成熟，并且該采購(gòu)管理系統(tǒng)在公司現(xiàn)有的硬軟件資源基礎(chǔ)上可以實(shí)施，因此技術(shù)上是可行的。3）經(jīng)濟(jì)上的可行性：該系統(tǒng)所需的硬件設(shè)備，如服務(wù)器、PC機(jī)、打印機(jī)以及網(wǎng)絡(luò)配件等的市場(chǎng)價(jià)格不高，且目前主流的配置就能滿足該系統(tǒng)的功能要求，設(shè)備費(fèi)用的支出很小。該公司對(duì)于此次開發(fā)MIS的經(jīng)濟(jì)效益和費(fèi)用支出進(jìn)行了比較評(píng)價(jià)，回收期短。該公司經(jīng)濟(jì)效益好，現(xiàn)金流正常，為此次項(xiàng)目開發(fā)提供了充足的經(jīng)費(fèi)。由于該系統(tǒng)規(guī)模小，僅在公司內(nèi)部運(yùn)行

6、，日常的維護(hù)量不大，所以運(yùn)行費(fèi)用低。但是由于采用了采購(gòu)管理系統(tǒng)，減少了采購(gòu)環(huán)節(jié)的人員作業(yè)，提高了工作效率，進(jìn)而降低了商品的成本，這些費(fèi)用的節(jié)省遠(yuǎn)大于該采購(gòu)管理系統(tǒng)的開發(fā)和運(yùn)行費(fèi)用。2. 系統(tǒng)分析 業(yè)務(wù)流程分析 圖為采購(gòu)管理系統(tǒng)業(yè)務(wù)流程圖：描述了系統(tǒng)內(nèi)各單位、人員之間業(yè)務(wù)關(guān)系、作業(yè)順序和管理業(yè)務(wù)流向的圖表。供應(yīng)商付款單供應(yīng)商付款單退款單退款單采購(gòu)訂單采購(gòu)訂單財(cái)務(wù)部采購(gòu)員財(cái)務(wù)部采購(gòu)員退貨單采購(gòu)開單退貨單采購(gòu)開單收貨單倉(cāng)庫管理員收貨單倉(cāng)庫管理員 圖 采購(gòu)管理業(yè)務(wù)流程圖 數(shù)據(jù)流程分析根據(jù)數(shù)據(jù)流程圖畫出的業(yè)務(wù)流程圖如圖和圖所示：數(shù)據(jù)流程圖能全面地描述信息系統(tǒng)邏輯模型供應(yīng)商提貨單供應(yīng)商采購(gòu)處理采購(gòu)處理 采

7、購(gòu)訂單 圖 采購(gòu)管理的頂層數(shù)據(jù)流程圖財(cái)務(wù)賬簿財(cái)務(wù)賬簿財(cái)務(wù) 部 財(cái)務(wù) 部 退貨單數(shù)據(jù) 訂 單 數(shù) 據(jù)采購(gòu)訂單審核處理采購(gòu)部供應(yīng)商采購(gòu)訂單審核處理采購(gòu)部供應(yīng)商 采購(gòu)訂單 訂單數(shù)據(jù) 入 出 庫 庫 單 單銷售部 銷售部收退貨處理庫存處理 銷售報(bào)表 出、入庫數(shù)據(jù)收退貨處理庫存處理庫存臺(tái)賬庫存臺(tái)賬圖 采購(gòu)管理系統(tǒng)的第二層數(shù)據(jù)流程圖 數(shù)據(jù)字典1）數(shù)據(jù)項(xiàng)的定義（以采購(gòu)訂單的單據(jù)編號(hào)為例） 數(shù)據(jù)項(xiàng)編號(hào)：I02-01 數(shù)據(jù)項(xiàng)名稱：?jiǎn)螕?jù)編號(hào) 別名：?jiǎn)螕?jù)編號(hào) 簡(jiǎn)述：區(qū)別采購(gòu)訂單唯一性的代碼 類型與長(zhǎng)度：字符型，長(zhǎng)度為11 取值范圍：“001”“999” 2）數(shù)據(jù)結(jié)構(gòu)的定義（以采購(gòu)訂單為例） 數(shù)據(jù)結(jié)構(gòu)編號(hào)：DS02-

8、01 數(shù)據(jù)結(jié)構(gòu)名稱：采購(gòu)訂單 簡(jiǎn)述：采購(gòu)部門所填采購(gòu)訂單信息 數(shù)據(jù)結(jié)構(gòu)組成：DS02-02 + DS02-03 + DS02-043）數(shù)據(jù)流的定義（以采購(gòu)訂單為例） 數(shù)據(jù)流編號(hào)：D02-02 數(shù)據(jù)流名稱：合格的采購(gòu)訂單 簡(jiǎn)述：經(jīng)審核批準(zhǔn)的采購(gòu)訂單 數(shù)據(jù)流來源：采購(gòu)訂單審核處理模塊 數(shù)據(jù)流去向：采購(gòu)部門 數(shù)據(jù)項(xiàng)組成：?jiǎn)螕?jù)編號(hào)+錄單日期+商品編號(hào)+商品名稱+型號(hào)+規(guī)格+單位+數(shù)量+單價(jià)+合計(jì)金額+供應(yīng)商+到貨日期+聯(lián)系人+電話+業(yè)務(wù)員+摘要 數(shù)據(jù)流量：約30張/日 高峰流量：約50張/日 4）處理邏輯的定義（以采購(gòu)訂單審核為例） 處理邏輯編號(hào)：P02-01 處理邏輯名稱：采購(gòu)訂單審核處理 簡(jiǎn)述：審

9、核采購(gòu)訂單是否合格并給予批準(zhǔn)或不批準(zhǔn) 輸入的數(shù)據(jù)流：采購(gòu)訂單 審核處理描述：審核采購(gòu)部門送來的采購(gòu)訂單填寫格式是否符合要求，單據(jù)上的信息是否符合采購(gòu)計(jì)劃，是否真實(shí)等。不合格的單據(jù)返回采購(gòu)部門，合格的單據(jù)登記采購(gòu)訂單臺(tái)賬。輸出的數(shù)據(jù)流：合格的采購(gòu)訂單，未批采購(gòu)訂單 處理頻率：約30次/日5）數(shù)據(jù)存儲(chǔ)的定義（以采購(gòu)訂單數(shù)據(jù)存儲(chǔ)為例） 數(shù)據(jù)存儲(chǔ)編號(hào)：F02-01 數(shù)據(jù)存儲(chǔ)名稱：采購(gòu)訂單臺(tái)賬 簡(jiǎn)述：存放采購(gòu)訂單信息 數(shù)據(jù)存儲(chǔ)組成：?jiǎn)螕?jù)編號(hào)+錄單日期+商品編號(hào)+商品名稱+型號(hào)+規(guī)格+單位+數(shù)量+單價(jià)+合計(jì)金額+預(yù)付賬戶+預(yù)付金額+供應(yīng)商+到貨日期+聯(lián)系人+電話+業(yè)務(wù)員+摘要 關(guān)鍵字：?jiǎn)螕?jù)編號(hào) 相關(guān)聯(lián)的處

10、理：P02-01 6）外部實(shí)體的定義（以供應(yīng)商為例） 外部實(shí)體編號(hào)：S02-01 外部實(shí)體名稱：供應(yīng)商 簡(jiǎn)述：提供商品的供應(yīng)商 輸入的數(shù)據(jù)流：D02-02 輸出的數(shù)據(jù)流：D02-013. 系統(tǒng)設(shè)計(jì) 系統(tǒng)總體結(jié)構(gòu) 新系統(tǒng)的功能設(shè)計(jì)是以業(yè)務(wù)流程圖和數(shù)據(jù)流程圖為依據(jù)的。對(duì)該采購(gòu)管理系統(tǒng)劃分為系統(tǒng)設(shè)置、資料管理、采購(gòu)訂單、訂單收貨、采購(gòu)開單、采購(gòu)付款、采購(gòu)?fù)素?、產(chǎn)品銷售等功能模塊。根據(jù)以上分析，該采購(gòu)管理系統(tǒng)功能劃分圖如圖所示：采購(gòu)管理系統(tǒng)采購(gòu)管理系統(tǒng)系統(tǒng)設(shè)置系統(tǒng)設(shè)置采購(gòu)管理采購(gòu)管理產(chǎn)品銷售采購(gòu)?fù)素洸少?gòu)付款采購(gòu)開單訂單收貨采購(gòu)訂單修改密碼權(quán)限管理添加用戶產(chǎn)品銷售采購(gòu)?fù)素洸少?gòu)付款采購(gòu)開單訂單收貨采購(gòu)訂單

11、修改密碼權(quán)限管理添加用戶 圖 采購(gòu)管理系統(tǒng)功能結(jié)構(gòu)圖 數(shù)據(jù)結(jié)構(gòu)與數(shù)據(jù)庫設(shè)計(jì)ER模型：概念模型的最常用的表示方法是實(shí)體-聯(lián)系方法。商品名稱商品名稱型號(hào)商品編號(hào)型號(hào)商品編號(hào)訂單號(hào)訂單號(hào)規(guī)格采購(gòu)訂單規(guī)格采購(gòu)訂單日期供應(yīng)商名稱交給日期供應(yīng)商名稱交給聯(lián)系人編號(hào)聯(lián)系人編號(hào)供應(yīng)商供應(yīng)商電話電話名稱名稱日期交貨日期交貨商品數(shù)量商品數(shù)量商品名稱倉(cāng)庫商品名稱倉(cāng)庫訂單號(hào)訂單號(hào)數(shù)量采購(gòu)開單數(shù)量采購(gòu)開單單價(jià)商品名稱單價(jià)商品名稱商品編號(hào)商品編號(hào) 圖 采購(gòu)管理系統(tǒng)E-R模型圖 數(shù)據(jù)表的設(shè)計(jì)：這是根據(jù)數(shù)據(jù)流程圖設(shè)計(jì)的數(shù)據(jù)表主鍵列名數(shù)據(jù)類型長(zhǎng)度允許空*供應(yīng)商代碼char3*供應(yīng)商名稱文本4*產(chǎn)品代碼char6*產(chǎn)品名稱文本4圖

12、 產(chǎn)品銷售表主鍵列名數(shù)據(jù)類型長(zhǎng)度允許空*商品編號(hào)char6*商品名稱文本4*型號(hào)文本8*規(guī)格文本9*單位文本15*數(shù)量varchar15*單價(jià)char4*合計(jì)金額varchar19*單據(jù)編號(hào)varchar3*供應(yīng)商文本4*入庫日期datatime8*聯(lián)系人文本3*電話char11*業(yè)務(wù)員文本3*摘要文本9表 商品庫存表 代碼設(shè)計(jì) 代碼設(shè)計(jì)部分主要是采購(gòu)訂單號(hào)的設(shè)計(jì)。博宏公司的主要合作伙伴為其設(shè)計(jì)固定的編碼。采購(gòu)訂單號(hào)是由供應(yīng)商名和產(chǎn)品類別構(gòu)成的。表為采購(gòu)訂單編號(hào)表 ：供應(yīng)商代碼*供應(yīng)商名稱產(chǎn)品代碼產(chǎn)品名稱001A經(jīng)銷商N(yùn)-01聯(lián)想電腦002B經(jīng)銷商N(yùn)-02戴爾電腦003C經(jīng)銷商N(yùn)-03索尼電腦

13、004D經(jīng)銷商N(yùn)-04華碩電腦005E經(jīng)銷商N(yùn)-05宏基電腦006F經(jīng)銷商N(yùn)-06三星電腦007G經(jīng)銷商N(yùn)-07惠普電腦 表 采購(gòu)訂單編號(hào)表 輸入輸出設(shè)計(jì)輸出設(shè)計(jì)：輸出設(shè)備：打印機(jī)、顯示器 輸出報(bào)告：輸出設(shè)計(jì)書資料代碼XS-01輸出名稱銷售報(bào)表份數(shù)1報(bào)送庫存部門項(xiàng)目號(hào)項(xiàng)目名稱位數(shù)及編輯備注1商品編號(hào)X(4)2商品名稱X(6)3型號(hào)X(6)4銷售數(shù)量X(3) 表 輸出設(shè)計(jì)書輸入設(shè)計(jì)： 對(duì)輸入信息進(jìn)行校驗(yàn)在登陸界面： 用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會(huì)彈出對(duì)話框提醒用戶不存在，請(qǐng)從新輸入！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會(huì)彈出對(duì)話框提醒用戶不存在，請(qǐng)從新輸入！在

14、產(chǎn)品銷售中：商品編號(hào)不能為空，否則會(huì)彈出對(duì)話框提醒Sorry,未找到你所查詢的數(shù)據(jù)，請(qǐng)查證后再試單據(jù)號(hào)規(guī)格數(shù)量錄單日期單位單價(jià)商品編號(hào)到貨日期合計(jì)金額商品名稱業(yè)務(wù)員預(yù)付賬戶型號(hào)聯(lián)系人預(yù)付金額供應(yīng)商電話摘要 表 產(chǎn)品銷售單錄入屏幕系統(tǒng)的安全設(shè)計(jì)信息系統(tǒng)安全設(shè)計(jì)主要解決以下幾個(gè)問題：止帶寬資源濫用防止無關(guān)網(wǎng)絡(luò)行為影響工作效率管控外發(fā)信息，降低泄密風(fēng)險(xiǎn)掌握組織動(dòng)態(tài)、優(yōu)化員工管理為網(wǎng)絡(luò)管理與優(yōu)化提供決策依據(jù)，防止病毒木馬等網(wǎng)絡(luò)風(fēng)險(xiǎn)低成本且有效推行信息管理制度等4. 系統(tǒng)實(shí)施 系統(tǒng)實(shí)施一、登錄界面當(dāng)輸入的賬號(hào)為：xiaolin密碼為：xiaolin 時(shí)，焦點(diǎn)會(huì)自動(dòng)落在確定上面，此時(shí)點(diǎn)擊確定或按回車鍵即可

15、以登入系統(tǒng)。若錯(cuò)誤，則會(huì)彈出對(duì)話框提醒“此用戶不存在,請(qǐng)重新輸入！”并且它的輸入密碼為“*”，是在屬性欄中的passwordchar設(shè)置“*”。用戶名及密碼不能為空，如不填寫兩者或兩者之一，則會(huì)彈出對(duì)話框提醒此用戶不存在，請(qǐng)從新輸入！如果用戶輸入的密碼不是密碼管理表中的用戶名及密碼，則會(huì)彈出對(duì)話框提醒此用戶不在，請(qǐng)從新輸入！圖4-1 登陸窗口它的具體代碼為：Dim TIM As Integer 定義一個(gè)整型變量Dim myval As String 定義一個(gè)字符串變量Private Sub Form_Load() 連接access數(shù)據(jù)庫 = Provider= Source= & & 采購(gòu)管理

16、系統(tǒng).mdb;Persist Security Info=False = select * from 用戶 End SubPrivate Sub Command1_Click()Static itimes As Integer = 驗(yàn)證用戶名及密碼 = select * from 用戶 where 用戶名= + + If 0 Then 如果記錄數(shù)大于零 驗(yàn)證密碼 If = 密碼) Then Load Form2 Unload Me Else If 密碼) Then MsgBox 密碼錯(cuò)誤,請(qǐng)重新輸入！, vbCritical, 系統(tǒng)提示 itimes = itimes + 1 = End If

17、 End If Else MsgBox 用戶不存在,請(qǐng)重新輸入！, vbCritical, 系統(tǒng)提示 itimes = itimes + 1 = = End If If itimes = 3 Then 錯(cuò)誤3次，退出系統(tǒng) MyMsg = MsgBox(輸入錯(cuò)誤,請(qǐng)向管理員查詢！, vbCritical, 系統(tǒng)提示) If MyMsg = vbOK Then End End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) I

18、f KeyCode = vbKeyReturn Then Command1_Click 按回車鍵進(jìn)入End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 按回車鍵，text2獲得焦點(diǎn)End Sub二、主界面主界面是登陸后最基礎(chǔ)的一個(gè)界面，內(nèi)容包括采購(gòu)訂單，訂單收獲，采購(gòu)開單，采購(gòu)付款，采購(gòu)?fù)素?，產(chǎn)品銷售。圖4-2 主界面它的具體代碼為：Private Sub Command1_Click() = FalseEnd SubPrivate Sub 供應(yīng)

19、商資料_Click() = FalseEnd SubPrivate Sub 庫存查詢_Click() = FalseEnd SubPrivate Sub 權(quán)限管理_Click() = FalseEnd SubPrivate Sub 添加用戶_Click() = FalseEnd SubPrivate Sub 退出系統(tǒng)_Click()EndEnd SubPrivate Sub 修改密碼_Click() = FalseEnd Sub三添加用戶圖4-3 添加用戶它的具體代碼為：Private Sub Form_Load() 自動(dòng)識(shí)別數(shù)據(jù)庫路徑 = Provider= Source= & & 采購(gòu)管理

20、系統(tǒng).mdb;Persist Security Info=False = select * from 權(quán)限設(shè)置 = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 用戶End SubPrivate Sub Form_Activate() text1獲得焦點(diǎn)End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As I

21、nteger) If KeyCode = vbKeyReturn Then 回車text2獲得焦點(diǎn)End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text3獲得焦點(diǎn)End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車Command1獲得焦點(diǎn)End SubPrivate Sub Comma

22、nd1_Click() Dim yhm 保存用戶名及密碼 If Then = select * from 用戶 where 用戶名= + + If = 用戶名) Then MsgBox 已添加該用戶，請(qǐng)重新添加, , 系統(tǒng)提示 = : = : = ElseIf And And = Then Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False select * from 用戶, adocon, adOpenKeyset, adLockOptimistic (用戶名) = (密碼) = Provider= Source= & &

23、 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False select * from 權(quán)限設(shè)置, adocon, adOpenKeyset, adLockOptimistic (用戶名) = (密碼) = = : = : = MsgBox 添加用戶成功！, , 系統(tǒng)提示 ElseIf = Then MsgBox 請(qǐng)輸入確認(rèn)密碼, , 系統(tǒng)提示 ElseIf Then MsgBox 兩次輸入的密碼不相同, , 系統(tǒng)提示 = = End If Else MsgBox 請(qǐng)輸入用戶名！, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command2_Click

24、() = : = : = End SubPrivate Sub Command3_Click() Unload Me = TrueEnd Sub四密碼設(shè)置 本功能允許使用者對(duì)密碼進(jìn)行修改，取保系統(tǒng)的安全與方便。如果你是系統(tǒng)的用戶，輸入用戶名可對(duì)自己的密碼進(jìn)行修改。圖4-4 密碼設(shè)置它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 權(quán)限設(shè)置 End SubPrivate Sub Command1_Click() If = Or

25、 = Or = Then MsgBox 輸入不能為空!, 48, 提示信息 Else = select * from 權(quán)限設(shè)置 where 用戶名= + + If 0 Then If = 密碼) Then Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False Set adoRs = (update 權(quán)限設(shè)置 set 密碼= + + where 用戶名= + + ) Dim rs1 As New select * from 用戶 where 用戶名= + + , StrCnn, adOpenKeyset, adLockPessi

26、mistic If 0 Then (密碼) = End If MsgBox 密碼修改成功,退出密碼設(shè)置!, , 系統(tǒng)提示 = True Unload Me Else MsgBox 原密碼錯(cuò)誤,請(qǐng)重新輸入原密碼!, , 系統(tǒng)提示 End If Else MsgBox 該用戶不存在,請(qǐng)重新輸入, , 系統(tǒng)提示 End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Command2_Click() = True Unload Me End SubPrivate Sub Form_A

27、ctivate() 回車text1獲得焦點(diǎn)End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text2獲得焦點(diǎn)End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 回車text3獲得焦點(diǎn)End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Sh

28、ift As Integer) If KeyCode = 13 Then Command1_ClickEnd Sub五權(quán)限管理： 圖詳細(xì)的陳述了權(quán)限設(shè)置的內(nèi)容，包括系統(tǒng)設(shè)置，資料管理，采購(gòu)管理，庫存管理和退貨管理。圖4-5 權(quán)限管理它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 權(quán)限設(shè)置 = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = sel

29、ect * from 權(quán)限設(shè)置 Set = Adodc2End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Datalist1_Click() = select * from 權(quán)限設(shè)置 where 用戶名= & & If 0 Then For i = 0 To 11 If = -1 Then Check1(i).Value = 1 Else Check1(i).Value = 0 Next i Else = 0 End IfEnd SubPrivate Sub Command1_Click() 全

30、選For i = 0 To 11 Check1(i).Value = 1Next iEnd SubPrivate Sub Command2_Click() 全不選 For i = 0 To 11 Check1(i).Value = 0 Next iEnd SubPrivate Sub Command3_Click() 為用戶設(shè)置權(quán)限 If Then = select * from 權(quán)限設(shè)置 where 用戶名= + + If 0 Then For i = 0 To 11 If Check1(i).Value = 1 Then = -1 Else = 0 Next i End If MsgBox

31、 權(quán)限設(shè)置成功!, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command4_Click() Unload Me = True End SubPrivate Sub Command5_Click() 刪除用戶 On Error Resume Next A = MsgBox(確認(rèn)刪除該用戶, 4, 系統(tǒng)提示) If A = vbYes Then Dim rs2 As New select * from 用戶 where 用戶名 = + + , StrCnn, adOpenKeyset, adLockPessimistic If 0 Then End If Unload M

32、e End IfEnd Sub六采購(gòu)訂單企業(yè)向供應(yīng)商訂貨物時(shí)，開據(jù)采購(gòu)訂單，以便供應(yīng)商及時(shí)供貨。在界面內(nèi)填入相應(yīng)的商品信息，點(diǎn)擊添加則會(huì)將所輸入的訂單信息保存到采購(gòu)訂單中中。如果輸入有誤，且已保存，可以應(yīng)用刪除功能，將錯(cuò)誤信息刪除。訂單號(hào)不能為空，否則會(huì)彈出對(duì)話框提醒請(qǐng)輸入完整信息！在單價(jià)和數(shù)量中輸入數(shù)字，金額項(xiàng)目會(huì)自動(dòng)顯示為兩者乘積結(jié)果。 圖4-6 采購(gòu)商品信息的錄入它的具體代碼為：Private Sub Form_Load() 連接access數(shù)據(jù)庫 = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = selec

33、t * from 采購(gòu)訂單 = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 供應(yīng)商資料 供應(yīng)商名稱) DTPicker1 = Date DTPicker2 = Date = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 付款明細(xì)賬 End SubPrivate Sub Command1_Click() If = Or = Then MsgBox 請(qǐng)輸入單據(jù)編號(hào)和商品編號(hào), , 系

34、統(tǒng)提示 Else If = 單據(jù)編號(hào)) Or = 商品編號(hào)) Then MsgBox 單據(jù)編號(hào)和商品編號(hào)不能重復(fù)添加，請(qǐng)重新輸入, , 系統(tǒng)提示 = = = = = = = = = = = = = = = = Else 單據(jù)編號(hào)) = Trim 錄單日期) = Trim 供應(yīng)商) = Trim 到貨日期) = Trim 聯(lián)系人) = Trim 電話) = Trim 業(yè)務(wù)員) = Trim 摘要) = Trim 商品編號(hào)) = Trim 商品名稱) = Trim 型號(hào)) = Trim 規(guī)格) = Trim 單位) = Trim 數(shù)量) = Trim 單價(jià)) = Trim 合計(jì)金額) = Trim

35、 預(yù)付賬戶) = Trim 預(yù)付金額) = Trim 單據(jù)編號(hào)) = Trim 商品編號(hào)) = Trim 商品名稱) = Trim 合計(jì)金額) = Trim 已預(yù)付款) = Trim 應(yīng)付款) = Trim - Trim = = = = = = = = = = = = = = = = End If End IfEnd SubPrivate Sub Command2_Click() = = = = = = = = = = = = = = = = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd SubPrivate Sub Text12

36、_Change() = Val * ValEnd Sub七訂單收貨訂單收貨：是“采購(gòu)訂單”上的貨到貨后入庫，完成交易。對(duì)采購(gòu)訂單表中商品的訂單號(hào)進(jìn)行查找。在表中可查詢訂貨商品的詳細(xì)信息，如單價(jià)、數(shù)量、商品是否入庫等，如果沒有入庫，則可應(yīng)用入庫功能，對(duì)商品進(jìn)行入庫處理。圖為訂單收貨圖，包括單據(jù)編號(hào)，錄單日期，供應(yīng)商，到貨日期，聯(lián)系人，電話，業(yè)務(wù)員，商品編號(hào)，商品名稱，型號(hào)，規(guī)格，單位，數(shù)量，單價(jià)。輸入單據(jù)編號(hào)就可以查找到提到的相關(guān)的所有信息。圖4-7 訂單收貨它的具體代碼為：Private Sub Form_Load() = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Pe

37、rsist Security Info=False = select * from 采購(gòu)訂單 where 是否已入庫=0 order by 單據(jù)編號(hào) Set = Adodc1 = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 庫存商品 End SubPrivate Sub Command4_Click() 查找訂單 = select * from 采購(gòu)訂單 where 采購(gòu)訂單.單據(jù)編號(hào) = & & End SubPrivate Sub Command1_Click() 入庫 商品編號(hào))

38、 = 商品編號(hào)) 商品名稱) = 商品名稱) 型號(hào)) = 型號(hào)) 規(guī)格) = 規(guī)格) 單位) = 單位) 數(shù)量) = 數(shù)量) 單價(jià)) = 單價(jià)) 合計(jì)金額) = 合計(jì)金額) 單據(jù)編號(hào)) = 單據(jù)編號(hào)) 入庫日期) = 到貨日期) 供應(yīng)商) = 供應(yīng)商) 聯(lián)系人) = 聯(lián)系人) 電話) = 電話) 業(yè)務(wù)員) = 業(yè)務(wù)員) 摘要) = 摘要) 是否已入庫) = -1 Set = Adodc1 = End SubPrivate Sub Command2_Click() = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub八采購(gòu)開單采

39、購(gòu)開單是企業(yè)向供應(yīng)商訂貨時(shí)，開據(jù)入庫訂單，以便了解收貨情況并預(yù)先安排存放貨物的倉(cāng)庫。填入相關(guān)商品信息，將相關(guān)商品信息保存到庫存臺(tái)賬中，對(duì)于倉(cāng)庫中已有的商品，數(shù)量上會(huì)在原有的基礎(chǔ)上增加。 圖為采購(gòu)開單圖，包括單據(jù)編號(hào)，錄單日期，供應(yīng)商，到貨日期，聯(lián)系人，電話，業(yè)務(wù)員，商品編號(hào)，商品名稱，型號(hào)，規(guī)格，單位，數(shù)量，單價(jià)。還包括摘要合計(jì)金額，付款賬戶，付款金額。輸入入庫日期就會(huì)彈出在此時(shí)間段入庫的商品的信息。 圖4-8 采購(gòu)開單具體代碼為：Private Sub Form_Load() 連接access數(shù)據(jù)庫 = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Sec

40、urity Info=False = select * from 庫存商品 = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 付款明細(xì)賬 DTPicker2 = DateEnd SubPrivate Sub Command1_Click() 單據(jù)編號(hào)) = Trim 入庫日期) = Trim 供應(yīng)商) = Trim 聯(lián)系人) = Trim 電話) = Trim 業(yè)務(wù)員) = Trim 摘要) = Trim 商品編號(hào)) = Trim 商品名稱) = Trim 型號(hào)) = Trim 規(guī)格)

41、= Trim 單位) = Trim 數(shù)量) = Trim 單價(jià)) = Trim 合計(jì)金額) = Trim 追加付款賬戶) = Trim 追加付款) = Trim 應(yīng)付款) = Trim - Trim End SubPrivate Sub Command2_Click() = = = = = = = = = = = = = = = = End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub九采購(gòu)付款若付款給供應(yīng)商，支付金額自動(dòng)登賬入庫，完成入庫交易。輸入訂單號(hào)對(duì)要付款的訂單進(jìn)行查詢，如果訂單號(hào)存在且其“是否付款”屬性為否，則確認(rèn)付款，

42、并將信息保存到倉(cāng)庫庫存臺(tái)賬中完成付款交易。圖為采購(gòu)付款，包括單據(jù)編號(hào)，商品編號(hào)，商品名稱，合計(jì)金額，已預(yù)付款，追加付款金額，追加付款賬戶。 圖4-9 采購(gòu)付款具體代碼如下：Private Sub Form_Load() = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 采購(gòu)訂單 where 是否已核銷=0 order by 單據(jù)編號(hào) Set = Adodc1 = = = = = = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Inf

43、o=False = select * from 付款明細(xì)賬 where 是否已核銷=0 order by 單據(jù)編號(hào) End SubPrivate Sub Command1_Click() 單據(jù)編號(hào)) = Trim 商品編號(hào)) = Trim 商品名稱) = Trim 合計(jì)金額) = Trim 已預(yù)付款) = Trim 追加付款賬戶) = Trim 追加付款) = Trim 是否已核銷) = -1 應(yīng)付款) = 0 是否已核銷) = -1 End SubPrivate Sub Command3_Click()Unload Me = TrueEnd Sub十采購(gòu)?fù)素洸少?gòu)?fù)素浭菍?duì)銷售中不滿意的商品向供

44、應(yīng)商要求退貨。輸入需要退貨的商品的相關(guān)信息即可進(jìn)行退貨處理，庫存臺(tái)賬中的商品數(shù)量會(huì)相應(yīng)減少。采購(gòu)部門也可對(duì)退貨產(chǎn)品進(jìn)行查詢。 圖為采購(gòu)?fù)素?，包括商品編?hào)，商品名稱，商品數(shù)量，型號(hào)，供應(yīng)商和聯(lián)系方式。圖4-10 采購(gòu)?fù)素浘唧w代碼如下：Private Sub Command1_Click()Unload Me = TrueEnd SubPrivate Sub Command2_Click() = select * from 采購(gòu)?fù)素?where 采購(gòu)?fù)素?商品編號(hào) = & & If Then MsgBox SORRY,未找到你所查詢的數(shù)據(jù)，請(qǐng)查證后再試, , 確定ElseText2 = 商品名稱)

45、Text3 = 商品數(shù)量)Text4 = 型號(hào))Text5 = 供應(yīng)商)Text6 = 聯(lián)系方式)End IfEnd SubPrivate Sub Command3_Click() If = Or = Or = Or = Or = Or = Then MsgBox 請(qǐng)輸入完整信息, , 系統(tǒng)提示 Else 商品編號(hào)) = Trim 商品名稱) = Trim 商品數(shù)量) = Trim 型號(hào)) = Trim 供應(yīng)商) = Trim 聯(lián)系方式) = Trim = = = = = = MsgBox 商品已添加成功, , 系統(tǒng)提示 End IfEnd SubPrivate Sub Command4_Cl

46、ick() = = = = = = End SubPrivate Sub Form_Load() = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 采購(gòu)?fù)素?End Sub十一. 產(chǎn)品銷售 本功能可以將銷售的產(chǎn)品信息輸入到管理系統(tǒng)中，生成銷售報(bào)表。也可對(duì)已銷售的商品信息進(jìn)行查詢、刪除處理。 圖4-11產(chǎn)品銷售具體代碼如下：Private Sub Command1_Click() = select * from 產(chǎn)品銷售 where 產(chǎn)品銷售.商品編號(hào) = & & If Then MsgB

47、ox SORRY,未找到你所查詢的數(shù)據(jù)，請(qǐng)查證后再試, , 確定ElseText2 = 商品名稱)Text3 = 型號(hào))Text4 = 銷售數(shù)量)End IfEnd SubPrivate Sub Command2_Click()Unload Me = TrueEnd SubPrivate Sub Command3_Click() If = Or = Or = Or = Then MsgBox 請(qǐng)輸入完整信息, , 系統(tǒng)提示 Else 商品編號(hào)) = Trim 商品名稱) = Trim 型號(hào)) = Trim 銷售數(shù)量) = Trim = = = = MsgBox 商品已添加成功, , 系統(tǒng)提示

48、End IfEnd SubPrivate Sub Command4_Click() MsgBox 商品已刪除, , 系統(tǒng)提示End SubPrivate Sub Command5_Click() = = = = End SubPrivate Sub Form_Load() = Provider= Source= & & 采購(gòu)管理系統(tǒng).mdb;Persist Security Info=False = select * from 產(chǎn)品銷售 End Sub系統(tǒng)運(yùn)行管理制度企業(yè)銷售采購(gòu)管理信息系統(tǒng)運(yùn)行管理制度第一條為做好銷售采購(gòu)管理信息系統(tǒng)運(yùn)行管理工作，制定本制度。第二條本制度適用于采購(gòu)管理所涉及的所有部門和人員。第三條本系統(tǒng)主要負(fù)責(zé)采購(gòu)管理、銷售管理、庫存管理和財(cái)務(wù)管理等。第四條系統(tǒng)所有相關(guān)的部門都必須按照系