苗木花卉管理信息系統(tǒng)設(shè)計報告

1引言1。1研究背景近幾年來，園林綠化作為城市環(huán)境建設(shè)的重要組成部分，有了新的發(fā)展機遇，同時也帶動了苗木花卉生產(chǎn)的發(fā)展。隨著社會進步，人民對居住環(huán)境的重視以及西部大開發(fā)，綠化苗木花卉的需求量越來越大。尤其是近十幾年來，隨著世界花卉產(chǎn)業(yè)的興起，花卉種苗作為其中最為重要的一部分，正逐漸成為發(fā)達國家花木產(chǎn)業(yè)鏈中獲利最大的新興行業(yè)，其經(jīng)濟效益在發(fā)達國家農(nóng)產(chǎn)品總產(chǎn)值中所占的比值越來越高.國內(nèi)不少大型企業(yè)也開始投資“綠色銀行〃的苗木花卉生產(chǎn)，許多地區(qū)把苗木花卉作為農(nóng)業(yè)產(chǎn)業(yè)化調(diào)整的主要方向，苗木花卉產(chǎn)業(yè)在我國已成為具有巨大潛力的朝陽產(chǎn)業(yè)。據(jù)統(tǒng)計調(diào)查數(shù)據(jù)，僅湖南省2004年花卉苗木種植面積2.775萬畝，銷售金額12.7億元，其中綠化苗木收入達12.32億元。1.2研究現(xiàn)狀從國外來看，加拿大在20世紀80年代就有自己獨立的苗圃管理系統(tǒng)，從育苗到出圃有一整套信息系統(tǒng)，極大地提高了生產(chǎn)管理效率。除此之外，許多國家已經(jīng)在苗圃中利用計算機電子表格來估計組織培苗和裸根苗的成本，并進行管理。⑴美國在20世紀90年代就開發(fā)了適合溫室的苗木花卉管理信息系統(tǒng)。⑵我國在苗木花卉種苗品種培育、繁殖、采后處理、貯藏以及銷售等方面的研究起步較晚,目前國內(nèi)高檔切花以及盆花的種苗大多通過進口獲得，雖然國內(nèi)也有一些種苗公司生產(chǎn)類似的種苗，但大多由于品質(zhì)不佳、栽培價值差，致使市場占有率低，無法與國外的花卉種苗相抗衡.3改革開放以來，我國苗木花卉產(chǎn)業(yè)得到了全面發(fā)展，但同國外苗木花卉產(chǎn)業(yè)發(fā)達的國家相比，仍然存在一定的差距，尤其在競爭力、發(fā)展動力和管理運作體制等都處于落后狀態(tài)。1.3研究目的和意義GIS系統(tǒng)是融計算機圖形與數(shù)據(jù)庫于一體，存儲和處理空間信息的高新技術(shù)，它把地理位置和相關(guān)屬性有機地結(jié)合起來，并借助其獨有的空間分析功能和可視化表達第2頁共52頁方式，提供各種輔助決策功能。［4將GIS技術(shù)和空間數(shù)據(jù)庫技術(shù)引入苗木花卉管理將使基地的各種數(shù)據(jù)的顯示更加直觀化，實現(xiàn)數(shù)據(jù)漫游和共享，方便基地各個功能信息的輸入、存儲、處理、綜合分析和結(jié)果輸出，極大地提高了管理者的工作效率。同時，可使管理者既能夠通過圖形宏觀地了解和把握基地的總體情況，又能通過各種快捷的查詢手段了解各種非圖形因素的情況，使管理者可獲得的信息量成倍地提高，促進苗木花卉信息管理水平的現(xiàn)代化。2系統(tǒng)分析2。1系統(tǒng)目標2。1.1實現(xiàn)辦公自動化實現(xiàn)苗圃管理徹底的信息化，改變傳統(tǒng)的依靠文件發(fā)送信息的傳遞方式，實現(xiàn)無紙化辦公，達到管理費用降低，加快信息流通速度，有利于決策層及時、準確地把握經(jīng)營狀況和發(fā)展趨勢，及時調(diào)整經(jīng)營策略、制定發(fā)展計劃.2。1.2生產(chǎn)銷售信息化以苗木花卉生產(chǎn)為基礎(chǔ)，對生產(chǎn)技術(shù)和管理進行研究和規(guī)劃，建立生產(chǎn)種植和遠程技術(shù)服務(wù)系統(tǒng)，從而促進苗木花卉產(chǎn)業(yè)信息化進程.通過對生產(chǎn)銷售過程中涉及到的種植、施肥、病蟲害防治、灌溉、訂購等一系列流程的信息化管理，從而提高苗圃工作人員工作效率和工作的透明度。2.1。 3信息發(fā)布動態(tài)化通過建立苗木花卉信息發(fā)布界面，方便用戶及時了解苗圃最新的銷售信息（如:苗木新聞，產(chǎn)品信息,供求信息等），加快苗木花卉產(chǎn)品的周轉(zhuǎn)速度。2.1。 4規(guī)劃分區(qū)合理化突破傳統(tǒng)苗圃單一生產(chǎn)的模式，充分發(fā)揮現(xiàn)代苗圃的共產(chǎn)、展示、科研、培訓(xùn)、觀光旅游和休閑功能，因地制宣布置生產(chǎn)區(qū)和休閑區(qū)，創(chuàng)造富有地方特色的空間布局，全面提高生態(tài)效益、社會效益和經(jīng)濟效益。2。2主要問題據(jù)調(diào)查統(tǒng)計，多年來我國園林苗圃一直沿用傳統(tǒng)的露天苗圃栽培方式，大多數(shù)品種單一,規(guī)模小，生產(chǎn)技術(shù)落后，苗木質(zhì)量不穩(wěn)定，苗木成活率低，產(chǎn)品供應(yīng)季節(jié)短，生產(chǎn)周期長，生產(chǎn)率低，占用大量的優(yōu)質(zhì)農(nóng)田。而且有些苗圃，尤其是國有苗圃中，生產(chǎn)和銷售嚴重脫節(jié)，生產(chǎn)的只顧生產(chǎn)，不關(guān)心銷售狀況；銷售的只顧銷售，也不了解苗圃中有多少苗木花卉可以銷售.目前，我國園林綠化苗木的生產(chǎn)水平遠遠跟不上發(fā)展需要，而且由于苗圃基地培育的苗木花卉種類經(jīng)常會很多，因此按照傳統(tǒng)的人工管理方式，會存在以下問題：（1） 種類繁多、品種齊全，信息管理困難.（2） 無法進行準確及時的監(jiān)控.（3） 管理信息相互獨立，市場預(yù)測手段、方法落后，嚴重影響生產(chǎn)者的科學(xué)決策，建立科學(xué)的市場信息反饋系統(tǒng)已迫在眉睫。（4） 在生產(chǎn)和銷售環(huán)節(jié)，不能準確地掌握質(zhì)量的變化，尤其一些客戶投訴或降級使用的次品，無法做到全程跟蹤，影響到市場的銷售。（5） 不能有效管理異地倉庫和辦事處銷售業(yè)務(wù)。此外，還有培育、設(shè)施建設(shè)、病蟲害防治和客戶資料等方面，依靠單純傳統(tǒng)的人工技術(shù)已經(jīng)遠遠不能適應(yīng)現(xiàn)如今市場的需求.2。3可行性分析苗木花卉管理信息系統(tǒng)是依據(jù)市場的迫切需求設(shè)計的，運用先進的信息平臺、高新技術(shù)集成和及時更新苗木花卉信息監(jiān)測管理和基地工程建設(shè)等各類信息，全面提升苗木花卉信息管理的水平和效益，從苗木花卉的選種、育苗、灌溉和病蟲害防治到儲存、銷售和在線客戶服務(wù)等方面給予了詳細介紹，應(yīng)用此系統(tǒng)可以基本解決人工技術(shù)無法涉及的領(lǐng)域。比如：病蟲害防治培訓(xùn)班，管理人員根據(jù)近期測報結(jié)果和害蟲活動規(guī)律，重點講授了苗木花卉的主要有害生物的防治方法、防治時間、藥劑選擇及用量以及演示成果虛擬圖等內(nèi)容，可以讓用戶接觸更為直接的視覺效果。從技術(shù)上講，現(xiàn)行的網(wǎng)絡(luò)技術(shù)和計算機技術(shù)完全能完成本系統(tǒng)的功能要求。就收第4頁共52頁益而言，系統(tǒng)投入使用后能加快資金的周轉(zhuǎn)，提高資金的利用率，而且可以提高管理效率，減少人力資源的浪費.在社會可行性方面，系統(tǒng)的開發(fā)使用與現(xiàn)行的管理制度沒有沖突，而且現(xiàn)在員工通過培訓(xùn)可以很容易掌握和使用系統(tǒng).綜上所述，該系統(tǒng)具備可開發(fā)的條件，項目可行，建議開始開發(fā)。2。4系統(tǒng)開發(fā)環(huán)境介紹2。4。1VisualBasic6。0簡介VisualBasic即可視化的Basic。Basic是Beginner’sAll—purposeSymbolicInstructionCode（初學(xué)者通用符號指令代碼）的所寫。Basic誕生與20世紀60年代初期，因為簡單易學(xué)、使用方便，很快被普及推廣。但隨著計算機軟硬件技術(shù)的不斷發(fā)展，特別是Windows操作系統(tǒng)的流行。Basic的缺點和局限性逐漸顯示出來。1991年，Microsoft推出了VisualBasic1.0oVisualBasic繼承了Basic的部分語言特點，但VisualBasic功能更強大，具有Windows風(fēng)格的圖形界面,使用起來更加方便。在VisualBasic可視化的開發(fā)環(huán)境中可以快速、方便地創(chuàng)建具有Windows圖形界面，并且功能強大而完整的應(yīng)用程序?？茖W(xué)計算、數(shù)據(jù)庫管理、客戶/服務(wù)器模式、Internet/Intranet等方面的應(yīng)用程序都可用VisualBasic開發(fā)。2。4。2MapObjec技術(shù)MapObject是由美國的ESRI（EnvironmentSystemResearchInstitute，環(huán)境系統(tǒng)研究所）開發(fā)，是當今流行的組件式GIS開發(fā)軟件oMapObject是一組地圖軟件的組件（ActiveX控件），利用它可以在普通的編程語言（如VB、VC、Delphi）上實現(xiàn)主要的地理信息系統(tǒng)（其中主要的就是電子地圖的功能）的功能。MapObject簡稱MO。通過MapObjects你可靈活地建立適合用戶的地圖接口.在小內(nèi)存空間中，你能用多種工業(yè)標準程序環(huán)境之一去建立應(yīng)用程序，你能夠聯(lián)合使用MapObjects與其它軟件去實現(xiàn)地圖與用戶信息的聯(lián)系。2。4。3相關(guān)工具的選取語言的選?。篗icrosoftVisualBasic6。0

>所使用的數(shù)據(jù)庫：MicrosoftAccess2003操作系統(tǒng):MicrosoftWindowsxp2。4。4統(tǒng)所需硬件設(shè)備Intel80586以上的處理器；64MB或以上的內(nèi)存；4GB或以上的硬盤；>鼠標鍵盤；3VGA或LCD顯示器；2.4。5運行環(huán)境>開發(fā)環(huán)境：WindowsXP開發(fā)工具：MicrosoftVisualBasic6。0和MapObjec技術(shù)3系統(tǒng)設(shè)計系統(tǒng)設(shè)計是管理系統(tǒng)開發(fā)的起點，也是整個管理系統(tǒng)實現(xiàn)過程中的關(guān)鍵環(huán)節(jié)，因為如果系統(tǒng)設(shè)計環(huán)節(jié)做得不好，會影響到系統(tǒng)實現(xiàn)的后繼環(huán)節(jié)，甚至造成開發(fā)失敗。苗木花卉管理信息系統(tǒng)的開發(fā)是根據(jù)系統(tǒng)論的觀點，從管理學(xué)理論入手，針對苗圃生產(chǎn)和經(jīng)營的實際問題而設(shè)計的，除了必須滿足管理活動的實際需要，同時也要考慮將來苗圃的發(fā)展.苗木花卉管理系統(tǒng)主要包括如下幾大功能模塊：苗木花卉管理信息系統(tǒng)3.1含的生產(chǎn)必須營管理統(tǒng)計能報，表管理3.1含的生產(chǎn)必須營管理統(tǒng)計能報，表管理因此人員>備管理

文J功能比信較息I發(fā)布，主要包系統(tǒng)維護用戶管理對其進行分組，本系添加、刪除、保存、:用于管用系統(tǒng)的登陸人員，并且根據(jù)各登陸人員使用系統(tǒng)操作的權(quán)限戶.用戶管理對其進行分組，本系添加、刪除、保存、:用于管用系統(tǒng)的登陸人員，并且根據(jù)各登陸人員使用系統(tǒng)操作的權(quán)限戶.統(tǒng)主要分為管理員和普通用戶。目更新等操作。二包括用戶名、密碼等基本信息的密碼更改密碼：用于用戶更改自己的密碼。3.2基本信息管理子系統(tǒng)基本信息主要是指苗木花卉基地最基本最重要的信息，包括花卉信息、客戶信息、肥料信息等，脫離了基本信息，苗木花卉管理信息系統(tǒng)就無法運行?；拘畔⒕S護用于維護這些基本信息，包括的功能模塊如圖所示。括花括客戶編號、客戶名稱、聯(lián)系電話和地址等數(shù)據(jù)項。括花括客戶編號、客戶名稱、聯(lián)系電話和地址等數(shù)據(jù)項。肥料信息維護：用于維護（添加、刪除、更新、保存）苗圃肥料的基本信息。包括肥料編號、肥料名稱、現(xiàn)存量和購買時間等數(shù)據(jù)項.病蟲害信息維護:用于維護（添加、刪除、更新、保存）苗圃病蟲害的基本信息。包括病蟲害編號、病蟲害名稱、發(fā)生環(huán)境和病蟲害類型等數(shù)據(jù)項.員工信息維護：用于維護（添加、刪除、更新、保存）苗圃工作人員的基本信息。包括員工編號、員工名稱、性別、部門、聯(lián)系電話、職務(wù)等數(shù)據(jù)項.第7頁共52頁設(shè)備信息維護：用于維護（添加、刪除、更新、保存）苗圃常用設(shè)備的基本信息.包括設(shè)備編號、設(shè)備名稱、設(shè)備類型和現(xiàn)有數(shù)量等數(shù)據(jù)項。倉庫信息維護：用于維護（添加、刪除、更新、保存）苗圃倉庫的基本信息.倉庫數(shù)據(jù)信息：包括倉庫編號、倉庫名稱、剩余容量和清倉時間等數(shù)據(jù)項。3。3生產(chǎn)經(jīng)營管理子系統(tǒng)主要包括生產(chǎn)經(jīng)營過程中所涉及到的一系列的選種、施肥、灌溉、病蟲害防治、存儲等一系列的信息管理，并針對不同的情況提供相關(guān)信息的查詢與幫助措施，為銷售部門提供最新的產(chǎn)品信息，并根據(jù)市場需求實時動態(tài)地制定生產(chǎn)計劃和決策.包括的功能模塊如下圖所示。狀況并對狀況并對灌溉周期等。從而根據(jù)苗木花卉的生長狀況實時地調(diào)整灌溉方法與措施.施肥信息管理：管理人員可以通過花卉編號和名稱查詢各種花卉的施肥標準以及肥料的現(xiàn)存量和購買時間.從而根據(jù)苗木花卉的生長狀況調(diào)整施肥量，并依據(jù)種苗對肥料的需求量來實時更新肥料的庫存信息，防治信息管理：管理人員可以通過病蟲害編號和名稱查詢各種病蟲害針對不同的花卉的防治方法以及它的發(fā)生環(huán)境.從而根據(jù)種苗的生長狀況來制定相應(yīng)的防治措施，將病蟲害的危害減小到最小程度。訂購信息管理:管理人員可以通過花卉編號和名稱查詢定購該花卉的客戶信息以及相應(yīng)的定購時間、訂購數(shù)量和發(fā)貨方式等，從而實時地調(diào)整生產(chǎn)計劃，并做好各

本科畢業(yè)設(shè)計說明書種苗木花卉產(chǎn)品的發(fā)貨準備.本科畢業(yè)設(shè)計說明書種苗木花卉產(chǎn)品的發(fā)貨準備.第8頁共52頁庫存信息管理:管理人員可以通過花卉編號和存儲時間查詢各種苗木花卉的庫存信息（例如：庫存數(shù)量、庫存時間等），從而可以為銷售部門提供最新的花卉產(chǎn)品信息，便于其及時地調(diào)整各種苗木花卉庫存信息，考慮到倉庫的容量問題，也可以實時地清理倉庫,節(jié)約存儲空間。3。4統(tǒng)計報表管理子系統(tǒng)可根據(jù)年度苗木調(diào)查和本地區(qū)管理部門或國家制定的苗木標準進行比較分析，統(tǒng)計苗圃完成情況、計算苗木生產(chǎn)成本、輸出其他臨時統(tǒng)計表，并按統(tǒng)計結(jié)果生成統(tǒng)計報表等。包括的功能模塊如下圖所示。統(tǒng)計報表管理統(tǒng)計分析:用于統(tǒng)計者作為決策依據(jù)。式表現(xiàn)出來.主要包析以表、歷史數(shù)據(jù)進行統(tǒng)計分析，以直觀的形統(tǒng)計分析:用于統(tǒng)計者作為決策依據(jù)。式表現(xiàn)出來.主要包析以表、歷史數(shù)據(jù)進行統(tǒng)計分析，以直觀的形庫存和銷售數(shù)據(jù)，供苗圃決策和分析苗木花卉基地的生其最常用的功能就是對苗圃的下幾個方面的統(tǒng)計：客戶出料統(tǒng)計分析、銷售產(chǎn)品統(tǒng)計分析、庫存積壓統(tǒng)計分析等.生成報表：可以幫助苗木花卉基地全面利用分散的數(shù)據(jù)，生成各類報表，對大量報表進行分類管理。苗圃的高層管理者、部門經(jīng)理和不同職位上的業(yè)務(wù)人員都可以方便地通過各類報表，獲得不同數(shù)據(jù)庫中的數(shù)據(jù)，進行整理、匯總、分析，有效進行績效管理，透視苗木花卉業(yè)運行情況，從而全面利用苗圃數(shù)據(jù)。主要包括以下幾個方面的報表：訂購報表、銷售報表、生產(chǎn)報表等。3.5人員設(shè)備管理子系統(tǒng)主要負責(zé)日常的人事變動、苗農(nóng)機具、車隊等設(shè)備的管理以及相應(yīng)物資的采購，并對各種數(shù)據(jù)進行備份和檔案管理.包括的子功能模塊如下圖所示。人員設(shè)備管理

人第一次使需要人工工資合計資管理：主要負責(zé)職工平時工資的發(fā)放，以及職稱

員

調(diào)基

后通過系統(tǒng)可以自員用該功能時員輸入，、壬個人所得稅等理據(jù)輸入無誤本薪資信息，人第一次使需要人工工資合計資管理：主要負責(zé)職工平時工資的發(fā)放，以及職稱

員

調(diào)基

后通過系統(tǒng)可以自員用該功能時員輸入，、壬個人所得稅等理據(jù)輸入無誤本薪資信息，備采如凱官理基本工資、獎金的評定等工作。、緡種補貼和各種保險等，計算出應(yīng)發(fā)金管合理計、應(yīng)扣金額合計、人事調(diào)動管理：用于輸入、修改、查詢員工的的調(diào)動、上崗、離職記錄，包括員工編號、所在部門、離職（調(diào)動）原因、離職日期等信息。設(shè)備采購管理:用于管理錄入苗圃的設(shè)備采購信息，包括采購訂單、入庫單、采購金額、采購數(shù)量等信息.設(shè)備維修管理：用于對一些生產(chǎn)中出了問題的設(shè)備進行維修并進行相應(yīng)的登記，主要包括需維修設(shè)備編號、故障原因、維修費用、維修日期等信息.3。6信息發(fā)布子系統(tǒng)主要是結(jié)合苗圃綠化環(huán)保功能以及人們對生活質(zhì)量的需求，一方面牢牢把握苗圃作為城市園林提供植物材料的主業(yè)，另一方面改變原有苗圃功能單一，充分考慮其觀賞休閑的功能，結(jié)合基地的特點，因地制宣布置生產(chǎn)區(qū)和休閑區(qū)，創(chuàng)造有特色的空間布局，全面提高生態(tài)效益、社會效益和經(jīng)濟效益J]3。6。1苗圃主要分區(qū)＞生產(chǎn)區(qū)：對外生產(chǎn)花卉苗木，對內(nèi)為休閑區(qū)提供苗木花卉供給；＞休閑景觀區(qū)：主要是以生產(chǎn)用地為依托，充分發(fā)揮其景觀輻散作用；＞生態(tài)保護區(qū)：保護性地利用原有山林地貌、半原始狀態(tài)的人工生態(tài)群落景觀和遠眺園區(qū)全貌；＞培訓(xùn)接待區(qū)：位于苗木花卉基地中部，主要負責(zé)園林科技推廣和培訓(xùn)的功能需要，同時也為游客提供接待、培訓(xùn)、餐飲等便利的服務(wù)。＞后勤管理區(qū)：位于苗木花卉基地東部，主要負責(zé)行政辦公等核心管理工作.3。6。2生產(chǎn)區(qū)劃分A） 溫室大棚區(qū)：主要生產(chǎn)中、高檔盆花、設(shè)施化育苗、南方觀葉植物中轉(zhuǎn)養(yǎng)護等.B） 整形苗木區(qū)：強化生產(chǎn)園藝觀賞展示，提升產(chǎn)品銷售價值，生產(chǎn)觀賞性強的整形苗木。C） 容器苗木區(qū)：滿足大型廣場或各種重要場所隨時需要，生產(chǎn)大型觀賞性植物及其容器，滿足非季節(jié)性綠化施工需要，生產(chǎn)各種類型的容器苗木。D） 大苗生產(chǎn)區(qū)：生產(chǎn)適合城市綠化，培育胸徑為7——9cm、10-16cm的大喬木，5—6.8cm左右的中喬木,2.5-3.4cm左右的小喬木。E） 灌木生產(chǎn)區(qū)：生產(chǎn)觀賞性強的觀花、觀葉和觀國類品種。F） 盆景園：盆景生產(chǎn)、展示和銷售。G） 松柏園：種植松柏類植物。H） 百果園：種植適合本地生長的果木品種.I） 景觀類生產(chǎn)用地：配置多種園林類植物新材料。H）專類園：紅花橙木園、杜鵑園、木蘭山茶園、竹類園、梅花園、海棠園、櫻花園等專類園.3。6。3休閑景觀區(qū)劃分A） 休閑游覽區(qū)由廣場、人湖、祭刀閣等組成，首先作為苗圃的入口星系那個，其次為生產(chǎn)提供展示窗口，其三可成為主要的休閑游覽場所.B） 休閑度假區(qū)由培訓(xùn)接待中心、生態(tài)餐館、休閑會所、休閑屋、天湖、地湖和楓香銀杏園、木蘭山茶園、槭樹杜娟園、桃園四個植物專類園以及部分生態(tài)森林組成。C） 休閑運動區(qū)

充分利用二期范圍的山地資源，開展野營、野炊、攀巖、爬山等戶外山體運動形成以天子嶺山頂俱樂部為中心的生態(tài)山林場景，輔以“歲寒三友”松、竹、梅三種植物專類園的休閑運動區(qū).3。6。4信息發(fā)布子系統(tǒng)主要包括以下幾個功能模塊信息發(fā)布用戶可以在縮略圖上移動當前視窗所圖中右下腳顯示的是苗圃分區(qū)圖的縮略圖，4日=口m3」打用戶可以在縮略圖上移動當前視窗所圖中右下腳顯示的是苗圃分區(qū)圖的縮略圖，4日=口m3」打、-tt>-LL-Aj/JJ/-z產(chǎn)品信息需求信息發(fā)布處的地理位置。在局部區(qū)域圖上進行縮放及移動的效果也能在縮略圖上得到反映。C）地圖分級顯示圖形縮放時，可以根據(jù)當前視窗情況，調(diào)整地圖的顯示比例、地圖要素的顯示層數(shù)和相應(yīng)層中信息量的疏密關(guān)系，以獲得最佳的苗圃分區(qū)圖顯示效果和漫游速度。D）圖層控制功能可以根據(jù)需要，通過復(fù)選框按鈕來選擇需要顯示或關(guān)閉的圖層。E）用戶查詢功能用戶在苗圃分區(qū)圖上可以進行各個方向的查詢，即從分區(qū)圖到屬性和從屬性到分區(qū)圖的查詢。前者是指通過在分區(qū)圖上選擇一個點位來獲取其該分區(qū)屬性信息（如：灌木生產(chǎn)區(qū)、大苗生產(chǎn)區(qū)、容器苗木區(qū)、休閑度假區(qū)等）；后者是指用戶可以按多種方式對苗圃產(chǎn)品查詢條件進行限定，以快速查到符合自己要求的苗圃產(chǎn)品信息集合，并將查詢到的結(jié)果在分區(qū)圖上給予定位顯示。（2）產(chǎn)品信息發(fā)布向用戶介紹最新的產(chǎn)品信息（產(chǎn)品型號、產(chǎn)品數(shù)量、產(chǎn)品用途、產(chǎn)品價格、聯(lián)系方式）、苗木花卉養(yǎng)護方法、苗圃新聞、行業(yè)動態(tài)等，將其作為苗木花卉對外展示的一個網(wǎng)上平臺，以便吸引更多的客戶和游客.（3）需求信息發(fā)布通過該界面客戶可以向苗木花卉基地管理人員提交自己的苗木花卉需求（如：花卉名稱、數(shù)量、運貨方式以及發(fā)貨時間等），方便管理人員安排運輸計劃，爭取在最短的時間內(nèi)為客戶提供最好的服務(wù)，提高苗圃工作人員的辦事效率.3.7系統(tǒng)運行流程圖系統(tǒng)用戶數(shù)據(jù)系統(tǒng)用戶數(shù)據(jù)苗圃基本數(shù)據(jù)苗圃生產(chǎn)信息統(tǒng)計分析信息人員設(shè)備信息放大查詢等4數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計是分析和創(chuàng)建保存管理系統(tǒng)數(shù)據(jù)的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計，對整個系統(tǒng)的開發(fā)具有重要的關(guān)鍵作用。數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接影響系統(tǒng)的運行效果和系統(tǒng)開發(fā)進度，合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高系統(tǒng)運行效率，也有利于保證數(shù)據(jù)的一致性和完整性，也有利于系統(tǒng)的實現(xiàn)。4。1屬性數(shù)據(jù)庫設(shè)計4.1。1概念結(jié)構(gòu)設(shè)計概念結(jié)構(gòu)圖4。1.2結(jié)構(gòu)設(shè)計數(shù)據(jù)庫結(jié)構(gòu)設(shè)計要求根據(jù)數(shù)據(jù)字典、數(shù)據(jù)庫管理系統(tǒng)和系統(tǒng)開發(fā)工具設(shè)計數(shù)據(jù)庫及各個數(shù)據(jù)表的結(jié)構(gòu)。本系統(tǒng)使用MicrosoftAccess來建立“苗木花卉管理系統(tǒng)”的數(shù)據(jù)庫，由于篇幅有限，只列舉了一些關(guān)鍵表結(jié)構(gòu)：花卉數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號文本6是花卉名稱文本20是花卉單價貨幣是繁殖方法文本20是特性文本40是花期文本20是狀況文本10是用途文本100是客戶數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段客戶編號文本6是客戶名稱文本10是聯(lián)系電話文本14是地址文本30是需求數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段

花卉編號文本6是客戶編號文本6是定購時間日期/時間是發(fā)貨時間日期/時間是送貨方式文本10是定購數(shù)量貨幣是庫存數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號文本6是倉庫編號文本6是存儲時間日期/時間是存儲儲量數(shù)字是防治數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號文本6是病蟲害編號文本6是防治方法文本100是防治時間日期/時間否4.1.3創(chuàng)建數(shù)據(jù)庫具體操作步驟如下:A） 選擇"開始”/"程序”/MicrosoftAccess命令，啟動Access程序。B） 選擇“文件”/“新建〃，打開新建文件屬性對話框，選擇空數(shù)據(jù)庫打開“文件新建數(shù)據(jù)庫〃對話框。C） 在“保存類型〃下拉列表中選擇Access數(shù)據(jù)庫文件的保存位置，在“文件名〃下拉列表框中輸入“456”作為數(shù)據(jù)名稱。D） 單擊"創(chuàng)建"按鈕，MicrosoftAccess將創(chuàng)建一個空的數(shù)據(jù)庫，打開"數(shù)據(jù)庫〃窗口，如圖（a）所示。（a）E） 選中“對象〃列表中的“表〃，然后雙擊“使用設(shè)計器創(chuàng)建表”圖標，打開表設(shè)計器。在設(shè)計器中為表添加字段，定義字段的數(shù)據(jù)類型和屬性.F） 如圖（b）顯示了“系統(tǒng)用戶〃表的設(shè)計示圖。（b）按照上面的步驟自行創(chuàng)建“456”數(shù)據(jù)庫中的各個數(shù)據(jù)表.4。1。4創(chuàng)建數(shù)據(jù)庫連接任何數(shù)據(jù)庫的訪問操作都是建立在連接的基礎(chǔ)上.在連接字符串中，必須指正確的數(shù)據(jù)提供者、數(shù)據(jù)庫、數(shù)據(jù)庫服務(wù)器、訪問數(shù)據(jù)庫身份驗證方式以及用戶名、口令等信息。連接字符串中針對不同類型的提供者有各種不同的參數(shù)，具體操作步驟如下：A） 選擇“開始”/“程序”/“附件”/“記事本”命令，打開Windows記事本。B） 選擇“文件”/“另存為〃命令，打開“另存為〃對話框.C） 在“保存在”下拉列表中選擇文件保存為止，在“保存類型”下拉列表中選中“所有文件”，在“文件名”下拉列表框中輸入文件名，如“456.udl”.一定要保證文件擴展名為".udl”。D） 單擊“保存”按鈕，完成保存操作。E） 關(guān)閉記事本.到此創(chuàng)建了一個空的。udl類型文件。^雙擊剛才創(chuàng)建的文件，打開“數(shù)據(jù)庫連接屬性”對話框。G） 單擊“提供者”標簽，選擇一個提供者，如圖（c）所示.本系統(tǒng)使用Access2000數(shù)據(jù)庫，則應(yīng)選擇MicrosoftJet4。0OLEDBProvider。（c）H） 單擊“下一步”按鈕，打開“連接”標簽。I） 在“選擇或輸入數(shù)據(jù)庫名稱”文本框中輸入數(shù)據(jù)庫名稱（456。mdb），如圖（d）所示，也可單擊“…”打開選擇數(shù)據(jù)庫對話框。（d）J）選中“空白密碼”復(fù)選框。

K）單擊“測試連接〃按鈕，如果成功連接到指定數(shù)據(jù)庫，則會顯示如圖（e）所示提示信息。（e）L）單擊“數(shù)據(jù)庫連接屬性”對話框中的“確定”按鈕關(guān)閉對話框。再用記事本打開文件即可看到自己創(chuàng)建的連接字符串.4。2空間數(shù)據(jù)庫設(shè)計4。2。1數(shù)據(jù)獲取當數(shù)據(jù)量不是特別大，精度要求不是特別高的時候，可以采用一種折中的方法，就是屏幕跟蹤數(shù)字化。大體流程如下：（1） 紙質(zhì)地圖準備。（2） 建立新的圖層，并進行坐標系統(tǒng)、范圍的設(shè)置。（3） 在紙質(zhì)地圖上建立控制點，掃描。（4）配準紙質(zhì)地圖。所有圖鑒掃描后都必須經(jīng)過掃描糾正，對掃描后的柵格圖像進行檢查，以確保矢量化工作順利進行。矢量數(shù)據(jù)獲取的流程圖如下：圖層設(shè)置NAMEFeatureTYPEDescription

圖層設(shè)置NAMEFeatureTYPEDescription分區(qū)Polygon無功能區(qū)Polygon無防護林Polyline無分區(qū)圖層屬性設(shè)置NAMETYPEFieldPropertiesLENGTHFIDObjectIDShapeGeometry小區(qū)名String14面積float0小區(qū)介紹String200預(yù)計產(chǎn)值ShortInteger4(precision)完成情況ShortInteger4(precision)所屬區(qū)String10固定客戶ShortInteger0流動客戶ShortInteger0NAMETYPEFieldPropertiesLENGTHFIDObjectIDShapeGeometry區(qū)名String14面積float0分區(qū)介紹String200預(yù)計產(chǎn)值ShortInteger4(precision)完成情況ShortInteger4(precision)固定客戶ShortInteger0流動客戶ShortInteger0NAMETYPEFieldPropertiesLENGTHFIDObjectIDShapeGeometry名稱String8功能區(qū)圖層介紹防護林圖層屬性設(shè)置4.2。3圖層屬性值輸入5程序?qū)崿F(xiàn)與演示5。1登陸界面設(shè)計“苗木花卉管理系統(tǒng)”的“用戶登陸”窗體如圖（f）所示。在窗體中，需要輸入本科畢業(yè)設(shè)計說明書第18頁共52頁“用戶名”和“口令”并選擇適當?shù)纳矸荩缓髥螕簟按_定〃按鈕登陸窗體，單擊“取消”按鈕則取消登陸。(f)5。2主界面設(shè)計苗木花卉管理系統(tǒng)主窗體如圖(g)所示，它通過菜單將系統(tǒng)的其他窗體集成到一起，構(gòu)成一個完整的系統(tǒng)。苗木花卉管理系統(tǒng)主窗體是一個MDI窗體。(g)5。3系統(tǒng)各功能模塊界面設(shè)計5.3。1系統(tǒng)管理模塊界面設(shè)計系統(tǒng)用戶管理包括添加、刪除、修改以及查詢用戶登陸信息等管理.“系統(tǒng)用戶管理〃窗體如圖(h)所示.(h)“修改登陸口令”窗體如圖(i)所示(i)5。3.2基本信息管理模塊界面設(shè)計由于該模塊界面較多，就以花卉信息維護界面為例。管理員登陸系統(tǒng)后，對整個苗圃的花卉基本數(shù)據(jù)信息進行進行輸入、保存、更新、修改等操作，這些數(shù)據(jù)一般有固定的數(shù)據(jù)格式，輸入后自動保存分類。“花卉信息維護〃窗體如圖(j)所示。(j)“客戶資料管理”窗體如圖(k)所示。(k)5。3。3生產(chǎn)經(jīng)營管理模塊界面設(shè)計“種植信息管理〃窗體如圖(1)所示。(l)“防治信息管理”窗體如圖(m)所示。(m)“訂購信息管理”窗體如圖(n)所示.(n)5.3.4統(tǒng)計報表管理模塊界面設(shè)計“統(tǒng)計分析”窗體如圖(o)所示。(o)“報表輸出”結(jié)果如圖(p)所示。(p)5.3.6信息發(fā)布模塊界面設(shè)計A)“苗圃信息發(fā)布〃窗體如圖(q)所示.(q)B)“產(chǎn)品信息發(fā)布〃窗體如圖(r)所示(r)“需求信息發(fā)布”窗體如圖(s)所示。(s)5.4系統(tǒng)核心代碼函數(shù)map1_mousedown代碼：PrivateSubMap1_MouseDown(ButtonAsInteger，ShiftAsInteger，xAsSingle,yAsSingle)IfToolbar1。Buttons(1)。Value=1ThenSetMap1.Extent=Map1。TrackRectangle‘在地圖上用鼠標畫框，實現(xiàn)放大功能ElseIfToolbar1。Buttons(3).Value=1ThenMap1。Pan '在地圖上實現(xiàn)拖動漫游功能ElseIfToolbar1。Buttons(2).Value=1ThenSetr=Mapl.Extentr.ScaleRectangle1.5‘顯示框放大1。5倍Map1.Extent=r '重新顯示EndIfSetly1=Map1。Layers(”大棚”)Setp=Map1。ToMapPoint(x,y)Setrecs=ly1。SearchShape(p,moPointInPolygon,"〃)IfNotrecs.EOFThenListView1。Listitems。Clear ‘清空屬性顯示的列表框ForEachfldInrecs.FieldsSetnewitem=ListView1.ListItems。AddnewItem。Text=fld.NamenewItem.SubItems(1)=fld.ValueAsStringNextfldMap1。FlashShaperecs("shape").Value,1 ‘點擊圖層時閃爍一次EndIfSetly1=Map1。Layers("非生產(chǎn)區(qū)")Setp=Map1。ToMapPoint(x,y)Setrecs=ly1。SearchShape(p,moPointInPolygon,"")IfNotrecs。EOFThenListView1.ListItems。Clear ‘清空屬性列表ForEachfldInrecs。FieldsSetnewItem=ListView1。ListItems.AddnewItem。Text=fld.NamenewItem。SubItems(1)=fld.ValueAsStringNextfldMap1.FlashShaperecs("shape")。Value,1EndIfEndSub第21頁共52頁本科畢業(yè)設(shè)計說明書第21頁共52頁結(jié)論本系統(tǒng)采用VB6.0語言和MapObject技術(shù)來完成整個系統(tǒng)的設(shè)計，在數(shù)據(jù)庫的設(shè)計上利用了Access的便利性和實用性。主要實現(xiàn)以下功能A） 將GIS技術(shù)和計算機技術(shù)引入苗木花卉管理將使基地的各種數(shù)據(jù)的顯示更加直觀化，實現(xiàn)圖形漫游、數(shù)據(jù)共享和圖形屬性互查等功能。B） 實現(xiàn)基地基本信息的添加、刪除、保存、更新、統(tǒng)計分析和報表輸出功能極大地提高了管理者的工作效率。C） 實現(xiàn)信息發(fā)布實時動態(tài)化，極大地提高了苗木花卉信息的流通速度，減少產(chǎn)品的積壓和庫存.D） 使管理者既能夠通過圖形宏觀地了解和把握基地的總體情況，通過各種快捷的查詢手段了解各種苗木花卉情況，促進苗木花卉信息管理水平的現(xiàn)代化。系統(tǒng)在設(shè)計過程中不可避免地遇到了各種各樣的問題，由于整個系統(tǒng)完全都是由個人設(shè)計的，有關(guān)VB6。0和MapObject技術(shù)的許多細節(jié)問題都要靠自己去摸索，加之本人水平有限，還存在著許多不足之處。如：A） 受開發(fā)條件和開發(fā)時間的限制，本系統(tǒng)只利用了本地數(shù)據(jù)庫Access，它同應(yīng)用程序處于同一系統(tǒng)中，能存儲的數(shù)據(jù)量也有一定限制，并沒有發(fā)揮出GIS在數(shù)據(jù)庫管理方面的優(yōu)勢；B） 由于時間關(guān)系，系統(tǒng)功能實現(xiàn)不夠完善，使用不是很方便.這些都是需要完善的地方，該系統(tǒng)離實際使用也還有相當?shù)木嚯x，需要我進行不斷地補充和完善。通過本次畢業(yè)設(shè)計我學(xué)到了不少新的東西，也發(fā)現(xiàn)了大量的問題，有些在設(shè)計過程中已經(jīng)解決，有些還有待今后慢慢學(xué)習(xí)。只要學(xué)習(xí)就會有更多的問題，有更多的難點，但也會有更多的收獲。致謝經(jīng)過將近幾個月的忙碌和工作，本次畢業(yè)設(shè)計已經(jīng)接近尾聲，作為一個本科生的畢業(yè)設(shè)計，由于經(jīng)驗的匱乏，難免有許多考慮不周全的地方,如果沒有導(dǎo)師的督促指導(dǎo)，以及同學(xué)們的支持，想要完成這個設(shè)計是很困難的。第22頁共52頁在這里首先要感謝我的導(dǎo)師肖化順老師.本論文從選題到完成，每一步都是在肖老師的指導(dǎo)下完成的，傾注了肖老師師大量的心血.在此，謹向肖老師師表示崇高的敬意和衷心的感謝！其次還要感謝大學(xué)期間所有的老師，為我們打下地理信息系統(tǒng)專業(yè)知識的基礎(chǔ)；感謝楊志高老師、趙春燕老師、曹武老師一直以來對我的關(guān)心與幫助；同時還要感謝親愛的同學(xué)們對我的支持和鼓勵。最后感謝測繪學(xué)院和我的母校一中南林業(yè)科技大學(xué)四年來對我的大力栽培。參考文獻SmithJ.Thegeneralsituationoftheseedlingoftheworld[J]。AmSeedlingRes,1992.18(4):7—82BloomT,StraverB,BrownW,etal.Waterqualityforgreenhousecrops[j].FinlandFor1987,2,153—158陳瑾姚遠淺談長沙市國有園林苗圃規(guī)劃設(shè)計的構(gòu)思 園林規(guī)劃與設(shè)計2007年6月20日孟令奎史文中張鵬林網(wǎng)絡(luò)地理信息系統(tǒng)原理與技術(shù)北京:科學(xué)技術(shù)出版社2005年3月第一次版毛鋒程承旗孫大路韓梅勝地理信息系統(tǒng)建庫技術(shù)及其應(yīng)用北京：科學(xué)出版社2001年3月王占全趙斯思徐慧地理信息系統(tǒng)開發(fā)工程案例精選北京：人民郵電出版社2005年10月王亞民趙捧未地理信息系統(tǒng)及其應(yīng)用西安：西安電子科技大學(xué)出版社2006年6月張清浦劉紀平等政府地理信息系統(tǒng)北京:科學(xué)出版社2003年11月陳述澎魯學(xué)軍周成虎地理信息系統(tǒng)導(dǎo)論北京：科學(xué)出版社2006年11月陳俊宮鵬實用地理信息系統(tǒng)-一成功地理信息系統(tǒng)的建設(shè)與管理北京：科學(xué)出版社2001年2月韓鵬地理信息系統(tǒng)開發(fā) MapObjects方法武漢:武漢大學(xué)出版社2004年4月劉光地理信息系統(tǒng)二次開發(fā)教程組件篇北京:清華大學(xué)出版社2003年1月第一版薛偉MapObjects——地理信息系統(tǒng)程序設(shè)計北京：國防工業(yè)出版社2006年5月第三次印刷［14］ 李春葆張植民VisualBasic數(shù)據(jù)庫系統(tǒng)設(shè)計與開發(fā)北京：清華大學(xué)出版社2003年8月第一版［15］ 郭勝夏邦VisualBasic數(shù)據(jù)庫開發(fā)入門與范例解析北京：機械工業(yè)出版社2004年4月第一版［16］ 張俊玲王秀英籍淑麗郭鳳英數(shù)據(jù)庫原理與應(yīng)用北京：清華大學(xué)出版社2005年9月第一版［17］ 張勇VisualBasic精彩編程百例北京：中國水利水電出版社2002年8月第一版［18］ 夏邦貴劉凡馨VisualBasic6O0數(shù)據(jù)庫開發(fā)經(jīng)典實例精解北京:機械工業(yè)出版社2006年9月第一版［19］ 劉圣才李春葆VisualBasic6程序設(shè)計導(dǎo)學(xué) 北京：清華大學(xué)出版社2002年1月第一版［20］ 周厚高花木種養(yǎng)寶典一草本花卉廣州：世界圖書出版公司2003年9月第一版［21］ 毛洪玉園林花卉學(xué)北京：化學(xué)工業(yè)出版社2005年6月［22］ 潘百紅園林花卉學(xué)長沙：國防科技大學(xué)出版社2007年8月［23］ 王華興花卉栽培與養(yǎng)生北京：華文出版社2002年5月［24］ 郝建華郝晨曦園林樹木栽培技術(shù)北京：化學(xué)工業(yè)出版社2005年3月［25］ 方陸明童再康陳建秀等林木良種管理信息系統(tǒng)的建立［J］浙江林學(xué)院學(xué)報，1998,15(1)96-100［26］ 宋偉宋力國有苗圃管理信息系統(tǒng)的研建-—NMIS的設(shè)計和實施內(nèi)蒙古林業(yè)調(diào)查設(shè)計2005年第28卷第4期［27］ 邱進清肖石海劉代明謝國陽方煒蘭賀勝林木良種基地信息管理系統(tǒng)的研制林業(yè)科技開發(fā)2002年第16卷增刊附錄A系統(tǒng)其他屬性數(shù)據(jù)庫系統(tǒng)用戶數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段用戶名文本20是口令文本6是身份文本15是肥料數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段

肥料編號文本6是肥料名稱文本10是現(xiàn)存量數(shù)字是購買時間日期/時間是灌溉設(shè)施數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段設(shè)施編號文本6是設(shè)施名稱文本12是苗區(qū)編號文本6是灌溉類型文本10是病蟲害數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段病蟲害編號文本6是病蟲害名稱文本20是發(fā)生環(huán)境文本40否病蟲害類型文本10是倉庫數(shù)據(jù)表結(jié)構(gòu)苗字段名稱數(shù)據(jù)類型字段大小必填字段倉庫編號文本6是倉庫名稱文本20是剩余容量數(shù)字是清倉時間日期/時間是區(qū)數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段苗區(qū)編號文本6是苗區(qū)名稱文本10是苗區(qū)面積數(shù)字是苗區(qū)類型文本15是灌溉數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號文本6是設(shè)施編號文本6是灌溉周期文本10是施肥數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號文本6是肥料編號文本6是施肥標準數(shù)字是種植數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號文本6是苗區(qū)編號文本6是種植面積數(shù)字是附錄B系統(tǒng)程序代碼主界面程序代碼：PrivateSubBusinessInfor_Click()Forml。Show：Form1。SetFocusEndSubPrivateSubClientIfor_Click(indexAsInteger)ClientManage.Show:ClientManage。SetFocusEndSubPrivateSubCustomer_Click()Form4。Show：Form4.SetFocusEndSubPrivateSubDingQuery_Click(indexAsInteger)DinQuery。Show:DinQuery。SetFocusEndSubPrivateSubDinReport_Click()DataReport1。ShowEndSubPrivateSubExit_Click(indexAsInteger)EndEndSubPrivateSubFangzhiQuery_Click(indexAsInteger)FangQuery。Show：FangQuery。SetFocusEndSubPrivateSubFerManage_Click(indexAsInteger)FertManage.Show:FertManage.SetFocusEndSubPrivateSubFlowerQuery_Click(indexAsInteger)FlowQuery。Show：FlowQuery。SetFocusEndSubPrivateSubFlowManage_Click(indexAsInteger)FlowerManage。Show：FlowerManage.SetFocusEndSubPrivateSubGuaManage_Click(indexAsInteger)GuanManage.Show:GuanManage.SetFocusEndSubPrivateSubGuanQuery_Click(indexAsInteger)GuaQuery.Show：GuaQuery。SetFocusEndSubPrivateSubIllManage_Click(indexAsInteger)InsectManage.Show:InsectManage.SetFocusEndSubPrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)IfMsgBox(”你選擇了關(guān)閉苗木花卉管理系統(tǒng)，是否繼續(xù)?”，vbYesNo+vbInformation,”苗木花卉管理系統(tǒng)”)=vbYesThenIfNotMe。ActiveFormIsNothingThenMsgBox"請先關(guān)閉打開的子窗體!”，vbCritical,”苗木花卉管理系統(tǒng)”Cancel=1EndIfElseCancel=1EndIfEndSubPrivateSubMenuArrange_Click(indexAsInteger)systemmain.ArrangevbArrangeIconsEndSubPrivateSubMenuCascade_Click(indexAsInteger)systemmain。ArrangevbCascadeEndSubPrivateSubMenuHorizon_Click(indexAsInteger)systemmain。ArrangevbTileHorizontalEndSubPrivateSubMenuVertical_Click(indexAsInteger)systemmain。ArrangevbTileVerticalEndSubPrivateSubMiaoLook_Click(indexAsInteger)MiaoLooks。Show:MiaoLooks。SetFocusEndSubPrivateSubMiaoquManage_Click(indexAsInteger)MiaoManage。Show：MiaoManage.SetFocusEndSubPrivateSubRecitify_Click(indexAsInteger)ChangePassword。Show:ChangePassword。SetFocusEndSubPrivateSubShifeiQuery_Click(indexAsInteger)ShiQuery.Show：ShiQuery.SetFocusEndSubPrivateSubStatistical_Click()Form4。Show：Form4。SetFocusEndSubPrivateSubStoreQuery_Click(indexAsInteger)StorQuery。Show:StorQuery。SetFocusEndSubPrivateSubUserManage_Click(indexAsInteger)SysUserManage。Show：SysUserManage。SetFocusEndSubPrivateSubWarManage_Click(indexAsIntegei)WareManage。Show:WareManage。SetFocusEndSub登陸界面程序代碼：OptionExplicitConstmaxlogtimesAsInteger=3PrivateSubCommand1_Click()StaticintlogtimesAsIntegerDimintcheckedAsInteger,strnameAsString,strpasswordAsString,strstatusAsStringintlogtimes=intlogtimes+1Ifintlogtimes〉maxlogtimesThenMsgBox”你已經(jīng)”&vbCrLf&”應(yīng)用程序結(jié)束!”，vbCritical,”登錄驗證”EndElsestrname=Trim(Textl。Text)strpassword=Trim(Text2。Text)strstatus=Trim(Combol.Text)SelectCasecheck_password(strname,strpassword，strstatus)Case0MsgBox"<”&strname&">”&”不是系統(tǒng)用戶，請檢查用戶名輸入正確!”，vbCritical,”登錄驗證”Textl.SetFocusTextl.SelStart=0Textl.SelLength=Len(Textl)CaselMsgBox”口令錯誤，請重新輸入!”，vbCritical,”登錄驗證”Text2=””Text2。SetFocusCase2MsgBox”身份錯誤，請重新輸入!”，vbCritical,”登錄驗證”Combol=””ComboloSetFocusCase3thisusername=strnamethispassword=strpasswordthisstatus=strstatusUnloadMesystemmain。ShowCaseElseMsgBox”登錄驗證未正常進行！請重新運行登錄程序,"&vbCrLf&”如果人仍不能登錄，請報告系統(tǒng)管理員！”,vbCritical,”登錄驗證”EndSelectEndIfEndSubPrivateSubCommand2_Click()DiminresultAsIntegerinresult=MsgBox(”你選擇退出登錄系統(tǒng)，退出不能登錄!”&vbCrLf&”是否真的退出？”,vbYesNo,”登錄驗證”)Ifinresult=vbYesThenEndEndSubPrivateFunctioncheck_password(ByValusernameAsString,ByValpasswordAsStringByValstatusAsString)AsByteOnErrorGoTogperrorDimobjcnAsNewConnection,objrsAsNewRecordsei,strcnAsStringDimstrsqlAsStringobjcn。ConnectionString=”Provider=Microsoft。Jet.OLEDB.4.0；DataSource=D:V?木花卉管理信息系統(tǒng)'數(shù)據(jù)庫\456。mdb;PersistSecurityInfo=False”objcn。Openstrsql="select口令from系統(tǒng)用戶where用戶名=’”&username&"'"Setobjrs.ActiveConnection=objcnobjrs。Open(strsql)Ifobjrs。EOFThencheck_password=0ElseIfpassword<>Trim(objrs.Fields("口令").Value)Thencheck_password=1ElseIfstatus〈〉Trim(Combol.Text)Thencheck_password=2Elsecheck_password=3EndIfEndIfEndIfobjcn。CloseSetobjrs=NothingSetobjcn=NothingExitFunctiongperror:check_password=255Setobjrs=NothingSetobjcn=NothingEndFunction系統(tǒng)用戶管理程序代碼：DimobjcopyAsNewRecordset,isaddingAsBooleanPrivateSubAdodc1_MoveComplete(ByValadReasonAsADODB.EventReasonEnumByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB。Recordset)WithAdodc1.RecordsetIf.AbsolutePosition〉0ThenAdodc1。Caption=”當前記錄：”&。AbsolutePosition&”/”&.RecordCountElseAdodc1。Caption=”無系統(tǒng)用戶數(shù)據(jù)”EndIfEndWithEndSubPrivateSubAdodc1_WillChangeRecord(ByValadReasonAsADODB。EventReasonEnum,ByValcRecordsAsLong，adStatusAsADODB。EventStatusEnum，ByValpRecordsetAsADODB。Recordset)IfTrim(txtuser)=”"ThenMsgBox”用戶名不能為空！"，vbCritical，”系統(tǒng)用戶管理”txtuser="”：txtuseroSetFocusElseIfTrim(txtpwd)="”ThenMsgBox”口令為空!”，vbCritical, ”系統(tǒng)用戶管理”txtpwd="”：txtpwdoSetFocusElseIfTrim(cmbstatus)=ThenMsgBox”用戶身份不能為空!”，vbCritical,”系統(tǒng)用戶管理”cmbstatus='"':cmbstatus.SetFocusEndIfEndSubPrivateSubcmbstatus_Change()IfTrim(cmbstatus)=OrisaddingThencmdaddoEnabled=FalseElsecmdaddoEnabled=TrueEndIfEndSubPrivateSubcmdadd_Click()Adodc1.Recordset。AddNewcmdaddoEnabled=FalsecmbstatusoListIndex=1cmddeleteoEnabled=False:Adodc1.Enabled=FalsetxtuseroLocked=False：isadding=TrueEndSubPrivateSubcmddelete_Click()WithAdodc1.RecordsetIfNotoEOFThenIfMsgBox("將刪除"&Trim(txtuser)&”，是否繼續(xù)？”，vbCritical+vbYesNo,”系統(tǒng)用戶管理”)=vbYesThen。Delete.MoveNextIf.EOFAnd。RecordCount>0Then。MoveLastEndIfEndIfEndWithEndSubPrivateSubcmdexit_Click()UnloadMeEndSubPrivateSubcmdrefresh_Click()Adodc1.RefreshcmdaddoEnabled=True：cmddelete.Enabled=TruetxtuseroLocked=True：Adodc1.Enabled=Trueisadding=FalseSetobjcopy=Adodc1。RecordsetoCloneEndSubPrivateSubcmdsave_Click()IfTrim(txtuser)=””ThenMsgBox”用戶名不能為空！"，vbCritical, ”系統(tǒng)用戶管理”txtuser='"'：txtuseroSetFocusElseIfTrim(txtpwd)="”ThenMsgBox”口令為空!”vbCritical,”系統(tǒng)用戶管理”txtpwd=”"：txtpwdoSetFocusElseIfTrim(cmbstatus)="'ThenMsgBox”用戶身份不能為空!”，vbCritical,”系統(tǒng)用戶管理”cmbstatus="”：cmbstatus.SetFocusElseWithobjcopyIfoRecordCount〉0ThenoMoveFirst.Find”用戶名=’"&Trim(txtuser)&”’"IfNot.EOFAndoAbsolutePosition〈>Adodc1oRecordset.AbsolutePositionThenMsgBox”用戶名：”&Trim(txtuser)&”已被使用，請使用其他用戶名！”，vbCritical，”系統(tǒng)用戶管理”txtuserSetFocustxtuser.SelStart=0:txtuser.SelLength=Len(txtusei)ExitSubEndIfEndIfEndWithAdodc1.RecordsetUpdateMsgBox”數(shù)據(jù)保存成功!”，vbInformation,”系統(tǒng)用戶管理”cmdaddoEnabled=Truecmddelete。Enabled=True：Adodcl。Enabled=TruetxtuseroLocked=True：isadding=FalseSetobjcopy=Adodc1。RecordsetoCloneEndIfEndSubPrivateSubForm_Load()Setobjcopy=Adodc1.Recordset。ClonecmdrefreshoValue=TrueEndSubPrivateSubtxtpwd_Change()IfTrim(txtpwd)=OrisaddingThencmdaddoEnabled=FalseElsecmdadd.Enabled=TrueEndIfEndSubPrivateSubtxtpwd_KeyPress(KeyAsciiAsInteger)IfNot(KeyAscii〉=vbKey0AndKeyAscii〈=vbKey9OrKeyAscii>=vbKeyAAndKeyAscii<=vbKeyZOrKeyAscii〉=vbKeyAAndKeyAscii〈=vbKeyZOrKeyAscii=vbKeyBack)ThenKeyAscii=0EndIfEndSubPrivateSubtxtuser_Change()IfTrim(txtuser)=OrisaddingThencmdaddoEnabled=FalseElsecmdaddoEnabled=TrueEndIfEndSubPrivateSubtxtuser_KeyPress(KeyAsciiAsInteger)IfNot(KeyAscii〉=Asc("a”)AndKeyAscii〈=Asc(”z")OrKeyAscii>=Asc(''A”)AndKeyAscii〈=Asc(”Z")OrKeyAscii=vbKeyBack)ThenKeyAscii=0EndIfEndSub修改口令界面程序代碼：PrivateSubCommand1_Click()OnErrorGoTodealerrorIfTrim(Text2)=””ThenMsgBox”請輸入新口令!”，vbCritical, ”修改口令”Text2oSetFocusElseIfText3〈>Text2ThenMsgBox”兩次輸入的口令必須相同!”，vbCritical, ”修改口令”Text2oSetFocusText2oSelStart=0Text2。SelLength=Len(Text2)ElseDimobjcnAsNewConnectionstrcn=”Provider=Microsoft.Jet.OLEDB。4.0；DataSource=D：\苗木花卉管理信息系統(tǒng)\數(shù)據(jù)庫\456.mdb；PersistSecurityInfo=False”objcn。Openstrcnstrsql=”update系統(tǒng)用戶set口令='"&Text2&”’” &”where用戶名=’”&thisusername&"'"objcn。Executestrsql,isupdatedIfisupdated〉0Thenthispassword=Text2MsgBox"口令已被成功修改！"，vbInformation,"修改口令”ElseMsgBox”無法修改口令!”，vbCritical,”修改口令”EndIfobjcn。CloseSetobjcn=NothingEndIfExitSubdealerror:showerror"程序執(zhí)行出錯，錯誤信息如下:"&vbCrLf&Err。DescriptionEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1=thispasswordEndSub客戶資料管理界面程序代碼：DimobjcopyAsNewRecordset,isaddingAsBooleanPrivateSubAdodc1_MoveComplete(ByValadReasonAsADODBEventReasonEnum,ByValpErrorAsADODBoError,adStatusAsADODREventStatusEnum,ByValpRecordsetAsADODB.Recordse)WithAdodc1oRecordsetIf。AbsolutePosition〉0ThenAdodc1oCaption="當前記錄:"&。AbsolutePosition&"/"&。RecordCountElseAdodc1oCaption="無客戶數(shù)據(jù)"EndIfEndWithEndSubPrivateSubAdodc1_WillChangeRecord(ByValadReasonAsADODB。EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB。EventStatusEnum,ByValpRecordsetAsADODB.Recordset)IfTrim(txtcode)=""ThenMsgBox”客戶編號不能為空!”，vbCritical,”客戶資料管理”txtcode='"'：txtcodeoSetFocusElselfTrim(txtname)=”"ThenMsgBox”客戶名稱不能為空”，vbCritical,”客戶資料管理”txtname=”"：txtname.SetFocusElseIfTrim(txttel)=””ThenMsgBox”客戶電話不能為空”，vbCritical,”客戶資料管理”txttel="”：txttel.SetFocusElseIfTrim(txtaddress)=""ThenMsgBox”客戶地址不能為空”，vbCritical,”客戶資料管理”txtaddress="":txtaddressoSetFocusEndIfEndSubPrivateSubcmdadd_Click()Adodc1oRecordsetoAddNewcmdaddoEnabled=FalsecmddeleteoEnabled=False:Adodc1oEnabled=Falsetxtcode.Locked=False:isadding=TrueEndSubPrivateSubcmddelete_Click()WithAdodc1oRecordsetIfNotoEOFThenIfMsgBox(”將刪除客戶"&Trim(txtcode)&”，是否繼續(xù)?”，vbCritical+vbYesNo,客戶資料管理”)=vbYesThenoDelete.MoveNextIfoEOFAndoRecordCount>0ThenoMoveLastEndIfEndIfEndWithEndSubPrivateSubcmdexit_Click()UnloadMeEndSubPrivateSubcmdrefresh_Click()Adodc1Refreshcmdadd.Enabled=True:cmddeleteoEnabled=TruetxtcodeoLocked=True：AdodcloEnabled=Trueisadding=FalseSetobjcopy=AdodcloRecordsetoCloneEndSubPrivateSubcmdsave_Click()IfTrim(txtcode)=””ThenMsgBox”客戶編號不能為空!”,vbCritical,”客戶資料管理”txtcode=”"：txtcodeoSetFocusElseIfTrim(txtname)=ThenMsgBox”客戶名稱不能為空！"，vbCritical, ”客戶資料管理txtname=”"：txtname。SetFocusElselfTrim(txttel)=""ThenMsgBox”客戶電話不能為空!”vbCritical,”客戶資料管理”txttel='"'：txtteloSetFocusElseIfTrim(txtaddress)=ThenMsgBox”客戶地址不能為空！”,vbCritical,”客戶資料管理”txtaddress="”：txtaddressoSetFocusElseWithobjcopyIfoRecordCount〉0ThenoMoveFirstoFind"客戶編號=’”&Trim(txtcode)&”’"IfNotoEOFAndoAbsolutePosition〈〉A(chǔ)dodc1.RecordsetoAbsolutePositionThenMsgBox”客戶編號："&Trim(txtcode)&”已被使用，請使用其他客戶編號!”,vbCritical,"客戶資料管理”txtcodeoSetFocustxtcodeoSelStart=0txtcode.SelLength=Len(txtcode)ExitSubEndIfEndIfEndWithAdodc1oRecordsetoUpdateMsgBox”數(shù)據(jù)保存成功！"，vbInformation,”客戶資料管理"cmdaddoEnabled=TruecmddeleteoEnabled=True：Adodc1oEnabled=TruetxtcodeoLocked=True:isadding=FalseSetobjcopy=Adodc1oRecordset.CloneEndIfEndSubPrivateSubForm_Load()Setobjcopy=Adodc1oRecordsetoClonecmdrefresh.Value=TrueEndSubPrivateSubtxtaddress_Change()IfTrim(txtaddress)=OrisaddingThencmdaddoEnabled=FalseElsecmdadd.Enabled=TrueEndIfEndSubPrivateSubtxtcode_Change()IfTrim(txtcode)=””O(jiān)risaddingThencmdaddoEnabled=FalseElsecmdaddoEnabled=TrueEndIfEndSubPrivateSubtxtname_Change()IfTrim(txtname)=""OrisaddingThencmdaddoEnabled=FalseElsecmdaddoEnabled=TrueEndIfEndSubPrivateSubtxttel_Change()IfTrim(txttel)="”O(jiān)risaddingThencmdaddoEnabled=FalseElsecmdaddoEnabled=TrueEndIfEndSub花卉信息維護界面程序代碼；DimobjcopyAsNewRecordset,isaddingAsBooleanPrivateSubAdodc1_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODBoError,adStatusAsADODB.EventStatusEnumByValpRecordsetAsADODB.Recordset)WithAdodc1oRecordsetIfoAbsolutePosition〉0ThenAdodc1.Caption="當前記錄："&oAbsolutePosition&"/"&oRecordCountElseAdodc1oCaption="無花卉數(shù)據(jù)"EndIfEndWithEndSubPrivateSubAdodc1_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODBoRecordset)IfTrim(txtcode)="”ThenMsgBox”花卉編號不能為空!”，vb