倉儲(chǔ)管理信息系統(tǒng)文檔.doc

1、倉儲(chǔ)管理信息系統(tǒng)1、前言貨物管理系統(tǒng)作為商品或者貨物管理必須要涉及到的部分， 在各種企業(yè)中有廣泛的應(yīng)用前景。本系統(tǒng)可以錄入保存商品、客戶、供貨商等基本資料，完成貨品的進(jìn)貨、出貨、退貨等日常操作。通過對日常操作的查詢，用戶可以掌握貨物流通情況，并能夠?qū)ω浳锴闆r進(jìn)行統(tǒng)計(jì)。貨物管理中主要涉及的管理有三個(gè)方面：進(jìn)貨、出貨、退貨。本系統(tǒng)使用 VFP5.0 進(jìn)行開發(fā)，原因是 VFP5.0 易學(xué)、易記、功能齊全。 公司在貨物管理中涉及的業(yè)務(wù)過程大致如下：進(jìn)貨：公司根據(jù)貨物信息表中的信息，決定進(jìn)何種貨；進(jìn)貨的數(shù)量、單位、時(shí)間經(jīng)手人等由用戶輸入。進(jìn)貨成功后，更新庫存貨物表和進(jìn)貨表。出貨：首先公司對銷售單位向公司

2、開出要貨單； 然后，公司根據(jù)要貨單及貨物的實(shí)物數(shù)量決定給要貨單位的貨物數(shù)量； 最后，公司開出出貨單， 根據(jù)出貨單將貨物出庫， 并發(fā)給要貨單位。 銷售出庫時(shí)， 開出庫單上面應(yīng)記載售貨的名稱及數(shù)量、金額等信息；然后，貨物出庫，交給客戶。退貨：對客戶不滿意的貨物進(jìn)行檢查，符合退貨要求后貨物退回到庫房1 2 數(shù)據(jù)庫技術(shù)與 VFP系統(tǒng)平臺(tái)概述數(shù)據(jù)庫技術(shù)產(chǎn)生于 20 世紀(jì) 60 年代末 70 年代初，到 70 年代末期數(shù)據(jù)庫理論的研究已基本進(jìn)入了成熟階段。 它的出現(xiàn)與完善使得計(jì)算機(jī)應(yīng)用進(jìn)入了新的歷史時(shí)期，社會(huì)的每一個(gè)領(lǐng)域都與計(jì)算機(jī)發(fā)生了聯(lián)系， 計(jì)算機(jī)在人類社會(huì)中開始起著不可估量的作用。 隨著信息技術(shù)、網(wǎng)絡(luò)

3、技術(shù)及計(jì)算機(jī)技術(shù)的飛速發(fā)展和人民生活水平的提高，微機(jī)走入了我們的家庭成為我們工作和學(xué)習(xí)的得力助手。 在此浪朝的推動(dòng)下各類學(xué)習(xí)軟件相繼推出， 尤其學(xué)習(xí)語言類的軟件更是種類繁多， 面面俱到。VisualFoxpro （以下簡稱 VFP）是一個(gè)優(yōu)秀的，基于Internet平臺(tái)的數(shù)據(jù)庫管理系統(tǒng)。 VFP既具有 Visual語言系列的功能強(qiáng)大、直觀易用以及面向?qū)ο蟮膬?yōu)點(diǎn)，又兼有 Windows和 FoxPro 的長處。并為用戶提供了眾多向?qū)А?生成器、設(shè)計(jì)器及面向?qū)ο蟪绦蛟O(shè)計(jì)的技術(shù)支持，特別適合開發(fā)中小型系統(tǒng)。 用 VFP開發(fā)的系統(tǒng)具有界面友好、操作方便、易于學(xué)習(xí)的特點(diǎn)。特別VFP5.0 是一個(gè)功能強(qiáng)大

4、的數(shù)據(jù)庫管理系統(tǒng)（ DBMS）。隨著現(xiàn)代科學(xué)技術(shù)的發(fā)展，越來越多的公司和企業(yè)已經(jīng)使用計(jì)算機(jī)系統(tǒng)代替繁瑣冗余的手工操作來管理貨物的工作。VFP5.0 是面向?qū)ο蟮目梢暬幊坦ぞ撸?利用該系統(tǒng)可以方便快捷的開發(fā)包含數(shù)據(jù)庫的各種應(yīng)用軟件，開發(fā)出的可執(zhí)行文件效率較高，打包發(fā)布也非常方便。2、 系統(tǒng)設(shè)計(jì)2.1 系統(tǒng)設(shè)計(jì)原理系統(tǒng)結(jié)構(gòu)圖如圖所示本系統(tǒng)主要包括三個(gè)功能模塊1. 基礎(chǔ)數(shù)據(jù)模塊功能：用來設(shè)置各實(shí)體、簡單關(guān)系的基本信息。2. 庫存操作處理模塊功能：其他出、入庫單是針對一些特殊情況。 倉庫管理是一項(xiàng)非常重的工作。3. 數(shù)據(jù)查詢模塊功能：庫存報(bào)警主要是保證缺貨貨品的供貨的及時(shí)性 。庫存匯總、庫存單據(jù)為企

5、業(yè)決策者提供重要的信息。系統(tǒng)功能模塊圖如下：1、供應(yīng)商基本信息：包含供應(yīng)商品的人員的基本信息2、倉庫基本信息：倉庫的信息和商品信息，如倉庫地址，庫存，商品種類，數(shù)量，金額等商品信息3、商品：需要保存在數(shù)據(jù)庫的商品信息有商品名稱，規(guī)格，單位，有效期，成本價(jià)，類別名稱等4、員工基本信息如姓名，性別，住址，聯(lián)系電話等5、入庫單：采購的商品存入倉庫，并把有關(guān)數(shù)據(jù)存入數(shù)據(jù)庫6、出庫單：商品出售給其他人員并把銷售后倉庫信息的變化存入數(shù)據(jù)庫7、庫存明細(xì)：與商品有關(guān)的數(shù)據(jù)的詳細(xì)羅列8、銷售退貨管理：消費(fèi)者因不滿意商品而退貨，商品重新進(jìn)入倉庫并在數(shù)據(jù)庫中重新添加信息9、供應(yīng)商供貨明細(xì)：供應(yīng)商供貨的種類，數(shù)量，價(jià)

6、格的信息及供應(yīng)商的信息，交易信息等系統(tǒng)模塊圖有關(guān)數(shù)據(jù)表結(jié)構(gòu)入庫單（入庫編號，供應(yīng)商編號，倉庫編號，商品編碼，入庫日期，數(shù)量，制單人）出庫單（出庫編號，供應(yīng)商編號，客戶編號，倉庫編號，出庫日期，數(shù)量）供應(yīng)商（供應(yīng)商編號，供應(yīng)商地址，郵編，聯(lián)系人，聯(lián)系人電話）商品 ( 商品編碼，商品名稱，計(jì)量單位，成本價(jià)，類別名稱 ) 倉庫（倉庫編號 , 倉庫名稱 , 倉庫地址 , 庫管員 , 聯(lián)系電話）客戶（客戶編號，客戶地址，姓名，電話）庫存查詢（供應(yīng)商編號，倉庫編號，商品編碼，數(shù)量）系統(tǒng)用戶（用戶名，密碼）在上面的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上， 形成各個(gè)表格之間的關(guān)系。 庫存管理系統(tǒng)數(shù)據(jù)庫中的各個(gè)表的設(shè)計(jì)結(jié)

7、果如下面的幾個(gè)表格所示，每個(gè)表格表示數(shù)據(jù)庫中的一個(gè)表。表1 入庫單字段名數(shù)據(jù)說明稱類型入庫編文本字段大小號為 20供應(yīng)商文本字段大小編號為 20倉庫編文本字段大小號為 20商品編文本字段大小碼為 20入庫日日期無期數(shù)量數(shù)字?jǐn)?shù)值制單人文本字段大小為 20表2出庫單字段名數(shù)據(jù)說明稱類型出庫編文本字段大小號為 20客戶編文本字段大小號為 20倉庫編文本字段大小號為 20供應(yīng)商文本字段大小編號為 20出庫日日期無期數(shù)量數(shù)字?jǐn)?shù)值表3 供應(yīng)商字段名數(shù)據(jù)說明稱類型供應(yīng)商文本字段大小編號為 20供應(yīng)商文本字段大小地址為 20電話數(shù)字?jǐn)?shù)值郵編數(shù)字?jǐn)?shù)值聯(lián)系人文本字段小大為 20表 4商品字段數(shù)據(jù)說明名稱類型商品文

8、本字段大小編號為 20商品文本字段大小名稱為 20計(jì)量文本字段大小單位為 20成本數(shù)字?jǐn)?shù)值價(jià)類別文本字段大小名稱為 20表 5倉庫字段數(shù)據(jù)說明名稱類型倉庫文本字段大小編號為 20倉庫文本字段大小名稱為 20倉庫文本字段大小地址為 20庫管文本字段大小員為 20聯(lián)系數(shù)字INTEGER電話表 6客戶字段數(shù)據(jù)說明名稱類型客戶文本字段大小編號為 20客戶文本字段大小地址為 20姓名文本字段大小為 20電話數(shù)字?jǐn)?shù)值表 7員工字段數(shù)據(jù)說明名稱類型員工文本字段大小編號為20性別文本字段大小為20姓名文本字段大小為20年齡住址數(shù)字文本數(shù)值字段大小為20聯(lián)系數(shù)字?jǐn)?shù)值電話表8庫存查詢字段名數(shù)據(jù)說明稱類型供應(yīng)商文本

9、字段大小編號為20倉庫編文本字段大小號為20商品編文本字段大小碼為20數(shù)量數(shù)字?jǐn)?shù)值字段表9 系統(tǒng)用戶數(shù)據(jù)說明名稱類型用戶文本字段大小名為20密碼數(shù)字?jǐn)?shù)值實(shí)際工作中的表格往往不適合直接輸入到計(jì)算機(jī)中。 如上述貨物信息、 出貨單、進(jìn)貨單等，無法在計(jì)算機(jī)中直接建立這樣的表， 因此需要對實(shí)際的表格或清單進(jìn)行規(guī)范化設(shè)計(jì)。2.2 貨物信息表設(shè)計(jì)貨物信息是貨物管理系統(tǒng)的一個(gè)基本表，可用如圖 2-2 所示的實(shí)體關(guān)系圖來圖 2-2 貨物關(guān)系對每一種貨物都有唯一與之對應(yīng)的編號，因此在貨物關(guān)系中編號是主關(guān)鍵字，其他的非主屬性都完全依賴于它。2.3 系統(tǒng)思想該系統(tǒng)的基本設(shè)計(jì)思路如下：（1）建立好各表，輸入一些模擬數(shù)據(jù)

10、；（2）在顯示貨物信息時(shí)，將表單上的用來顯示表中字段值的文本框分別與相關(guān)的字段進(jìn)行綁定； 具體設(shè)置要將文本框的controlsource屬性設(shè)定為對應(yīng)的字段名；（3）在貨物信息管理時(shí)可以查看各記錄的值，可以添加、修改、刪除、保存記錄；（4）貨物查詢時(shí)，只需輸入貨物名稱，就可以定位在該記錄，并顯示該記錄的有關(guān)內(nèi)容，也可以修改該記錄；（5）進(jìn)貨管理中的進(jìn)貨信息顯示是以只讀方式顯示貨物信息表中的編號、名稱和規(guī)格字段內(nèi)容，具體設(shè)置方法是將該文本框的 readonly 屬性值改為 .T. ；因?yàn)閷ω浳镄畔⒈碇行畔⒌母淖儾皇窃诒静藛沃型瓿傻摹?其余文本框接收用戶輸入的內(nèi)容，并將內(nèi)容加入進(jìn)貨表（以便于進(jìn)貨統(tǒng)

11、計(jì)） ，還要加入庫存貨物表中；（6）進(jìn)貨統(tǒng)計(jì)是根據(jù)用戶通過進(jìn)貨信息表單中輸入的有關(guān)信息，加入到進(jìn)貨表中，然后接收用戶查詢的時(shí)間段，在該進(jìn)貨表中找出在該時(shí)間段進(jìn)的貨。制作一個(gè)含有表格控件的表單，將表格控件中相關(guān)header 的值改為所顯示字段名，將表格控件的數(shù)據(jù)源RecordSource 的值設(shè)為“進(jìn)貨表”所在的路徑和表名，將表格控件的數(shù)據(jù)源類型RecordSourceType 的值設(shè)為“0- 表”；（7）其他功能與進(jìn)貨管理類似，只需做稍微改動(dòng)即可。3、系統(tǒng)實(shí)現(xiàn)3.1 開發(fā)平臺(tái)及系統(tǒng)配置該系統(tǒng)采用 Microsoft公司推出的 Visual FoxPro 5.0作為開發(fā)平臺(tái)，該開發(fā)平臺(tái)具有一下優(yōu)

12、點(diǎn)： VFP5.0特別適合開發(fā)中小型的管理系統(tǒng)；面向?qū)ο蟮奶攸c(diǎn)與程序設(shè)計(jì)的可視化結(jié)合在一起，有效地提高了編程的效率；界面美觀、使用方便； VFP5.0 全面支持 GIF(Graphics Interchange Format)和 JPEG(JointPhotographic Group)圖象格式。你可以將對 Visual FoxPro配置的設(shè)定僅僅應(yīng)用于當(dāng)前的工作期( 臨時(shí) ) ，或者將其設(shè)定為下一次使用VisualFoxPro的默認(rèn)值(永久 ) 。如果設(shè)定是臨時(shí)的，那它們將存儲(chǔ)在內(nèi)存中，并在你退出Visual FoxPro時(shí)丟棄。如果你進(jìn)行的是永久性設(shè)定，它們將存儲(chǔ)在Microsoft Wi

13、ndows注冊表或VisualFoxPro 資源文件中。 Windows 注冊表是一個(gè)數(shù)據(jù)庫， 存儲(chǔ)關(guān)于操作系統(tǒng)，所有的 Windows 應(yīng)用程序，OLE，以及 ODBC 等其他選件等等的配置信息。 例如，注冊表保存了 Windows 對于文件擴(kuò)展名與應(yīng)用程序的關(guān)聯(lián)信息，這樣當(dāng)你點(diǎn)擊一個(gè)文件時(shí)， Windows 能夠加載并激活相對應(yīng)的應(yīng)用程序。類似地， Visual FoxPro也在注冊表中存儲(chǔ)其特定地配置信息。當(dāng)VisualFoxPro 啟動(dòng)時(shí)，程序?qū)?huì)讀取注冊表中的配置信息，并按照這些內(nèi)容進(jìn)行相應(yīng)地設(shè)置。完成注冊表讀取后，Visual FoxPro 也會(huì)檢查其配置文件，這個(gè)文件是一個(gè)文本文

14、件，存在這個(gè)文件中的配置信息將會(huì)覆蓋注冊表的設(shè)定。 Visual FoxPro 啟動(dòng)后，你還可以使用選項(xiàng)對話框或 SET 命令來進(jìn)行一些額外的配置設(shè)定。3.2 模塊實(shí)現(xiàn)3.2.1 基礎(chǔ)數(shù)據(jù)模塊基礎(chǔ)數(shù)據(jù)模塊包含的內(nèi)容有供應(yīng)商信息， 倉庫基本信息， 員工信息， 商品基本信息，客戶基本信息這些數(shù)據(jù)是其余模塊功能實(shí)現(xiàn)的基礎(chǔ)， 在此模塊能進(jìn)行信息的查詢、添加、保存、刪除。 在數(shù)據(jù)庫中建立不同的報(bào)表，將各個(gè)子模塊的信息錄入到數(shù)據(jù)庫中， 并有管理員隨時(shí)對數(shù)據(jù)庫中的信息進(jìn)行修改和保存， 如有新的商品進(jìn)入時(shí)需要添加信息， 商品價(jià)格變動(dòng)時(shí)要更改價(jià)格信息， 在商品售出時(shí)，要記錄售出的數(shù)量并將原有的商品信息進(jìn)行清理（

15、1）基本信息添加：輸入所需錄入的信息的全部內(nèi)容，點(diǎn)擊確定按鈕即可將記錄添加到數(shù)據(jù)庫（2）基本信息查詢：登錄后再組合框中選擇要查詢的字段，則文本框中輸入如要查詢的內(nèi)容， 點(diǎn)擊查詢，根基 ODBC 綁定的數(shù)據(jù)庫， 顯示數(shù)據(jù)庫中相應(yīng)表對應(yīng)的數(shù)據(jù)信息（3）基本信息保存：可以將添加和刪除的記錄保存到數(shù)據(jù)庫中。（4）基本信息刪除：定位要?jiǎng)h除的信息，點(diǎn)擊按鈕即可刪除數(shù)據(jù)庫庫中的相應(yīng)的記錄3.2.2 數(shù)據(jù)庫出入庫管理模塊的實(shí)現(xiàn)由于數(shù)據(jù)庫管理模塊分工詳細(xì)， 項(xiàng)目繁多，在此將其合并為三個(gè)子功能模塊設(shè)計(jì)本模塊包含入庫管理，出庫管理，銷售退貨管理三個(gè)字模塊（1） 入庫管理模塊入庫添加：主要對入庫信息進(jìn)行錄入操作， 即

16、第一大模塊的基礎(chǔ)。 點(diǎn)擊添加，輸入所有要錄入的信息，輸入完畢后，將記錄添加到數(shù)據(jù)庫入庫刪除：主要對入庫信息進(jìn)行刪除操作， 即第一大模塊的基礎(chǔ)。 點(diǎn)擊刪除，刪除已錄入的信息入庫保存：主要對入庫信息進(jìn)行保存操作， 即第一大模塊的基礎(chǔ)。 點(diǎn)擊保存，保存要錄入的信息，保存完畢后，將記錄保存到數(shù)據(jù)庫（2） 出庫管理模塊出庫添加：主要對出庫信息進(jìn)行錄入操作， 輸入出庫信息后將記錄添加到出庫數(shù)據(jù)庫中，及銷售輸出表和銷售出庫明細(xì)表的有關(guān)內(nèi)容的錄入和更新出庫刪除：主要對出庫信息進(jìn)行刪除操作， 即第一大模塊的基礎(chǔ)。 點(diǎn)擊刪除，刪除已錄入的信息出庫保存：主要對出庫信息進(jìn)行保存操作， 即第一大模塊的基礎(chǔ)。 點(diǎn)擊保存，

17、保存要錄入的信息，保存完畢后，將記錄保存到數(shù)據(jù)庫（3） 銷售退貨管理模塊銷售退貨：主要對已售出的商品信息進(jìn)行退貨處理，輸入出庫編號， 點(diǎn)擊退貨處理后該商品被退回到庫存里3.2.3 數(shù)據(jù)查詢模塊的設(shè)計(jì)與實(shí)現(xiàn)用戶在系統(tǒng)界面選擇系統(tǒng)功能完成不同的操作，實(shí)現(xiàn)系統(tǒng)的使用。 入庫時(shí)商品進(jìn)入倉庫時(shí)的信息，如商品編號、數(shù)量、價(jià)格、入庫時(shí)間、倉庫編號的信息；出庫類似，但包含出庫時(shí)間， 出庫等信息；報(bào)表是查詢各種商品信息和倉庫信息，提供商信息時(shí)顯示的表格庫存查詢用戶登錄系統(tǒng)后，根據(jù)需要的商品編碼檢索，可以查詢不同的倉庫的商品，也可以查詢商品在不同的倉庫中的庫存。3.2.4 系統(tǒng)用戶管理的實(shí)現(xiàn)主要對系統(tǒng)用戶名和密碼

18、的更改3.3 主程序的編制登錄界面close alluse 系統(tǒng)用戶do casecase alltrim(thisform.text1.value)=messagebox(請輸入用戶名 )thisform.text1.setfocuscase alltrim(thisform.text2.value)=messagebox(請輸入密碼 )thisform.text2.setfocusotherwisen=n+1do while not eof()iflower(alltr用戶名 )=lower(alltrim(thisform.text1.value)and lower(alltrim(密碼

19、 )=lower(alltrim(thisform.text2.value)exitendifskipenddoif not eof()登錄界面 .releasewait 歡迎使用貨物管理信息系統(tǒng) window timeout 1 do form 貨物管理信息系統(tǒng)elseif n=3登錄界面 .releasewait 對不起，你不是合法用戶! window timeout 1elsewait 用戶名或密碼第 +str(n,1)+次錯(cuò)，請重新輸入 !windowtimeout 1thisform.text1.value=thisform.text2.value=thisform.text1.se

20、tfocusendifendifendcase入庫thisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.bo1.enabled=.t.bo2.enabled=.t.bo3.enabled=.t.mand4.enabled=.t.thisform.text1.value=thisform.text2.value=thisform.text3.value=dtoc(date()flag=1thisform.text1.setfocusthisform.text1.enabled=.t.thisfo

21、rm.text2.enabled=.t.thisform.text3.enabled=.t.bo1.enabled=.t.bo2.enabled=.t.bo3.enabled=.t.mand4.enabled=.t.flag=2thisform.text1.setfocusset delete onif messagebox(您確認(rèn)是否要?jiǎng)h除嗎？ ,33)=1deletethisform.refreshendifupdate ss set數(shù)量 =數(shù)量 -www where 商品編號 =abcif flag=1 theninsert into 入 庫 values(thisform.text1.

22、value,bo1.value,bo2.val ue,bo3.value,val(thisform.text2.value),ctod(thisform.text 3.value)elsereplace入庫編號 with thisform.text1.valuereplace供應(yīng)商編號 with bo1.valuereplace倉庫編號 with bo2.valuereplace商品編號 with bo3.valuereplace數(shù)量 with val(thisform.text2.value)replace日期 with ctod(thisform.text3.value)endifthis

23、form.text1.enabled=.f.thisform.text2.enabled=.f.thisform.text3.enabled=.f.bo1.enabled=.f.bo2.enabled=.f.bo3.enabled=.f.mand4.enabled=.f.thisform.text1.value=thisform.text2.value=thisform.text3.value=bo1.value=bo2.value=bo3.value=set safety offselect供應(yīng)商編號 , 倉庫編號 , 商品編號 ,sum( 數(shù)量 ) as數(shù)量 from入庫 groupby

24、商品編號 into table ssuse ssdo while not eof()select sum(數(shù)量 ) from出庫 where ss.商品編號 =出庫 . 商品編號intoarray mmreplace數(shù)量 with數(shù)量 -mm(1)skipenddousethisform.refreshthisform.release*do form貨物管理信息系統(tǒng)close allUSE 入庫 .dbf EXCLUSIVEpackuse出庫thisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t

25、.bo1.enabled=.t.bo2.enabled=.t.bo3.enabled=.t.mand4.enabled=.t.thisform.text1.value=thisform.text2.value=thisform.text3.value=dtoc(date()flag=1thisform.text1.setfocusthisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.bo1.enabled=.t.bo2.enabled=.t.bo3.enabled=.t.mand4.enabl

26、ed=.t.flag=2thisform.text1.setfocusset delete onif messagebox(您確認(rèn)是否要?jiǎng)h除嗎？ ,33)=1deletethisform.refreshendifupdate ss set數(shù)量 =數(shù)量 +www where 商品編號 =abcif flag=1 thenselect數(shù)量fromsswherelower(alltrim(ss.商品編號 )=lower(alltrim(bo3.value) into cursor dd select count(*) from dd into array eeif ee(1)0select數(shù)量fro

27、msswherelower(alltrim(ss.商品 編號 )=lower(alltrim(bo3.value) into array aaif aa(1)0select數(shù)量fromsswherelower(alltrim(ss.商品 編號 )=lower(alltrim(bo3.value) into array aa if aa(1)val(thisform.text2.value)messagebox( 該商品現(xiàn)有 +alltrim(str(aa(1)+,請重新輸入數(shù)量 !)mand2.clickelsereplace出庫編號 with thisform.text1.valuerepl

28、ace供應(yīng)商編號 with bo1.valuereplace倉庫編號 with bo2.valuereplace商品編號 with bo3.valuereplace數(shù)量 with val(thisform.text2.value)replace日期 with ctod(thisform.text3.value)endifelsemessagebox(該商品現(xiàn)已沒有庫存，請及時(shí)進(jìn)貨！)endifendifthisform.text1.enabled=.f.thisform.text2.enabled=.f.thisform.text3.enabled=.f.bo1.enabled=.f.bo2.

29、enabled=.f.bo3.enabled=.f.mand4.enabled=.f.thisform.text1.value=thisform.text2.value=thisform.text3.value=bo1.value=bo2.value=bo3.value=thisform.refreshthisform.release*do form貨物管理信息系統(tǒng)close allUSE 出庫 .dbf EXCLUSIVEpackuse庫存管理close allif alltrim(thisform.text1.value)=wait 請輸入要查詢的商品編號 window timeout 1

30、 thisform.text1.setfocuselseuse sslocateforlower(alltrim(商品編號 )=lower(alltrim(thisform.text1.value) if eof()messagebox(您輸入的商品編號不存在，請重新輸入 ) thisform.text1.setfocusthisform.text1.value=elsethisform.grid1.recordsource=select*fromsswherelower(alltrim(商品 編 號 )=lower(alltrim(thisform.text1.value)intocurso

31、r aaendifendifthisform.grid1.recordsource=select * from ss into cursor bbthisform.release*do form貨物管理信息系統(tǒng)close allif alltrim(thisform.text1.value)=wait 請輸入退貨的出庫編號 window timeout 1elseclose alluse 出庫 .dbf EXCLUSIVElocate for alltrim(出庫編號 )=alltrim(thisform.text1.value)if eof()messagebox(您輸入退貨的出庫編號不存在

32、，請重新輸入)thisform.text1.setfocusthisform.text1.value=elsedeletefrom出庫wherealltrim(出庫編號 )=alltrim(thisform.text1.value)messagebox(您的退貨已成功處理！ )endifendifthisform.release*do form貨物管理信息系統(tǒng)close allUSE 出庫 .dbf EXCLUSIVEpackusethisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.this

33、form.text4.enabled=.t.thisform.text5.enabled=.t.mand4.enabled=.t.thisform.text1.value=thisform.text2.value=thisform.text3.value=thisform.text4.value=thisform.text5.value=flag=1thisform.text1.setfocusthisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.thisform.text4.enabled=

34、.t.thisform.text5.enabled=.t.mand4.enabled=.t.flag=2thisform.text1.setfocusset delete onif messagebox(您確認(rèn)是否要?jiǎng)h除嗎？ ,33)=1deletethisform.refreshendifif flag=1 theninsert into 倉 庫 values(thisform.text1.value,thisform.text2.value,thisform.text3.value ,thisform.text4.value,thisform.text5.value)elsereplace倉庫編號 with thisform