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

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