管理信息系統(tǒng)設(shè)計(jì)銷售系統(tǒng)VIP

1、摘 要本文以圖書銷售系統(tǒng)的開發(fā)為主要目的，設(shè)計(jì)了一個(gè)適合圖書城銷售的系統(tǒng)。任務(wù)以小組形式展開，文中主要涉及了本銷售系統(tǒng)的系統(tǒng)分析部分，其中有組織結(jié)構(gòu)圖、業(yè)務(wù)流程圖、數(shù)據(jù)流程圖、數(shù)據(jù)字典的分析與編制。為小組的其他成員提供理論基礎(chǔ)與概念模型。從而輔助系統(tǒng)開發(fā)的其他步驟，以此為基礎(chǔ)。主要分析了圖書城中出現(xiàn)的業(yè)務(wù)流程，并根據(jù)業(yè)務(wù)流程的工作原理來開發(fā)此銷售系統(tǒng)。從而達(dá)到使圖書城的銷售更加簡(jiǎn)易，快捷。本文在參考了相關(guān)文獻(xiàn)后安排以Visual Basic 6.0為基礎(chǔ)的開發(fā)工具，系統(tǒng)開發(fā)的過程由此展開。關(guān)鍵詞：銷售系統(tǒng)；分析；邏輯模型目 錄1前言11.1 作業(yè)背景11.2 選題說明11.2.1 基本思路21

2、.2.2 作業(yè)目標(biāo)21.3 工作業(yè)績(jī)21.3.1 個(gè)人主要工作21.3.2 主要收獲21.3.3 自我評(píng)定21.3.4 小組成員任務(wù)分工情況32 系統(tǒng)規(guī)劃42.1信息系統(tǒng)規(guī)劃概述42.2開發(fā)工具及實(shí)施環(huán)境42.3系統(tǒng)總體規(guī)劃目標(biāo)42.4現(xiàn)行系統(tǒng)初步調(diào)查與分析42.5用戶需求分析52.6系統(tǒng)可行性分析53 系統(tǒng)分析63.1 組織結(jié)構(gòu)圖63.2業(yè)務(wù)流程分析73.3數(shù)據(jù)流程分析83.4數(shù)據(jù)字典104 系統(tǒng)設(shè)計(jì)134.1 功能模塊圖134.2 E-R圖144.3 數(shù)據(jù)庫(kù)設(shè)計(jì)154.4 輸入設(shè)計(jì)154.5 輸出設(shè)計(jì)175 系統(tǒng)實(shí)施195.1程序設(shè)計(jì)19登陸界面195.1.2 主界面205.2系統(tǒng)運(yùn)行與測(cè)

3、試21系統(tǒng)測(cè)試的概念21測(cè)試過程215.3操作手冊(cè)226 結(jié)束語(yǔ)231前言進(jìn)入二十一世紀(jì)，信息化的進(jìn)程進(jìn)一步加快，向著網(wǎng)絡(luò)化、智能化方向發(fā)展，計(jì)算機(jī)行業(yè)飛速向前發(fā)展，信息化深入到社會(huì)的各行各業(yè)。微機(jī)化管理的廣泛應(yīng)用，使工作效率顯著提高。Internet帶給我們的不僅是無(wú)窮的信息，更是商業(yè)模式和消費(fèi)觀念的變遷，電子商務(wù)業(yè)已成為時(shí)尚。圖書銷售管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS)，圖書銷售管理系統(tǒng)旨在提供一個(gè)可以操作的，方便查詢，易于修改的輔助管理系統(tǒng)?；旧蠈?shí)現(xiàn)了電子商務(wù)的功能流程，本系統(tǒng)界面簡(jiǎn)單直觀，易于作和使用，交互性強(qiáng)，完全基于Internet網(wǎng)絡(luò)。1.1 作業(yè)背景本文根據(jù)管理信息系統(tǒng)開發(fā)

4、實(shí)踐課程要求而做。課程作業(yè)要求如下：用信息系統(tǒng)開發(fā)工具（例如VB、VF6.0）開發(fā)一個(gè)實(shí)用的中小型的銷售系統(tǒng)。1、根據(jù)課程實(shí)踐時(shí)間選擇適當(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)行的電子商務(wù)系統(tǒng)，通過上機(jī)檢查。1.2 選題說明此次為信誠(chéng)銷售公司開發(fā)一套書店銷售管理系統(tǒng)，此書店為中型規(guī)模，讀者覆

5、蓋面占全市20%。設(shè)有管理部門、財(cái)務(wù)部門、銷售部、庫(kù)存管理部門。管理部門有監(jiān)察審計(jì)部，書店內(nèi)部人力資源管理，綜合管理部門。銷售部門主要負(fù)責(zé)銷售計(jì)劃管理和銷售統(tǒng)計(jì)管理。財(cái)務(wù)部門主要負(fù)責(zé)成本核算，利潤(rùn)核算，賬目管理。庫(kù)存管理部門主要包括入庫(kù)管理，出庫(kù)管理，庫(kù)存統(tǒng)計(jì)，圖書基本信息管理。 基本思路通過書店銷售管理系統(tǒng)，完成界面登陸的操作，進(jìn)入各個(gè)功能模塊，管理模塊包括監(jiān)察審計(jì)、客戶顧客基本信息管理、人力資源管理、綜合管理；銷售功能包括銷售計(jì)劃管理、銷售統(tǒng)計(jì)管理；財(cái)務(wù)功能包括成本核算、利潤(rùn)核算、賬目管理；庫(kù)存管理功能包括入庫(kù)管理、出庫(kù)管理、庫(kù)存統(tǒng)計(jì)、圖書基本信息管理。根據(jù)用戶的實(shí)際需要進(jìn)行對(duì)應(yīng)的操作。

6、作業(yè)目標(biāo)通過對(duì)管理信息系統(tǒng)的開發(fā)，從而提升對(duì)系統(tǒng)開發(fā)的了解以及各種數(shù)據(jù)的分析總結(jié)工作的進(jìn)程。1.3 工作業(yè)績(jī) 個(gè)人主要工作主要包括：組織結(jié)構(gòu)編制、業(yè)務(wù)流程分析、數(shù)據(jù)流程分析、數(shù)據(jù)字典的編制與分析 主要收獲 本次課程設(shè)計(jì)中，任務(wù)由小組完成，小組分工，從調(diào)查，分析，到設(shè)計(jì)，以及評(píng)價(jià)這幾個(gè)部分中，我認(rèn)識(shí)到了開發(fā)一個(gè)系統(tǒng)的大致流程，了解到了系統(tǒng)的開發(fā)必須有一個(gè)全面的邏輯思維，而且各個(gè)部分的相互聯(lián)系非常密切。我擔(dān)任的是本次任務(wù)的系統(tǒng)分析，其中對(duì)各種圖表數(shù)據(jù)的設(shè)計(jì)，有助于對(duì)系統(tǒng)功能的全面了解，以及可以輔助后面程序的設(shè)計(jì)。是非常關(guān)鍵的一個(gè)環(huán)節(jié)。 自我評(píng)定 優(yōu) 良 中 及格 不及格 小組成員任務(wù)分工情況本組為

7、本次課程設(shè)計(jì)第2組，組長(zhǎng)為： ，小組所有成員分工如下：學(xué) 號(hào)姓 名所分配的任務(wù)備 注2 系統(tǒng)規(guī)劃2.1信息系統(tǒng)規(guī)劃概述規(guī)劃通常指關(guān)于一個(gè)組織的發(fā)展方向，環(huán)境條件，長(zhǎng)期目標(biāo)，重大政策與策略等方面的長(zhǎng)遠(yuǎn)計(jì)劃。信息系統(tǒng)規(guī)劃是將組織目標(biāo)，支持組織目標(biāo)所必須的信息，提供這些必須信息的信息系統(tǒng)，以及這些信息系統(tǒng)的實(shí)施等諸要素集成的信息系統(tǒng)方案，是面向組織中信息系統(tǒng)發(fā)景的系統(tǒng)開發(fā)計(jì)劃。2.2開發(fā)工具及實(shí)施環(huán)境開發(fā)工具: Visual Basic6.0開發(fā)方法:結(jié)構(gòu)化系統(tǒng)開發(fā)方法開發(fā)方式:自行開發(fā)2.3系統(tǒng)總體規(guī)劃目標(biāo)本次規(guī)劃的目標(biāo)需達(dá)到以下幾點(diǎn)：（1）系統(tǒng)功能強(qiáng)（2）系統(tǒng)適應(yīng)性強(qiáng)（3）系統(tǒng)具有良好的開放性2

8、.4現(xiàn)行系統(tǒng)初步調(diào)查與分析1、在圖書銷售信息化建設(shè)上投資不夠，是造成圖書銷售信息化滯后的原因2、書店的職員認(rèn)識(shí)不夠，很多職員思想保守，特別是一些老的職員，對(duì)圖書銷售信息化建設(shè)認(rèn)識(shí)不夠，認(rèn)為圖書銷售信息化建設(shè)是盲目投資，極力反對(duì)；3、沒能充分利用有效的信息資源，投資繁雜。4、21世紀(jì)是信息的世紀(jì)，信息資源的競(jìng)爭(zhēng)己成為人們競(jìng)爭(zhēng)的焦點(diǎn)，信息資源也如同能源一樣成為人們的重要資源。因此，我書店應(yīng)注重信息的收集和管理，尤其是建立信息資源管理標(biāo)準(zhǔn)，從而保證標(biāo)準(zhǔn)化、規(guī)范化的組織、管理信息。5、建立良好的數(shù)字化環(huán)境良好的數(shù)字化環(huán)境包括書店圖書的軟環(huán)境和硬環(huán)境，對(duì)于這個(gè)問題，書店領(lǐng)導(dǎo)應(yīng)給與高度重視。2.5用戶需求

9、分析隨著書店的規(guī)模逐漸擴(kuò)大，書店的職工越來越多，同時(shí)，銷售的訂單也越來越多，用戶的信息管理存在不安全、步不完整、不真實(shí)的隱患。書店的管理者需要對(duì)用戶負(fù)責(zé)，要高效的，安全的，真實(shí)的獲取用戶的信息以及銷售的信息。用戶信息以及銷售信息的真實(shí)檢測(cè)組要求有輔助的自動(dòng)檢測(cè)功能,要求銷售的一些基本信息的真實(shí)。同時(shí)，管理員可以查看其他人工化的存儲(chǔ)信息，還可以進(jìn)行管理和維護(hù)。不僅節(jié)省大量的人力和物力，真實(shí)性也得到良好的解決，所以建立一個(gè)安全的可靠的圖書銷售信息管理成為一種必然。2.6系統(tǒng)可行性分析（1）技術(shù)上的可行性由于Windows2000操作系統(tǒng)是有人機(jī)變互的友好界面，很容易掌握及操作，程序界面相對(duì)較容易實(shí)

10、現(xiàn)等特點(diǎn)，加之目前基于Windows2000操作系統(tǒng)的軟件開發(fā)工具也很多，易于學(xué)習(xí)、開發(fā)及應(yīng)用。（2）經(jīng)濟(jì)上的可行性在服務(wù)器費(fèi)用方面,支出在我們承擔(dān)的范圍.當(dāng)前系統(tǒng)可以節(jié)約的支出能夠支付當(dāng)前系統(tǒng)的直接支出,以后的維護(hù)費(fèi)用更是比以前的機(jī)制節(jié)約很多錢。（3）管理上的可行性領(lǐng)導(dǎo)的重視，使得信息系統(tǒng)，在管理上也是完全可行的?？尚行苑治鼋Y(jié)論：本系統(tǒng)可以開發(fā)3 系統(tǒng)分析3.1 組織結(jié)構(gòu)圖店長(zhǎng)采購(gòu)處采購(gòu)部倉(cāng)庫(kù)供銷部合同處理成本組利潤(rùn)組供應(yīng)組銷售組統(tǒng)計(jì)組出庫(kù)組入庫(kù)組統(tǒng)計(jì)組統(tǒng)計(jì)組圖1.1組織結(jié)構(gòu)圖組織結(jié)構(gòu)圖分析：1. 由圖中可見，頂層模塊是店長(zhǎng)組成，下分為四個(gè)部門，分別是：采購(gòu)部、財(cái)務(wù)部、供銷部、倉(cāng)庫(kù)。2. 采

11、購(gòu)部主要是負(fù)責(zé)采購(gòu)環(huán)節(jié)，包括合同處理，選擇供應(yīng)商等；3. 財(cái)務(wù)部是對(duì)書店的成本、利潤(rùn)、以及各種數(shù)據(jù)的統(tǒng)計(jì)。劃分為成本組、利潤(rùn)組、統(tǒng)計(jì)組三個(gè)小組，小組對(duì)財(cái)務(wù)部負(fù)責(zé)，每期財(cái)務(wù)部將對(duì)店長(zhǎng)匯報(bào)營(yíng)業(yè)狀況；4. 供銷部是銷售部門，由采購(gòu)部門確定的供應(yīng)商，供應(yīng)組負(fù)責(zé)清點(diǎn)，驗(yàn) 收產(chǎn)品，并將產(chǎn)品移交給銷售組進(jìn)行銷售，最后將收支的數(shù)據(jù)交給統(tǒng)計(jì)組核算。5. 倉(cāng)庫(kù)是負(fù)責(zé)存儲(chǔ)產(chǎn)品，也就是各種書籍、工具、資料等等。采購(gòu)部門確定訂單后，供應(yīng)組接收產(chǎn)品后會(huì)暫時(shí)交由倉(cāng)庫(kù)存儲(chǔ)，由入庫(kù)組登記。6. 銷售組進(jìn)行銷售的時(shí)候，會(huì)從倉(cāng)庫(kù)提取相應(yīng)的產(chǎn)品，由倉(cāng)庫(kù)中的入庫(kù)組登記。出入庫(kù)的數(shù)據(jù)會(huì)轉(zhuǎn)移至倉(cāng)庫(kù)部的統(tǒng)計(jì)組進(jìn)行匯總。3.2業(yè)務(wù)流程分析銷售

12、人 員顧客供貨單位訂書單領(lǐng)貨通知單入庫(kù)單發(fā)票單入庫(kù)流水賬庫(kù)存帳客戶庫(kù)管采購(gòu)單供貨單位提貨通知單采購(gòu)人員 圖1.2業(yè)務(wù)流程圖業(yè)務(wù)流程圖體現(xiàn)了該系統(tǒng)的運(yùn)作過程，首先由客戶提交訂書單，銷售人員進(jìn)行審核，此過程中，銷售人員與庫(kù)管聯(lián)系，有貨則會(huì)下發(fā)領(lǐng)貨通知單交給銷售人員，從而開發(fā)票單，轉(zhuǎn)移到客戶手上。若無(wú)貨或者存貨不足，則會(huì)向供貨單位發(fā)出通知，由采購(gòu)員開出采購(gòu)單，提交給供貨單位，供貨單位以提貨通知單通知采購(gòu)人員提貨。同時(shí)采購(gòu)員編制入庫(kù)單，補(bǔ)充庫(kù)存。交易結(jié)束后，庫(kù)管會(huì)統(tǒng)一記錄在入庫(kù)流水賬中，形成庫(kù)存帳。3.3數(shù)據(jù)流程分析數(shù)據(jù)流程圖的符號(hào)說明如圖：外部項(xiàng) 數(shù)據(jù)存儲(chǔ) 數(shù)據(jù)處理 數(shù)據(jù)流圖書銷售系統(tǒng)的數(shù)據(jù)流程圖：

13、S消費(fèi)者P圖書銷售系統(tǒng)S 消費(fèi)者 購(gòu)物憑證 購(gòu)物憑證 圖1.3 0級(jí)數(shù)據(jù)流程圖S顧客P1查詢處理P2訂單處理P3購(gòu)書處理S顧客購(gòu)書記錄F1.1 沒貨F1購(gòu)書憑證F1.2有貨F1.3入庫(kù)單F1.4購(gòu)書憑證F1.7購(gòu)書憑證F1.5出庫(kù)單倉(cāng)庫(kù)圖1.4一級(jí)數(shù)據(jù)流程圖P1書店P(guān)2銷售統(tǒng)計(jì)S顧客P3訂單處理P4銷售處理P5發(fā)貨處理P6入庫(kù)處理S顧客P7倉(cāng)庫(kù)處理庫(kù)存記錄財(cái)務(wù)記錄財(cái)務(wù)部F8購(gòu)書憑證F4購(gòu)書憑證F1統(tǒng)計(jì)表F2銷售數(shù)據(jù)F3發(fā)貨通知F5訂貨單數(shù)據(jù)F6查詢F7出庫(kù)單F9發(fā)貨通知F10入庫(kù)單F11入庫(kù)處理F12查詢F13購(gòu)書憑證圖1.5二級(jí)數(shù)據(jù)流程圖從二級(jí)數(shù)據(jù)流程圖可以看出圖書城銷售的過程：（1） 客戶

14、提交購(gòu)物憑證，系統(tǒng)轉(zhuǎn)入訂單處理（2） 訂單審核以后提交給銷售中心（3） 銷售中心查詢庫(kù)存記錄（4） 庫(kù)存中若有貨則提交發(fā)貨通知給倉(cāng)庫(kù)進(jìn)行發(fā)貨，最后連同憑證送到顧客手里，發(fā)貨的數(shù)據(jù)會(huì)以統(tǒng)計(jì)表的形式提交到書店進(jìn)行統(tǒng)計(jì)。（5） 上一環(huán)節(jié)的銷售處理形成了購(gòu)物單，傳遞給財(cái)務(wù)部并作記錄。（6） 財(cái)務(wù)部記錄與書店銷售記錄的數(shù)據(jù)一起納入銷售統(tǒng)計(jì)處理。（7） 銷售處理提交訂書單后會(huì)由庫(kù)管進(jìn)行記錄，管理庫(kù)存量，及時(shí)補(bǔ)充存貨。（8） 銷售處理會(huì)向庫(kù)存記錄進(jìn)行查詢，采購(gòu)員在做入庫(kù)處理之前會(huì)將記錄在庫(kù)存記錄上。（9） 最后由庫(kù)存將記錄反應(yīng)到財(cái)務(wù)部門，循環(huán)至銷售統(tǒng)計(jì)處理。3.4數(shù)據(jù)字典詳細(xì)內(nèi)容數(shù)據(jù)字典是對(duì)描述數(shù)據(jù)流程圖中

15、的數(shù)據(jù)項(xiàng)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)、加工處理邏輯等組成部分的嚴(yán)格定義，下面是本系統(tǒng)的數(shù)據(jù)字典 表1.1 數(shù)據(jù)庫(kù)信息書名描述M_Book_Store（入庫(kù)單）書店采購(gòu)一批屬圖書的明細(xì)項(xiàng)目M_Book_Bill（書店發(fā)票）顧客購(gòu)買時(shí)書店開出的證明M_Book_BKBill）（客戶訂書單）客戶訂購(gòu)圖書的明細(xì)M_Book_Purchase（采購(gòu)單）采購(gòu)部門人員需要采購(gòu)的數(shù)目及數(shù)量M_Book_CurAcc（入庫(kù)流水賬）每次圖書入庫(kù)的相關(guān)記錄M_Book_All（庫(kù)存帳）倉(cāng)庫(kù)中現(xiàn)有圖書的明細(xì)M_Administrator（管理人員）管理人員操作口令明細(xì)M_user（客戶）客戶操作口令明細(xì)表1.2入庫(kù)單的數(shù)據(jù)字典

16、數(shù)據(jù)流編號(hào)數(shù)據(jù)流名稱簡(jiǎn)述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成DS101入庫(kù)單書店采購(gòu)一批屬圖書的明細(xì)項(xiàng)目采購(gòu)人員庫(kù)存管理ISBN+書名+ 作者+ 出版社+出版日期+數(shù)量+定價(jià)例1：經(jīng)手人：楊林ISBN：978-7-80140-713-9 書名：數(shù)學(xué)復(fù)習(xí)全書 作者：李永樂 出版社：國(guó)家行政學(xué)院出版社 出版日期：2003/5/15 定價(jià)：52 數(shù)量30表1.3書店發(fā)票的數(shù)據(jù)字典數(shù)據(jù)流編號(hào)數(shù)據(jù)流名稱簡(jiǎn)述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成DS102書店發(fā)票顧客購(gòu)買時(shí)書店開出的證明銷售人員客戶編號(hào)+ISBN+ 書名+ 單價(jià)+數(shù)量+合計(jì)金額+折扣金額+實(shí)收金額例2：ISBN：978-7-5025-5783-6-4

17、書名：系統(tǒng)工程導(dǎo)論 單價(jià)：27 數(shù)量：20 合計(jì)金額：540 折扣金額：81 實(shí)收金額：459 編號(hào)：4 收銀員123 日期：2010/5/27表1.4客戶訂書單數(shù)據(jù)字典數(shù)據(jù)流編號(hào)數(shù)據(jù)流名稱簡(jiǎn)述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成DS103客戶訂書單客戶訂購(gòu)圖書的明細(xì)客戶銷售中心訂單客戶預(yù)覽+訂書單處理例3：王小虎的訂單信息目前庫(kù)存有貨，數(shù)量不足表1.5采購(gòu)單數(shù)據(jù)字典數(shù)據(jù)流編號(hào)數(shù)據(jù)流名稱簡(jiǎn)述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成DS104采購(gòu)單采購(gòu)部門人員需要采購(gòu)的數(shù)目及數(shù)量采購(gòu)人員供貨單位編號(hào)+日期+ISBN+書名+作者+日期+出版社+數(shù)量王小虎的訂書單：ISBN：978-7-5025-5783-6-4

18、書名：系統(tǒng)工程導(dǎo)論 作者：梁軍 日期：2008/2/13 出版社：化學(xué)工業(yè)出版社 數(shù)量：20表1.5入庫(kù)流水賬的數(shù)據(jù)字典編號(hào)名稱簡(jiǎn)述數(shù)據(jù)存儲(chǔ)組成關(guān)鍵字相關(guān)聯(lián)的處理DS105入庫(kù)流水賬每次圖書入庫(kù)的相關(guān)記錄入庫(kù)總數(shù)量入庫(kù)明細(xì)ISBN銷售總數(shù)量出售明細(xì)存儲(chǔ)庫(kù)管庫(kù)存帳表1.6庫(kù)存帳的數(shù)據(jù)字典編號(hào)名稱簡(jiǎn)述數(shù)據(jù)存儲(chǔ)組成關(guān)鍵字相關(guān)聯(lián)的處理DS106庫(kù)存帳倉(cāng)庫(kù)中現(xiàn)有圖書的明細(xì)書名+數(shù)量+ISBN+作者+出版日期+單價(jià)+庫(kù)存銷售處理入庫(kù)處理表1.7管理人員的數(shù)據(jù)字典編號(hào)名稱簡(jiǎn)述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)流DS107管理人員管理人員操作口令明細(xì)管理權(quán)限管理界面表1.8客戶的數(shù)據(jù)字典編號(hào)名稱簡(jiǎn)述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)

19、流DS108客戶客戶操作口令明細(xì)Custom ID初始密碼圖書管理客戶信息4 系統(tǒng)設(shè)計(jì) 4.1 功能模塊圖書店銷售系統(tǒng)管理管理人員登錄顧客登陸管理部門理銷售部門庫(kù)存管理部門財(cái)務(wù)部門理客戶基本信息管理綜合管理部門人力資源管理監(jiān)察計(jì)部銷售計(jì)劃管理銷售統(tǒng)計(jì)管理賬目管理利潤(rùn)核算成本核算入庫(kù)管理庫(kù)存統(tǒng)計(jì)出庫(kù)管理圖書基本信息管理圖1.6功能模塊圖4.2 E-R圖書店發(fā)貨處理銷售處理出庫(kù)單發(fā)貨通知庫(kù)存臺(tái)賬入庫(kù)處理入庫(kù)數(shù)據(jù)入庫(kù)單倉(cāng)庫(kù)執(zhí)行數(shù)據(jù)定數(shù)合同客戶合同處理合同臺(tái)賬訂書單數(shù)據(jù)統(tǒng)計(jì)財(cái)務(wù)科查詢銷售數(shù)據(jù)銷售統(tǒng)計(jì)mmmmmmmmmmmmmmmmm11111圖1.7 E-R圖關(guān)系模型如下：出庫(kù)單（出庫(kù)單編號(hào)、產(chǎn)品編號(hào)

20、、產(chǎn)品數(shù)量、日期）查詢（查詢編號(hào)、查詢條目）入庫(kù)單（入庫(kù)單編號(hào)、產(chǎn)品編號(hào)、產(chǎn)品名稱、日期）訂書合同（合同編號(hào)、合同名稱、合同負(fù)責(zé)人、合同日期）銷售統(tǒng)計(jì)表（統(tǒng)計(jì)編號(hào)、統(tǒng)計(jì)產(chǎn)品名稱、統(tǒng)計(jì)銷售額、統(tǒng)計(jì)日期）客戶（客戶編號(hào)、客戶名稱）訂書單（訂書單編號(hào)、訂書單名稱、訂書人、訂書數(shù)量、訂書日期）4.3 數(shù)據(jù)庫(kù)設(shè)計(jì)表1.9 數(shù)據(jù)庫(kù)信息書名描述M_Book_Store（入庫(kù)單）書店采購(gòu)一批屬圖書的明細(xì)項(xiàng)目M_Book_Bill（書店發(fā)票）顧客購(gòu)買時(shí)書店開出的證明M_Book_BKBill）（客戶訂書單）客戶訂購(gòu)圖書的明細(xì)M_Book_Purchase（采購(gòu)單）采購(gòu)部門人員需要采購(gòu)的數(shù)目及數(shù)量M_Book_C

21、urAcc（入庫(kù)流水賬）每次圖書入庫(kù)的相關(guān)記錄M_Book_All（庫(kù)存帳）倉(cāng)庫(kù)中現(xiàn)有圖書的明細(xì)M_Administrator（管理人員）管理人員操作口令明細(xì)M_user（客戶）客戶操作口令明細(xì)4.4 輸入設(shè)計(jì)圖1.8 登陸界面登陸界面主要實(shí)現(xiàn)代碼如下：Private Sub CheckPwd()Dim strSql As StringDim strPwd As StringSelect Case M_UserType Case 1 strSql = "select * from M_Administrator where M_Usr_Name = '" &

22、 Replace(Trim(UsrName.Text), "'", "''") & "'"Case 2 strSql = "select * from M_user where M_custom_name = '" & Replace(Trim(UsrName.Text), "'", "''") & "'"End SelectErr.ClearSet rec =

23、 M_Conn.Execute(strSql)If rec.EOF Or Err.Number <> 0 Then MsgBox "該用戶名不存在！", 0 + 16, "圖書銷售管理系統(tǒng)" Exit Sub End IfstrPwd = rec("M_Usr_Pwd").ValueIf strPwd <> Pwd.Text Then MsgBox "密碼不正確！", 0 + 16, "圖書銷售管理系統(tǒng)" Pwd.Text = "" Pwd.SetFo

24、cus Exit Sub End IfM_UserName = UsrName.TextUnload MefrmMain.ShowEnd Sub4.5 輸出設(shè)計(jì)其主要實(shí)現(xiàn)代碼如下：Private Sub Command1_Click() Command2.Visible = True Command3.Visible = True If Adodc1.Recordset.RecordCount > 0 Then Print Font.Size = 14 F = "華文行楷" CurrentY = 200 Print Tab(38); Year(Date

25、) & "年" & Month(Date) & "月" & "圖書訂購(gòu)發(fā)票單" CurrentY = 500 Font.Size = 9 F = "宋體" Print Tab(15); "編號(hào):" Adodc1.Recordset.Fields("M_Book_ID"); Tab(45); "收銀員:" Adodc1.Recordset.Fields("M_Book_ChargeMan")

26、; Tab(75); "日期:" & Adodc1.Recordset.Fields("M_Book_Date") Print Tab(14); String(75, "-") Print Tab(15); "ISBN" Tab(35); "書名" Tab(60); "單價(jià)" Tab(80); "數(shù)量" Print Tab(14); String(75, "_") Print Tab(14); String(75, "

27、 ") Print Tab(15); Adodc1.Recordset.Fields("M_Book_ISBN"); Tab(30); Adodc1.Recordset.Fields("M_Book_Name"); Tab(60); Adodc1.Recordset.Fields("M_Book_Prise"); Tab(80); Adodc1.Recordset.Fields("M_Book_Num") Print Tab(14); String(75, "_") Print Tab

28、(14); String(75, " ") Print Tab(15); “合計(jì)金額:" Adodc1.Recordset.Fields("M_Book_TMoney"); Tab(40); "折扣金額:" Adodc1.Recordset.Fields("M_Book_HMoney"); Tab(70); "實(shí)收金額:" Adodc1.Recordset.Fields("M_Book_FMoney")Else MsgBox "wrong", v

29、bInformation, "i" End IfEnd SubPrivate Sub Command2_Click()Command3.Visible = False On Error GoTo err_report Me.PrintFormerr_report: MsgBox Err.Description, vbInformation, "錯(cuò)誤提示" Command3.Visible = TrueEnd SubPrivate Sub Form_Load()Dim str As StringAdodc1.ConnectionString = "

30、;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "M_database.mdb;Persist Security Info=False" str = "select * from M_Book_Bill where M_Book_ID = '" & frm_gscl.Combo1.List(frm_gscl.Combo1.ListIndex) & "'" Adodc1.CommandType = adCm

31、dTextAdodc1.RecordSource = strAdodc1.Refresh Command2.Visible = FalseCommand3.Visible = FalseEnd Sub5 系統(tǒng)實(shí)施5.1程序設(shè)計(jì)5.1.1登陸界面圖4-1 登陸界面圖示圖4-2 修改密碼界面圖示5.1.2 主界面圖4-3 主界面圖示其主要實(shí)現(xiàn)代碼如下：Private Sub Form_Load()If M_UserType = 2 Then Dim i As IntegerFor i = 1 To 12 Step 2 Toolbar1.Buttons.Item(i).Visible = False

32、 NextEnd IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 frm_rkcl.ShowCase 3 frm_dsd.ShowCase 5 frm_gscl.ShowCase 7 frm_jzcl.ShowCase 9 frm_cxcl.ShowCase 11 frm_tjcl.ShowCase 13 frm_tsgl.ShowCase 15 frm_khxx.ShowCase 17 Dim c c = MsgBox("您確認(rèn)退出系統(tǒng)？", 33, "提示信息") If c = vbOK Then Unload