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

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