【文章內(nèi)容簡介】 由于該模塊界面較多，就以花卉信息維護(hù)界面為例。管理員登陸系統(tǒng)后，對整個(gè)苗圃的花卉基本數(shù)據(jù)信息進(jìn)行進(jìn)行輸入、保存、更新、修改等操作，這些數(shù)據(jù)一般有固定的數(shù)據(jù)格式，輸入后自動(dòng)保存分類。A）“花卉信息維護(hù)”窗體如圖(j)所示。(j) B）“客戶資料管理”窗體如圖(k)所示。(k) 生產(chǎn)經(jīng)營管理模塊界面設(shè)計(jì)A）“種植信息管理”窗體如圖(l)所示。(l)B）“防治信息管理”窗體如圖(m)所示。 (m)C）“訂購信息管理”窗體如圖(n)所示。(n) 統(tǒng)計(jì)報(bào)表管理模塊界面設(shè)計(jì)A）“統(tǒng)計(jì)分析”窗體如圖(o)所示。 (o)B)“報(bào)表輸出”結(jié)果如圖(p)所示。(p) 信息發(fā)布模塊界面設(shè)計(jì) A）“苗圃信息發(fā)布”窗體如圖(q)所示。(q)B）“產(chǎn)品信息發(fā)布”窗體如圖(r)所示(r)C）“需求信息發(fā)布”窗體如圖(s)所示。 (s) 系統(tǒng)核心代碼函數(shù)map1_mousedown代碼：Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If (1).Value = 1 Then Set = ‘在地圖上用鼠標(biāo)畫框，實(shí)現(xiàn)放大功能ElseIf (3).Value = 1 Then ‘在地圖上實(shí)現(xiàn)拖動(dòng)漫游功能ElseIf (2).Value = 1 Then Set r = ‘ = r ‘重新顯示End If Set ly1 = (大棚)Set p = (x, y)Set recs = (p, moPointInPolygon, )If Not Then ‘清空屬性顯示的列表框 For Each fld In Set newItem = = (1) = Next fld recs(shape).Value, 1 ‘點(diǎn)擊圖層時(shí)閃爍一次End If Set ly1 = (非生產(chǎn)區(qū))Set p = (x, y)Set recs = (p, moPointInPolygon, )If Not Then ‘清空屬性列表 For Each fld In Set newItem = = (1) = Next fld recs(shape).Value, 1End If End Sub結(jié) 論本系統(tǒng)采用 ，在數(shù)據(jù)庫的設(shè)計(jì)上利用了Access的便利性和實(shí)用性。主要實(shí)現(xiàn)以下功能A) 將GIS技術(shù)和計(jì)算機(jī)技術(shù)引入苗木花卉管理將使基地的各種數(shù)據(jù)的顯示更加直觀化,實(shí)現(xiàn)圖形漫游、數(shù)據(jù)共享和圖形屬性互查等功能。B) 實(shí)現(xiàn)基地基本信息的添加、刪除、保存、更新、統(tǒng)計(jì)分析和報(bào)表輸出功能，極大地提高了管理者的工作效率。C) 實(shí)現(xiàn)信息發(fā)布實(shí)時(shí)動(dòng)態(tài)化，極大地提高了苗木花卉信息的流通速度，減少產(chǎn)品的積壓和庫存。D）使管理者既能夠通過圖形宏觀地了解和把握基地的總體情況，通過各種快捷的查詢手段了解各種苗木花卉情況,促進(jìn)苗木花卉信息管理水平的現(xiàn)代化。系統(tǒng)在設(shè)計(jì)過程中不可避免地遇到了各種各樣的問題，由于整個(gè)系統(tǒng)完全都是由個(gè)人設(shè)計(jì)的，加之本人水平有限，還存在著許多不足之處。如： A）受開發(fā)條件和開發(fā)時(shí)間的限制，本系統(tǒng)只利用了本地?cái)?shù)據(jù)庫Access，它同應(yīng)用程序處于同一系統(tǒng)中，能存儲(chǔ)的數(shù)據(jù)量也有一定限制，并沒有發(fā)揮出GIS在數(shù)據(jù)庫管理方面的優(yōu)勢； B）由于時(shí)間關(guān)系，系統(tǒng)功能實(shí)現(xiàn)不夠完善，使用不是很方便。這些都是需要完善的地方，該系統(tǒng)離實(shí)際使用也還有相當(dāng)?shù)木嚯x，需要我進(jìn)行不斷地補(bǔ)充和完善。通過本次畢業(yè)設(shè)計(jì)我學(xué)到了不少新的東西，也發(fā)現(xiàn)了大量的問題，有些在設(shè)計(jì)過程中已經(jīng)解決，有些還有待今后慢慢學(xué)習(xí)。只要學(xué)習(xí)就會(huì)有更多的問題，有更多的難點(diǎn)，但也會(huì)有更多的收獲。致 謝經(jīng)過將近幾個(gè)月的忙碌和工作，本次畢業(yè)設(shè)計(jì)已經(jīng)接近尾聲，作為一個(gè)本科生的畢業(yè)設(shè)計(jì)，由于經(jīng)驗(yàn)的匱乏，難免有許多考慮不周全的地方，如果沒有導(dǎo)師的督促指導(dǎo)，以及同學(xué)們的支持，想要完成這個(gè)設(shè)計(jì)是很困難的。 在這里首先要感謝我的導(dǎo)師肖化順老師。本論文從選題到完成，每一步都是在肖老師的指導(dǎo)下完成的，傾注了肖老師師大量的心血。在此，謹(jǐn)向肖老師師表示崇高的敬意和衷心的感謝！其次還要感謝大學(xué)期間所有的老師，為我們打下地理信息系統(tǒng)專業(yè)知識的基礎(chǔ)；感謝楊志高老師、趙春燕老師、曹武老師一直以來對我的關(guān)心與幫助；同時(shí)還要感謝親愛的同學(xué)們對我的支持和鼓勵(lì)。 最后感謝測繪學(xué)院和我的母校—中南林業(yè)科技大學(xué)四年來對我的大力栽培。參 考 文 獻(xiàn)[1] Smith general situation of the seedling of the world[J].Am Seedling Res,(4):782[2] Bloom T,Straver B,Brown W,etal .Water quality for greenhouse crops[J].Finland For 1987,2,153158[3] 陳瑾 姚遠(yuǎn) 淺談長沙市國有園林苗圃規(guī)劃設(shè)計(jì)的構(gòu)思 園林規(guī)劃與設(shè)計(jì) 2007年6月20日[4] 孟令奎 史文中 張鵬林 網(wǎng)絡(luò)地理信息系統(tǒng)原理與技術(shù) 北京：科學(xué)技術(shù)出版社 2005年3月第一次版 [5] 毛鋒 程承旗 孫大路 韓梅勝 地理信息系統(tǒng)建庫技術(shù)及其應(yīng)用 北京：科學(xué)出版社 2001年3月[6] 王占全 趙斯思 徐慧 地理信息系統(tǒng)開發(fā)工程案例精選 北京：人民郵電出版社 2005年10月[7] 王亞民 趙捧未 地理信息系統(tǒng)及其應(yīng)用 西安：西安電子科技大學(xué)出版社 2006年6月[8] 張清浦 劉紀(jì)平等 政府地理信息系統(tǒng) 北京：科學(xué)出版社 2003年11月[9] 陳述澎 魯學(xué)軍 周成虎 地理信息系統(tǒng)導(dǎo)論 北京：科學(xué)出版社 2006年11月[10] 陳俊 宮鵬 實(shí)用地理信息系統(tǒng)——成功地理信息系統(tǒng)的建設(shè)與管理 北京：科學(xué)出版社 2001年2月[11] 韓鵬 地理信息系統(tǒng)開發(fā)——MapObjects方法 武漢：武漢大學(xué)出版社 2004年4月[12] 劉光 地理信息系統(tǒng)二次開發(fā)教程組件篇 北京：清華大學(xué)出版社 2003年1月第一版 [13] 薛偉 MapObjects——地理信息系統(tǒng)程序設(shè)計(jì) 北京：國防工業(yè)出版社 2006年5月第三次印刷 [14] 李春葆 張植民 Visual Basic數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)與開發(fā) 北京：清華大學(xué)出版社2003年8月第一版[15] 郭勝 夏邦 Visual Basic數(shù)據(jù)庫開發(fā)入門與范例解析 北京：機(jī)械工業(yè)出版社 2004年4月第一版[16] 張俊玲 王秀英 籍淑麗 郭鳳英 數(shù)據(jù)庫原理與應(yīng)用 北京：清華大學(xué)出版社2005年9月第一版 [17] 張勇 Visual Basic精彩編程百例 北京：中國水利水電出版社 2002年8月第一版[18] 夏邦貴 劉凡馨 Visual Basic 北京：機(jī)械工業(yè)出版社 2006年9月第一版[19] 劉圣才 李春葆 Visual Basic6程序設(shè)計(jì)導(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é)報(bào)，1998，15（1）96100[26] 宋偉 宋力 國有苗圃管理信息系統(tǒng)的研建——NMIS的設(shè)計(jì)和實(shí)施 內(nèi)蒙古林業(yè)調(diào)查設(shè)計(jì) 2005年第28卷第4期[27] 邱進(jìn)清 肖石海 劉代明 謝國陽 方煒 蘭賀勝 林木良種基地信息管理系統(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í)間 是灌溉設(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ù)字 是清倉時(shí)間日期/時(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 是施肥標(biāo)準(zhǔn) 數(shù)字 是種植數(shù)據(jù)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段花卉編號 文本 6 是苗區(qū)編號 文本 6 是種植面積 數(shù)字 是附錄B系統(tǒng)程序代碼主界面程序代碼：Private Sub BusinessInfor_Click(): End SubPrivate Sub ClientIfor_Click(index As Integer): End SubPrivate Sub Customer_Click(): End SubPrivate Sub DingQuery_Click(index As Integer): End SubPrivate Sub DinReport_Click()End SubPrivate Sub Exit_Click(index As Integer)EndEnd SubPrivate Sub FangzhiQuery_Click(index As Integer): End SubPrivate Sub FerManage_Click(index As Integer): End SubPrivate Sub FlowerQuery_Click(index As Integer): End SubPrivate Sub FlowManage_Click(index As Integer): End SubPrivate Sub GuaManage_Click(index As Integer): End SubPrivate Sub GuanQuery_Click(index As Integer): End SubPrivate Sub IllManage_Click(index As Integer): End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox(你選擇了關(guān)閉苗木花卉管理系統(tǒng)，是否繼續(xù)?, vbYesNo + vbInformation, 苗木花卉管理系統(tǒng)) = vbYes Then I