常青皮具管理信息系統(tǒng).doc

目錄 摘要5關(guān)鍵字51前言52 需求分析62.1 問(wèn)題采集62.2 分析問(wèn)題73系統(tǒng)總體設(shè)計(jì)93.1 系統(tǒng)功能模塊圖93.2 模塊功能說(shuō)明103.2.1 銷(xiāo)售系統(tǒng)103.2.2 采購(gòu)系統(tǒng)103.2.3 倉(cāng)管系統(tǒng)113.2.4 工資系統(tǒng)113.2.5 生產(chǎn)系統(tǒng)113.3 數(shù)據(jù)流圖123.3.1 頂層數(shù)據(jù)流圖123.3.2 0層數(shù)據(jù)流圖133.3.3 1層數(shù)據(jù)流圖143.4 數(shù)據(jù)字典153.4.1基本資料153.4.2 銷(xiāo)售表183.4.3 采購(gòu)表193.4.4倉(cāng)庫(kù)表193.4.5工廠管理203.4.6工資管理203.5 ER圖214詳細(xì)設(shè)計(jì)224.1 基本資料設(shè)計(jì)224.2 系統(tǒng)登錄設(shè)計(jì)234.3 銷(xiāo)售管理設(shè)計(jì)234.4 采購(gòu)管理設(shè)計(jì)244.5 倉(cāng)庫(kù)管理設(shè)計(jì)255編碼實(shí)現(xiàn)265.1 登錄界面的實(shí)現(xiàn)265.2 主窗口的實(shí)現(xiàn)275.3 銷(xiāo)售開(kāi)單的實(shí)現(xiàn)285.4 采購(gòu)?fù)藛蔚膶?shí)現(xiàn)305.5 倉(cāng)庫(kù)調(diào)撥的實(shí)現(xiàn)335.6 出貨單的實(shí)現(xiàn)365.7 工資表的實(shí)現(xiàn)396 系統(tǒng)測(cè)試406.1 系統(tǒng)測(cè)試項(xiàng)目說(shuō)明406.1.1 測(cè)試項(xiàng)目名稱(chēng)及測(cè)試內(nèi)容406.1.2 測(cè)試用例416.2 系統(tǒng)測(cè)評(píng)426.2.1 系統(tǒng)優(yōu)點(diǎn)426.2.2 系統(tǒng)缺點(diǎn)與不足427結(jié)束語(yǔ)43參考文獻(xiàn)44致謝45常青皮具管理信息系統(tǒng) 摘要： 本系統(tǒng)為常青皮具管理信息系統(tǒng)，它是遵照管理信息系統(tǒng)開(kāi)發(fā)的基本步驟，采用Delphi為主要開(kāi)發(fā)工具，結(jié)合Access數(shù)據(jù)庫(kù)管理系統(tǒng)與NT操作系統(tǒng)。既考慮了系統(tǒng)的需求，又兼顧了運(yùn)行的效率，以及今后系統(tǒng)的功能拓展等。其主要功能包括基本資料管理，銷(xiāo)售管理，采購(gòu)管理，倉(cāng)庫(kù)管理，工廠管理，工資管理，系統(tǒng)維護(hù)，數(shù)據(jù)處理等幾個(gè)方面以實(shí)現(xiàn)對(duì)產(chǎn)品生產(chǎn)到銷(xiāo)售的全程管理。用戶可運(yùn)用它更加方便的進(jìn)行信息管理和提高運(yùn)營(yíng)效率。關(guān)鍵字: 進(jìn)銷(xiāo)存; 采購(gòu); 存貨; 倉(cāng)庫(kù)調(diào)撥 The management information system for the changqin cover ABSTRACT: The management information system for the changqin cover,It is a basic step developed according to the management information system .Adopt Delphi as the main developing instrument ,Combine Access data base management system and NT operating system .Having not only consider the systematic demand but also given consideration to the efficiency operated, and the systematic function will be expanded etc. in the future. Its main function including basic materials is managed, sell and manage , purchase and manage, storehouse management, factory management , the salary is managed, the system is maintained, such several respects as data processing ,etc.managing in the whole journey by realizing arriving to production and selling .Users can use its more convenient carrying on the information management and improving the efficiency of running.Key word ：Enter the round pin to store; Purchase;Stock ;The warehouse allotting1前言當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代。在各行各業(yè)中離不開(kāi)信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。信息化不足，計(jì)算機(jī)使用率低，大量的日常工作皆是手工處理，數(shù)據(jù)處理手工操作，工作量大，出錯(cuò)率高，出錯(cuò)后不易更改。因此工作效率低落，企業(yè)內(nèi)部溝通不良等等問(wèn)題很難克服。要提升企業(yè)競(jìng)爭(zhēng)力，企業(yè)內(nèi)部信息化是不可缺少的一個(gè)步驟。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。實(shí)施先進(jìn)的辦公室自動(dòng)化系統(tǒng)，實(shí)現(xiàn)企業(yè)內(nèi)部信息管理、共享及交流，才能讓企業(yè)在競(jìng)爭(zhēng)激烈的21世紀(jì)取得先機(jī)。在商品流通環(huán)節(jié)中，大中型批發(fā)商業(yè)處在商品制造商和商品零售商之間，對(duì)商品流通起著橋梁和紐帶的作用。它對(duì)保障社會(huì)生產(chǎn)、人民日常生活等物資的正常供應(yīng)對(duì)穩(wěn)定物價(jià)都起著至關(guān)重要的作用。目前商業(yè)正處在一個(gè)高速發(fā)展的時(shí)期。市場(chǎng)價(jià)格的開(kāi)放，促進(jìn)了市場(chǎng)的繁榮。多種進(jìn)銷(xiāo)渠道使批發(fā)商業(yè)面臨的競(jìng)爭(zhēng)更加激烈。商品社會(huì)需求的多樣化、商品的快速流轉(zhuǎn)，對(duì)批發(fā)商業(yè)企業(yè)的管理提出了更高的要求。本系統(tǒng)采用Delphi為主要開(kāi)發(fā)工具，結(jié)合Access數(shù)據(jù)庫(kù)管理系統(tǒng)與NT操作系統(tǒng)。既考慮了系統(tǒng)的需求，又兼顧了運(yùn)行的效率，以及今后系統(tǒng)的功能拓展等。具有運(yùn)行效率、開(kāi)發(fā)周期短、擴(kuò)展能力強(qiáng)、技術(shù)規(guī)范等特點(diǎn)。2 需求分析2.1 問(wèn)題采集常青皮具公司目前存在的問(wèn)題是：信息化不足，計(jì)算機(jī)使用率低，大量的日常工作皆是手工處理，因此工作效率低落，企業(yè)內(nèi)部溝通不良等等問(wèn)題很難克服，倉(cāng)庫(kù)管理很不合理，不能及時(shí)根據(jù)需要調(diào)整庫(kù)存。公司希望解決的問(wèn)題是：缺少一個(gè)集成的信息平臺(tái)和信息系統(tǒng)，快速查找到客戶信息，訂購(gòu)信息，收付款資料，員工工資及時(shí)發(fā)送統(tǒng)計(jì)，倉(cāng)庫(kù)管理，節(jié)省大量勞力在查找資料上（即重復(fù)勞動(dòng)）和共享是傳統(tǒng)庫(kù)存管理中資金占用過(guò)大的主要原因之一。解決企業(yè)內(nèi)部統(tǒng)一的物料管理，物流管理中的信息流通。庫(kù)存積壓與物料的配套問(wèn)題。生產(chǎn)管理，對(duì)車(chē)間作業(yè)進(jìn)行管理，對(duì)員工通知罰單、預(yù)支款記錄及隨時(shí)查詢統(tǒng)計(jì)。銷(xiāo)售方能根據(jù)預(yù)測(cè)信息、各倉(cāng)庫(kù)的庫(kù)存信息和客戶的要貨情況作出貨物的調(diào)撥計(jì)劃和改制計(jì)劃和收款記錄。隨時(shí)了解供應(yīng)商的供貨（原材料）執(zhí)行情況、制造車(chē)間的加工（合格、報(bào)廢、返工等）執(zhí)行情況及公司的各倉(cāng)庫(kù)庫(kù)存情況，以便隨時(shí)協(xié)調(diào)或采取合適的補(bǔ)救措施。管理供應(yīng)商，在供應(yīng)到貨的到期日前，主動(dòng)與供應(yīng)商聯(lián)系，檢查及時(shí)到貨的可能性；同時(shí)在物流和信息流上允許供應(yīng)商的部分零件直接發(fā)貨到客戶處。對(duì)供應(yīng)商的考核從質(zhì)量、交貨及時(shí)程度和價(jià)格上給出統(tǒng)計(jì)數(shù)據(jù)。計(jì)劃過(guò)程不太理想，無(wú)物料清單，憑經(jīng)驗(yàn)辦事；對(duì)計(jì)劃的執(zhí)行率未作統(tǒng)計(jì)?，F(xiàn)有量、在制品、在庫(kù)庫(kù)存和歷史記錄等多方位查詢需求。庫(kù)存信息與供應(yīng)和生產(chǎn)等各部門(mén)的及時(shí)反饋和共享問(wèn)題信息查詢與決策，對(duì)公司的各種資源與信息進(jìn)行查詢，包括銷(xiāo)售、采購(gòu)、生產(chǎn)、人事、工資等信息數(shù)據(jù)進(jìn)行查詢、統(tǒng)計(jì)與分析，對(duì)根據(jù)信息作出快速合理的經(jīng)營(yíng)決策，增強(qiáng)應(yīng)變反應(yīng)能力。2.2 分析問(wèn)題常青皮具公司是以產(chǎn)品制作，進(jìn)料，銷(xiāo)售，進(jìn)貨為依據(jù)進(jìn)行生產(chǎn)的實(shí)業(yè)公司，公司的主要流程是：接到一張銷(xiāo)售訂單，由銷(xiāo)售部門(mén)轉(zhuǎn)化為內(nèi)部訂單，轉(zhuǎn)給生產(chǎn)部門(mén)，生產(chǎn)部門(mén)根據(jù)訂單上的產(chǎn)品、數(shù)量，配好的物料清單，及各車(chē)間半成品儲(chǔ)存量，匯總材料需求，然后根據(jù)庫(kù)存情況決定請(qǐng)購(gòu)及預(yù)約情況，采購(gòu)部門(mén)根據(jù)請(qǐng)購(gòu)單下采購(gòu)單，然后材料入庫(kù)，在手工操作的條件下，由于數(shù)據(jù)的日積月累后，要想重繁多的資料中找出目標(biāo)數(shù)據(jù)很困難，比如，當(dāng)采購(gòu)部下完銷(xiāo)售訂單之后，客戶幾年不見(jiàn)蹤跡，頓時(shí)他出來(lái)訂貨，而當(dāng)時(shí)你由于很久沒(méi)見(jiàn)而忘了發(fā)貨地址，這時(shí)你很難找出幾年的資料了，可能早已損壞。有時(shí)候因?yàn)橛唵屋^多也有可能重復(fù)，而無(wú)法確定是哪一張采購(gòu)單到貨，哪一張沒(méi)有到貨，哪一張銷(xiāo)售單收了多少回款，還有多少，什么時(shí)候出貨的，當(dāng)時(shí)由誰(shuí)出的。再例如，銷(xiāo)售部門(mén)下過(guò)內(nèi)部訂單之后，就容易了解到這個(gè)單子上的這批貨物到底處于什么狀態(tài)，是已發(fā)完，還是未發(fā)，生產(chǎn)是否完畢等，追款時(shí)間，等等，這一系列的問(wèn)題迫待解決，隨著經(jīng)濟(jì)的全球化以及中國(guó)經(jīng)濟(jì)改革的逐漸深化，制造業(yè)面臨著越來(lái)越激烈的競(jìng)爭(zhēng)，改善企業(yè)內(nèi)部以及整個(gè)供應(yīng)鏈各個(gè)環(huán)節(jié)的管理、調(diào)度及資源配置，迅速適應(yīng)客戶的新需求和市場(chǎng)新機(jī)遇的能力，是中國(guó)企業(yè)贏得競(jìng)爭(zhēng)勝利的決定性因素，如何快速有效地實(shí)現(xiàn)跟單，如何有效的控制庫(kù)存，這一切都是常青皮具管理系統(tǒng)所力求實(shí)現(xiàn)的功能。從根本上說(shuō)，企業(yè)就是一個(gè)利用資源（人、財(cái)、物、時(shí)間），為客戶創(chuàng)造價(jià)值的組織，物資需求計(jì)劃就是對(duì)這些資源進(jìn)行計(jì)劃、調(diào)度、控制、衡量、改進(jìn)的管理技術(shù)和信息系統(tǒng)?，F(xiàn)今的企業(yè)并不只是人力資源、資金和產(chǎn)品的組合，它還應(yīng)該包括供應(yīng)、銷(xiāo)售、市場(chǎng)營(yíng)銷(xiāo)、客戶服務(wù)、需求預(yù)測(cè)，以及其他更多的東西。如果一個(gè)物資需求計(jì)劃系統(tǒng)真正想要最大限度地提高其生產(chǎn)能力，它必須能夠非常融洽地和其他關(guān)鍵性的商務(wù)領(lǐng)域進(jìn)行交流。3系統(tǒng)總體設(shè)計(jì)系統(tǒng)管理基本資料銷(xiāo)售系統(tǒng)來(lái)往客戶供應(yīng)商商品原料員工用戶幫助退出查詢收款情況銷(xiāo)售開(kāi)單銷(xiāo)售收款銷(xiāo)售退款采購(gòu)系統(tǒng)查詢付款情況采購(gòu)開(kāi)單采購(gòu)收款采購(gòu)?fù)丝钌a(chǎn)系統(tǒng)生產(chǎn)工資系統(tǒng)工資表預(yù)支表獎(jiǎng)罰表查詢倉(cāng)管系統(tǒng)倉(cāng)庫(kù)調(diào)撥查詢常青皮具管理系統(tǒng)3.1 系統(tǒng)功能模塊圖圖3.1系統(tǒng)功能模快圖圖2.1 系統(tǒng)功能模塊圖3.2 模塊功能說(shuō)明3.2.1 銷(xiāo)售系統(tǒng)產(chǎn)品報(bào)價(jià)，訂單輸入、貨款跟蹤（訂單輸入后收款跟蹤分析，查詢，每一訂單可對(duì)應(yīng)多條銷(xiāo)售記錄），銷(xiāo)售退單，定期收款提醒：A銷(xiāo)售開(kāi)單（一對(duì)多的單據(jù)采購(gòu)，可同時(shí)采購(gòu)原料及成品）。B銷(xiāo)售收款（收款處理及是否結(jié)賬操作）C銷(xiāo)售退單（對(duì)產(chǎn)品的退貨處理） D查詢（查詢銷(xiāo)售具體條目和歷史開(kāi)單項(xiàng)目）3.2.2 采購(gòu)系統(tǒng)確定合理的定貨量、優(yōu)秀的供應(yīng)商和保持最佳的安全儲(chǔ)備。能夠隨時(shí)提供定購(gòu)、驗(yàn)收的信息，具體有：A采購(gòu)開(kāi)單（一對(duì)多的單據(jù)采購(gòu)，可同時(shí)采購(gòu)原料及成品）。B采購(gòu)付款（付款處理及是否結(jié)賬操作）C采購(gòu)?fù)藛危▽?duì)部份原料或成品的退貨處理）D查詢（查詢采購(gòu)具體條目和歷史開(kāi)單項(xiàng)目）3.2.3 倉(cāng)管系統(tǒng)用來(lái)控制存儲(chǔ)物料的數(shù)量，以保證穩(wěn)定的物流支持正常的生產(chǎn)，但又最小限度的占用資本。它是一種相關(guān)的、動(dòng)態(tài)的、及真實(shí)的庫(kù)存控制系統(tǒng)。具體有：A倉(cāng)庫(kù)調(diào)撥（倉(cāng)庫(kù)貨品中產(chǎn)品調(diào)貨處理）B倉(cāng)庫(kù)損失（記載產(chǎn)品在倉(cāng)庫(kù)中的損失情況）C倉(cāng)庫(kù)盤(pán)點(diǎn)單（貨品，原料盤(pán)點(diǎn)記錄）3.2.4 工資系統(tǒng)A根據(jù)員工的產(chǎn)品出廠記錄進(jìn)行統(tǒng)計(jì)工資。B完整的員工獎(jiǎng)罰記錄，預(yù)支記錄C 詳細(xì)的員工工資查詢系統(tǒng)。3.2.5 生產(chǎn)系統(tǒng)它是根據(jù)生產(chǎn)計(jì)劃、自動(dòng)匯總員工工資統(tǒng)計(jì)。3.3 數(shù)據(jù)流圖3.3.1 頂層數(shù)據(jù)流圖常青皮具M(jìn)IS供應(yīng)商操作人員一般用戶客 戶采購(gòu)訂單材料入庫(kù)單各類(lèi)報(bào)表查詢各類(lèi)報(bào)表銷(xiāo)售訂單材料出庫(kù)單圖3.2 頂層數(shù)據(jù)流圖3.3.2 0層數(shù)據(jù)流圖產(chǎn)品出倉(cāng)盤(pán)點(diǎn)報(bào)表銷(xiāo)售訂單出庫(kù)單圖3.3 0層數(shù)據(jù)流圖表單系統(tǒng)生產(chǎn)消耗文件財(cái)務(wù)系統(tǒng)生產(chǎn)系統(tǒng)庫(kù)存文件原料領(lǐng)取單原料文件銷(xiāo)售文件出貨單采購(gòu)單采購(gòu)系統(tǒng)采購(gòu)文件采購(gòu)單材料入庫(kù)單倉(cāng)管系統(tǒng)銷(xiāo)售系統(tǒng)供應(yīng)商3.3.3 1層數(shù)據(jù)流圖工廠系統(tǒng)銷(xiāo)售系統(tǒng)銷(xiāo)售訂單出庫(kù)單客戶出貨調(diào)貨產(chǎn)品出倉(cāng)原料領(lǐng)取倉(cāng)管系統(tǒng)圖3.4 1層數(shù)據(jù)流圖工廠系統(tǒng)產(chǎn)品出倉(cāng)原料消耗進(jìn)貨倉(cāng)管系統(tǒng)進(jìn)庫(kù)單材料訂單采購(gòu)系統(tǒng)圖2.5.1層數(shù)據(jù)流圖3.4 數(shù)據(jù)字典數(shù)據(jù)流圖描述了系統(tǒng)的分解，但沒(méi)有對(duì)圖中各成分進(jìn)行說(shuō)明，數(shù)據(jù)字典就是為了數(shù)據(jù)流圖的每個(gè)數(shù)據(jù)流、文件、加工，以及組成數(shù)據(jù)流或文件的數(shù)據(jù)項(xiàng)作出說(shuō)明，由于數(shù)據(jù)太多，這里只列出部代表：3.4.1基本資料地區(qū)資料文件條目文件名稱(chēng)：地區(qū)資料(dqzl)簡(jiǎn)述： 保存系統(tǒng)的基本地區(qū)資料組成： 編號(hào)，名稱(chēng)(1) 客戶資料文件條目文件名稱(chēng)：客戶資料(khzl)簡(jiǎn)述： 保存來(lái)往客戶的基本地區(qū)資料組成： 編號(hào)，簡(jiǎn)稱(chēng)，全稱(chēng)，地址，聯(lián)系人，電話1，電話2，電話3，郵箱，開(kāi)戶銀行，銀行賬號(hào)，欠款額，備注(2) 供應(yīng)商資料文件條目文件名稱(chēng)：供應(yīng)商資料(gyszl)簡(jiǎn)述： 保存來(lái)往貨品，原料供應(yīng)商的基本地區(qū)資料組成： 編號(hào)，簡(jiǎn)稱(chēng)，全稱(chēng)，地址，聯(lián)系人，電話1，電話2，電話3，郵箱，開(kāi)戶銀行，銀行賬號(hào)，欠款額，備注(3) 賬戶資料文件條目文件名稱(chēng)：賬戶資料(zhzl)簡(jiǎn)述： 保存系統(tǒng)來(lái)往帳戶資料組成： 編號(hào)，名稱(chēng)，銀行賬號(hào)，余額(4) 收付款方式文件條目文件名稱(chēng)：收付款方式(sfkfs)簡(jiǎn)述： 保存收付款類(lèi)型數(shù)據(jù)，如支票，掛帳等組成： 編號(hào)，類(lèi)型(5) 用戶文件條目文件名稱(chēng)：用戶(yh)簡(jiǎn)述： 保存系統(tǒng)用戶數(shù)據(jù)組成： 編號(hào)，名稱(chēng)，用戶名，密碼(6) 倉(cāng)庫(kù)文件條目文件名稱(chēng)：用戶(yh)簡(jiǎn)述： 保存?zhèn)}庫(kù)信息組成： 編號(hào)，名稱(chēng)，地址(7) 商品文件條目文件名稱(chēng)：商品(sp)簡(jiǎn)述： 保存商品信息組成： 編號(hào)，名稱(chēng)，工價(jià)，單位，（成本）(8) 原料文件條目文件名稱(chēng)：原料(yl)簡(jiǎn)述： 保存原料信息組成： 編號(hào)，名稱(chēng)，單位(9) 支出費(fèi)用類(lèi)別文件條目文件名稱(chēng)：商品(sp)簡(jiǎn)述： 保存支出費(fèi)用類(lèi)別售，如采購(gòu)設(shè)備費(fèi)用組成： 編號(hào)，名稱(chēng)(10) 收入費(fèi)用類(lèi)別文件條目文件名稱(chēng)：商品(sp)簡(jiǎn)述： 保存收入費(fèi)用類(lèi)別信息，如出售二手設(shè)備費(fèi)用組成： 編號(hào)，名稱(chēng)(11) 員工資料文件條目文件名稱(chēng)：?jiǎn)T工資料ygzl簡(jiǎn)述： 保存員工的具體資料組成： 編號(hào)，名字，地址，聯(lián)系電話1，聯(lián)系電話2，身份證號(hào)碼，工種，基本工資，結(jié)余工資(12) 單位文件名稱(chēng)：?jiǎn)挝籨w簡(jiǎn)述： 保存貨料中常用的計(jì)量單位信息組成： 編號(hào)，名稱(chēng)3.4.2 銷(xiāo)售表(1) 銷(xiāo)售開(kāi)單數(shù)據(jù)流條目：銷(xiāo)售單 = 銷(xiāo)售單號(hào)+日期+客戶名稱(chēng)+ 制單人員+狀態(tài)+出貨庫(kù)+收款方式+單據(jù)總金額銷(xiāo)售訂單號(hào)+品名 + 單位 + 數(shù)量 + 規(guī)格 + 單價(jià)+文件名稱(chēng)：銷(xiāo)售開(kāi)單xskd+銷(xiāo)售開(kāi)單詳明細(xì)xskdmx簡(jiǎn)述： 保存銷(xiāo)售開(kāi)單中的詳細(xì)信息組成： 開(kāi)單(ID)，日期(中日期)，單號(hào)，客戶ID，經(jīng)手人ID，發(fā)貨地址，送貨倉(cāng)ID，收付款方式ID，總金額 ，已收金額，是否結(jié)帳 銷(xiāo)售開(kāi)單（ID），商品編號(hào)，名稱(chēng)，單位，數(shù)量，單價(jià)，金額(2) 銷(xiāo)售退單數(shù)據(jù)流條目：銷(xiāo)售單 =退單（ID）+日期+單號(hào)+退入倉(cāng)+經(jīng)手人+客戶+總金額銷(xiāo)售退單號(hào)+品名 + 單位 + 數(shù)量 + 規(guī)格 + 單價(jià)+文件名稱(chēng)：銷(xiāo)售退單xstd+銷(xiāo)售退單明細(xì)xstdmx簡(jiǎn)述： 保存銷(xiāo)售開(kāi)單中的詳細(xì)信息組成： 退單（ID），日期，單號(hào)，退入倉(cāng)，經(jīng)手人，客戶，總金額銷(xiāo)售退單（ID），商品編號(hào)，名稱(chēng)，單位，數(shù)量，單價(jià)，金額(3) 銷(xiāo)售收款單數(shù)據(jù)流條目：銷(xiāo)售收款單=收款（ID）+日期+單號(hào)+總金額銷(xiāo)售收款單（ID），客戶，銷(xiāo)售單號(hào)，總金額，已收金額，未收金額，本次收款，是否結(jié)帳文件名稱(chēng)：銷(xiāo)售收款單xsskd+銷(xiāo)售收款單明細(xì)xsskdmx簡(jiǎn)述： 保存銷(xiāo)售收款中的詳細(xì)信息組成： 收款（ID），日期，單號(hào)，總金額銷(xiāo)售收款單（ID），客戶，銷(xiāo)售單號(hào)，總金額，已收金額，未收金額，本次收款，是否結(jié)帳3.4.3 采購(gòu)表(1) 采購(gòu)開(kāi)單cgkd數(shù)據(jù)流條目：采購(gòu)開(kāi)單 =開(kāi)單(ID) +日期(中日期) +單號(hào)+經(jīng)銷(xiāo)商ID+經(jīng)手人ID+進(jìn)貨倉(cāng)ID，付款方式ID+總金額+已收金額+是否結(jié)帳采購(gòu)開(kāi)單（ID），原料編號(hào)，名稱(chēng)，單位，數(shù)量，單價(jià)，金額文件名稱(chēng)：采購(gòu)開(kāi)單cgkd+采購(gòu)開(kāi)單cgkdmx簡(jiǎn)述： 保存采購(gòu)單中的詳細(xì)信息組成： 開(kāi)單(ID)，日期(中日期)，單號(hào)，經(jīng)銷(xiāo)商ID，經(jīng)手人ID，進(jìn)貨倉(cāng)ID，付款方式ID，總金額，已收金額，是否結(jié)帳采購(gòu)開(kāi)單（ID），原料編號(hào)，名稱(chēng)，單位，數(shù)量，單價(jià)，金額3.4.4倉(cāng)庫(kù)表倉(cāng)庫(kù)調(diào)撥單ckdbd數(shù)據(jù)流條目：倉(cāng)庫(kù)調(diào)撥單 = ID，日期，單號(hào)，倉(cāng)庫(kù)編號(hào)倉(cāng)庫(kù)調(diào)撥單ID，商品編號(hào)，名稱(chēng)，單位，數(shù)量文件名稱(chēng)：倉(cāng)庫(kù)調(diào)撥單ckdbd+倉(cāng)庫(kù)調(diào)撥單明細(xì)ckdbdmx簡(jiǎn)述： 保存?zhèn)}庫(kù)貨品或原料掉撥時(shí)的詳細(xì)信息組成： ID，日期，單號(hào)，倉(cāng)庫(kù)編號(hào)倉(cāng)庫(kù)調(diào)撥單ID，商品編號(hào)，名稱(chēng)，單位，數(shù)量3.4.5工廠管理數(shù)據(jù)流條目：出貨單 = ID，日期，單號(hào)，經(jīng)辦人，倉(cāng)庫(kù)編號(hào)出貨單ID，日期，商品編號(hào)，名稱(chēng)，員工編號(hào)，名字，單價(jià)，數(shù)量，金額文件名稱(chēng)：出貨單chd +出貨單明細(xì)chdmx簡(jiǎn)述： 保存產(chǎn)品出倉(cāng)進(jìn)的詳細(xì)信息組成： ID，日期，單號(hào)，經(jīng)辦人，倉(cāng)庫(kù)編號(hào)出貨單ID，日期，商品編號(hào)，名稱(chēng)，員工編號(hào)，名字，單價(jià)，數(shù)量，金額3.4.6工資管理數(shù)據(jù)流條目：工資表 = 工編號(hào)，名字，月份，計(jì)件金額，預(yù)支金額，獎(jiǎng)罰金額，最終金額文件名稱(chēng)：工資表gzb簡(jiǎn)述： 記錄員工工資的詳細(xì)信息組成： 員工編號(hào)，名字，月份，計(jì)件金額，預(yù)支金額，獎(jiǎng)罰金額，最終金額3.5 ER圖說(shuō)明：1、用戶：這里把每個(gè)部門(mén)使用群體當(dāng)成一個(gè)整體。（如銷(xiāo)售部門(mén)的使用者是一個(gè)群體，只當(dāng)成是一個(gè)銷(xiāo)售用戶）2、因?yàn)閳D較復(fù)雜，沒(méi)有畫(huà)出各個(gè)實(shí)體及聯(lián)系的屬性。屬于倉(cāng)庫(kù)屬于存放存放支配客戶成品原料存放供應(yīng)商訂購(gòu)存放M1M1MM11M111M1生產(chǎn)M1員工采購(gòu)員倉(cāng)管銷(xiāo)售人員訂購(gòu)圖3.6 E-R實(shí)體聯(lián)系圖114詳細(xì)設(shè)計(jì)本系統(tǒng)已滿足廠家的需求，把生產(chǎn)、財(cái)務(wù)、銷(xiāo)售、工程技術(shù)、采購(gòu)等各個(gè)子系統(tǒng)集成為一個(gè)一體化的系統(tǒng)，能進(jìn)行基本資料的操作，擁有進(jìn)銷(xiāo)存理，工廠管，員工工資發(fā)送的友好界面和強(qiáng)大的查詢系統(tǒng)。以下是的系統(tǒng)核心功能的具體實(shí)現(xiàn)流程：4.1 基本資料設(shè)計(jì)基本資料是系統(tǒng)基本資料的管理地方，因此有效的基本資料管理方式對(duì)整個(gè)系統(tǒng)的運(yùn)作來(lái)說(shuō)，它是重中之基，基本資料的操作設(shè)計(jì)流程如下（本章程序設(shè)計(jì)輸入查找數(shù)據(jù)*基本資料管理顯示查找記錄*選擇資料顯示資料編輯資料*退出退出編輯方法采用JACKSON結(jié)構(gòu)程序設(shè)方法）：圖4.1 銷(xiāo)售管理系統(tǒng)登錄4.2 系統(tǒng)登錄設(shè)計(jì)退出輸入用戶數(shù)據(jù)*查找匹配記錄退出進(jìn)入系統(tǒng)圖4.2 系統(tǒng)登錄設(shè)計(jì)銷(xiāo)售開(kāi)單4.3 銷(xiāo)售管理設(shè)計(jì)程序體輸入銷(xiāo)售單條目輸入銷(xiāo)售單數(shù)據(jù)退出處理銷(xiāo)售單條目數(shù)據(jù)銷(xiāo)售條目編輯*庫(kù)存不足報(bào)警*分析數(shù)據(jù)保存定單刪除定單刪除定單條目減庫(kù)存相應(yīng)記錄退出退出圖4.3 銷(xiāo)售管理設(shè)計(jì)4.4 采購(gòu)管理設(shè)計(jì)采購(gòu)開(kāi)單程序體輸入采購(gòu)單條目輸入采購(gòu)數(shù)據(jù)退出處理采購(gòu)單條目數(shù)據(jù)采購(gòu)條目編輯*庫(kù)存無(wú)記錄*分析數(shù)據(jù)增加庫(kù)存記錄保存單據(jù)刪除定單圖4.4 采購(gòu)管理設(shè)計(jì)退出退出增加庫(kù)存相應(yīng)記錄刪除定單條目4.5 倉(cāng)庫(kù)管理設(shè)計(jì)倉(cāng)庫(kù)管理程序體處理倉(cāng)庫(kù)數(shù)據(jù)物料調(diào)撥庫(kù)存調(diào)撥查詢數(shù)據(jù)查詢分析數(shù)據(jù)退出調(diào)入調(diào)出庫(kù)數(shù)據(jù)處理原料庫(kù)存查詢商品庫(kù)存查詢退出圖4.5 倉(cāng)庫(kù)管理設(shè)計(jì)5編碼實(shí)現(xiàn)由于系統(tǒng)源碼太大，在這只選擇系統(tǒng)中有代表性的核心源碼介紹。5.1 登錄界面的實(shí)現(xiàn) procedure TfrmLogin.btnOkClick(Sender: TObject);beginif uid.Text= then begin Application.Messagebox(請(qǐng)選擇用戶名稱(chēng)!, 系統(tǒng)登錄, MB_OK+MB_ICONERROR); uid.setfocus; exit; end; frmdata.yh.close; frmdata.yh.Open;/查找相關(guān)用戶數(shù)據(jù)，采用LOCATE定位函數(shù)的返回值決定查詢是否成功 if frmdata.yh.Locate(mc;password,vararrayof(uid.Text,pwd.Text),) then begin self.btnok.ModalResult := mrOK; close; end else begin Application.Messagebox(無(wú)效的用戶代碼,請(qǐng)重新輸入!, 系統(tǒng)登錄, MB_OK+MB_ICONERROR);/記錄登錄次數(shù) if ( uid.Tag 1 ) Then begin Application.Messagebox(你已輸錯(cuò)三次,請(qǐng)稍候進(jìn)入本系統(tǒng)!, 系統(tǒng)登錄, MB_OK+MB_ICONERROR); Close; end; uid.Tag := uid.Tag + 1; pwd.SetFocus; end;圖5.1 登錄界面5.2 主窗口的實(shí)現(xiàn)圖5.2 主窗口界面圖5.2 主窗口界面/沒(méi)有窗口打開(kāi)便建立窗口對(duì)像，并打開(kāi)窗口中聯(lián)系到的數(shù)據(jù)庫(kù)文件，顯示窗口if frmxskd = nil then frmxskd := Tfrmxskd.Create(self); frmdata.xskd.Open; frmdata.xskdmx.Open; frmdata.xskd.Append; frmxskd.ShowModal;5.3 銷(xiāo)售開(kāi)單的實(shí)現(xiàn) 圖5.3銷(xiāo)售開(kāi)單界面圖5.3 銷(xiāo)售開(kāi)單界面/對(duì)庫(kù)存進(jìn)行操作 IF CompanyCombo.Text= THEN begin showmessage(請(qǐng)輸入客戶名稱(chēng)!); CompanyCombo.SetFocus; exit; end; IF DBLookupComboBox1.Text= THEN begin showmessage(請(qǐng)輸入送貨庫(kù)!); DBLookupComboBox1.SetFocus; exit; end;frmdata.xskdmx.First;if frmdata.xskdmx.Eof then begin showmessage(尚未有銷(xiāo)售數(shù)據(jù)!); dbgrid2.SetFocus; exit; end else begin ck:=frmdata.xskdshcid.Value; frmdata.ckkcb.Open;/查找相應(yīng)商品的庫(kù)存數(shù)量 frmdata.xskdmx.First; while not frmdata.xskdmx.Eof do begin sp:=frmdata.xskdmxspbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(ck,sp),) then begin if frmdata.ckkcbjykc.Value-frmdata.xskdmxsl.Value=0 then begin/空處理 end else begin showmessage(frmdata.ckmc.val中名為:+frmdata.xskdmxmc.value+ 的商品或原料存貨量不足! +此類(lèi)商品或原料的存貨量為!); dbgrid2.SetFocus; exit; end; end else begin showmessage(frmdata.ckmc.value+ 中沒(méi)有名為:+frmdata.xskdmxmc.value+ 的商品或原料!); dbgrid2.SetFocus; exit; end; frmdata.xskdmx.Next; end;/減存相應(yīng)記錄 frmdata.xskdmx.First; while not frmdata.xskdmx.Eof do begin sp:=frmdata.xskdmxspbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(ck,sp),) then begin frmdata.ckkcb.Edit; frmdata.ckkcbjykc.Value:=frmdata.ckkcbjykc.Value-frmdata.xskdmxsl.Value; frmdata.ckkcb.post; frmdata.xskdmx.Next; end; end; if frmdata.xskd.State in dseditmodes then begin frmdata.xskd.post; end;/增加客戶欠款額 frmdata.khzl.Edit; frmdata.khzlqke.Value:=frmdata.khzlqke.Value+frmdata.xskdzje.Value; frmdata.khzl.post;/修改保存標(biāo)記 issaved:=1; close;end;5.4 采購(gòu)?fù)藛蔚膶?shí)現(xiàn)procedure Tfrmcgtd.saveClick(Sender: TObject);var ck:string; sp:string;begin/對(duì)庫(kù)存進(jìn)行操作 IF CompanyCombo.Text= THEN begin showmessage(請(qǐng)輸入供應(yīng)商名稱(chēng)!); CompanyCombo.SetFocus; exit; end; IF DBLookupComboBox1.Text= THEN begin showmessage(請(qǐng)輸入退貨倉(cāng)!); DBLookupComboBox1.SetFocus; exit; end;frmdata.cgtdmx.First;if frmdata.cgtdmx.Eof then begin showmessage(尚未有銷(xiāo)售數(shù)據(jù)!); dbgrid2.SetFocus; exit; end else begin ck:=frmdata.cgtdtrqbh.Value; frmdata.ckkcb.Open;/查找相應(yīng)商品的庫(kù)存數(shù)量 frmdata.cgtdmx.First; while not frmdata.cgtdmx.Eof do begin/if issp=1 then sp:=frmdata.cgtdmxylbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(ck,sp),) then begin if frmdata.ckkcbjykc.Value-frmdata.cgtdmxsl.Value=0 then begin end else begin showmessage(frmdata.ckmc.value+ 中名為:+frmdata.cgtdmxmc.value+ 的商品或原料 存貨量已不足! +此類(lèi)商品或原料的存貨量為!); dbgrid2.SetFocus; exit; end; end else begin showmessage(frmdata.ckmc.value+ 中沒(méi)有名為:+frmdata.cgtdmxmc.value+ 的商品或原料記錄!); dbgrid2.SetFocus; exit; end; frmdata.cgtdmx.Next; end;/減存相應(yīng)記錄 frmdata.cgtdmx.First; while not frmdata.cgtdmx.Eof do begin sp:=frmdata.cgtdmxylbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(ck,sp),) then begin frmdata.ckkcb.Edit; frmdata.ckkcbjykc.Value:=frmdata.ckkcbjykc.Value-frmdata.cgtdmxsl.Value; frmdata.ckkcb.post; frmdata.cgtdmx.Next; end; end; if frmdata.cgtd.State in dseditmodes then begin frmdata.cgtd.post; end;/減供應(yīng)商欠款額 frmdata.gyszl.Edit; frmdata.gyszlqke.Value:=frmdata.gyszlqke.Value-frmdata.cgtdzje.Value; frmdata.gyszl.post; issaved:=1; close; end;end; 圖5.4 采購(gòu)界面 5.5 倉(cāng)庫(kù)調(diào)撥的實(shí)現(xiàn)procedure Tfrmckdbd.saveClick(Sender: TObject);var trc:string; dcc:string; sp:string;begin/對(duì)庫(kù)存進(jìn)行操作 IF DBLookupComboBox1.Text= THEN begin showmessage(請(qǐng)輸入調(diào)入庫(kù)!); DBLookupComboBox1.SetFocus; exit; end; IF DBLookupComboBox2.Text= THEN begin showmessage(請(qǐng)輸入調(diào)出庫(kù)!); DBLookupComboBox2.SetFocus; exit; end; IF DBLookupComboBox2.Text=DBLookupComboBox1.Text THEN begin showmessage(調(diào)出庫(kù)與調(diào)入庫(kù)不能相同!); DBLookupComboBox2.SetFocus; exit; end;frmdata.ckdbdmx.First;if frmdata.ckdbdmx.Eof then begin showmessage(尚未有銷(xiāo)售數(shù)據(jù)!); dbgrid2.SetFocus; exit; end else begin trc:=frmdata.ckdbdtrc.Value; dcc:=frmdata.ckdbddcc.Value; frmdata.ckkcb.Open;/查找相應(yīng)商品的庫(kù)存數(shù)量 frmdata.ckdbdmx.First; while not frmdata.ckdbdmx.Eof do begin sp:=frmdata.ckdbdmxspbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(dcc,sp),) then begin if frmdata.ckkcbjykc.Value-frmdata.ckdbdmxsl.Value=0 then begin showmessage(frmdata.ckmc.value+ 中名為:+frmdata.ckdbdmxmc.value+ 的商品或原料存貨量不足!+此類(lèi)商品或原料的存貨量為!);dbgrid2.SetFocus; exit; end; end else beginshowmessage(frmdata.ckmc.value+中沒(méi)有名為:+frmdata.ckdbdmxmc.value+的商品或原料!); dbgrid2.SetFocus; exit; end; frmdata.ckdbdmx.Next; end;/減存相應(yīng)記錄及調(diào)整庫(kù)存量 frmdata.ckdbdmx.First; while not frmdata.ckdbdmx.Eof do begin sp:=frmdata.ckdbdmxspbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(dcc,sp),) then begin with frmdata.aq1 do begin sql.Clear; sql.Add(insert into ckkcb (ckbh,hpbh,jykc) values (+trc+,+sp+,+inttostr(frmdata.ckdbdmxsl.Value)+); execsql; end; frmdata.ckkcb.Edit; frmdata.ckkcbjykc.Value:=frmdata.ckkcbjykc.Value-frmdata.ckdbdmxsl.Value; frmdata.ckkcb.post; frmdata.ckdbdmx.Next; end; end; if frmdata.ckdbd.State in dseditmodes then frmdata.ckdbd.post; issaved:=1;close;end;end; 圖5.5 倉(cāng)庫(kù)調(diào)撥窗口5.6 出貨單的實(shí)現(xiàn)var ck:string; sp:string;begin/對(duì)庫(kù)存進(jìn)行操作 if DBLookupComboBox3.Text= then begin showmessage(請(qǐng)輸入經(jīng)手人!); DBLookupComboBox3.SetFocus; exit; end; if DBLookupComboBox1.Text= then begin showmessage(請(qǐng)輸入進(jìn)入倉(cāng)!); DBLookupComboBox1.SetFocus; exit; end;frmdata.chdmx.First;if frmdata.chdmx.Eof then begin showmessage(尚未有采購(gòu)數(shù)據(jù)!); dbgrid2.SetFocus; exit; end; ck:=frmdata.chdckbh.Value; frmdata.ckkcb.Open;/查找相應(yīng)商品的庫(kù)存數(shù)量 frmdata.chdmx.First; while not frmdata.chdmx.Eof do begin sp:=frmdata.chdmxspbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(ck,sp),) then begin frmdata.ckkcb.Edit; frmdata.ckkcbjykc.Value:=frmdata.ckkcbjykc.Value+frmdata.chdmxsl.Value; frmdata.ckkcb.Post; end else with frmdata.aq1 do begin sql.Clear; sql.Add(insert into ckkcb (ckbh,hpbh,jykc) values (+ck+,+sp+,+inttostr(frmdata.chdmxsl.AsInteger)+); execsql; end;/對(duì)員工工資表進(jìn)行操作 frmdata.gzb.Close; frmdata.gzb.open; if frmda