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

1、精選優(yōu)質文檔傾情為你奉上精選優(yōu)質文檔傾情為你奉上專心專注專業(yè)專心專注專業(yè)精選優(yōu)質文檔傾情為你奉上專心專注專業(yè)1 引言1.1 研究背景近幾年來，園林綠化作為城市建設的重要組成部分，有了新的發(fā)展機遇，同時也帶動了苗木花卉生產(chǎn)的發(fā)展。隨著社會進步，人民對居住環(huán)境的重視以及西部大開發(fā)，綠化苗木花卉的需求量越來越大。尤其是近十幾年來，隨著世界花卉產(chǎn)業(yè)的興起，花卉種苗作為其中最為重要的一部分，正逐漸成為發(fā)達國家花木產(chǎn)業(yè)鏈中獲利最大的新興行業(yè)，其經(jīng)濟效益在發(fā)達國家農產(chǎn)品總產(chǎn)值中所占的比值越來越高。不少大型企業(yè)也開始“綠色銀行”的苗木花卉生產(chǎn)，許多地區(qū)把苗木花卉作為農業(yè)產(chǎn)業(yè)化調整的主要方向，苗木花卉產(chǎn)業(yè)在我國

2、已成為具有巨大潛力的朝陽產(chǎn)業(yè)。 據(jù)統(tǒng)計調查數(shù)據(jù)，僅湖南省2004年花卉苗木種植面積2.775萬畝，銷售金額12.7億元，其中綠化苗木收入達12.32億元。1.2研究現(xiàn)狀從國外來看，加拿大在20世紀80年代就有自己獨立的苗圃管理系統(tǒng)，從育苗到出圃有一整套信息系統(tǒng)，極大地提高了生產(chǎn)管理效率。 除此之外，許多國家已經(jīng)在苗圃中利用計算機電子表格來估計組織培苗和裸根苗的成本，并進行管理。1美國在20世紀90年代就開發(fā)了適合溫室的苗木花卉管理信息系統(tǒng)。2我國在苗木花卉種苗品種培育、繁殖、采后處理、貯藏以及銷售等方面的研究起步較晚，目前國內高檔切花以及盆花的種苗大多通過進口獲得，雖然國內也有一些種苗公司生產(chǎn)

3、類似的種苗，但大多由于品質不佳、栽培價值差，致使市場占有率低，無法與國外的花卉種苗相抗衡。3 改革開放以來，我國苗木花卉產(chǎn)業(yè)得到了全面發(fā)展，但同國外苗木花卉產(chǎn)業(yè)發(fā)達的國家相比，仍然存在一定的差距，尤其在競爭力、發(fā)展動力和管理運作體制等都處于落后狀態(tài)。1.3研究目的和意義 GIS系統(tǒng)是融計算機圖形與數(shù)據(jù)庫于一體，存儲和處理空間信息的高新技術,它把地理位置和相關屬性有機地結合起來，并借助其獨有的空間分析功能和可視化表達方式，提供各種輔助決策功能。4將GIS技術和空間數(shù)據(jù)庫技術引入苗木花卉管理將使基地的各種數(shù)據(jù)的顯示更加直觀化,實現(xiàn)數(shù)據(jù)漫游和共享，方便基地各個功能信息的輸入、存儲、處理、綜合分析和結

4、果輸出，極大地提高了管理者的工作效率。同時，可使管理者既能夠通過圖形宏觀地了解和把握基地的總體情況，又能通過各種快捷的查詢手段了解各種非圖形因素的情況,使管理者可獲得的信息量成倍地提高,促進苗木花卉信息管理水平的現(xiàn)代化。系統(tǒng)分析2.1系統(tǒng)目標2.1.1 實現(xiàn)苗圃管理徹底的信息化，改變傳統(tǒng)的依靠文件發(fā)送信息的傳遞方式，實現(xiàn)無紙化辦公，達到管理費用降低，加快信息流通速度，有利于決策層及時、準確地把握經(jīng)營狀況和發(fā)展趨勢，及時調整經(jīng)營策略、制定發(fā)展計劃。2.1.2生產(chǎn)銷售信息化以苗木花卉生產(chǎn)為基礎，對生產(chǎn)技術和管理進行研究和規(guī)劃，建立生產(chǎn)種植和遠程技術服務系統(tǒng)，從而促進苗木花卉產(chǎn)業(yè)信息化進程。通過對生

5、產(chǎn)銷售過程中涉及到的種植、施肥、病蟲害防治、灌溉、訂購等一系列流程的信息化管理，從而提高苗圃工作人員工作效率和工作的透明度。2.1.3 信息通過建立苗木花卉信息發(fā)布界面，方便用戶及時了解苗圃最新的銷售信息（如：苗木新聞,產(chǎn)品信息,供求信息等），加快苗木花卉產(chǎn)品的周轉速度。2.1.4 規(guī)劃分區(qū)合理化突破傳統(tǒng)苗圃單一生產(chǎn)的模式，充分發(fā)揮現(xiàn)代苗圃的共產(chǎn)、展示、科研、培訓、觀光旅游和休閑功能，因地制宜布置生產(chǎn)區(qū)和休閑區(qū)，創(chuàng)造富有地方特色的空間布局，全面提高生態(tài)效益、社會效益和經(jīng)濟效益。2.2 主要問題據(jù)調查統(tǒng)計，多年來我國園林苗圃一直沿用傳統(tǒng)的露天苗圃栽培方式，大多數(shù)品種單一，規(guī)模小，生產(chǎn)技術落后，苗

6、木質量不穩(wěn)定，苗木成活率低，產(chǎn)品供應季節(jié)短，生產(chǎn)周期長，生產(chǎn)率低，占用大量的優(yōu)質農田。而且有些苗圃，尤其是國有苗圃中，生產(chǎn)和銷售嚴重脫節(jié)，生產(chǎn)的只顧生產(chǎn)，不關心銷售狀況；銷售的只顧銷售，也不了解苗圃中有多少苗木花卉可以銷售。目前，我國園林綠化苗木的生產(chǎn)水平遠遠跟不上發(fā)展需要，而且由于苗圃基地培育的苗木花卉種類經(jīng)常會很多，因此按照傳統(tǒng)的人工管理方式，會存在以下問題：(1)種類繁多、品種齊全，信息管理困難。(2)無法進行準確及時的監(jiān)控。(3)管理信息相互獨立，市場預測手段、方法落后，嚴重影響生產(chǎn)者的科學決策，建立科學的市場信息反饋系統(tǒng)已迫在眉睫。(4)在生產(chǎn)和銷售環(huán)節(jié)，不能準確地掌握質量的變化，尤

7、其一些客戶投訴或降級使用的次品，無法做到全程跟蹤，影響到市場的銷售。(5)不能有效管理異地倉庫和辦事處銷售業(yè)務。此外，還有培育、設施建設、病蟲害防治和客戶資料等方面，依靠單純傳統(tǒng)的人工技術已經(jīng)遠遠不能適應現(xiàn)如今市場的需求。2.3 可行性分析苗木花卉管理信息系統(tǒng)是依據(jù)市場的迫切需求設計的，運用先進的信息平臺、高新技術集成和及時更新苗木花卉信息監(jiān)測管理和基地工程建設等各類信息，全面提升苗木花卉信息管理的水平和效益，從苗木花卉的選種、育苗、灌溉和病蟲害防治到儲存、銷售和在線客戶服務等方面給予了詳細介紹，應用此系統(tǒng)可以基本解決人工技術無法涉及的領域。比如：病蟲害防治培訓班，管理人員根據(jù)近期測報結果和害

8、蟲活動規(guī)律，重點講授了苗木花卉的主要有害生物的防治方法、防治時間、藥劑選擇及用量以及演示成果虛擬圖等內容，可以讓用戶接觸更為直接的視覺效果。從技術上講，現(xiàn)行的網(wǎng)絡技術和計算機技術完全能完成本系統(tǒng)的功能要求。就收益而言，系統(tǒng)投入使用后能加快資金的周轉，提高資金的利用率，而且可以提高管理效率，減少人力資源的浪費。在社會可行性方面，系統(tǒng)的開發(fā)使用與現(xiàn)行的管理制度沒有沖突，而且現(xiàn)在員工通過培訓可以很容易掌握和使用系統(tǒng)。綜上所述，該系統(tǒng)具備可開發(fā)的條件，項目可行，建議開始開發(fā)。2.4 系統(tǒng)開發(fā)環(huán)境介紹2.4.1Visual Basic 即可視化 的Basic 。Basic 是Beginners All-

9、purpose Symbolic Instruction Code（初學者通用符號指令代碼）的所寫。Basic誕生與20世紀60年代初期，因為簡單易學、使用方便，很快被普及推廣。但隨著計算機軟硬件技術的不斷發(fā)展，特別是Windows操作系統(tǒng)的流行。Basic的缺點和局限性逐漸顯示出來。1991年，Microsoft推出了Visual Basic 1.0。Visual Basic繼承了Basic的部分語言特點，但Visual Basic功能更強大，具有Windows風格的圖形界面，使用起來更加方便。在Visual Basic可視化的開發(fā)環(huán)境中可以快速方便地創(chuàng)建具有Windows圖形界面，并且功能

10、強大而完整的應用程序?？茖W計算數(shù)據(jù)庫管理客戶/服務器模式Internet/Intranet等方面的應用程序都可用Visual Basic開發(fā)。2.4.2 MapObjecMapObject是由美國的ESRI（Environment System Research Institute，環(huán)境系統(tǒng)研究所）開發(fā)，是當今流行的組件式GIS開發(fā)軟件。MapObject是一組地圖軟件的組件（ActiveX控件），利用它可以在普通的編程語言（如VB、VC、Delphi）上實現(xiàn)主要的地理信息系統(tǒng)（其中主要的就是電子地圖的功能）的功能。MapObject簡稱MO。通過MapObjects你可靈活地建立適合用戶的地

11、圖接口。在小內存空間中，你能用多種工業(yè)標準程序環(huán)境之一去建立應用程序，你能夠聯(lián)合使用MapObjects與其它軟件去實現(xiàn)地圖與用戶信息的聯(lián)系。2.4.3語言的選?。篗icrosoft Visual Basic 6.0所使用的數(shù)據(jù)庫：Microsoft Access 2003操作系統(tǒng)：Microsoft Windows xp2.4.4Intel80586以上的處理器；64MB或以上的內存；4GB或以上的硬盤；鼠標鍵盤；3VGA或LCD顯示器；2.4.5 運行環(huán)境開發(fā)環(huán)境：Windows XP開發(fā)工具：Microsoft Visual Basic 6.0和MapObjec技術3 系統(tǒng)設計系統(tǒng)設計是

12、管理系統(tǒng)開發(fā)的起點，也是整個管理系統(tǒng)實現(xiàn)過程中的關鍵環(huán)節(jié)，因為如果系統(tǒng)設計環(huán)節(jié)做得不好，會影響到系統(tǒng)實現(xiàn)的后繼環(huán)節(jié)，甚至造成開發(fā)失敗。苗木花卉管理信息系統(tǒng)的開發(fā)是根據(jù)系統(tǒng)論的觀點，從管理學理論入手，針對苗圃生產(chǎn)和經(jīng)營的實際問題而設計的，除了必須滿足管理活動的實際需要，同時也要考慮將來苗圃的發(fā)展。苗木花卉管理信息系統(tǒng)苗木花卉管理系統(tǒng)主要包括如下幾大功能模塊：苗木花卉管理信息系統(tǒng)統(tǒng)計報表管理人員設備管理生產(chǎn)經(jīng)營管理基本信息管理信息發(fā)布系統(tǒng)統(tǒng)計報表管理人員設備管理生產(chǎn)經(jīng)營管理基本信息管理信息發(fā)布系統(tǒng)維護3.1 系統(tǒng)管理子系統(tǒng)系統(tǒng)用戶管理是每個系統(tǒng)必須具備的功能 ,因此這部分功能比較通用，主要包含的子

13、功能模塊如圖所示：系系 統(tǒng) 維 護更改密碼用戶管理更改密碼用戶管理用戶管理：用于管理系統(tǒng)的登陸人員，并且根據(jù)各登陸人員使用系統(tǒng)操作的權限對其進行分組，本系統(tǒng)主要分為管理員和普通用戶。包括用戶名、密碼等基本信息的添加、刪除、保存、更新等操作。更改密碼：用于用戶更改自己的密碼。3.2 基本信息管理子系統(tǒng)基本信息主要是指苗木花卉基地最基本最重要的信息，包括花卉信息、客戶信息、肥料信息等，脫離了基本信息，苗木花卉管理信息系統(tǒng)就無法運行?；拘畔⒕S護用于維護這些基本信息，包括的功能模塊如圖所示。基本信息管理基本信息管理倉庫信息維護設備信息維護員工信息維護肥料信息維護客戶信息維護病蟲害信息維護花卉信息維護

14、倉庫信息維護設備信息維護員工信息維護肥料信息維護客戶信息維護病蟲害信息維護花卉信息維護花卉信息維護：用于維護（添加、刪除、更新、保存）苗圃產(chǎn)品的基本信息。包括花卉編號、花卉名稱、花卉單價、繁殖方法、特性、花期狀況和用途等數(shù)據(jù)項?？蛻粜畔⒕S護：用于維護（添加、刪除、更新、保存）苗圃客戶的基本信息。包括客戶編號、客戶名稱、聯(lián)系電話和地址等數(shù)據(jù)項。肥料信息維護：用于維護（添加、刪除、更新、保存）苗圃肥料的基本信息。包括肥料編號、肥料名稱、現(xiàn)存量和購買時間等數(shù)據(jù)項。病蟲害信息維護：用于維護（添加、刪除、更新、保存）苗圃病蟲害的基本信息。包括病蟲害編號、病蟲害名稱、發(fā)生環(huán)境和病蟲害類型等數(shù)據(jù)項。員工信息

15、維護：用于維護（添加、刪除、更新、保存）苗圃工作人員的基本信息。包括員工編號、員工名稱、性別、部門、聯(lián)系電話、職務等數(shù)據(jù)項。設備信息維護：用于維護（添加、刪除、更新、保存）苗圃常用設備的基本信息。包括設備編號、設備名稱、設備類型和現(xiàn)有數(shù)量等數(shù)據(jù)項。倉庫信息維護：用于維護（添加、刪除、更新、保存）苗圃倉庫的基本信息。倉庫數(shù)據(jù)信息：包括倉庫編號、倉庫名稱、剩余容量和清倉時間等數(shù)據(jù)項。3.3 生產(chǎn)經(jīng)營管理子系統(tǒng)主要包括生產(chǎn)經(jīng)營過程中所涉及到的一系列的選種、施肥、灌溉、病蟲害防治、存儲等一系列的信息管理，并針對不同的情況提供相關信息的查詢與幫助措施，為銷售部門提供最新的產(chǎn)品信息，并根據(jù)市場需求實時動態(tài)

16、地制定生產(chǎn)計劃和決策。包括的功能模塊如下圖所示。生產(chǎn)經(jīng)營管理生產(chǎn)經(jīng)營管理庫存信息管理訂購信息管理防治信息管理灌溉信息管理庫存信息管理訂購信息管理防治信息管理灌溉信息管理施肥信息管理種植信息管理種植信息管理：管理人員可以通過花期查詢同一花期不同花卉的單價、繁殖方法、狀況、特性和用途等。從而根據(jù)市場需求、土地利用狀況以及利潤空間等來安排生產(chǎn)，并對已種植的花卉進行實時的管理。灌溉信息管理：管理人員可以通過設施編號和名稱查詢各種花卉的灌溉類型以及灌溉周期等。從而根據(jù)苗木花卉的生長狀況實時地調整灌溉方法與措施。施肥信息管理：管理人員可以通過花卉編號和名稱查詢各種花卉的施肥標準以及肥料的現(xiàn)存量和購買時間。

17、從而根據(jù)苗木花卉的生長狀況調整施肥量，并依據(jù)種苗對肥料的需求量來實時更新肥料的庫存信息，防治信息管理：管理人員可以通過病蟲害編號和名稱查詢各種病蟲害針對不同的花卉的防治方法以及它的發(fā)生環(huán)境。從而根據(jù)種苗的生長狀況來制定相應的防治措施，將病蟲害的危害減小到最小程度。 訂購信息管理：管理人員可以通過花卉編號和名稱查詢定購該花卉的客戶信息以及相應的定購時間、訂購數(shù)量和發(fā)貨方式等，從而實時地調整生產(chǎn)計劃，并做好各種苗木花卉產(chǎn)品的發(fā)貨準備。庫存信息管理：管理人員可以通過花卉編號和存儲時間查詢各種苗木花卉的庫存信息（例如：庫存數(shù)量、庫存時間等），從而可以為銷售部門提供最新的花卉產(chǎn)品信息，便于其及時地調整各

18、種苗木花卉庫存信息，考慮到倉庫的容量問題，也可以實時地清理倉庫，節(jié)約存儲空間。3.4 統(tǒng)計報表管理子系統(tǒng)統(tǒng)計報表管理可根據(jù)年度苗木調查和本地區(qū)管理部門或國家制定的苗木標準進行比較分析，統(tǒng)計苗圃完成情況、計算苗木生產(chǎn)成本、輸出其他臨時統(tǒng)計表，并按統(tǒng)計結果生成統(tǒng)計報表等。包括的功能模塊如下圖所示。統(tǒng)計報表管理 報表輸出統(tǒng)計分析報表輸出統(tǒng)計分析統(tǒng)計分析：用于統(tǒng)計和分析苗木花卉基地的生產(chǎn)、庫存和銷售數(shù)據(jù)，供苗圃決策者作為決策依據(jù)。其最常用的功能就是對苗圃的歷史數(shù)據(jù)進行統(tǒng)計分析，以直觀的形式表現(xiàn)出來。主要包括以下幾個方面的統(tǒng)計:客戶資料統(tǒng)計分析、銷售產(chǎn)品統(tǒng)計分析、庫存積壓統(tǒng)計分析等。生成報表：可以幫助苗

19、木花卉基地全面利用分散的數(shù)據(jù)，生成各類報表，對大量報表進行分類管理。苗圃的高層管理者、部門經(jīng)理和不同職位上的業(yè)務人員都可以方便地通過各類報表，獲得不同數(shù)據(jù)庫中的數(shù)據(jù)，進行整理、匯總、分析，有效進行績效管理，透視苗木花卉業(yè)運行情況，從而。主要包括以下幾個方面的報表：訂購報表、銷售報表、生產(chǎn)報表等。3.5 人員設備管理子系統(tǒng)主要負責日常的人事變動、苗農機具、車隊等設備的管理以及相應物資的采購，并對各種數(shù)據(jù)進行備份和檔案管理。包括的子功能模塊如下圖所示。人員人員設備管理人員調動管理設備維修管理設備采購管理人員工資管理人員調動管理設備維修管理設備采購管理人員工資管理 人事工資管理：主要負責職工平時工資

20、的發(fā)放，以及職稱、獎金的評定等工作。第一次使用該功能時員工的基本薪資信息，例如基本工資、各種補貼和各種保險等，需要人工輸入，輸入無誤后通過系統(tǒng)可以自動計算出應發(fā)金額合計、應扣金額合計、工資合計、個人所得稅等數(shù)據(jù)。人事調動管理：用于輸入、修改、查詢員工的的調動、上崗、離職記錄，包括員工編號、所在部門、離職（調動）原因、離職日期等信息。設備采購管理：用于管理錄入苗圃的設備采購信息，包括采購訂單、入庫單、采購金額、采購數(shù)量等信息。設備維修管理：用于對一些生產(chǎn)中出了問題的設備進行維修并進行相應的登記，主要包括需維修設備編號、故障原因、維修費用、維修日期等信息。3.6信息發(fā)布子系統(tǒng)主要是結合苗圃綠化環(huán)保

21、功能以及人們對生活質量的需求，一方面牢牢把握苗圃作為城市園林提供植物材料的主業(yè)，另一方面改變原有苗圃功能單一，充分考慮其觀賞休閑的功能，結合基地的特點，因地制宜布置生產(chǎn)區(qū)和休閑區(qū)，創(chuàng)造有特色的空間布局，全面提高生態(tài)效益、社會效益和經(jīng)濟效益。33.6.1苗圃主要分區(qū)生產(chǎn)區(qū)：對外生產(chǎn)花卉苗木，對內為休閑區(qū)提供苗木花卉供給；休閑景觀區(qū)：主要是以生產(chǎn)用地為依托，充分發(fā)揮其景觀輻散作用；生態(tài)保護區(qū)：保護性地利用原有山林地貌、半原始狀態(tài)的人工生態(tài)群落景觀和遠眺園區(qū)全貌；培訓接待區(qū)：位于苗木花卉基地中部，主要負責園林科技推廣和培訓的功能需要，同時也為游客提供接待、培訓、餐飲等便利的服務。后勤管理區(qū)：位于苗木

22、花卉基地東部，主要負責行政辦公等核心管理工作。3.6.2生產(chǎn)區(qū)劃分A）溫室大棚區(qū)：主要生產(chǎ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、1016cm的大喬木，56.8cm左右的中喬木，2.53.4cm左右的小喬木。 E) 灌木生產(chǎn)區(qū)：生產(chǎn)觀賞性強的觀花、觀葉和觀國類品種。F) 盆景園：盆景生產(chǎn)、展示和銷售。G) 松柏園：種植

23、松柏類植物。H) 百果園：種植適合本地生長的果木品種。I) 景觀類生產(chǎn)用地：配置多種園林類植物新材料。H）專類園: 紅花橙木園、杜鵑園、木蘭山茶園、竹類園、梅花園、海棠園、櫻花園等專類園。3.6.3休閑景觀區(qū)劃分A）休閑游覽區(qū)由廣場、人湖、祭刀閣等組成，首先作為苗圃的入口星系那個，其次為生產(chǎn)提供展示窗口，其三可成為主要的休閑游覽場所。B）休閑度假區(qū)由培訓接待中心、生態(tài)餐館、休閑會所、休閑屋、天湖、地湖和楓香銀杏園、木蘭山茶園、槭樹杜娟園、桃園四個植物專類園以及部分生態(tài)森林組成。C）休閑運動區(qū)充分利用二期范圍的山地資源，開展野營、野炊、攀巖、爬山等戶外山體運動形成以天子嶺山頂俱樂部為中心的生態(tài)山

24、林場景，輔以“歲寒三友”松、竹、梅三種植物專類園的休閑運動區(qū)。3.6.4 信息發(fā)布子系統(tǒng)主要包括以下幾個功能模塊信息發(fā)布信息發(fā)布苗圃信息發(fā)布產(chǎn)品信息發(fā)布需求信息發(fā)布苗圃信息發(fā)布產(chǎn)品信息發(fā)布需求信息發(fā)布(1)苗圃信息發(fā)布苗圃信息發(fā)布苗圃信息發(fā)布漫游縮放功能漫游縮放功能“鷹眼”功能地圖分級顯示圖層控制功能用戶查詢功能 A) 漫游縮放功能實現(xiàn)苗圃分區(qū)圖的中心放大、中心縮小、中心移動、任意中心縮小、全圖顯示及平滑漫游等功能，還可以實現(xiàn)無縫、無刷新的視覺效果，便于用戶（包括顧客和與游客）對苗圃進行快速瀏覽和定位。B）“鷹眼”功能圖中右下腳顯示的是苗圃分區(qū)圖的縮略圖，用戶可以在縮略圖上移動當前視窗所處的地

25、理位置。在局部區(qū)域圖上進行縮放及移動的效果也能在縮略圖上得到反映。C）地圖分級顯示圖形縮放時，可以根據(jù)當前視窗情況，調整地圖的顯示比例、地圖要素的顯示層數(shù)和相應層中信息量的疏密關系，以獲得最佳的苗圃分區(qū)圖顯示效果和漫游速度。D）圖層控制功能可以根據(jù)需要，通過復選框按鈕來選擇需要顯示或關閉的圖層。用戶查詢功能用戶在苗圃分區(qū)圖上可以進行各個方向的查詢，即從分區(qū)圖到屬性和從屬性到分區(qū)圖的查詢。前者是指通過在分區(qū)圖上選擇一個點位來獲取其該分區(qū)屬性信息（如：灌木生產(chǎn)區(qū)、大苗生產(chǎn)區(qū)、容器苗木區(qū)、休閑度假區(qū)等）；后者是指用戶可以按多種方式對苗圃產(chǎn)品查詢條件進行限定，以快速查到符合自己要求的苗圃產(chǎn)品信息集合，

26、并將查詢到的結果在分區(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ā)貨時間等），方便管理人員安排運輸計劃，爭取在最短的時間內為客戶提供最好的服務，提高苗圃工作人員的辦事效率。3.7系統(tǒng)運行流程圖管理員管理員普通用戶普通用戶普通用戶管理員管理員用戶登陸系統(tǒng)管理基本信息維護生產(chǎn)經(jīng)營管理統(tǒng)計報表管理人員設備管理

27、信息發(fā)布系統(tǒng)用戶數(shù)據(jù)苗圃基本數(shù)據(jù)苗圃生產(chǎn)信息統(tǒng)計分析信息人員設備信息放大查詢等4 數(shù)據(jù)庫設計數(shù)據(jù)庫設計是分析和創(chuàng)建保存管理系統(tǒng)數(shù)據(jù)的數(shù)據(jù)庫結構設計，對整個系統(tǒng)的開發(fā)具有重要的關鍵作用。數(shù)據(jù)庫結構設計的好壞將直接影響系統(tǒng)的運行效果和系統(tǒng)開發(fā)進度，合理的數(shù)據(jù)庫結構設計可以提高系統(tǒng)運行效率，也有利于保證數(shù)據(jù)的一致性和完整性，也有利于系統(tǒng)的實現(xiàn)。4.1 屬性數(shù)據(jù)庫設計 4.1.1 概念結構設計 概念結構圖4.1.2 結構設計 數(shù)據(jù)庫結構設計要求根據(jù)數(shù)據(jù)字典、數(shù)據(jù)庫管理系統(tǒng)和系統(tǒng)開發(fā)工具設計數(shù)據(jù)庫及各個數(shù)據(jù)表的結構。本系統(tǒng)使用Microsoft Access 來建立“苗木花卉管理系統(tǒng)”的數(shù)據(jù)庫，由于篇幅

28、有限，只列舉了一些關鍵表結構：花卉數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號 文本 6 是花卉名稱 文本 20 是花卉單價 貨幣 是繁殖方法 文本 20 是特性 文本 40 是花期 文本 20 是狀況 文本 10 是用途 文本 100 是客戶數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段客戶編號 文本 6 是客戶名稱 文本 10 是聯(lián)系電話 文本 14 是地址 文本 30 是需求數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號 文本 6 是客戶編號 文本 6 是定購時間日期/時間 是發(fā)貨時間日期/時間 是送貨方式 文本 10 是定購數(shù)量 貨幣 是庫存數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填

29、字段花卉編號 文本 6 是倉庫編號 文本 6 是存儲時間日期/時間 是存儲儲量 數(shù)字 是防治數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號 文本 6 是病蟲害編號 文本 6 是防治方法 文本 100 是防治時間日期/時間 否4.1.3具體操作步驟如下：A) 選擇“開始”/“程序”/Microsoft Access 命令，啟動Access 程序。 B) 選擇“文件”/“新建”，打開新建文件屬性對話框，選擇空數(shù)據(jù)庫，打開“文件新建數(shù)據(jù)庫”對話框。C) 在“保存類型”下拉列表中選擇Access 數(shù)據(jù)庫文件的保存位置，在“文件名”下拉列表框中輸入“456”D) 單擊“創(chuàng)建”按鈕，Microsoft

30、 Access 將創(chuàng)建一個空的數(shù)據(jù)庫，打開“數(shù)據(jù)庫”窗口，如圖(a）所示。(a)E) 選中“對象”列表中的“表”，然后雙擊“使用設計器創(chuàng)建表”圖標，打開表設計器。在設計器中為表添加字段，定義字段的數(shù)據(jù)類型和屬性。F) 如圖(b)顯示了“系統(tǒng)用戶”表的設計示圖。(b)按照上面的步驟自行創(chuàng)建“456”數(shù)據(jù)庫中的各個數(shù)據(jù)表。4.1.4 創(chuàng)建數(shù)據(jù)庫連接 任何數(shù)據(jù)庫的訪問操作都是建立在連接的基礎上。在連接字符串中，必須指正確的數(shù)據(jù)提供者、數(shù)據(jù)庫、數(shù)據(jù)庫服務器、訪問數(shù)據(jù)庫身份驗證方式以及用戶名、口令等信息。連接字符串中針對不同類型的提供者有各種不同的參數(shù)，具體操作步驟如下：A）選擇“開始”/“程序”/“附

31、件”/“記事本”命令，打開Windows記事本。B) 選擇“文件”/“另存為”命令，打開“另存為”對話框。C）在“保存在”下拉列表中選擇文件保存為止，在“保存類型”下拉列表中選中“所有文件”，在“文件名”下拉列表框中輸入文件名，如“456.udl”。一定要保證文件擴展名為“.udl”。D）單擊“保存”按鈕，完成保存操作。E）關閉記事本。到此創(chuàng)建了一個空的.udl類型文件。F）雙擊剛才創(chuàng)建的文件，打開“數(shù)據(jù)庫連接屬性”對話框。G）單擊“提供者”標簽，選擇一個提供者，如圖(c)所示。本系統(tǒng)使用Access 2000數(shù)據(jù)庫，則應選擇Microsoft Jet 4.0 OLE DB Provider。

32、(c)H）單擊“下一步”按鈕，打開“連接”標簽.I）在“選擇或輸入數(shù)據(jù)庫名稱”文本框中輸入數(shù)據(jù)庫名稱（456.mdb），如圖(d)所示，也可單擊“”打開選擇數(shù)據(jù)庫對話框。(d)J）選中“空白密碼”復選框。K）單擊“測試連接”按鈕 ，如果成功連接到指定數(shù)據(jù)庫，則會顯示如圖(e)所示提示信息。(e)L）單擊“數(shù)據(jù)庫連接屬性”對話框中的“確定”按鈕關閉對話框。再用記事本打開文件即可看到自己創(chuàng)建的連接字符串。4.2 空間數(shù)據(jù)庫設計4.2.1 數(shù)據(jù)獲取當數(shù)據(jù)量不是特別大，精度要求不是特別高的時候，可以采用一種折中的方法，就是屏幕跟蹤數(shù)字化。大體流程如下：（1）紙質地圖準備。（2）建立新的圖層，并進行坐標

33、系統(tǒng)、范圍的設置。（3）在紙質地圖上建立控制點，掃描。（4）配準紙質地圖。所有圖鑒掃描后都必須經(jīng)過掃描糾正，對掃描后的柵格圖像進行檢查，以確保矢量化工作順利進行。矢量數(shù)據(jù)獲取的流程圖如下：準備和掃描地圖準備和掃描地圖在ArcMap中新建工程導入矢量圖層地圖配準在ArcMap中新建工程導入矢量圖層地圖配準建立矢量圖層建立矢量圖層添加新地物添加新地物描繪新地圖手動矢量化描繪新地圖手動矢量化修改屬性修改屬性4.2.2 空間數(shù)據(jù)庫結構設計 圖層設置NAMEFeature TYPEDescription分區(qū)Polygon 無功能區(qū)Polygon 無防護林Polyline 無分區(qū)圖層屬性設置NAMETYP

34、E Field PropertiesLENGTHFIDObject ID ShapeGeometry小區(qū)名String 14面 積float 0小區(qū)介紹String 200預計產(chǎn)值Short Integer 4(precision)完成情況Short Integer 4(precision)所屬區(qū)String 10固定客戶Short Integer 0流動客戶Short Integer 0功能區(qū)圖層介紹NAMETYPE Field PropertiesLENGTHFIDObject ID ShapeGeometry區(qū)名String 14面 積float 0分區(qū)介紹String 200預計產(chǎn)值S

35、hort Integer 4(precision)完成情況Short Integer 4(precision)固定客戶Short Integer 0流動客戶Short Integer 0 防護林圖層屬性設置NAMETYPE Field PropertiesLENGTHFIDObject ID ShapeGeometry 名稱String 84.2.3 圖層屬性值輸入5 程序實現(xiàn)與演示5.1 登陸界面設計“苗木花卉管理系統(tǒng)”的“用戶登陸”窗體如圖(f)所示。在窗體中，需要輸入“用戶名”和“口令”，并選擇適當?shù)纳矸?，然后單擊“確定”按鈕登陸窗體，單擊“取消”按鈕則取消登陸。(f)5.2 主界面設計

36、苗木花卉管理系統(tǒng)主窗體如圖(g)所示，它通過菜單將系統(tǒng)的其他窗體集成到一起，構成一個完整的系統(tǒng)。苗木花卉管理系統(tǒng)主窗體是一個MDI窗體。(g)5.3 系統(tǒng)各功能模塊界面設計 5.3.1 系統(tǒng)管理模塊界面設計系統(tǒng)用戶管理包括添加、刪除、修改以及查詢用戶登陸信息等管理。A）“系統(tǒng)用戶管理”窗體如圖(h)所示。(h)B）“修改登陸口令”窗體如圖(i)所示(i) 5.3.2 基本信息管理模塊界面設計 由于該模塊界面較多，就以花卉信息維護界面為例。管理員登陸系統(tǒng)后，對整個苗圃的花卉基本數(shù)據(jù)信息進行進行輸入、保存、更新、修改等操作，這些數(shù)據(jù)一般有固定的數(shù)據(jù)格式，輸入后自動保存分類。A）“花卉信息維護”窗體

37、如圖(j)所示。(j) B）“客戶資料管理”窗體如圖(k)所示。(k)5.3.3 生產(chǎn)經(jīng)營管理模塊界面設計A）“種植信息管理”窗體如圖(l)所示。(l)B）“防治信息管理”窗體如圖(m)所示。 (m)C）“訂購信息管理”窗體如圖(n)所示。(n)5.A）“統(tǒng)計分析”窗體如圖(o)所示。 (o)B)“報表輸出”結果如圖(p)所示。(p) 5.3.6 信息發(fā)布模塊界面設計 A）“苗圃信息發(fā)布”窗體如圖(q)所示。(q)B）“產(chǎn)品信息發(fā)布”窗體如圖(r)所示(r)C）“需求信息發(fā)布”窗體如圖(s)所示。 (s)5.4 系統(tǒng)核心代碼函數(shù)map1_mousedown代碼：Private Sub Map1

38、_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Toolbar1.Buttons(1).Value = 1 Then Set Map1.Extent = Map1.TrackRectangle 在地圖上用鼠標畫框，實現(xiàn)放大功能ElseIf Toolbar1.Buttons(3).Value = 1 Then Map1.Pan 在地圖上實現(xiàn)拖動漫游功能ElseIf Toolbar1.Buttons(2).Value = 1 Then Set r = Map1.Extent r.ScaleRec

39、tangle 1.5 顯示框放大1.5倍 Map1.Extent = r 重新顯示End If Set ly1 = Map1.Layers(大棚)Set p = Map1.ToMapPoint(x, y)Set recs = ly1.SearchShape(p, moPointInPolygon, )If Not recs.EOF Then ListView1.ListItems.Clear 清空屬性顯示的列表框 For Each fld In recs.Fields Set newItem = ListView1.ListItems.Add newItem.Text = fld.Name n

40、ewItem.SubItems(1) = fld.ValueAsString Next fld Map1.FlashShape recs(shape).Value, 1 點擊圖層時閃爍一次End If Set ly1 = Map1.Layers(非生產(chǎn)區(qū))Set p = Map1.ToMapPoint(x, y)Set recs = ly1.SearchShape(p, moPointInPolygon, )If Not recs.EOF Then ListView1.ListItems.Clear 清空屬性列表 For Each fld In recs.Fields Set newItem

41、= ListView1.ListItems.Add newItem.Text = fld.Name newItem.SubItems(1) = fld.ValueAsString Next fld Map1.FlashShape recs(shape).Value, 1End If End Sub結 論本系統(tǒng)采用 VB6.0語言和MapObject技術來完成整個系統(tǒng)的設計，在數(shù)據(jù)庫的設計上利用了Access的便利性和實用性。主要實現(xiàn)以下功能A) 將GIS技術和計算機技術引入苗木花卉管理將使基地的各種數(shù)據(jù)的顯示更加直觀化,實現(xiàn)圖形漫游、數(shù)據(jù)共享和圖形屬性互查等功能。B) 實現(xiàn)基地基本信息的添加、

42、刪除、保存、更新、統(tǒng)計分析和報表輸出功能，極大地提高了管理者的工作效率。C) 實現(xiàn)信息發(fā)布實時動態(tài)化，極大地提高了苗木花卉信息的流通速度，減少產(chǎn)品的積壓和庫存。D）使管理者既能夠通過圖形宏觀地了解和把握基地的總體情況，通過各種快捷的查詢手段了解各種苗木花卉情況,促進苗木花卉信息管理水平的現(xiàn)代化。系統(tǒng)在設計過程中不可避免地遇到了各種各樣的問題，由于整個系統(tǒng)完全都是由個人設計的，有關VB6.0和MapObject技術的許多細節(jié)問題都要靠自己去摸索，加之本人水平有限，還存在著許多不足之處。如： A）受開發(fā)條件和開發(fā)時間的限制，本系統(tǒng)只利用了本地數(shù)據(jù)庫Access，它同應用程序處于同一系統(tǒng)中，能存儲的

43、數(shù)據(jù)量也有一定限制，并沒有發(fā)揮出GIS在數(shù)據(jù)庫管理方面的優(yōu)勢； B）由于時間關系，系統(tǒng)功能實現(xiàn)不夠完善，使用不是很方便。這些都是需要完善的地方，該系統(tǒng)離實際使用也還有相當?shù)木嚯x，需要我進行不斷地補充和完善。通過本次畢業(yè)設計我學到了不少新的東西，也發(fā)現(xiàn)了大量的問題，有些在設計過程中已經(jīng)解決，有些還有待今后慢慢學習。只要學習就會有更多的問題，有更多的難點，但也會有更多的收獲。致 謝經(jīng)過將近幾個月的忙碌和工作，本次畢業(yè)設計已經(jīng)接近尾聲，作為一個本科生的畢業(yè)設計，由于經(jīng)驗的匱乏，難免有許多考慮不周全的地方，如果沒有導師的督促指導，以及同學們的支持，想要完成這個設計是很困難的。 在這里首先要感謝我的導師

44、肖化順老師。本論文從選題到完成，每一步都是在肖老師的指導下完成的，傾注了肖老師師大量的心血。在此，謹向肖老師師表示崇高的敬意和衷心的感謝！其次還要感謝大學期間所有的老師，為我們打下地理信息系統(tǒng)專業(yè)知識的基礎；感謝楊志高老師、趙春燕老師、曹武老師一直以來對我的關心與幫助；同時還要感謝親愛的同學們對我的支持和鼓勵。 最后感謝測繪學院和我的母校中南林業(yè)科技大學四年來對我的大力栽培。參 考 文 獻1 Smith J.The general situation of the seedling of the worldJ.Am Seedling Res,1992.18(4):7-822 Bloom T,S

45、traver B,Brown W,etal .Water quality for greenhouse cropsJ.Finland For 1987,2,153-1583 陳瑾 姚遠 淺談長沙市國有園林苗圃規(guī)劃設計的構思 園林規(guī)劃與設計 2007年6月20日4 孟令奎 史文中 張鵬林 網(wǎng)絡地理信息系統(tǒng)原理與技術 北京：科學技術出版社 2005年3月第一次版 5 毛鋒 程承旗 孫大路 韓梅勝 地理信息系統(tǒng)建庫技術及其應用 北京：科學出版社 2001年3月6 王占全 趙斯思 徐慧 地理信息系統(tǒng)開發(fā)工程案例精選 北京：人民郵電出版社 2005年10月7 王亞民 趙捧未 地理信息系統(tǒng)及其應用 西安：

46、西安電子科技大學出版社 2006年6月8 張清浦 劉紀平等 政府地理信息系統(tǒng) 北京：科學出版社 2003年11月9 陳述澎 魯學軍 周成虎 地理信息系統(tǒng)導論 北京：科學出版社 2006年11月10 陳俊 宮鵬 實用地理信息系統(tǒng)成功地理信息系統(tǒng)的建設與管理 北京：科學出版社 2001年2月11 韓鵬 地理信息系統(tǒng)開發(fā)MapObjects方法 武漢：武漢大學出版社 2004年4月12 劉光 地理信息系統(tǒng)二次開發(fā)教程組件篇 北京：清華大學出版社 2003年1月第一版 13 薛偉 MapObjects地理信息系統(tǒng)程序設計 北京：國防工業(yè)出版社 2006年5月第三次印刷 14 李春葆 張植民 Visua

47、l Basic數(shù)據(jù)庫系統(tǒng)設計與開發(fā) 北京：清華大學出版社2003年8月第一版15 郭勝 夏邦 Visual Basic數(shù)據(jù)庫開發(fā)入門與范例解析 北京：機械工業(yè)出版社 2004年4月第一版16 張俊玲 王秀英 籍淑麗 郭鳳英 數(shù)據(jù)庫原理與應用 北京：清華大學出版社2005年9月第一版 17 張勇 Visual Basic精彩編程百例 北京：中國水利水電出版社 2002年8月第一版18 夏邦貴 劉凡馨 Visual Basic 6.0數(shù)據(jù)庫開發(fā)經(jīng)典實例精解 北京：機械工業(yè)出版社 2006年9月第一版19 劉圣才 李春葆 Visual Basic6程序設計導學 北京：清華大學出版社 2002年1月第

48、一版20 周厚高 花木種養(yǎng)寶典-草本花卉 廣州：世界圖書出版公司 2003年9月第一版21 毛洪玉 園林花卉學 北京：化學工業(yè)出版社 2005年6月22 潘百紅 園林花卉學 長沙：國防科技大學出版社 2007年8月23 王華興 花卉栽培與養(yǎng)生 北京：華文出版社 2002年5月24 郝建華 郝晨曦 園林樹木栽培技術 北京：化學工業(yè)出版社 2005年3月25 方陸明 童再康 陳建秀等 林木良種管理信息系統(tǒng)的建立J 浙江林學院學報，1998，15（1）96-10026 宋偉 宋力 國有苗圃管理信息系統(tǒng)的研建NMIS的設計和實施 內蒙古林業(yè)調查設計 2005年第28卷第4期27 邱進清 肖石海 劉代明

49、 謝國陽 方煒 蘭賀勝 林木良種基地信息管理系統(tǒng)的研制 林業(yè)科技開發(fā) 2002年第16卷增刊附錄A系統(tǒng)其他屬性數(shù)據(jù)庫系統(tǒng)用戶數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段用戶名 文本 20 是口令 文本 6 是身份 文本 15 是肥料數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段肥料編號 文本 6 是肥料名稱 文本 10 是現(xiàn)存量 數(shù)字 是購買時間日期/時間 是灌溉設施數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段設施編號 文本 6 是設施名稱 文本 12 是苗區(qū)編號 文本 6 是灌溉類型 文本 10 是病蟲害數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段病蟲害編號 文本 6 是病蟲害名稱 文本 20 是發(fā)生

50、環(huán)境 文本 40 否病蟲害類型 文本 10 是倉庫數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段倉庫編號 文本 6 是倉庫名稱 文本 20 是剩余容量 數(shù)字 是清倉時間日期/時間 是苗區(qū)數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段苗區(qū)編號 文本 6 是苗區(qū)名稱 文本 10 是苗區(qū)面積 數(shù)字 是苗區(qū)類型 文本 15 是灌溉數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號 文本 6 是設施編號 文本 6 是灌溉周期 文本 10 是施肥數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號 文本 6 是肥料編號 文本 6 是施肥標準 數(shù)字 是種植數(shù)據(jù)表結構字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號 文本 6

51、是苗區(qū)編號 文本 6 是種植面積 數(shù)字 是附錄B系統(tǒng)程序代碼主界面程序代碼：Private Sub BusinessInfor_Click()Form1.Show: Form1.SetFocusEnd SubPrivate Sub ClientIfor_Click(index As Integer)ClientManage.Show: ClientManage.SetFocusEnd SubPrivate Sub Customer_Click()Form4.Show: Form4.SetFocusEnd SubPrivate Sub DingQuery_Click(index As Integ

52、er)DinQuery.Show: DinQuery.SetFocusEnd SubPrivate Sub DinReport_Click()DataReport1.ShowEnd SubPrivate Sub Exit_Click(index As Integer)EndEnd SubPrivate Sub FangzhiQuery_Click(index As Integer)FangQuery.Show: FangQuery.SetFocusEnd SubPrivate Sub FerManage_Click(index As Integer)FertManage.Show: FertM

53、anage.SetFocusEnd SubPrivate Sub FlowerQuery_Click(index As Integer)FlowQuery.Show: FlowQuery.SetFocusEnd SubPrivate Sub FlowManage_Click(index As Integer)FlowerManage.Show: FlowerManage.SetFocusEnd SubPrivate Sub GuaManage_Click(index As Integer)GuanManage.Show: GuanManage.SetFocusEnd SubPrivate Su

54、b GuanQuery_Click(index As Integer)GuaQuery.Show: GuaQuery.SetFocusEnd SubPrivate Sub IllManage_Click(index As Integer)InsectManage.Show: InsectManage.SetFocusEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox(你選擇了關閉苗木花卉管理系統(tǒng)，是否繼續(xù)?, vbYesNo + vbInformation, 苗木花卉

55、管理系統(tǒng)) = vbYes Then If Not Me.ActiveForm Is Nothing Then MsgBox 請先關閉打開的子窗體！, vbCritical, 苗木花卉管理系統(tǒng) Cancel = 1 End IfElse Cancel = 1End IfEnd SubPrivate Sub MenuArrange_Click(index As Integer)systemmain.Arrange vbArrangeIconsEnd SubPrivate Sub MenuCascade_Click(index As Integer)systemmain.Arrange vbCas

56、cadeEnd SubPrivate Sub MenuHorizon_Click(index As Integer)systemmain.Arrange vbTileHorizontalEnd SubPrivate Sub MenuVertical_Click(index As Integer)systemmain.Arrange vbTileVerticalEnd SubPrivate Sub MiaoLook_Click(index As Integer)MiaoLooks.Show: MiaoLooks.SetFocusEnd SubPrivate Sub MiaoquManage_Cl

57、ick(index As Integer)MiaoManage.Show: MiaoManage.SetFocusEnd SubPrivate Sub Recitify_Click(index As Integer)ChangePassword.Show: ChangePassword.SetFocusEnd SubPrivate Sub ShifeiQuery_Click(index As Integer)ShiQuery.Show: ShiQuery.SetFocusEnd SubPrivate Sub Statistical_Click()Form4.Show: Form4.SetFoc

58、usEnd SubPrivate Sub StoreQuery_Click(index As Integer)StorQuery.Show: StorQuery.SetFocusEnd SubPrivate Sub UserManage_Click(index As Integer)SysUserManage.Show: SysUserManage.SetFocusEnd SubPrivate Sub WarManage_Click(index As Integer)WareManage.Show: WareManage.SetFocusEnd Sub登陸界面程序代碼：Option Expli

59、citConst maxlogtimes As Integer = 3Private Sub Command1_Click()Static intlogtimes As IntegerDim intchecked As Integer, strname As String, strpassword As String, strstatus As Stringintlogtimes = intlogtimes + 1If intlogtimes maxlogtimes ThenMsgBox 你已經(jīng) & vbCrLf & 應用程序結束！, vbCritical, 登錄驗證EndElsestrnam

60、e = Trim(Text1.Text)strpassword = Trim(Text2.Text)strstatus = Trim(Combo1.Text)Select Case check_password(strname, strpassword, strstatus)Case 0 MsgBox & 不是系統(tǒng)用戶，請檢查用戶名輸入正確！, vbCritical, 登錄驗證Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1)Case 1 MsgBox 口令錯誤，請重新輸入！, vbCritical, 登錄驗證 Text2