用VF編寫貨物管理系統(tǒng)new

1、目 錄摘要I英文摘要II1 概述12 系統(tǒng)設(shè)計(jì)3 2.1系統(tǒng)設(shè)計(jì)原理32.2有關(guān)數(shù)據(jù)表結(jié)構(gòu)32.2.1貨物信息表的設(shè)計(jì)32.2.2 庫存貨物表信息表的設(shè)計(jì)42.2.3進(jìn)貨表的設(shè)計(jì)42.2.4出貨表的設(shè)計(jì)52.2.5報(bào)損申請表的設(shè)計(jì)52.3系統(tǒng)思想63 系統(tǒng)實(shí)現(xiàn)83.1開發(fā)平臺及系統(tǒng)配置83.2主程序的編制83.3開始界面（表單）的制作93.4密碼驗(yàn)證表單103.5系統(tǒng)主菜單123.5.1 貨物管理功能的實(shí)現(xiàn)133.5.2 進(jìn)貨管理功能的實(shí)現(xiàn)163.5.3 出貨管理功能的實(shí)現(xiàn)183.5.4 報(bào)損管理功能的實(shí)現(xiàn)203.5.5 庫存管理功能的實(shí)現(xiàn)203.5.6 系統(tǒng)信息功能的實(shí)現(xiàn)213.5.7 退出

2、菜單224 結(jié) 論23致謝24參考文獻(xiàn)25貨物管理系統(tǒng) 摘要：現(xiàn)代企業(yè)已經(jīng)將企業(yè)信息化作為企業(yè)發(fā)展必須的輔助手段，企業(yè)信息化正在各個企業(yè)蓬勃發(fā)展。然而，企業(yè)信息化到底應(yīng)該如何去做卻一直是困擾企業(yè)領(lǐng)導(dǎo)人的決策?，F(xiàn)代企業(yè)都面臨正激烈的市場競爭，如何能夠使得企業(yè)能夠在變化莫測的商海中擁有一席之地是每一個企業(yè)家最為關(guān)注獲的，“時間就是金錢，時間就是生命”是對現(xiàn)代企業(yè)最好的描述。如何去尋找并準(zhǔn)確描述企業(yè)發(fā)展和成長的路線、尋找出企業(yè)發(fā)展和成長的內(nèi)在邏輯關(guān)系是企業(yè)信息化必須使用的信息化分析方法，就像在有機(jī)生命體中利用科學(xué)的手段尋找出其生命周期中內(nèi)在的必然性DNA結(jié)構(gòu)圖來進(jìn)行深層次的生命科學(xué)研究一樣。只有在統(tǒng)

3、一的有效的方法學(xué)指導(dǎo)基礎(chǔ)上開展的企業(yè)信息化過程才能夠保證企業(yè)信息化的整體效應(yīng)和連續(xù)性效應(yīng),因此，一個企業(yè)在日常忙于采購或銷售時擁有一套商品購銷存管理系統(tǒng)，大大信息的自動化，提高工作效率，還將確保精確的進(jìn)程數(shù)據(jù)。 本人根據(jù)市場需求，結(jié)合畢業(yè)設(shè)計(jì)實(shí)際情況，制定設(shè)計(jì)整體計(jì)劃，從進(jìn)行調(diào)研及文獻(xiàn)資料的檢索與閱讀、制定工作計(jì)劃、提出課題總體設(shè)計(jì)方案，撰寫開題報(bào)告、進(jìn)行系統(tǒng)分析、完成畢業(yè)設(shè)計(jì)詳細(xì)設(shè)計(jì)方案、完成詳細(xì)設(shè)計(jì)，進(jìn)入編碼調(diào)試階段、組織中期報(bào)告，并提供中期報(bào)告書面材料、完成編碼調(diào)試、進(jìn)行系統(tǒng)測試及完善、向畢業(yè)設(shè)計(jì)答辯委員會提出答辯申請、撰寫畢業(yè)設(shè)計(jì)論文及到最后的畢業(yè)設(shè)計(jì)答辯。對于畢業(yè)設(shè)計(jì)軟件根據(jù)需求分析

4、，我們將系統(tǒng)劃分為：分別為進(jìn)貨（購買）管理、銷貨（銷售）管理、庫存管理、貨物瀏覽、客戶管理、系統(tǒng)設(shè)置、關(guān)于作者等七個模塊。關(guān)鍵詞：貨物管理；查詢；進(jìn)貨；出貨；報(bào)損Goods Manegement SystemAbstract：That modern business enterprise has turned the business enterprise information to assistance means to be used as business enterprise development must, the business enterprise information

5、turns in the booming development in each business enterprise.However, the business enterprise information turns after all should how to do to have been decision to perplex business enterprise leader however.The modern business enterprise faces the positive vigorous market competes, howing to can can

6、 make the business enterprise own in change unfathomable companys sea a place to is each an entrepreneur the forest the concern to get of, time is a money, time is a life describe bestly to the modern business enterprise.How to look for to combine accurate describing the business enterprise developm

7、ent is with the route of the growth, look for a business enterprise development to is an information that business enterprise information turn and must use to turn to analyze the method with the inside logic relation that grows up, resemble to make use of in organism life the means of science looks

8、for a life science for its life cycle inside inside and inevitability DNA construction diagram to proceeding deep level of structure research.Only have to open in unitedly of valid method learning leading foundation the business enterprise information of the exhibition turn the process the talent to

9、 guarantee the effect of the whole that business enterprise information turn enough with the consecution effect, therefore, a business enterprise at usual busily engaged in purchase or sale hour own a set of merchandises buy the saves to manage the system, consumedly the automation of the informatio

10、n, the work efficiency of exaltation, will still insure the accurate progress data. Oneself require with according to the market, join together the graduate design actual circumstance, establishment design the whole plan, from the index that proceeding investigation and cultural heritage data with r

11、ead, establish work plan, put forward the lesson a total design project, compose to open report, proceed system analysis, complete graduate design detailed design project, complete the detailed design,enter the coding adjusts to try the stage and organizes the middle reports, and provide middle repo

12、rt written form material, complete the coding adjusts to try, proceed system test and perfect, face the graduate design reply the committee puts forward rejoinder application, compose graduate design thesis and till the last of graduate design reply.According to the need for graduate to design the s

13、oftware to analyze, we divide the line system as:Is to enter respectively the goods( purchase) management, selling( sale) management, stock management, goods view, customer management, system establishes and wait concerning the author seven molds piece.Keywords:goods； manegement； system,search；stock

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

15、和進(jìn)貨表。銷售：產(chǎn)品的銷售包含對外銷售和內(nèi)部銷售。對外銷售：首先公司對外的銷售單位向公司開出要貨單；然后，公司根據(jù)要貨單及貨物的實(shí)物數(shù)量決定給要貨單位的貨物數(shù)量；最后，公司開出出貨單，根據(jù)出貨單將貨物出庫，并發(fā)給要貨單位。要貨單位收到貨物后，將貨物入單位的倉庫；在售貨給客戶時，要開出銷售小票，上面應(yīng)記載售貨的名稱及數(shù)量、金額等信息；然后，貨物出單位庫，交給客戶。內(nèi)部銷售：首先，公司職員需要開出要貨單；然后公司根據(jù)要貨單及貨物的實(shí)物數(shù)量決定給要貨人的貨物數(shù)量；最后，公司開出出貨單，倉庫根據(jù)出貨單將貨物出庫，并交給要貨人。退貨：將要出的貨提出單位的倉庫，發(fā)給公司；公司清點(diǎn)貨物后，根據(jù)實(shí)物數(shù)量開出出

16、貨單；然后將貨物出庫。報(bào)損： 當(dāng)倉庫中的貨物由于損壞、過期或其他原因，需要將倉庫中的貨物無償提出時，由公司開出報(bào)損單；然后貨物出庫。12 數(shù)據(jù)庫技術(shù)與VFP系統(tǒng)平臺概述數(shù)據(jù)庫技術(shù)產(chǎn)生于20世紀(jì)60年代末70年代初，到70年代末期數(shù)據(jù)庫理論的研究已基本進(jìn)入了成熟階段。它的出現(xiàn)與完善使得計(jì)算機(jī)應(yīng)用進(jìn)入了新的歷史時期，社會的每一個領(lǐng)域都與計(jì)算機(jī)發(fā)生了聯(lián)系，計(jì)算機(jī)在人類社會中開始起著不可估量的作用。隨著信息技術(shù)、網(wǎng)絡(luò)技術(shù)及計(jì)算機(jī)技術(shù)的飛速發(fā)展和人民生活水平的提高，微機(jī)走入了我們的家庭成為我們工作和學(xué)習(xí)的得力助手。在此浪朝的推動下各類學(xué)習(xí)軟件相繼推出，尤其學(xué)習(xí)語言類的軟件更是種類繁多，面面俱到。Visu

17、al Foxpro（以下簡稱VFP）是一個優(yōu)秀的，基于Internet平臺的數(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)。特別VFP6.0是一個功能強(qiáng)大的數(shù)據(jù)庫管理系統(tǒng)（DBMS）,同以前的版本相比，具有更快速、更有效、更靈活的突出特點(diǎn)。隨著現(xiàn)代科學(xué)技術(shù)的發(fā)展，越來越多的公司和企業(yè)已經(jīng)使用計(jì)算機(jī)系統(tǒng)代替繁瑣冗余的手工操作來管理貨物的工作。VFP6.0是面向?qū)ο蟮?/p>

18、可視化編程工具，利用該系統(tǒng)可以方便快捷的開發(fā)包含數(shù)據(jù)庫的各種應(yīng)用軟件，開發(fā)出的可執(zhí)行文件效率較高，打包發(fā)布也非常方便。所以，采用VFP6.0這種GUI（圖形用戶界面）開發(fā)工具來實(shí)現(xiàn)貨物管理人員對貨物流程的管理，將大大提高工作效率，節(jié)省許多不必要的人工浪費(fèi)。332 系統(tǒng)設(shè)計(jì)2.1系統(tǒng)設(shè)計(jì)原理系統(tǒng)結(jié)構(gòu)圖如圖2.1所示。主 菜 單報(bào)損信息出貨管理進(jìn)貨管理貨物管理庫存管理 圖2-1 系統(tǒng)模塊圖2.2有關(guān)數(shù)據(jù)表結(jié)構(gòu)實(shí)際工作中的表格往往不適合直接輸入到計(jì)算機(jī)中。如上述貨物信息、出貨單、進(jìn)貨單、報(bào)損申請單等，無法在計(jì)算機(jī)中直接建立這樣的表，因此需要對實(shí)際的表格或清單進(jìn)行規(guī)范化設(shè)計(jì)。2.2.1貨物信息表設(shè)計(jì)

19、貨物信息是貨物管理系統(tǒng)的一個基本表，可用如圖2-2所示的實(shí)體關(guān)系圖來表示。商品關(guān)系 編 號 名 稱 規(guī)格 產(chǎn)地 簡要說明 外形（圖片） 單價 數(shù)量 總價 圖2-2 貨物關(guān)系對每一種貨物都有唯一與之對應(yīng)的編號，因此在貨物關(guān)系中編號是主關(guān)鍵字，其他的非主屬性都完全依賴于它。貨物信息表的邏輯結(jié)構(gòu)設(shè)計(jì)如表2-1所示。表2-1 貨物信息表字段名字段類型字段寬度小數(shù)點(diǎn)索引否編號名稱規(guī)格單價數(shù)量總價產(chǎn)地時間產(chǎn)品說明外形字符型字符型字符型數(shù)值型字符型數(shù)值型字符型字符型備注型通用型108284030401044無無無2無無無無無無主索引 2.2.2庫存貨物表設(shè)計(jì) 庫存貨物表是貨物管理系統(tǒng)的一個基表。由于在設(shè)計(jì)編

20、號時，貨物與貨物編號之間存在依賴關(guān)系，每一編號就對應(yīng)一種貨物，所以貨物的所有信息對編號存在依賴關(guān)系。實(shí)體關(guān)系如圖2-3所示的關(guān)系圖所示。 庫存貨物關(guān)系 編號 單位 數(shù)量 品名 單價 圖2-3 庫存貨物關(guān)系庫存貨物信息表的邏輯結(jié)構(gòu)設(shè)計(jì)如表2-2所示：表2-2 庫存貨物信息表字段名字段類型字段寬度小數(shù)點(diǎn)索引否編號名稱規(guī)格單價數(shù)量字符型字符型字符型數(shù)值型數(shù)值型610288無無無2無主索引 2.2.3進(jìn)貨表設(shè)計(jì)進(jìn)貨表是貨物管理系統(tǒng)的一個基表。實(shí)體關(guān)系如圖2-4所示。 進(jìn)貨關(guān)系編 名 規(guī) 單 數(shù) 供 供 供 經(jīng) 貨 貨 貨 手 單 時 人 人號 稱 格 位 量 位 間 圖2-4 進(jìn)貨關(guān)系編號也是進(jìn)貨關(guān)系

21、中的主關(guān)鍵字，其他非主屬性都完全依賴于它。進(jìn)貨表的邏輯結(jié)構(gòu)設(shè)計(jì)如表2-3所示。表2-3 進(jìn)貨表字段名字段類型字段寬度小數(shù)點(diǎn)索引否編號名稱單價數(shù)量進(jìn)貨單位進(jìn)貨時間時間供貨人經(jīng)手人字符型字符型字符型數(shù)值型字符型字符型字符型字符型610210401088無無無2無無無無主索引 2.2.4出貨表設(shè)計(jì) 貨物名稱與貨物編號之間存在依賴關(guān)系，每一編號對應(yīng)一種貨物名稱，所以可以將名稱從出貨關(guān)系中去掉，其實(shí)體關(guān)系如圖2-5所示。 出貨關(guān)系編 名 規(guī) 單 數(shù) 出 出 接 經(jīng)貨 貨 收 手 單 時 人 人號 稱 格 位 量 位 間 圖2-5 出貨關(guān)系編號也是出貨關(guān)系中的主關(guān)鍵字，其他非主屬性都完全依賴于它。 出貨表

22、的邏輯結(jié)構(gòu)如表2-4所示。表2-4出貨表字段名字段類型字段寬度小數(shù)點(diǎn)索引否編號名稱單價數(shù)量出貨單位出貨時間接收人經(jīng)手人字符型字符型字符型數(shù)值型字符型字符型字符型字符型610210401088無無無2無無無無主索引 2.2.5報(bào)損申請表設(shè)計(jì)報(bào)損申請表實(shí)體關(guān)系如圖2-6所示。 報(bào)損申請關(guān)系編 規(guī) 數(shù) 報(bào) 報(bào) 申 審 經(jīng)損 損 請 批 手 原 時 人 人 人號 格 量 因 間 圖2-6 報(bào)損申請關(guān)系編號也是報(bào)損申請關(guān)系中的主關(guān)鍵字，其他非主屬性都完全依賴于它。 報(bào)損申請表的邏輯結(jié)構(gòu)設(shè)計(jì)如表2-5所示。表2-5 報(bào)損申請表字段名字段類型字段寬度小數(shù)點(diǎn)索引否編號名稱單價數(shù)量報(bào)損原因報(bào)損時間申請人審批人經(jīng)

23、手人字符型字符型字符型數(shù)值型字符型字符型字符型字符型字符型6102104010888無無無2無無無無無主索引 2.3系統(tǒng)思想 該系統(tǒng)的基本設(shè)計(jì)思路如下：（1） 建立好各表，輸入一些模擬數(shù)據(jù)；（2） 在顯示貨物信息時，將表單上的用來顯示表中字段值的文本框分別與相關(guān)的字段進(jìn)行綁定；具體設(shè)置要將文本框的controlsource屬性設(shè)定為對應(yīng)的字段名；（3） 在貨物信息管理時可以查看各記錄的值，可以添加、修改記錄；（4） 貨物查詢時，只需輸入貨物名稱，就可以定位在該記錄，并顯示該記錄的有關(guān)內(nèi)容，也可以修改該記錄；（5） 進(jìn)貨管理中的進(jìn)貨信息顯示是以只讀方式顯示貨物信息表中的編號、名稱和規(guī)格字段內(nèi)容，

24、具體設(shè)置方法是將該文本框的readonly屬性值改為.T.；因?yàn)閷ω浳镄畔⒈碇行畔⒌母淖儾皇窃诒静藛沃型瓿傻?。其余文本框接收用戶輸入的?nèi)容，并將內(nèi)容加入進(jìn)貨表（以便于進(jìn)貨統(tǒng)計(jì)），還要加入庫存貨物表中；（6） 進(jìn)貨統(tǒng)計(jì)是根據(jù)用戶通過進(jìn)貨信息表單中輸入的有關(guān)信息，加入到進(jìn)貨表中，然后接收用戶查詢的時間段，在該進(jìn)貨表中找出在該時間段進(jìn)的貨。制作一個含有表格控件的表單，將表格控件中相關(guān)header的值改為所顯示字段名，將表格控件的數(shù)據(jù)源RecordSource的值設(shè)為“進(jìn)貨表”所在的路徑和表名，將表格控件的數(shù)據(jù)源類型RecordSourceType的值設(shè)為“0-表”；（7） 其他功能與進(jìn)貨管理類似，只

25、需做稍微改動即可。3系統(tǒng)實(shí)現(xiàn)3.1開發(fā)平臺及系統(tǒng)配置該系統(tǒng)采用 Microsoft公司推出的Visual FoxPro 6.0 作為開發(fā)平臺，該開發(fā)平臺具有一下優(yōu)點(diǎn)：VFP 6.0 特別適合開發(fā)中小型的管理系統(tǒng)；面向?qū)ο蟮奶攸c(diǎn)與程序設(shè)計(jì)的可視化結(jié)合在一起，有效地提高了編程的效率；界面美觀、使用方便；VFP6.0全面支持GIF(Graphics Interchange Format)和JPEG(Joint Photographic Group)圖象格式。你可以將對 Visual FoxPro 配置的設(shè)定僅僅應(yīng)用于當(dāng)前的工作期(臨時)，或者將其設(shè)定為下一次使用 Visual FoxPro 的默認(rèn)值

26、 (永久)。如果設(shè)定是臨時的，那它們將存儲在內(nèi)存中，并在你退出 Visual FoxPro 時丟棄。如果你進(jìn)行的是永久性設(shè)定，它們將存儲在 Microsoft Windows 注冊表或 Visual FoxPro 資源文件中。Windows 注冊表是一個數(shù)據(jù)庫，存儲關(guān)于操作系統(tǒng)，所有的 Windows 應(yīng)用程序，OLE，以及 ODBC 等其他選件等等的配置信息。例如，注冊表保存了 Windows 對于文件擴(kuò)展名與應(yīng)用程序的關(guān)聯(lián)信息，這樣當(dāng)你點(diǎn)擊一個文件時，Windows 能夠加載并激活相對應(yīng)的應(yīng)用程序。類似地，Visual FoxPro 也在注冊表中存儲其特定地配置信息。當(dāng) Visual Fo

27、xPro 啟動時，程序?qū)x取注冊表中的配置信息，并按照這些內(nèi)容進(jìn)行相應(yīng)地設(shè)置。完成注冊表讀取后，Visual FoxPro 也會檢查其配置文件，這個文件是一個文本文件，存在這個文件中的配置信息將會覆蓋注冊表的設(shè)定。Visual FoxPro 啟動后，你還可以使用選項(xiàng)對話框或 SET 命令來進(jìn)行一些額外的配置設(shè)定。3.2主程序的編制主程序?qū)⒄麄€軟件串接起來，系統(tǒng)是從主程序開始執(zhí)行的。代碼如下：set talk off &關(guān)閉對話模式set sysmenu offset status bar offset safe offset stat off set dele on &不處理已刪除的記錄se

28、t cent onset date to ansiclose allclear screen clear eventsdeactivate menu alldeactivate window all &關(guān)閉常用工具欄if mod(day(date(),2)=0 &偶數(shù)日期_SCREEN.backcolor=rgb(80,180,150) &窗口背景顏色MODIFY WINDOW SCREEN TITLE 貨物管理系統(tǒng) 今天是：+str(year(date(),4)+年+str(month(date(),2)+月+str(day(date(),2)+日 +cdow(date()+制作：買買提 e

29、lse &奇數(shù)日期_SCREEN.backcolor=rgb(80,150,180) &窗口背景顏色MODIFY WINDOW SCREEN TITLE 貨物管理系統(tǒng) 今天是：+str(year(date(),4)+年+str(month(date(),2)+月+str(day(date(),2)+日 +cdow(date()+制作：買買提 endifZOOM WINDOW SCREEN MAX &主窗口最大化_SCREEN.controlbox=.t. &去掉主窗口控制按鈕do form logo &裝入系統(tǒng)初始表單3.3開始界面（表單）的制作主程序執(zhí)行后，在程序中執(zhí)行系統(tǒng)初始化表單（LOG

30、O.SCX），系統(tǒng)進(jìn)入如圖3-1所示的界面。 圖3-1 系統(tǒng)初始界面界面中“歡迎使用！”是游走字幕，從右向左逐漸移動，并且“貨物管理系統(tǒng)”字體隨機(jī)變換顏色，其中還設(shè)置了一個電子鐘以便能隨時了解時間。其原理是在表單上設(shè)置了一個Timer控件，其代碼如下：if thisform.label3.left+2585 thisform.label3.left=thisform.label3.left-2else thisform.label3.left=530endifi=int(rand()*255)j=int(rand()*255)k=int(rand()*255)thisform.label1.f

31、orecolor=rgb(i,j,k)thisform.mydate.caption=alltrim(str(year(date()+年+alltrim(str(month(date()+月+alltrim(str(day(date()+日 &顯示系統(tǒng)日期thisform.mytime.caption=alltrim(time() &顯示系統(tǒng)時間單擊圖標(biāo)進(jìn)入密碼驗(yàn)證表單，該圖標(biāo)的代碼為： thisform.releasedo form 密碼表單3.4密碼驗(yàn)證表單系統(tǒng)安全是每一個應(yīng)用系統(tǒng)都應(yīng)該涉及的問題，只有合法用戶才能進(jìn)入系統(tǒng)，使用系統(tǒng)的各項(xiàng)功能。本系統(tǒng)通過密碼驗(yàn)證來保證系統(tǒng)的安全，界面3-2

32、如下： 圖3-2 密碼驗(yàn)證界面用戶若輸入錯誤信息，則發(fā)出“用戶名或密碼錯誤，請重新輸入！”的警告?！按_定”按鈕的代碼如下：temp1=alltrim(bo1.value)temp2=alltrim(thisform.text2.value)use 用戶表locate for alltrim(用戶名)=temp1.and.alltrim(密碼)=temp2if found()do 主菜單.mprrelease thisformelse thisform.text2.value= i=i-1 thisform.label5.caption=str(i,1) if i=0 messagebox(你不

33、是合法用戶！你不能使用！,64,登錄提示) quit endif messagebox(口令不正確！請重新輸入！,64,登錄提示)endif “取消”按鈕代碼如下：Release thisform3.5系統(tǒng)主菜單 成功輸入密碼后，系統(tǒng)進(jìn)入主菜單，如圖3-3所示。 圖3-3 系統(tǒng)主菜單系統(tǒng)的所有功能都在該菜單上得到體現(xiàn)，下面逐一介紹各個菜單項(xiàng)的代碼實(shí)現(xiàn)。其制作過程如圖3-4：圖3-4 一級菜單項(xiàng)其中“貨物管理”菜單項(xiàng)調(diào)用子菜單然后“編輯”?！巴顺鱿到y(tǒng)”調(diào)用的命令為：quit 圖3-5 貨物管理菜單項(xiàng)一級菜單“貨物管理”下的兩個子菜單項(xiàng)分別調(diào)用的是：信息管理：do form貨物信息貨物查詢：do

34、form 貨物查詢其余一級菜單及其下屬的二級子菜單項(xiàng)的實(shí)現(xiàn)與上述類似。最后在菜單欄上看到“菜單（M）”按鈕，選擇其下拉菜單里的“生成”命令，生成一個mpr文件，即成功創(chuàng)建一菜單。3.5.1 貨物管理功能的實(shí)現(xiàn) 3.5.1.1 信息管理功能的實(shí)現(xiàn) 信息管理菜單項(xiàng)的功能是對貨物信息表中的有關(guān)數(shù)據(jù)進(jìn)行格式化顯示，如圖3-6所示。 圖3-6 貨物信息各控件與貨物信息表中對應(yīng)的字段名進(jìn)行綁定，各命令按鈕的代碼如下：“第一個”： sele 3thisform.Oleboundcontrol1.visible=.t.go topthisform.refresh “上一個”： sele 3thisform.O

35、leboundcontrol1.visible=.t.if recno()=1 mand2.enabled=.f.else mand2.enabled=.t.endifif mand2.enabled=.t. skip-1 thisform.refreshelse messagebox(已經(jīng)到頂了！,62,提示)endif “下一個”： sele 3thisform.Oleboundcontrol1.visible=.t.if recno()=reccount() mand2.enabled=.f.else mand2.enabled=.t.endifif mand2.enabled=.t.

36、skip thisform.refreshelse messagebox(已經(jīng)到底了！,62,提示)endif“最后一個”： sele 3thisform.Oleboundcontrol1.visible=.t.go bottomthisform.refresh“添加”：append“修改并保存”：thisform.text1.readonly=.f.thisform.text2.readonly=.f.thisform.text3.readonly=.f.thisform.text8.readonly=.f.thisform.edit1.readonly=.f.repl 編號 with al

37、ltrim(thisform.text1.value)repl 名稱 with alltrim(thisform.text2.value)repl 規(guī)格 with alltrim(thisform.text3.value)repl 產(chǎn)地 with alltrim(thisform.text4.value)“退出”：release thisform3.5.1.2 貨物查詢功能的實(shí)現(xiàn)該功能是允許用戶輸入貨物名稱去檢索貨物信息表中相關(guān)的信息，界面如圖3-7圖3-7 貨物查詢 “確定”按鈕的代碼為：locate for 名稱=alltrim(thisform.text1.value)if found(

38、) do form 貨物信息表單查詢waitelse messagebox(沒有該貨物！,62,提示)thisform.text1.value=endif該代碼中需調(diào)用“貨物信息表單查詢”表單，該表單與貨物信息表表單很相似，區(qū)別是沒有其他命令按鈕，如圖3-8所示。 圖3-8貨物信息表單查詢3.5.2 進(jìn)貨管理功能的實(shí)現(xiàn)3.5.2.1 進(jìn)貨信息菜單項(xiàng)該功能是根據(jù)用戶需要顯示進(jìn)貨表中基本信息以及庫存信息，用戶添加其他信息，單擊“進(jìn)貨”即可以實(shí)現(xiàn)進(jìn)貨操作，界面如圖3-9所示。圖3-9 進(jìn)貨管理 “進(jìn)貨”按鈕的代碼為：sele 2 appe blan repl 編號 with alltrim(this

39、form.text1.value) repl 單位 with alltrim(thisform.text4.value) repl 數(shù)量 with thisform.text5.value repl 進(jìn)貨單位 with alltrim(thisform.text6.value) repl 進(jìn)貨時間 with alltrim(thisform.text7.value) repl 供貨人 with alltrim(thisform.text8.value) repl 經(jīng)手人 with alltrim(thisform.text9.value)sele 1 appe blanrepl 編號 with

40、 alltrim(thisform.text1.value)repl 品名 with alltrim(thisform.text2.value)repl 單位 with alltrim(thisform.text4.value)repl 數(shù)量 with thisform.text5.valuethisform.refresh其余按鈕如同“出貨管理”與“報(bào)損信息”的代碼實(shí)現(xiàn)與前面類似，在此不再贅述。3.5.2.2 進(jìn)貨統(tǒng)計(jì)菜單項(xiàng)該菜單項(xiàng)的功能是根據(jù)用戶輸入的起止時間，到進(jìn)貨表中查找條件的記錄，在表格中顯示所輸時間內(nèi)“進(jìn)貨表.DBF”滿足條件的內(nèi)容。界面如圖3-10所示。 圖3-10 進(jìn)貨統(tǒng)計(jì) 在

41、圖3-10中“查看”的代碼為：start_time=thisform.text1.valueend_time=thisform.text2.valuethisform.grid1.recordsource=select * from 管理數(shù)據(jù)庫!進(jìn)貨表 inner join 管理數(shù)據(jù)庫!庫存貨物表 on 進(jìn)貨表.編號=庫存貨物表.編號 where 進(jìn)貨表.進(jìn)貨時間=start_time and 進(jìn)貨表.進(jìn)貨時間=0 repl 數(shù)量 with 數(shù)量-thisform.text5.value else messagebox(倉庫沒有足夠的貨物了！,62,警告) endif else message

42、box(倉庫已沒有此貨物了！,62,警告) endifthisform.refreshsele 2thisform.refresh“出貨統(tǒng)計(jì)”表單與“進(jìn)貨統(tǒng)計(jì)”類似，在此不做多余說明。3.5.4 報(bào)損管理功能的實(shí)現(xiàn)3.5.4.1 報(bào)損信息菜單項(xiàng)該功能的“報(bào)損信息”與“報(bào)損統(tǒng)計(jì)”跟“出貨管理”與“出貨統(tǒng)計(jì)”類似，在此不再作說明。其中的“查找”表單的代碼編寫與“貨物查詢” 類似，也不做多余說明。3.5.5 庫存管理功能的實(shí)現(xiàn)3.5.5.1 庫存管理菜單項(xiàng) 此功能主要用來察看進(jìn)庫信息與出庫信息，界面如圖3-12所示。 圖3-12 庫存管理 “進(jìn)庫顯示”的代碼為：do form 進(jìn)庫顯示“出庫顯示”的

43、代碼為：do form 出庫顯示 3.5.5.2 進(jìn)庫顯示與出庫顯示菜單項(xiàng)該功能顯示了貨物在經(jīng)過進(jìn)貨與出貨后的一個整體情況，通過“進(jìn)庫顯示”與“出庫顯示”來了解進(jìn)貨和出貨與庫存的關(guān)系，界面如圖3-13和圖3-14。 圖3-13 進(jìn)庫顯示 圖3.14 出庫顯示在表格中顯示信息，只需對表格中的屬性RecordSourse注明為所要顯示的表名即可。3.5.6 系統(tǒng)信息功能的實(shí)現(xiàn)該功能主要是給出本系統(tǒng)的有關(guān)信息，界面如圖3-15所示。 圖3-15 關(guān)于貨物管理系統(tǒng)其中時鐘內(nèi)的代碼為與logo.scx相仿，但其中多了一個類似于助手小精靈的工具，其代碼寫入form1中的init屬性里，如下：public

44、Merlinthisform.olecontrol1.Characters.Load(merlin)Merlin=thisform.olecontrol1.Characters.Character(merlin)Merlin.Show()Merlin.StopAll()Merlin.Play(Announce) release thisform3.5.7 退出菜單 該菜單項(xiàng)的功能是結(jié)束系統(tǒng)的運(yùn)行。代碼如下：close allquit4 結(jié) 論貨物管理系統(tǒng)是一個相對比較復(fù)雜的課題，主要是由于在使用貨物管理系統(tǒng)時，總會有太多的限制約束條件。有時考慮不全面總會出現(xiàn)這樣或那樣的問題。我所開發(fā)的這個貨物管理系統(tǒng)也是有很大局限性的，因?yàn)楸救藢τ诟鞔蠊净虺械囊恍┴浳锕芾砹鞒滩磺宄?，從而會在開發(fā)程序時出現(xiàn)很多漏洞。雖然如此，通過這幾個月的學(xué)習(xí)、思考、動手、調(diào)試，對VFP 6.0還是有了更進(jìn)一步的了解。我所開發(fā)的這套系統(tǒng)還不算成熟，存在一定的局限性。我準(zhǔn)備在以后的學(xué)習(xí)、工作中，再繼續(xù)深入地對該課題進(jìn)行研究，進(jìn)一步完善該系統(tǒng)，讓自己能在貨物管理上有一個本質(zhì)的認(rèn)識。 參考文獻(xiàn)1 許向榮，潘清，楊一平. FoxPro6.0 項(xiàng)目案例導(dǎo)航M.北京：科學(xué)出版社，20022 詹武，候旭.