進(jìn)銷(xiāo)存信息管理系統(tǒng)設(shè)計(jì)報(bào)告

1、進(jìn)銷(xiāo)存管理系統(tǒng)項(xiàng)目說(shuō)明進(jìn)銷(xiāo)存管理系統(tǒng)的開(kāi)發(fā)。利用計(jì)算機(jī)系統(tǒng)運(yùn)行速度快，數(shù)據(jù)存儲(chǔ)大，傳遞信息快，便于修改和查詢(xún)的特點(diǎn),將進(jìn)銷(xiāo)存管理系統(tǒng)計(jì)算機(jī)化，可及時(shí)給決策機(jī)構(gòu)準(zhǔn)確，全面提供市場(chǎng)信息和商品資料，這正是進(jìn)銷(xiāo)存管理系統(tǒng)的目標(biāo).進(jìn)銷(xiāo)存管理系統(tǒng)是為了適應(yīng)現(xiàn)代銷(xiāo)售可庫(kù)存管理要求，推動(dòng)進(jìn)銷(xiāo)存管理走向科學(xué)化，規(guī)范化，減輕單位銷(xiāo)售和庫(kù)存管理的勞動(dòng)強(qiáng)度，提供人員的工作效率，質(zhì)量和管理水平的管理軟件系統(tǒng)，使得通過(guò)信息化管理，銷(xiāo)售，庫(kù)存，采購(gòu)變得快捷方便。二系統(tǒng)調(diào)查（一）系統(tǒng)目標(biāo)企業(yè)進(jìn)銷(xiāo)存管理系統(tǒng)的目標(biāo)是：按照現(xiàn)代物流要求構(gòu)建一個(gè)全新的現(xiàn)代化的物資管理系統(tǒng),通過(guò)計(jì)算機(jī)、網(wǎng)絡(luò)等現(xiàn)代科學(xué)技術(shù)，實(shí)現(xiàn)進(jìn)貨、在庫(kù)管理、配送管理

2、等物資活動(dòng)的自動(dòng)化、數(shù)字化和智能化。 要實(shí)現(xiàn)該目標(biāo),就需要在按照現(xiàn)代物流的要求對(duì)企業(yè)的經(jīng)營(yíng)戰(zhàn)略，組織戰(zhàn)略，生產(chǎn)經(jīng)營(yíng)等管理模組織結(jié)構(gòu)等進(jìn)行精心規(guī)劃與設(shè)計(jì)的基礎(chǔ)上,建設(shè)符合現(xiàn)代企業(yè)要求的的物流基礎(chǔ)設(shè)施并配置先進(jìn)的物流設(shè)備, 如自動(dòng)化,數(shù)字化，智能化的現(xiàn)代化倉(cāng)庫(kù)，自動(dòng)備貨生產(chǎn)線等,并且要建立一個(gè)支持企業(yè)生產(chǎn)經(jīng)營(yíng)管理模式和組織結(jié)構(gòu)并適應(yīng)未來(lái)發(fā)展的現(xiàn)代進(jìn)銷(xiāo)存管理系統(tǒng)。現(xiàn)代進(jìn)銷(xiāo)存管理概念最主要體現(xiàn)在以實(shí)現(xiàn)企業(yè)資源高效整合為第一目標(biāo)，幫助企業(yè)降低物資成本，通過(guò)提升物資價(jià)值從而實(shí)現(xiàn)企業(yè)價(jià)值最大化。本系統(tǒng)開(kāi)發(fā)混合采用結(jié)構(gòu)化系統(tǒng)開(kāi)發(fā)方法與面向?qū)ο蟮拈_(kāi)發(fā)方法，結(jié)合兩種開(kāi)發(fā)方法各自的優(yōu)勢(shì)進(jìn)行系統(tǒng)開(kāi)發(fā)。 通過(guò)對(duì)實(shí)際需求

3、分析,本系統(tǒng)主要面向特定管理人員，對(duì)各種物資進(jìn)行電子化管理，所以系統(tǒng)包括以下功能：信息管理功能、日常操作功能、信息查詢(xún)功能、信息統(tǒng)計(jì)功能、系統(tǒng)管理功能。（二)系統(tǒng)開(kāi)發(fā)計(jì)劃1主表單 2“信息管理”模塊。商品信息管理功能。3“日常操作”模塊。商品進(jìn)貨操作功能，商品出貨操作功能.4“信息查詢(xún)“模塊。進(jìn)貨記錄查詢(xún)功能，出貨記錄查詢(xún)功能,庫(kù)存信息查詢(xún)功能。5“系統(tǒng)管理”模塊。修改密碼功能,關(guān)于系統(tǒng)功能，退出系統(tǒng)功能。三系統(tǒng)分析（一）系統(tǒng)分析定義所謂系統(tǒng)分析，就是指在整個(gè)系統(tǒng)開(kāi)發(fā) HYPERLINK ”/Engineering/” t _blank” 工程中，解決“做什么”的問(wèn)題，把要解決哪些問(wèn)題，滿(mǎn)足用

4、戶(hù)哪些具體的信息需求調(diào)查分析清楚，從邏輯上或說(shuō)從信息處理的功能需求本 HYPERLINK ”http：/” 論文上提出系統(tǒng)的方案,即邏輯模型，為下一階段進(jìn)行 HYPERLINK /physics/” t _blank 物理方案設(shè)計(jì)，解決怎么辦提供依據(jù)。它是信息開(kāi)發(fā)系統(tǒng)中的一個(gè)重要階段，是建立系統(tǒng)模型的第一步。其核心是目標(biāo)分析與需求分析，最后提出系統(tǒng)的邏輯方案.進(jìn)銷(xiāo)存管理信息系統(tǒng)的詳細(xì)調(diào)研 在實(shí)際調(diào)研中，我們主要通過(guò)座談、詢(xún)問(wèn)及發(fā)放征詢(xún)意見(jiàn)表等方法來(lái)了解他們對(duì)信息系統(tǒng)的需求情況。 主要了解的用戶(hù)有：企業(yè)各管理負(fù)責(zé)人,使用企業(yè)進(jìn)銷(xiāo)存管理系統(tǒng)的各職能部門(mén)的負(fù)責(zé)人，各 HYPERLINK /infor

5、mationmanagement/” t ”_blank” 信息管理的高層負(fù)責(zé)人，供應(yīng)站負(fù)責(zé)運(yùn)行維護(hù)管理信息系統(tǒng)的管理人員、技術(shù)人員和操作人員。 通過(guò)對(duì)以上人員的需求調(diào)查得知，以前的物資管理辦法，工作繁瑣，工作量大，效率低。因而，建立一套企業(yè)進(jìn)銷(xiāo)存管理系統(tǒng)勢(shì)在必行.各單位的需求雖然不盡相同，但大體上可分為如下幾個(gè)方面: 1.用戶(hù)的信息要求。隨時(shí)查詢(xún)庫(kù)存物資狀況，進(jìn)行庫(kù)存物資匯總,對(duì)記錄能隨時(shí)刪除、插入及恢復(fù)。 2.用戶(hù)的處理要求.能隨時(shí)增加、刪除，修改每一個(gè)庫(kù)存物資記錄。 3。對(duì)數(shù)據(jù)的安全性、完整性的要求。要保證每個(gè)記錄必須完整，不能被他人非法竊去。 本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流程圖和

6、數(shù)據(jù)字典為主要描述工具，以信息系統(tǒng) 中應(yīng)有的數(shù)據(jù)流程和數(shù)據(jù)結(jié)構(gòu)來(lái)描述系統(tǒng)。 （二）企業(yè)進(jìn)銷(xiāo)存管理的業(yè)務(wù)流程分析 進(jìn)銷(xiāo)存管理系統(tǒng)是一項(xiàng)復(fù)雜而特殊的物流，資金流和信息處理系統(tǒng)，系統(tǒng)的業(yè)務(wù)處理特點(diǎn)是實(shí)現(xiàn)以物資計(jì)劃為基礎(chǔ),以物資收發(fā)存為中心，以財(cái)務(wù)核算為核心而進(jìn)行的物資計(jì)劃，采購(gòu)，存儲(chǔ)，銷(xiāo)售，查詢(xún)統(tǒng)計(jì)一體化的管理過(guò)程，包括計(jì)劃管理、合同管理、物資收發(fā)存管理、倉(cāng)儲(chǔ)管理、財(cái)務(wù)稽核、查詢(xún)統(tǒng)計(jì)等功能，同時(shí)兼顧企業(yè)的經(jīng)營(yíng)和管理職能，充分滿(mǎn)足企業(yè)及基層單位物資管理的基本要求。物資的管理是一個(gè)相對(duì)復(fù)雜的系統(tǒng)工程，同一般進(jìn)、銷(xiāo)、存系統(tǒng)相比，本質(zhì)上有很大的不同，在物資管理中，雖然中心的數(shù)據(jù)是物流，但它體現(xiàn)的更是一種管理

7、的過(guò)程,從物資需求的產(chǎn)生、平衡立庫(kù)以及對(duì)整個(gè)物資數(shù)量、資金數(shù)據(jù)的分析，都體現(xiàn)了物資管理在這方面的特殊性及復(fù)雜性，其業(yè)務(wù)流程圖如圖1所示：（三）企業(yè)進(jìn)銷(xiāo)存管理的數(shù)據(jù)流程圖分析 用戶(hù)的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢(xún)等方面。仔細(xì)分析有關(guān)部門(mén)的基礎(chǔ)上，得出本系統(tǒng)的數(shù)據(jù)流程圖如圖所示:（四）企業(yè)進(jìn)銷(xiāo)存管理系統(tǒng)的系統(tǒng)流程圖分析系統(tǒng)流程圖如圖所示： 企業(yè)進(jìn)銷(xiāo)存管理系統(tǒng)系統(tǒng)流程圖（五)系統(tǒng)總體結(jié)構(gòu)分析 該企業(yè)的總體結(jié)構(gòu)如圖所示 四. 系統(tǒng)環(huán)境以及工具A. 軟件環(huán)境: 用戶(hù)端：Windows2000，Windows2003,Windows XP 服務(wù)器端：WindowsNT/Windows200

8、0及以上操作系統(tǒng) 編程語(yǔ)言：VFP B.硬件環(huán)境： 有高性能的電子計(jì)算機(jī)、大容量的存貯裝置，個(gè)人電腦（終端）以及聯(lián)結(jié)起來(lái)的網(wǎng)線等，組成信息資源共享的計(jì)算機(jī)網(wǎng)絡(luò)。五系統(tǒng)設(shè)計(jì)及程序設(shè)計(jì)（一)項(xiàng)目管理器的設(shè)置在Visual FoxPro的菜單欄中，選擇“文件”菜單中的“新建選項(xiàng)，選定文件類(lèi)型為“項(xiàng)目”，并選中“新建文件”按鈕,在“項(xiàng)目文件”欄中填入所建項(xiàng)目名如“進(jìn)銷(xiāo)存。（二） 數(shù)據(jù)庫(kù)設(shè)計(jì) 1.數(shù)據(jù)庫(kù)需求分析由于本系統(tǒng)的數(shù)據(jù)量比較小,數(shù)據(jù)的復(fù)雜程度也比較低，所以使用visual foxpro 系統(tǒng)完全可以處理，同時(shí)visual foxpro 由于便于學(xué)習(xí) ，也方便用戶(hù)的進(jìn)行二次開(kāi)發(fā)，所以該系統(tǒng)比較符合

9、使用 visual foxpro 這種簡(jiǎn)單的小型數(shù)據(jù)庫(kù)技術(shù)來(lái)實(shí)現(xiàn)2.ER 圖分析本系統(tǒng)設(shè)計(jì)的數(shù)據(jù)比較簡(jiǎn)單，通過(guò)對(duì)現(xiàn)實(shí)世界進(jìn)行抽象,該系統(tǒng)主要涉及物資和人員兩個(gè)實(shí)體,兩個(gè)實(shí)體直接的聯(lián)系是“操作“。系統(tǒng)E-R圖如圖所示實(shí)體物資:具有的屬性有物資號(hào)、物資名、購(gòu)置日期、購(gòu)置價(jià)格等,它是該系統(tǒng)數(shù)據(jù) 的重要組成部分實(shí)體人員：具有的屬性有賬戶(hù)、密碼，它實(shí)體是物質(zhì)的操作者聯(lián)系“操作“：包括對(duì)商品進(jìn)貨,商品出貨，商品退貨等。系統(tǒng)E-R3.數(shù)據(jù)表設(shè)計(jì) 由于本系統(tǒng)設(shè)計(jì)的數(shù)據(jù)種類(lèi)單一，所以只有個(gè)數(shù)據(jù)表，其詳細(xì)信息如下（1）用戶(hù)信息表: “用戶(hù)信息”表中包含“用戶(hù)名”和“密碼”兩個(gè)字段:字段名類(lèi)型字段寬度小數(shù)位數(shù)說(shuō)明用

10、戶(hù)名字符型20主索引字段密碼字符型20(2）商品信息表： “商品信息表中包含商品編號(hào)、商品名稱(chēng)、商品單位、商品單價(jià)、庫(kù)存下限、產(chǎn)地和說(shuō)明等信息：字段名數(shù)據(jù)類(lèi)型字段寬度小數(shù)位數(shù)商品編號(hào)字符型6商品名稱(chēng)字符型40商品類(lèi)別字符型4 商品單位字符型6購(gòu)置單價(jià)浮點(diǎn)型81庫(kù)存下限浮點(diǎn)型80產(chǎn)地字符型40（3）分類(lèi)信息表: “分類(lèi)信息“表包含類(lèi)別編號(hào)和類(lèi)別名稱(chēng)等2個(gè)字段：字段名數(shù)據(jù)類(lèi)型字段寬度類(lèi)別編號(hào)字符型4類(lèi)別名稱(chēng)字符型20（4)倉(cāng)庫(kù)信息表: “倉(cāng)庫(kù)信息”表包含倉(cāng)庫(kù)編號(hào)、倉(cāng)庫(kù)名稱(chēng)、倉(cāng)庫(kù)位置、倉(cāng)庫(kù)管理員和倉(cāng)庫(kù)電話等字段：字段名類(lèi)型字段寬度小數(shù)位數(shù)說(shuō)明倉(cāng)庫(kù)編號(hào)字符型4主索引字段倉(cāng)庫(kù)名稱(chēng)字符型30倉(cāng)庫(kù)位置字符型

11、20倉(cāng)庫(kù)管理員字符型20倉(cāng)庫(kù)電話字符型13（5)供貨商信息表: “供貨商信息”表包含供貨商編號(hào)、供貨商名稱(chēng)、聯(lián)系人、電話、地址、郵編、類(lèi)別和說(shuō)明等字段：字段名類(lèi)型字段寬度小數(shù)位數(shù)說(shuō)明供貨商編號(hào)字符型8主索引字段供貨商名稱(chēng)字符型30聯(lián)系人字符型20地址字符型40郵編字符型6輸入掩碼：999999電話字符型13類(lèi)別1字符型4普通索引字段類(lèi)別2字符型4普通索引字段類(lèi)別3字符型4普通索引字段說(shuō)明字符型100(6）客戶(hù)信息表: “客戶(hù)信息“表包含客戶(hù)編號(hào)、客戶(hù)名稱(chēng)、聯(lián)系人、地址、郵編、電話和說(shuō)明等字段：字段名類(lèi)型字段寬度小數(shù)位數(shù)說(shuō)明客戶(hù)編號(hào)字符型8主索引字段客戶(hù)名稱(chēng)字符型40聯(lián)系人字符型20地址字符型4

12、0郵編字符型20輸入掩碼：999999電話字符型13說(shuō)明字符型100（7)進(jìn)貨信息表: “進(jìn)貨信息“表包含進(jìn)貨編號(hào)、商品編號(hào)、進(jìn)貨單價(jià)、進(jìn)貨數(shù)量、進(jìn)貨單位、進(jìn)貨日期、存放位置和經(jīng)手人等信息：字段名類(lèi)型字段寬度小數(shù)位數(shù)說(shuō)明進(jìn)貨編號(hào)字符型12主索引字段商品編號(hào)字符型6普通索引字段進(jìn)貨單價(jià)浮點(diǎn)型81進(jìn)貨數(shù)量浮點(diǎn)型81進(jìn)貨單位字符型8普通索引字段進(jìn)貨日期日期型8存放位置字符型4普通索引字段經(jīng)手人字符型30（8）出貨信息表： “出貨信息”表包含出貨編號(hào)、商品編號(hào)、出貨單價(jià)、出貨數(shù)量、出貨單位、出貨日期、出貨倉(cāng)庫(kù)、客戶(hù)編號(hào)和經(jīng)手人等信息:字段名類(lèi)型字段寬度小數(shù)位數(shù)說(shuō)明出貨編號(hào)字符型12主索引字段商品編號(hào)字

13、符型6普通索引字段出貨單價(jià)浮點(diǎn)型81出貨數(shù)量浮點(diǎn)型81出貨日期日期型8普通索引字段出貨倉(cāng)庫(kù)字符型8客戶(hù)編號(hào)字符型4普通索引字段經(jīng)手人字符型30（9）退貨信息表: “退貨信息”表包含退貨編號(hào)、商品編號(hào)、退貨數(shù)量、經(jīng)手人、退貨日期和退貨原因等字段：字段名類(lèi)型自身寬度小數(shù)位數(shù)說(shuō)明退貨編號(hào)字符型12主索引字段商品編號(hào)字符型6普通索引字段退貨數(shù)量浮點(diǎn)型81經(jīng)手人字符型20退貨日期日期型8普通索引字段退貨原因字符型8100（10）庫(kù)存信息表: “庫(kù)存信息表包括商品編號(hào)、倉(cāng)庫(kù)編號(hào)、和庫(kù)存數(shù)量等字段:字段名類(lèi)型字段寬度小數(shù)位數(shù)說(shuō)明商品編號(hào)字符型6普通索引字段倉(cāng)庫(kù)編號(hào)字符型4普通索引字段庫(kù)存數(shù)量浮點(diǎn)型81(三）

14、數(shù)據(jù)庫(kù)表單的設(shè)計(jì)1。主表單 主表單包括系統(tǒng)大部分功能。主表單包括操作中使用的主菜單，如下圖所示 2.“信息管理”模塊（1）商品信息管理功能： 該表單主要用來(lái)管理商品的信息，包括瀏覽、新增、修改和刪除商品的信息.(2）商品分類(lèi)管理功能 該表單用來(lái)管理商品的分類(lèi),包括瀏覽、新增、修改和刪除商品的信息（3)倉(cāng)庫(kù)信息管理功能 該表單用來(lái)管理倉(cāng)庫(kù)的信息，包括瀏覽、新增、修改和刪除倉(cāng)庫(kù)的信息（4)。供貨商信息管理功能該表單用來(lái)管理供貨商的信息,包括瀏覽、新增、修改和刪除供貨商的信息（5）?？蛻?hù)信息管理功能 該表單用來(lái)管理客戶(hù)的信息，包括瀏覽、新增、修改和刪除客戶(hù)的信息。3.“日常操作模塊（1).商品進(jìn)貨操

15、作功能“商品進(jìn)貨操作”表單用來(lái)進(jìn)行商品的進(jìn)貨操作，使用該功能將產(chǎn)生1條進(jìn)貨記錄，并且產(chǎn)生相應(yīng)商品的庫(kù)存記錄由圖可見(jiàn)，商品進(jìn)貨操作表單，由標(biāo)簽,文本框，復(fù)選框,命令按鈕組成。確定”代碼為:InNo=ALLTRIM(THISFORM.txt進(jìn)貨編號(hào)。Value）PNo=THISFORM。cmb商品編號(hào).ValueInCount=THISFORM。txt進(jìn)貨數(shù)量.ValueInPrice=THISFORM。txt進(jìn)貨單價(jià)。ValueInTime=THISFORM.txt進(jìn)貨時(shí)間.ValueInPerson=ALLTRIM（THISFORM.txt經(jīng)手人。Value)InDanWei=ALLTRIM(

16、THISFORM。txt供貨單位.Value)InNote=THISFORM。edt說(shuō)明。ValueIF PNo=MESSAGEBOX（商品編號(hào)為空或者錯(cuò)誤,48,進(jìn)銷(xiāo)存管理系統(tǒng))THISFORM.cmb商品編號(hào)。SetFocusReturnENDIFDIMENSION RecNum(1)RecNum=2SELECT COUNT（*) FROM 商品信息 WHERE 商品編號(hào)=PNo INTO ARRAY RecNumIF RecNum1MESSAGEBOX（商品編號(hào)錯(cuò)誤”,48,”進(jìn)銷(xiāo)存管理系統(tǒng))THISFORM.cmb商品編號(hào)。SetFocusReturnENDIFIF InCount=0

17、 MESSAGEBOX(進(jìn)貨數(shù)量錯(cuò)誤”，48,進(jìn)銷(xiāo)存管理系統(tǒng))THISFORM。txt進(jìn)貨數(shù)量.SetFocusReturnENDIFIF InPrice=0MESSAGEBOX(進(jìn)貨單價(jià)錯(cuò)誤”,48，進(jìn)銷(xiāo)存管理系統(tǒng)）THISFORM。txt進(jìn)貨單價(jià).SetFocusReturnENDIFIF InPerson=”MESSAGEBOX(經(jīng)手人不能為空”，48，進(jìn)銷(xiāo)存管理系統(tǒng))THISFORM。txt經(jīng)手人。SetFocusReturnENDIFBEGIN TRANSINSERT INTO 進(jìn)貨信息 VALUES（InNo，PNo，InCount，InPrice，InTime，InDanwei,

18、InPerson,InNote)DIMENSION RecordNum(1）RecordNum(1)=2SELECT COUNT(*) FROM 庫(kù)存信息 WHERE 商品編號(hào)=PNo INTO ARRAY RecordNumIF RecordNum（1）=0INSERT INTO 庫(kù)存信息 VALUE（PNo，InCount,InNote）ELSEUPDATE 庫(kù)存信息 SET 庫(kù)存數(shù)量=庫(kù)存數(shù)量+InCount WHERE 商品編號(hào)=PNoENDIFEND TRANSIF THISFORM.Check1。Value=1REPORT FORM InView FOR 進(jìn)貨編號(hào)=THISFORM

19、。txt進(jìn)貨編號(hào).Value PREVIEWENDIFMESSAGEBOX（進(jìn)貨成功,64，進(jìn)銷(xiāo)存管理系統(tǒng)”）THISFORM。InitTHISFORM.Refresh（2)。商品出貨操作功能“商品出貨操作”表單用來(lái)進(jìn)行商品的出貨操作,使用該功能將產(chǎn)生1條出貨記錄，并且導(dǎo)致相應(yīng)商品的庫(kù)存發(fā)生變化由圖可見(jiàn)，商品出貨操作表單，由標(biāo)簽,文本框,復(fù)選框,命令按鈕組成?！贝_定”代碼為：OutNo=ALLTRIM（THISFORM.txt出貨編號(hào)。Value）PNo=THISFORM。cmb商品編號(hào)。ValueOutCount=THISFORM。txt出貨數(shù)量.ValueOutPrice=THISFORM

20、.txt出貨單價(jià).ValueOutTime=THISFORM。txt出貨時(shí)間.ValueOutPerson=ALLTRIM(THISFORM。txt經(jīng)手人。Value)OutDanWei=ALLTRIM（THISFORM.txt接收人.Value）OutNote=THISFORM。edt說(shuō)明。ValueIF PNo=”MESSAGEBOX（”商品編號(hào)為空或者錯(cuò)誤”，48，”進(jìn)銷(xiāo)存管理系統(tǒng)”）THISFORM.cmb商品編號(hào).SetFocusReturnENDIFDIMENSION RecNum（1）RecNum=2SELECT COUNT（） FROM 商品信息 WHERE 商品編號(hào)=PNo

21、INTO ARRAY RecNumIF RecNum1MESSAGEBOX(”商品編號(hào)錯(cuò)誤”，48,進(jìn)銷(xiāo)存管理系統(tǒng)）THISFORM.cmb商品編號(hào).SetFocusReturnENDIFIF THISFORM.txt庫(kù)存數(shù)量。Value=0MESSAGEBOX(該商品沒(méi)有庫(kù)存，48,進(jìn)銷(xiāo)存管理系統(tǒng))THISFORM。cmb商品編號(hào)。Value=THISFORM.cmb商品編號(hào).SetFocusReturnENDIFIF OutCount=0 MESSAGEBOX(出貨數(shù)量錯(cuò)誤”，48,進(jìn)銷(xiāo)存管理系統(tǒng)”）THISFORM.txt出貨數(shù)量。SetFocusReturnENDIFIF OutPri

22、ce=0MESSAGEBOX(出貨單價(jià)錯(cuò)誤”，48，進(jìn)銷(xiāo)存管理系統(tǒng)）THISFORM。txt出貨單價(jià).SetFocusReturnENDIFIF OutPerson=”MESSAGEBOX(”經(jīng)手人不能為空,48，”進(jìn)銷(xiāo)存管理系統(tǒng))THISFORM.txt經(jīng)手人。SetFocusReturnENDIFBEGIN TRANSINSERT INTO 出貨信息 VALUES（OutNo，PNo,OutCount,OutPrice，OutTime,OutDanwei,OutPerson,OutNote)UPDATE 庫(kù)存信息 SET 庫(kù)存數(shù)量=庫(kù)存數(shù)量OutCount WHERE 商品編號(hào)=PNoEN

23、D TRANSIF THISFORM.Check1。Value=1REPORT FORM OutView FOR 出貨編號(hào)=THISFORM。txt出貨編號(hào)。Value PREVIEWENDIFMESSAGEBOX(出貨成功”,64,進(jìn)銷(xiāo)存管理系統(tǒng)）THISFORM。InitTHISFORM.Refresh（3）。商品退貨操作功能 “商品退貨操作表單用來(lái)進(jìn)行商品的退貨操作，使用該功能將產(chǎn)生1條退貨記錄(4)。倉(cāng)庫(kù)轉(zhuǎn)存操作功能 “倉(cāng)庫(kù)轉(zhuǎn)存操作”表單可以將一個(gè)倉(cāng)庫(kù)中的一項(xiàng)或者所有的商品轉(zhuǎn)存到另一個(gè)倉(cāng)庫(kù)中，選擇原倉(cāng)庫(kù)和目標(biāo)倉(cāng)庫(kù),并選擇要轉(zhuǎn)存的商品,并單擊“確定”按鈕即可完成轉(zhuǎn)存操作.由圖可見(jiàn)，商品轉(zhuǎn)

24、存操作表單，由標(biāo)簽,文本框,復(fù)選框，命令按鈕，組合框組成?！贝_定”代碼為：set exact onif empty(bo1。value)messagebox（源倉(cāng)庫(kù)錯(cuò)誤”，48,進(jìn)銷(xiāo)存管理系統(tǒng))bo1.setfocusreturnendifif empty（bo2。value)messagebox(目標(biāo)倉(cāng)庫(kù)錯(cuò)誤,48，進(jìn)銷(xiāo)存管理系統(tǒng))b2。setfocusreturnendifif thisform。cmbo1.value=bo2。valuemessagebox(源倉(cāng)庫(kù)與目標(biāo)倉(cāng)庫(kù)相同，48，”進(jìn)銷(xiāo)存管理系統(tǒng)”)b2.setfocusreturnendifif empty（bo3。value).

25、and.thisform。check1.value=0messagebox(轉(zhuǎn)存對(duì)象錯(cuò)誤,48,進(jìn)銷(xiāo)存管理系統(tǒng)）bo3.setfocusreturnendifif thisform.check1。value=1selectfrom 庫(kù)存信息表 where 倉(cāng)庫(kù)編號(hào)=bo1.value into cursor ttempdelete from 庫(kù)存信息表 where 倉(cāng)庫(kù)編號(hào)=bo1.valueselect ttempgo topdo while.not。eof（)dimension recnum(1）recnum=0tpno=ttemp。商品編號(hào)tdno=bo2.valueselect cou

26、nt（*) from 庫(kù)存信息表 where alltrim(商品編號(hào)）=tpno and 倉(cāng)庫(kù)編號(hào)=tdno into array recnumif recnum1insert into 庫(kù)存信息表 values （ttemp.商品編號(hào) ，bo2。value，ttemp.庫(kù)存數(shù)量）skipendifenddoselect ttempuseselect 庫(kù)存信息表packmessagebox(轉(zhuǎn)存完成”,48,”進(jìn)銷(xiāo)存管理系統(tǒng)”） thisform。release else dimension recnum（1) recnum=0select count（*) from 庫(kù)存信息表 where

27、 商品編號(hào)=bo3.value and 倉(cāng)庫(kù)編號(hào)=bo2。value into array recnumif recnum1tmpdp=bo2。valueupdate 庫(kù)存信息表 set 倉(cāng)庫(kù)編號(hào)=tmpdp else select 庫(kù)存信息表 locate for 商品編號(hào)=bo3.value and 倉(cāng)庫(kù)編號(hào)=bo1.value if found() ndptno=庫(kù)存信息表.庫(kù)存數(shù)量 endif update 庫(kù)存信息表 set 庫(kù)存數(shù)量=庫(kù)存數(shù)量+ndptno where 商品編號(hào)=bo2。value delete from 庫(kù)存信息表 where 商品編號(hào)=bo3.value and

28、 倉(cāng)庫(kù)編號(hào)=bo1。value pack endif messagebox(轉(zhuǎn)成完成，48,進(jìn)銷(xiāo)存管理系統(tǒng)) thisform.release endif set exact off 4“信息查詢(xún)“模塊(1）.進(jìn)貨記錄查詢(xún)功能在“進(jìn)貨記錄查詢(xún)表單中可以按照“商品編號(hào)”、“商品名稱(chēng)”、“供貨單位”、“經(jīng)手人和“進(jìn)貨日期等字段組合查詢(xún)商品的進(jìn)貨記錄，并且可以查詢(xún)某個(gè)月份的進(jìn)貨記錄。（2）.出貨記錄查詢(xún)功能“出貨記錄查詢(xún)”表單可以按照多種查詢(xún)方式來(lái)查詢(xún)商品出貨操作產(chǎn)生的出貨記錄（3）。退貨記錄查詢(xún)功能 “退貨記錄查詢(xún)”表單可以按照多種方式查詢(xún)商品退貨操作產(chǎn)生的退貨記錄（4）.商品庫(kù)存查詢(xún)功能 “商品

29、庫(kù)存查詢(xún)”表單可以按照多種方式查詢(xún)商品的庫(kù)存信息5“信息統(tǒng)計(jì)”模塊（1）.熱銷(xiāo)商品統(tǒng)計(jì)功能“熱銷(xiāo)商品統(tǒng)計(jì)”表單中顯示了銷(xiāo)售量居于前20位的商品的編號(hào)、商品單位、商品單價(jià)和銷(xiāo)售量等信息由圖可見(jiàn),熱銷(xiāo)商品統(tǒng)計(jì)表單，由標(biāo)簽，表格，命令按鈕組成.“表格的init事件代碼為:thisform。grid2.recordsource=select from hotview（2）。短缺商品統(tǒng)計(jì)功能“短缺商品統(tǒng)計(jì)“表單顯示了有庫(kù)存的商品中庫(kù)存數(shù)量小于商品的庫(kù)存下限的商品的信息。由圖可見(jiàn),短缺商品統(tǒng)計(jì)表單，由標(biāo)簽，表格，命令按鈕組成?！氨砀瘛钡膇nit事件代碼為：thisform.grid1。recordsour

30、ce=select * from shortview where ；庫(kù)存總量庫(kù)存下限thisform.refresh6“系統(tǒng)管理”模塊系統(tǒng)只有使用合法的用戶(hù)名與密碼登錄系統(tǒng)才能使用系統(tǒng)，同時(shí)使用錯(cuò)誤的用戶(hù)名和密碼試圖登錄3次后，系統(tǒng)將自動(dòng)退出，避免有人使用程序來(lái)惡意地破解用戶(hù)名和密碼。(1)。登錄功能由圖可見(jiàn)，系統(tǒng)登錄表單，由標(biāo)簽，文本框，命令按鈕組成.“確定”的代碼為:SET EXACT ONIF ALLTRIM(THISFORM。TextUser.VALUE)=”MESSAGEBOX(請(qǐng)輸入用戶(hù)名”，48,進(jìn)銷(xiāo)存管理系統(tǒng)）THISFORM。TextUser.SetFocusReturnEN

31、DIFUSER_N=ALLTRIM（THISFORM。TextUser.VALUE）USER_P=ALLTRIM(THISFORM.TextPass.VALUE）LOCAL Is_UserIs_User=.F。SELECT 用戶(hù)信息GO TOPDO WHILE .NOT。 EOF（)Is_User=(USER_N=用戶(hù)信息。用戶(hù)名)。AND。(USER_P=用戶(hù)信息。密碼）IF IS_USEREXITELSESKIPENDIFENDDOIF IS_USERcCurUser=ALLTRIM(THISFORM.TextUser。Value）DO FORM MainFormTHISFORM。RELE

32、ASEELSEMESSAGEBOX(用戶(hù)名或用戶(hù)密碼不正確！，0+16，”進(jìn)銷(xiāo)存管理系統(tǒng)”）THISFORM.TextUser.Value=”THISFORM.TextPass。Value=”THISFORM。TextUser。SetFocusENDIFSET EXACT OFF（2）.修改密碼功能由圖可見(jiàn),系統(tǒng)登錄表單，由標(biāo)簽,文本框，命令按鈕組成?！按_定”的代碼為：SET EXACT ONSELECT 用戶(hù)信息LOCATE FOR ALLTRIM（用戶(hù)名)=ALLTRIM(THISFORM.txt用戶(hù)名。Value); 。AND。 ALLTRIM(密碼）=ALLTRIM（THISFORM.txt原密碼。Value）IF 。NOT。 FOUND()MESSAGEBOX（”原密碼錯(cuò)誤，請(qǐng)重新輸入,48,進(jìn)銷(xiāo)存管理系統(tǒng))THISFORM。txt原密碼。SetFocusRETURNENDIFIF