畢業(yè)設(shè)計（論文）Delphi 7物流管理系統(tǒng)倉儲管理子系統(tǒng)的實(shí)現(xiàn)

1、物流管理系統(tǒng)物流管理系統(tǒng)倉儲管理子系統(tǒng)的實(shí)現(xiàn)倉儲管理子系統(tǒng)的實(shí)現(xiàn) 摘摘 要要 計算機(jī)管理系統(tǒng)的應(yīng)用是各企業(yè)、公司邁向現(xiàn)代化企業(yè)的重要標(biāo)識，必將 成為商品管理現(xiàn)代化不可缺少的手段。它在倉庫管理中的應(yīng)用不僅可以簡化、 規(guī)范商品信息管理的日常操作，而且可以使商品管理更加簡單、方便、快捷、 清晰，從而減輕工作人員的勞動強(qiáng)度，同時避免了人工統(tǒng)計管理的麻煩，消除 各項信息在管理中的操作失誤。 倉儲管理子系統(tǒng)是一套針對商品倉庫與倉庫存儲商品等信息的管理及維護(hù) 的管理軟件。它能夠輔助倉庫管理人員對供應(yīng)商信息、商品基本信息等進(jìn)行控 制管理。系統(tǒng)是由 borland delphi 7 和 microsoft sq

2、l server 2000 開發(fā)。系統(tǒng)采 用 c/s 結(jié)構(gòu)，具有簡單、高效、功能強(qiáng)大等特點(diǎn)。系統(tǒng)能夠有效地降低倉儲管 理成本，提高倉儲管理的效率。 關(guān)鍵詞關(guān)鍵詞：delphi 7；數(shù)據(jù)庫；倉庫管理 logistics management system- the realization of storage management subsystem abstract the application of computer management system is an important identification for all enterprises and companies towa

3、rd to modernization, and it is only way to modernization for commodity management. the application of daily operations of storage management can not only simplify and standardize the management of commodity information, but also has advantages of more simple, convenient, fast, clear, therefore reduc

4、es the intensity of workers, and avoids the problem of artificial statistics, eliminates operation fault of management information. storage management subsystem is a set of software for commodity storage and warehouse storage merchandise, which can be used to manage information and maintenance. it c

5、an provide the assistant management for information of supplier, basal information of commodity, warehousing, and so on. this subsystem is developed by borland delphi 7 and microsoft sql server 2000. the subsystem is based on c/s mode, which has simple, efficient and powerful features, and so on. th

6、e subsystem can effectively reduce the costs of storage management and improve the efficiency of storage management. key words: delphi 7; database; storage management 目目 錄錄 論文總頁數(shù)：25 頁 1引言.1 1.1課題背景.1 1.2國內(nèi)外研究現(xiàn)狀.1 1.3本課題研究的意義.1 1.4本課題的研究方法.1 2系統(tǒng)需求分析與設(shè)計.2 2.1系統(tǒng)目標(biāo).2 2.2系統(tǒng)功能.2 2.3系統(tǒng)結(jié)構(gòu)圖.3 2.4系統(tǒng)流程圖.4 2.5業(yè)

7、務(wù)流程.5 2.6數(shù)據(jù)庫概念設(shè)計.5 2.7數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計.5 2.8處理過程分析.8 3系統(tǒng)編碼與實(shí)現(xiàn).9 3.1系統(tǒng)管理界面模塊.9 3.2基本信息管理模塊.11 3.3商品庫存管理模塊.14 3.4密碼管理模塊.18 4系統(tǒng)測試.21 4.1測試環(huán)境.21 4.2測試過程.22 4.3測試結(jié)果.22 結(jié) 論.22 參考文獻(xiàn).22 致 謝.24 聲 明.25 1 1 引言引言 1.11.1 課題背景課題背景 隨著社會經(jīng)濟(jì)的迅速發(fā)展和科學(xué)技術(shù)的全面進(jìn)步，計算機(jī)事業(yè)的飛速發(fā)展， 以計算機(jī)與通信技術(shù)為基礎(chǔ)的信息系統(tǒng)正處于蓬勃發(fā)展的時期。隨著經(jīng)濟(jì)文化 水平的顯著提高，人們對生活質(zhì)量及工作環(huán)境的

8、要求也越來越高。在這個商品 經(jīng)濟(jì)的社會，為了管理大量的商品貨物，倉庫的管理問題也就日益增多。隨著 商品的種類數(shù)量的大量增加，人工操作的繁瑣，其管理難度也越來越大，如何 優(yōu)化倉庫的日常管理也就成為了一個大眾化的課題。在計算機(jī)飛速發(fā)展的今天， 將計算機(jī)這一信息處理利器應(yīng)用于倉庫的日常管理已是必然趨勢，而且這也將 為倉庫管理帶來前所未有的改變，它可以帶來意想不到的效益，同時也會為企 業(yè)的飛速發(fā)展提供無限潛力。采用計算機(jī)管理信息系統(tǒng)已成為倉庫管理科學(xué)化 和現(xiàn)代化的重要標(biāo)志，它給企業(yè)管理來了明顯的經(jīng)濟(jì)效益和社會效益。 1.21.2 國內(nèi)外研究現(xiàn)狀國內(nèi)外研究現(xiàn)狀 從有關(guān)的文獻(xiàn)了解到,國外很早就已經(jīng)開始使用

9、計算機(jī)信息管理的方式對倉 庫進(jìn)行管理操作。我國加入 wto 后，面對高度信息化、全球化和管理現(xiàn)代化的 國際競爭，中國事業(yè)如何應(yīng)用信息技術(shù)促進(jìn)管理創(chuàng)新，以管理創(chuàng)新促進(jìn)實(shí)施信 息現(xiàn)代化的戰(zhàn)略，深化改革和實(shí)現(xiàn)管理水平跨越式發(fā)展，提高服務(wù)水平和服務(wù) 質(zhì)量，增強(qiáng)的競爭力，已成為一個不容回避、亟待研究解決的重大課題。 1.31.3 本課題研究的意義本課題研究的意義 隨著我國國民經(jīng)濟(jì)的快速發(fā)展，企業(yè)規(guī)模的不斷壯大，由原來的手工管理 逐步轉(zhuǎn)變?yōu)樾畔⒒芾?，計算機(jī)已不是企業(yè)的點(diǎn)綴，它在企業(yè)信息管理中占據(jù) 舉足輕重的位置。面對當(dāng)前企業(yè)管理手段、管理技術(shù)落后等諸多問題，使用計 算機(jī)管理在很大程度上可以幫助企業(yè)管理克

10、服這些困難，計算機(jī)管理系統(tǒng)可以 提高企業(yè)的管理水平，節(jié)省大量人力、物力和資源的消耗，使經(jīng)營管理更加科 學(xué)有序，經(jīng)營物流更清晰、翔實(shí)、準(zhǔn)確。本系統(tǒng)就是利用計算機(jī)信息技術(shù)，通 過商品入庫、出庫等信息，對商品庫存情況及時了解，為企業(yè)發(fā)展提供重要保 證。 1.41.4 本課題的研究方法本課題的研究方法 本課題采用 borland delphi 7 和 microsoft sql server 2000 設(shè)計開發(fā)。 delphi 是由 borland 公司推出的可視化編程環(huán)境，它使用了 windows 圖形 用戶界面的先進(jìn)技術(shù)，將面向?qū)ο蟮恼Z言功能與方便的可視化開發(fā)環(huán)境緊密地 結(jié)合在一起，以其快速的程序

11、開發(fā)，強(qiáng)大的數(shù)據(jù)庫處理功能和完善的面向?qū)ο?表達(dá)能力作為其突出的主要特點(diǎn)（簡單、高效、功能強(qiáng)大） ，可以說 delphi 同 時兼?zhèn)淞?visual c+功能強(qiáng)大和 visual basic 簡單易學(xué)的特點(diǎn)，開發(fā)起來特 別能得心應(yīng)手，是非常優(yōu)秀的開發(fā)工具。 數(shù)據(jù)庫是存放數(shù)據(jù)的倉庫，用戶在使用數(shù)據(jù)庫管理系統(tǒng)提供的功能時，首 先必須將自己的數(shù)據(jù)設(shè)置和保存到用戶的數(shù)據(jù)庫中。在 sql server 中，數(shù)據(jù)庫 是由數(shù)據(jù)庫文件和事務(wù)日志文件組成的。數(shù)據(jù)庫文件存放數(shù)據(jù)庫數(shù)據(jù)和對象； 事務(wù)日志文件用來記錄數(shù)據(jù)更新情況。sql server 2000 提供了強(qiáng)大而穩(wěn)定的 企業(yè)級數(shù)據(jù)庫開發(fā)平臺。 本系統(tǒng)是采用

12、 c/s 模式設(shè)計與開發(fā)的，是在確定應(yīng)用程序所要實(shí)現(xiàn)的功能， 再根據(jù)這些功能進(jìn)行系統(tǒng)的總體設(shè)計。這些數(shù)據(jù)庫應(yīng)用程序系統(tǒng)總體設(shè)計包括 了兩部分內(nèi)容：數(shù)據(jù)庫系統(tǒng)的設(shè)計和數(shù)據(jù)庫軟件系統(tǒng)的設(shè)計。之后就要進(jìn)入系 統(tǒng)功能實(shí)現(xiàn)階段，化分模塊。完成了程序代碼編輯之后，需將實(shí)驗數(shù)據(jù)裝入數(shù) 據(jù)庫進(jìn)行系統(tǒng)測試。整個設(shè)計過程嚴(yán)格采用軟件工程的方法進(jìn)行。在軟件系統(tǒng) 的設(shè)計中，通過 delphi 7 開發(fā)平臺，建立工程，建立窗體，在窗體中添加所需 的各個組件。其中一些組件，如 ado，bde，db 是數(shù)據(jù)庫開發(fā)組件，是用于連接 數(shù)據(jù)庫的操作等；用戶圖形界面控件是實(shí)現(xiàn)系統(tǒng)自身功能的。如 button，speed butto

13、n，label，edit 等等。通過添加此類控件，在對象檢查 器中設(shè)置其控件相關(guān)屬性值，在代碼編輯器中編輯代碼，實(shí)現(xiàn)各控件的激發(fā)功 能等。再通過 sql server 2000 建立數(shù)據(jù)庫，建立表等操作，使用數(shù)據(jù)庫組件 把前臺界面程序與后臺數(shù)據(jù)庫連接起來。最終實(shí)現(xiàn)其預(yù)期功能。 2 2系統(tǒng)需求分析與設(shè)計系統(tǒng)需求分析與設(shè)計 2.12.1 系統(tǒng)目標(biāo)系統(tǒng)目標(biāo) 使用計算機(jī)實(shí)現(xiàn)商品入庫、出庫管理，隨時查詢商品庫存情況，取代人工 記賬。 2.22.2 系統(tǒng)功能系統(tǒng)功能 1. 供應(yīng)商基本信息 在供應(yīng)商基本信息中應(yīng)包含供應(yīng)商名稱、供應(yīng)商地址、聯(lián)系人、聯(lián)系電話、 所屬地區(qū)等信息。在供應(yīng)商基本信息中需要實(shí)現(xiàn)供應(yīng)商基

14、本信息的添加、瀏覽、 修改、刪除。 2. 商品基本信息 在商品基本信息中包含商品編號、商品名稱、規(guī)格、產(chǎn)地、進(jìn)價、批發(fā)價、 零售價、保質(zhì)期等基本信息。在商品基本信息中，根據(jù)供應(yīng)商所提供的商品， 進(jìn)行商品詳細(xì)信息的錄入。在商品基本信息中需要實(shí)現(xiàn)商品基本信息的添加、 瀏覽、修改、刪除。 3. 商品入庫信息 在商品入庫信息中，通過基本信息中的供應(yīng)商編號，得到相對應(yīng)的供應(yīng)商 名稱，同時得到供應(yīng)商所提供的商品。對商品進(jìn)行入庫操作。商品入庫信息還 包含入庫編號、入庫日期、經(jīng)手人等信息。在商品入庫信息中需要實(shí)現(xiàn)商品入 庫信息的添加、刪除。 4. 商品出庫信息 在商品出庫信息中，通過入庫編號，獲取商品名稱、商

15、品單位、商品單價 等相關(guān)信息。通過這些基本信息，對商品進(jìn)行出庫操作。商品出庫信息還包含 出庫編號、出庫日期、經(jīng)手人等信息。在商品出庫信息中需要實(shí)現(xiàn)商品出庫信 息的添加、刪除。 5商品庫存查詢 在商品庫存查詢中通過商品名稱對商品規(guī)格、商品單位、商品單價、商品 數(shù)量進(jìn)行查詢。 6密碼修改設(shè)置 在密碼修改設(shè)置中，通過原來的密碼，對操作員及密碼進(jìn)行修改。 7數(shù)據(jù)庫備份、恢復(fù) 在數(shù)據(jù)庫備份中，單擊“數(shù)據(jù)備份”按鈕，根據(jù)當(dāng)前日期對數(shù)據(jù)庫中的數(shù) 據(jù)進(jìn)行備份，并保存到指定的數(shù)據(jù)備份文件夾中。 在數(shù)據(jù)恢復(fù)中，單擊“數(shù)據(jù)恢復(fù)”，打開以前備份的數(shù)據(jù)庫文件，并執(zhí)行 恢復(fù)操作。 2.32.3 系統(tǒng)結(jié)構(gòu)圖系統(tǒng)結(jié)構(gòu)圖 倉儲

16、管理子系統(tǒng)的結(jié)構(gòu)圖： 圖 2-1 系統(tǒng)模塊 圖 供 應(yīng) 商 基 本 信 息 商 品 基 本 信 息 商 品 入 庫 信 息 商 品 出 庫 信 息 密 碼 修 改 設(shè) 置 數(shù) 據(jù) 備 份 恢 復(fù) 倉儲管理子系統(tǒng) 商 品 庫 存 查 詢 系統(tǒng)大致分為七個功能模塊，分別為：供應(yīng)商基本信息、商品基本信息、 商品入庫信息、商品出庫信息、商品庫存查詢、密碼修改設(shè)置、數(shù)據(jù)備份恢復(fù) 等。 2.42.4 系統(tǒng)流程圖系統(tǒng)流程圖 倉儲管理子系統(tǒng)的流程圖： 讀取用戶信息 啟動窗體 用戶登錄大于 3 次 失敗 倉儲管理子系統(tǒng) 圖 2-2 系統(tǒng)流程圖 開始 結(jié)束 成功 開始運(yùn)行程序，啟動窗體，連接到數(shù)據(jù)庫后，進(jìn)行用戶登

17、錄。若成功登錄， 則讀取用戶信息，進(jìn)入系統(tǒng)主界面，可執(zhí)行所需的功能操作等，選擇結(jié)束程序； 若登錄失敗次于大于 3 次，則結(jié)束程序。 2.52.5 業(yè)務(wù)流程業(yè)務(wù)流程 倉儲管理子系統(tǒng)的業(yè)務(wù)流程圖： 供應(yīng)商基本信息 商品基本信息 商品入庫信息 商品出庫信息 圖 2-3 業(yè)務(wù)流程 圖 2.62.6 數(shù)據(jù)庫概念設(shè)計數(shù)據(jù)庫概念設(shè)計 倉儲管理子系統(tǒng)概念設(shè)計圖： 供應(yīng)商編號 供應(yīng)商名稱 商品編號 商品名稱 商品簡稱 商品名稱 商品單位 供應(yīng)商信息商品信息庫存表 1nn1 圖 2-4 系統(tǒng)概念設(shè)計圖 2.72.7 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 倉儲管理子系統(tǒng)共使用了 6 張數(shù)據(jù)表，分別為：用戶表、供應(yīng)商

18、基本信息、 商品基本信息、商品入庫信息、商品出庫信息、庫存表。 用戶表： 表 2-1 用戶表 字段名稱字段類型是否為空 用戶編號varchar(15)否 用戶名稱varchar(15) 密碼varchar(20) 供應(yīng)商基本信息： 表 2-2 供應(yīng)商基本信息表 字段名稱字段類型是否為空 供應(yīng)商編號varchar(30)否 供應(yīng)商名稱varchar(30) 供應(yīng)商地址varchar(40) 聯(lián)系人varchar(12) 聯(lián)系電話varchar(12) 傳真varchar(12) 郵政編碼varchar(10) 所屬地區(qū)varchar(10) 開戶銀行varchar(16) 銀行帳號varchar

19、(30)否 備注varchar(50) 商品基本信息： 表 2-3 商品基本信息表 字段名稱字段類型是否為空 商品編號varchar(30)否 商品名稱varchar(20) 商品簡稱varchar(10) 規(guī)格varchar(10) 保質(zhì)期varchar(10) 產(chǎn)地varchar(30) 單位varchar(10) 商品單價float(8) 批發(fā)價money(8) 零售價money(8)否 供應(yīng)商編號varchar(30) 供應(yīng)商名稱varchar(30) 備注varchar(50) 商品入庫信息: 表 2-4 商品入庫信息表 字段名稱字段類型是否為空 供應(yīng)商編號varchar(30)否

20、供應(yīng)商名稱varchar(30) 入庫編號varchar(30) 商品名稱varchar(20) 商品規(guī)格varchar(12) 商品單位varchar(10) 商品數(shù)量varchar(10) 商品單價float(8) 入庫日期datetime(8) 經(jīng)手人varchar(12) 備注varchar(50) 商品出庫信息： 表 2-5 商品出庫信息表 字段名稱字段類型是否為空 出庫編號varchar(30)否 商品編號varchar(30) 商品名稱varchar(20) 商品單位varchar(10) 商品數(shù)量varchar(10) 商品單價float(8) 出庫日期datetime(8)

21、經(jīng)手人varchar(12) 備注varchar(50) 庫存表： 表 2-6 庫存表 字段名稱字段類型是否為空 商品名稱varchar(20)否 商品單位varchar(10) 商品規(guī)格varchar(12) 商品單價float(8) 商品數(shù)量varchar(10) 2.82.8 處理過程分析處理過程分析 商品入庫處理過程分析：商品入庫是一個從供應(yīng)商進(jìn)貨的過程，在進(jìn)貨時 需要記錄供應(yīng)商信息、商品入庫信息，所以在商品入庫時需要進(jìn)行登記，記錄 從哪個供應(yīng)商進(jìn)了哪些商品，以及商品數(shù)量、金額等信息。在商品入庫過程中， 關(guān)鍵之處是修改商品庫存，用戶在保存信息時，程序除了檢查用戶錄入信息是 否有錯誤，還

22、要修改商品庫存，如果用戶錄入的商品在庫存中不存在，則向庫 存中插入商品信息（商品名稱、商品數(shù)量等），如果存在，則在庫存中修改該 商品庫存數(shù)量。 商品入庫管理業(yè)務(wù)流程圖： 商品登記 錄入商品信息 錄入商品入庫信息 保存到庫存表 圖 2-5 商品入庫管理業(yè)務(wù)流程 圖 商品出庫處理過程分析：商品出庫是一個提貨的過程。在商品出庫時，首 先進(jìn)行商品出庫登記，然后錄入提貨的商品信息，最后修改庫存，保存提貨信 息。 商品出庫業(yè)務(wù)流程圖： 錄入商品信息 錄入商品出庫信息 保存到庫存表 圖 2-6 商品出庫業(yè)務(wù)流程圖 3 3系統(tǒng)編碼與實(shí)現(xiàn)系統(tǒng)編碼與實(shí)現(xiàn) 3.13.1 系統(tǒng)管理界面模塊系統(tǒng)管理界面模塊 系統(tǒng)管理界

23、面模塊分為登錄界面模塊和主界面模塊，前者的功能是用戶登 錄，起驗證作用，后者的功能主要是提供倉儲管理相關(guān)的功能的入口，列出了 商品入庫、商品出庫、庫存查詢、供應(yīng)商信息、商品信息和密碼修改等功能。 用戶通過登錄界面模塊登錄，進(jìn)入系統(tǒng)主界面模塊進(jìn)行所需操作。 1 登錄界面模塊： 圖 3-1 登錄界面 啟動程序后，連接數(shù)據(jù)庫，進(jìn)入登錄界面。通過在“用戶名”的 combobox 組件形成的下拉菜單中，選取登錄用戶名，然后鍵入密碼，進(jìn)行登 錄。這里是提供給倉儲管理員進(jìn)行登錄及管理操作的，一般職員無用戶名則無 權(quán)限進(jìn)入倉儲管理系統(tǒng)。在此處供選擇的用戶名及需輸入的密碼是數(shù)據(jù)庫中用 戶表中的信息。 combo

24、box 組件下拉顯示的執(zhí)行代碼為： procedure tlogin.combobox1change(sender: tobject); begin dm.quser.locate(用戶名稱, combobox1.text,); edit1.setfocus; end; procedure tlogin.combobox1dropdown(sender: tobject); var i:integer; begin combobox1.clear; dm.quser.open; if (dm.quser.recordcount0) then dm.quser.first; for i:=0 t

25、o dm.quser.recordcount-1 do begin /得到所有用戶名稱 combobox1.items.add(dm.quser.fieldbyname(用戶名稱).asstring); dm.quser.next; end; end; 退出按鈕的激發(fā)代碼為： procedure tlogin.speedbutton2click(sender: tobject); begin application.terminate; end; 2 主界面模塊： 圖 3-2 主界面 成功登錄后，進(jìn)入到主界面。在主界面可以進(jìn)行供應(yīng)商信息、商品基本信 息、商品入庫信息、商品出庫信息的管理操作。還

26、可以進(jìn)行商品庫存查詢，密 碼修改設(shè)置，數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)等操作。主界面清新、簡潔，而且使用方便、 操作簡單，各按鈕位置編排有序規(guī)整。在主界面上還調(diào)用了 windows 的計算器 和記事本，使倉儲管理員使用起來更方便、快捷。 點(diǎn)擊按鈕的創(chuàng)建窗體類的實(shí)現(xiàn)，如密碼修改設(shè)置按鈕的激發(fā)代碼為： begin application.createform(tmmxg,mmxg); mmxg.showmodal; mmxg.free; end; 3.23.2 基本信息管理模塊基本信息管理模塊 基本信息管理模塊分為供應(yīng)商基本信息模塊、供應(yīng)商基本信息編輯模塊、 商品基本信息模塊、商品基本信息編輯模塊。在此可對供應(yīng)

27、商基本信息和商品 基本信息進(jìn)行查看、添加、修改、保存、取消等編輯操作，還可刪除其相關(guān)信 息。 1 供應(yīng)商基本信息模塊： 圖 3-3 供應(yīng)商信息主窗體 在此窗體可查看數(shù)據(jù)庫中供應(yīng)商基本信息表中的內(nèi)容，由 dbgrid 組件負(fù) 責(zé)連接數(shù)據(jù)庫并顯示其內(nèi)容?？蓪?yīng)商信息進(jìn)行編輯、刪除等操作。在這里， 可查看到供應(yīng)商編號、供應(yīng)商名稱、供應(yīng)商地址、聯(lián)系人、聯(lián)系電話等供應(yīng)商 的相關(guān)信息，并可以對其進(jìn)行刪除操作，還可以點(diǎn)擊“編輯”進(jìn)入編輯窗體進(jìn) 行編輯。如果不再需要訪問此窗體，可點(diǎn)擊“退出”關(guān)閉掉此窗體。 打開此窗體時，連接數(shù)據(jù)庫獲取供應(yīng)商基本信息表中內(nèi)容的代碼為： procedure tgysxx_z.f

28、ormcreate(sender: tobject); begin /創(chuàng)建窗體時，打開數(shù)據(jù)表 with dm.qgysxx do begin close; sql.clear; sql.add(select * from 供應(yīng)商基本信息); open; end; dm.dsogysxx.open; end; 2 供應(yīng)商基本信息編輯模塊： 圖 3-4 供應(yīng)商信息編輯窗體 點(diǎn)擊圖 3-3 中“編輯”按鈕得到此窗體。在此可對供應(yīng)商相關(guān)信息進(jìn)行添 加和修改。點(diǎn)擊“添加”按鈕，可添加新的供應(yīng)商相關(guān)信息并加以保存；點(diǎn)擊 “修改” ，可對現(xiàn)有的供應(yīng)商信息進(jìn)行修改。信息保存到供應(yīng)商基本信息表中。 供應(yīng)商編號、

29、名稱、地址等相關(guān)信息能夠詳細(xì)記錄倉儲管理中商品供應(yīng)商的詳 細(xì)資料，能夠方便管理經(jīng)營等。如在添加或修改過程中，不再需要添加或修改， 可點(diǎn)擊“取消”以撤消新建的或已更改的信息。 公開聲明： procedure bh; /自動編號 function cansave: boolean;/判斷是否保存 procedure posting; /提交數(shù)據(jù) procedure getall; /獲得所有數(shù)據(jù) procedure tr; /去除空字符 “添加”按鈕的點(diǎn)擊事件代碼為： procedure tgysxx.speedbutton1click(sender: tobject); begin /添加時，控

30、件初始化 groupbox1.enabled:=true; speedbutton2.enabled:=false; speedbutton3.enabled:=true; speedbutton4.enabled:=true; edit1.clear; edit2.clear; edit8.clear; edit9.clear; edit10.clear; memo1.clear; actioncd:= n; bh; edit2.setfocus; speedbutton1.enabled:=false; end; 3 商品基本信息模塊： 圖 3-5 商品基本信息主窗體 此窗體顯示商品基本信

31、息表中內(nèi)容，與供應(yīng)商基本信息窗體的功能類似。 可查看商品編號、商品名稱、商品簡稱、規(guī)格、保持期、產(chǎn)地、單位、進(jìn)價等 商品基本信息，也可對其進(jìn)行刪除操作和點(diǎn)擊進(jìn)入編輯窗體進(jìn)行具體的編輯操 作。 點(diǎn)擊“編輯”按鈕的事件代碼為： procedure tspjbxx_z.speedbutton1click(sender: tobject); begin application.createform(tspjbxx,spjbxx); spjbxx.getall; actioncd:=m; spjbxx.showmodal; spjbxx.free; end; 4 商品基本信息編輯模塊： 圖 3-6 商品

32、基本信息編輯窗體 此窗體可對商品基本信息進(jìn)行添加、修改等管理操作。信息保存到商品基 本信息表中。通過商品編號、商品名稱、商品簡稱、保質(zhì)期、規(guī)格、進(jìn)價等詳 細(xì)地記錄下商品基本信息，精確到供應(yīng)商名稱與價格之間的對應(yīng)聯(lián)系等。在備 注一欄內(nèi)可注明各商品的具體情況。在這里可以添加新的商品基本信息和修改 已有商品信息。 3.33.3 商品庫存管理模塊商品庫存管理模塊 商品庫存管理模塊分為商品入庫信息模塊、商品入庫信息編輯模塊、商品 出庫信息模塊、商品出庫信息編輯模塊、商品庫存查詢模塊。在此可對商品的 入庫和出庫信息進(jìn)行查看、添加、保存和刪除等編輯操作，入庫和出庫的信息 非常詳細(xì)，可編輯其供應(yīng)商和商品相關(guān)指

33、數(shù)，還有入/出庫編號、入/出庫時間 及經(jīng)手人等。還可按商品名稱進(jìn)行查詢和查看全部庫存。 1 商品入庫信息模塊： 圖 3-7 商品入庫信息主窗體 此窗體顯示商品入庫信息表中的內(nèi)容，包括入庫編號、供應(yīng)商編號、供應(yīng) 商名稱、商品名稱、商品規(guī)格、商品單位、商品數(shù)量、商品單價等商品入庫信 息?？蓪ζ溥M(jìn)行刪除和編輯操作。商品出庫信息模塊與此模塊相似，可對出庫 編號、供應(yīng)商相關(guān)信息、商品相關(guān)信息等商品出庫信息進(jìn)行查看、編輯和刪除 操作。 “刪除”按鈕的事件代碼為： procedure tsprkxx_z.speedbutton2click(sender: tobject); begin if dm.qspr

34、kxx.recordcount=0 then /判斷數(shù)據(jù)庫內(nèi)是否有記 錄 begin application.messagebox(已無記錄可刪除!,提示 ,0+mb_iconinformation); exit; end; if dm.dsosprkxx.isempty then exit; if id_yes=application.messagebox(確實(shí)要刪除這條記錄嗎？,提示 ,mb_yesno) then begin dm.dsosprkxx.delete; end; end; 2 商品入庫信息編輯模塊： 圖 3-8 商品入庫信息編輯窗體 在此窗體可對商品入庫信息進(jìn)行添加、保存等

35、，添加新信息是保存在商品 入庫信息表中的。這里沒有了商品基本信息編輯窗體中的“修改”按鈕，是為 了不能被倉儲管理員或者其它職員隨意改動入庫記錄信息，防止任何個人行為 帶給公司、企業(yè)經(jīng)濟(jì)損失和管理障礙。如果在添加完成后，發(fā)現(xiàn)錯誤信息，可 對其進(jìn)行刪除，再重新添加整個入庫記錄信息。通過供應(yīng)商編號和名稱及商品 名稱，與入庫日期和經(jīng)手人最終落實(shí)到每一次入庫記錄。商品出庫信息編輯模 塊與此模塊相似，可對商品出庫信息進(jìn)行添加、保存等操作。 供應(yīng)商編號下拉顯示的代碼為： procedure tsprkxx.combobox1dropdown(sender: tobject); var i:integer;

36、begin /將數(shù)據(jù)庫內(nèi)的供應(yīng)商編號顯示在 combobox1 中 combobox1.clear; with dm.qspxx do begin sql.clear; sql.text := select distinct 供應(yīng)商編號 from 商品基本信息; close; active := false; prepared := false; prepared := true; active := true; if (recordcount 0) then first; for i := 0 to recordcount - 1 do begin combobox1.items.add(f

37、ieldbyname(供應(yīng)商編號).asstring); next; end; edit3.clear; edit4.clear; edit5.clear; edit6.clear; combobox2.clear; end; end; 3 商品庫存查詢模塊： 圖 3-9 商品庫存查詢窗體 在此窗體，可對商品庫存進(jìn)行查詢?？赏ㄟ^商品名稱查詢，也可查看全部 庫存，通過 dbgrid 組件顯示出來。用戶可查看到查詢到的商品名稱、商品單 位、商品規(guī)格、商品單價、商品數(shù)量等信息，這些信息都是存放在數(shù)據(jù)庫中的 庫存表中的。 “查詢”按鈕的點(diǎn)擊事件代碼為： procedure tspkccx.speedb

38、utton1click(sender: tobject); begin if combobox1.text then /通過商品名稱進(jìn)行模糊查詢 begin with dm.qkcb do begin close; sql.clear; sql.text:=select * from 庫存表 where 商品名稱 like+#39+%+trim(combobox1.text)+%+#39; open; dbgrid1.datasource:=dm.datasource5; end; end; end; “全部庫存”的點(diǎn)擊事件代碼為： procedure tspkccx.speedbutton2

39、click(sender: tobject); begin combobox1.clear; /查詢數(shù)據(jù)庫內(nèi)所有數(shù)據(jù) with dm.qkcb do begin close; sql.clear; sql.add(select * from 庫存表); open; end; dbgrid1.datasource:=dm.datasource5; end; 3.43.4 密碼管理模塊密碼管理模塊 在此模塊中可對用戶密碼進(jìn)行修改。 圖 3-10 密碼修改窗體 在此窗體可修改密碼。首先鍵入要修改密碼的用戶名，再輸入正確的原密 碼，再自定義新密碼以及確認(rèn)。如果用戶名與原密碼不正確，修改不能成功； 如果

40、新密碼與確認(rèn)密碼不一致，修改也不能成功。這里的密碼修改，只能是成 功登錄后才能進(jìn)行的操作。當(dāng)倉儲管理員不在計算機(jī)前工作時，本系統(tǒng)又嘗未 退出，若有人想更改管理員的密碼，在沒有原密碼的情況下，是不能成功的。 這就有效的防止了他人惡意更改用戶密碼，給系統(tǒng)、公司、企業(yè)帶來損失。 判斷 edit 組件是否為空的代碼為： if (edit1.text=) then begin application.messagebox(用戶名稱不能為空！,提示信息 ,0+mb_iconinformation); exit; end; 刷新數(shù)據(jù)表內(nèi)容的代碼為： with dm.quser do /刷新數(shù)據(jù)表內(nèi)容 begin close; sql.clear; sql.add(update 用戶表 set 用戶名稱=:用戶名稱 1,); sql.add(密碼=:密碼 1 where 用戶編號=:用戶編號 1); parameters.items0.value