基于Access的地質遺跡數據庫的設計與實現

師范大學 體育學院，四川 南充 637009；4.西華師范大學 數學與信息學院，四川 南充 637009）

摘要：根據《國家地質公園規劃修編技術要求》，介紹了在Access中地質公園地質遺跡登錄數據庫表的結構的設計，地質遺跡登錄系統的窗體的總體設計，以及地質遺跡窗體的詳細設計及實現，并給出了部分VBA關鍵代碼，軟件低成本、易部署。

關鍵詞：Access；地質遺跡；數據庫；VBA

中圖分類號：TP311.13文獻標識碼：A文章編號：1009-3044(2011)04-0743-02

Design and Implementation of Geologic Heritage Database in Access

LUO Xing-xian1， LUO Pei2， WANG Qin3， ZHANG Zheng4， ZHOU Xiao-qing1

(1.Experiment Center， China West Normal University， Nanchong 637009， China; 2.College of Land and Resources， China West Normal University， Nanchong 637009， China; 3. College of Physical Education， China West Normal University， Nanchong 637009， China; 4.College of Mathematic and Information， China West Normal University， Nanchong 637009， China)

Abstract: According to Revision Technical Requirements of National Geological Park Planning，not only the design of geologic heritage registration database table’s structure is described in this paper， also system design of geologic heritage registration system’s forms and the detail design and implementation of the form for heritage registration， and the VBA key code is discussed. Software has features of low cost and easy deployment.

Key words: Access; geologic heritage; database; VBA

1 概述

近年來為響應聯合國教科文組織關于“世界地質公園網絡體系”的倡議，由國土資源部多次開展地質公園修編等相關工作，在其發布的《國家地質公園規劃修編技術要求》就明確指出根據現代科技手段，完成地質公園地質遺跡數據庫的建立與地質遺跡數據的登錄是地質公園信息化建設的基礎，是地質公園信息化建設的重要組成部分。

目前我國共建立了國家地質公園138處，而各地還建立了一批省級地質公園，這些地質公園的地質遺跡數據庫的建設與地質遺跡數據的登錄就成了地質公園信息化建設的首要工作。本文介紹了在Microsoft Access中如何根據《國家地質公園規劃修編技術要求》來建立相關的地質遺跡數據庫，完成地質遺跡數據的登錄與相關檢索。

2 地質遺跡數據庫設計

根據需要登錄的地質遺跡的要求，在地質遺跡數據庫中需要存儲地質公園的基本信息、地質背景、氣候特點、水文特點、生物景觀、地質遺跡、遺跡保護和景觀開發等信息，其中地質遺跡為結構化數據，可采用數據庫表來存儲，而其它方面的信息均為非結構化數據，采用窗體來表示即可。地質遺跡數據表的結構如表1所示。

3 窗體的設計與實現

3.1 窗體設計

根據需要表述與存儲的信息，設計如圖1所示的主窗體，通過單擊主窗體上的命令按鈕可訪問其他窗體來查看或修改相關信息或者退出系統。

在所設計的窗體中，除地質遺跡窗體外，其他幾個窗體的設計相對簡單，把需要展示的內容或信息通過相關的標簽控件、選項卡控件和圖像控件呈獻在窗體上即可，而地質遺跡窗體（如圖2所示）的功能設計相對復雜，予以詳細說明。

地質遺跡窗體的功能是：用戶通過選擇地質遺跡的基本類型（數據表中的大類）組合框中的基本類型，在景觀類型組合框中列出該所選基本類型下的景觀類型；當用戶選擇了某一景觀類型后，需要在景點的組合框中列出該景觀類型下的所有景點供用戶選擇；而用戶選擇了某一景點后，在窗體上顯示出該景點的所有信息。

上述選擇類型與景點的功能通過3個組合框來實現，而信息的顯示通過標簽控件與文本框控件、綁定對象框控件相結合的形式，標簽用來表示要顯示的字段，文本框用來顯示該字段的值，綁定對象框用于顯示景點照片。各控件及布局如圖2所示。

3.2 關鍵代碼

1）地質遺跡基本類型的行來源屬性值為一查詢語句，查詢出該地質公園的所有地質遺跡的基本類型，代碼如下：

SELECT DISTINCT dzyj.dl FROM dzyj ORDER BY dzyj.dl

2）單擊地質遺跡基本類型，選擇某一類型后，通過如下代碼在景觀類型組合框內列出所選基本類型下所屬的所有景觀類型。而單擊景觀類型組合框后在景點組合框列出所選景觀下的所有景點的代碼與此類似。

Me.Combo3 = \"\"

Me.Combo5 = \"\"

Me.Combo5.Enabled = False

Me.Combo3.RowSource = \"select distinct dzyj.lei from dzyj where dzyj.dl='\" Combo1 \"' order by dzyj.lei\"‘查詢出所選地質遺跡基本類型下的景觀，顯示在景觀組合框中

3）單擊景點組合框后，將所選景點的詳細信息在窗體上顯示出來的代碼如下：

Dim qstr As String

Dim rs As New ADODB.Recordset

qstr = \"select * from dzyj where dzyj.dl='\" Combo1 \"' and dzyj.lei='\" Combo3 \"' and mc='\" Combo5 \"'\"‘查詢出指定景點的所有信息

rs.Open qstr， CurrentProject.Connection， adOpenStatic， adLockReadOnly

Me.jdmc = rs!mc

Me.bh = rs!bh

Me.dlwz = rs!dlwz

Me.zbwz = rs!zbwz

Me.xzqs = rs!xzqs

Me.dc = rs!dc

Me.dzgz = rs!dzgz

Me.jgtzjcs = rs!jgtzjcs

Me.cyfx = rs!cyfx

Me.zbjgzy = rs!zbjgzy

Me.kdx = rs!kdx

Me.bhxzjjy = rs!bhxzjjy

Me.lykfjy = rs!nykfjy

Me.jgzp1 = rs!zp

4 結束語

對于規模比較小的省級地質公園，由于地質遺跡數目一般在幾百條左右， 而且現在很多辦公系統都采用了Microsoft Office軟件，因此，采用Access來實現數據庫系統的設計是一種比較節約成本的途徑，而且采用Microsoft Office內嵌的VBA就可編寫相應的控制代碼，無需額外的軟件；同時，在此環境下設計的地質遺跡數據庫亦便于復制與部署。

參考文獻：

[1] 世界地質公園網絡.國家地質公園規劃修編技術要求[EB/OL].http://www.globalgeopark.org/Portals/0/02-Management/FJ1-GHBZ01.pdf.

[2] 微軟公司.Microsoft Office Word 2003 Visual Basic Reference[M].

[3] 蘇先娜.基于Excel/Access的人事管理信息系統開發[J].中國管理信息化，2011(1).

[4] 姚寧馳.公司員工管理系統的設計與實現[J].農業裝備技術，2008(5).

[5] 王琴.在Excel中基于VBA的高校體育成績登陸系統的研究與設計[J].科技資訊，2010(14).

[6] 李雁玲.Access2003數據庫技術及應用[M].北京:高等教育出版社，2008.