全國工程地質(zhì)專(zhuān)家庫系統的開(kāi)發(fā)

摘要：介紹了中國學(xué)會(huì )工程地質(zhì)專(zhuān)業(yè)委員會(huì )“全國工程地質(zhì)專(zhuān)家庫系統”的功能和部分程序段，歡迎專(zhuān)家們加入專(zhuān)家庫。

關(guān)鍵詞：工程地質(zhì) 專(zhuān)家庫系統 功能 界面 模塊 開(kāi)發(fā)

 

　　1 前言 

自2003年中國地質(zhì)學(xué)會(huì )工程地質(zhì)專(zhuān)業(yè)委員會(huì )發(fā)起建立“全國工程地質(zhì)專(zhuān)家庫”以來(lái)，得到全國各界工程地質(zhì)（含巖土工程和地質(zhì)工程相關(guān)專(zhuān)業(yè)）行業(yè)高科技人員的積極響應，已經(jīng)收到420余份反饋回來(lái)的專(zhuān)家登記表，均已錄入數據庫�！叭珖�工程地質(zhì)專(zhuān)家庫”已初具規模，從針對服務(wù)的行業(yè)來(lái)說(shuō)，包括水利、鐵路、礦山和民用等；從專(zhuān)業(yè)領(lǐng)域來(lái)說(shuō)，包括工程地質(zhì)勘察、巖土工程施工、地質(zhì)災害研究等；從遍及的單位來(lái)說(shuō)，包括高等院校、科研院所、各部委直屬勘測設計院和公司等一百多家；從職稱(chēng)分布來(lái)說(shuō)，包括工程院院士、勘察大師、教授級高級工程師、高級工程師、教授、副教授、研究員、副研究員等；從工作職務(wù)來(lái)說(shuō)，包括院長(cháng)、副院長(cháng)、總工程師、副總工程師、經(jīng)理、校長(cháng)、系主任等。

入庫的單位及其人數情況：北京國電華北電力工程有限公司14人；長(cháng)安大學(xué)地質(zhì)工程與測繪工程學(xué)院11人；成都理工大學(xué)與土木工程學(xué)院12人；國家電力公司成都勘測設計研究院43人；國家電力公司貴陽(yáng)勘測設計研究院15人；國家電力公司昆明勘測設計研究院39人；建設綜合勘察研究設計院11人；水利部天津水利水電勘測設計研究院11人；中國科學(xué)院地質(zhì)與地球研究所17人；中航勘察設計研究院39人（這里只列出了10人以上的單位）。

2 軟件功能

2.1 基本功能

① 顯示工程地質(zhì)（地質(zhì)工程、巖土工程及相關(guān)專(zhuān)業(yè)）專(zhuān)家基本信息，包括姓名、性別、出生年月、技術(shù)職稱(chēng)、工作職務(wù)、工作單位、單位性質(zhì)、聯(lián)系方式。 ② 顯示專(zhuān)家專(zhuān)業(yè)特長(cháng)，工作領(lǐng)域。 ③ 打印專(zhuān)家表。 ④ 按照入庫序號、姓名和工作單位排序，方便檢索。 ⑤ 可隨時(shí)登記入庫。

2.2 查詢(xún)

按照姓名、出生年月、工作單位、單位性質(zhì)、技術(shù)職稱(chēng)、專(zhuān)業(yè)特長(cháng)、工作領(lǐng)域等單個(gè)字段查詢(xún)，查詢(xún)的結果可顯示專(zhuān)家基本信息、專(zhuān)業(yè)特長(cháng)和工作領(lǐng)域，打印專(zhuān)家表。

2.3 高級查詢(xún)

多個(gè)字段的組合條件查詢(xún)，查詢(xún)結果可制作報表。

2.4 數據庫維護

數據庫員能夠輕松完成數據庫的日常維護工作，如添加、刪除、查詢(xún)等。

專(zhuān)家庫可用于人事管理、查找工程咨詢(xún)專(zhuān)家、聘請工程項目評審專(zhuān)家、查找稿件評閱人、聘任學(xué)位論文審閱人等。

3 系統界面及功能模塊

3.1 主界面

全國工程地質(zhì)專(zhuān)家庫系統主界面如圖1所示。界面包括菜單區、查詢(xún)區、信息管理區和信息顯示區。菜單包括記錄、查詢(xún)、管理員和幫助等項。查詢(xún)區包括單個(gè)字段的簡(jiǎn)單查詢(xún)和高級查詢(xún)按鈕。信息管理區由基本資料、專(zhuān)業(yè)特長(cháng)、工作領(lǐng)域、備注、全表瀏覽、打印、退出按鈕組成，點(diǎn)選不同的按鈕，信息顯示區將顯示不同的信息。

3.2 高級查詢(xún)界面

點(diǎn)擊主界面窗口中查詢(xún)區的高級查詢(xún)按鈕會(huì )彈出高級查詢(xún)窗口，如圖2所示。通過(guò)該窗口可生成查詢(xún)條件、選擇結果中要顯示的字段、選擇排序字段、選擇組合查詢(xún)條件，并執行查詢(xún)。查詢(xún)結果由查詢(xún)結果窗口（圖3）顯示出來(lái)。

3.3 查詢(xún)結果窗口

點(diǎn)擊高級查詢(xún)窗口中的開(kāi)始查詢(xún)按鈕就可彈出查詢(xún)結果窗口。查詢(xún)結果窗口左上部分顯示符合查詢(xún)條件的記錄，右上部分是打印全部結果按鈕和打印選中結果按鈕。下部是選中專(zhuān)家的詳細信息，當點(diǎn)選左上部的不同專(zhuān)家，其詳細信息會(huì )改變。

3.4 查詢(xún)結果報表打印窗口

點(diǎn)擊查詢(xún)結果窗口中的打印全部結果按鈕將彈出查詢(xún)結果報表打印窗口，如圖4所示。上部是打印按鈕、導出按鈕和縮放比例下拉列表框，中間是報表顯示區，下部是頁(yè)碼顯示和翻頁(yè)按鈕。

3.5 選中結果報表打印窗口

點(diǎn)擊主界面信息管理區打印按鈕和查詢(xún)結果窗口中的打印選中結果按鈕將彈出選中專(zhuān)家資料報表打印窗口，如圖5所示。

3.6 數據庫管理員界面

點(diǎn)擊主界面管理員菜單下的管理員登陸菜單項后，彈出管理員登陸對話(huà)框（圖6）,輸入帳號和密碼后，點(diǎn)擊確定按鈕進(jìn)入數據庫管理員界面（圖7）。

數據庫管理員界面由菜單、工具按鈕、專(zhuān)家信息編輯區和全表數據瀏覽和編輯區組成。工具按鈕包括移動(dòng)記錄、添加、刪除等按鈕組成，專(zhuān)家信息編輯區用來(lái)編輯專(zhuān)家信息，全表數據瀏覽、編輯區瀏覽和編輯數據庫記錄。

4 工程地質(zhì)專(zhuān)家庫系統開(kāi)發(fā)

4.1 數據庫

（1）信息來(lái)源

通過(guò)學(xué)術(shù)會(huì )議、信件和網(wǎng)上下載（見(jiàn)http://www.enggeo.org/xwdt-040106.htm）等途徑分發(fā)“全國工程地質(zhì)專(zhuān)家庫專(zhuān)家登記表”，收集反饋回來(lái)的原始登記表，錄入數據庫中。

（2）創(chuàng )建數據庫

在Microsoft Office Access軟件中建立專(zhuān)家數據庫。數據庫中包括的字段有：姓名、性別、出生年月、工作單位、技術(shù)職稱(chēng)、工作職務(wù)、專(zhuān)家特長(cháng)、工作領(lǐng)域、地址、郵政編碼、聯(lián)系電話(huà)、傳真和郵箱等，基本涵蓋了專(zhuān)家的基本信息、特長(cháng)、工作領(lǐng)域和聯(lián)系方式。

（3）數據錄入

數據錄入方式有兩種方式： ① 在Access中錄入； ② 數據維護方式，即在數據庫管理員界面中輸入數據。

所有專(zhuān)家的信息存儲在一個(gè)數據表中，每位專(zhuān)家的信息在數據表中表現為一條記錄。

4.2 系統功能的代碼實(shí)現

采用Microsoft Visual Basic 6.0作為開(kāi)發(fā)工具，運用其集成開(kāi)發(fā)環(huán)境和快速應用程序開(kāi)發(fā)技術(shù)，根據軟件的功能模塊分別創(chuàng )建程序界面和窗口（圖1－圖7）。開(kāi)發(fā)過(guò)程中使用了ADO Data控件、DataGrid控件、DataEnviornment設計器、Data Report設計器等。

下面著(zhù)重敘述高級查詢(xún)的實(shí)現。在高級查詢(xún)窗口中，用戶(hù)填寫(xiě)的查詢(xún)條件包括查詢(xún)結果中顯示的字段、where子句查詢(xún)條件、字段排序子句，用字符串連接生成SQL查詢(xún)語(yǔ)句。然后在專(zhuān)家數據表中查找符合查詢(xún)條件的專(zhuān)家記錄并在查詢(xún)結果窗口中顯示給用戶(hù)。完成高級查詢(xún)功能的程序片段如下：

Private Sub cmdQuery_Click()

    Dim strKey As String

    Dim strSQL As String, strsqlAll As String

    Dim strOrderSQL As String

    Dim strOrder As String

    Dim intLenKey As Integer

    Dim i As Integer, j As Integer

    '查詢(xún)結果至少要顯示一個(gè)字段

    If lstKey.SelCount = 0 Then

        MsgBox "查詢(xún)結果中至少要顯示一個(gè)字段!", vbMsgBoxSetForeground, "缺少字段"

        Exit Sub

    End If

   If txtCondition.Text = vbNullString Then

        MsgBox "請加入查詢(xún)條件！", vbOKOnly + vbInformation, "提示"

        Exit Sub

    End If

    '查詢(xún)結果中顯示的字段

    strKey = vbNullString

    strkeys = vbNullString

    For i = 0 To lstKey.ListCount - 1

        If lstKey.Selected(i) = True Then

            strKey = strKey & lstKey.List(i) & ","

        End If

        strkeys = strkeys & lstKey.List(i) & ","

    Next

    strKey = Mid(strKey, 1, Len(strKey) - 1)

    strkeys = Mid(strkeys, 1, Len(strkeys) - 1)

    'where子句查詢(xún)條件

    strWhere = vbNullString

    If Len(Trim(strQuerySQL)) > 0 Then

        strWhere = " where " & Trim(strQuerySQL)

    Else

        strWhere = vbNullString

    End If

    '字段排序字句

    If lstOrderKey.ListCount > 0 Then

        mstrOrderSQLs = ""

        intLenKey = 0

        For j = 0 To lstOrderKey.ListCount - 1

            strOrderSQL = lstOrderKey.List(j)

            If optOrder(0).Value = True Then

                intLenKey = InStr(1, strOrderSQL, "(升序)", vbTextCompare)

                strOrder = " ASC"

            Else

                intLenKey = InStr(1, strOrderSQL, "(降序)", vbTextCompare)

                strOrder = " DESC"

            End If

            If intLenKey > 0 Then

                strOrderSQL = Mid(strOrderSQL, 1, intLenKey - 1)

                If mstrOrderSQLs <> "" Then

                    mstrOrderSQLs = mstrOrderSQLs & ","

                End If

                mstrOrderSQLs = mstrOrderSQLs & strOrderSQL & strOrder

            End If

        Next j

        mstrOrderSQLs = " order by " & mstrOrderSQLs

    Else

        mstrOrderSQLs = ""

    End If

    '字符串連接生成SQL查詢(xún)語(yǔ)句

    strSQL = "select " & strKey & " from " & " 專(zhuān)家庫 " & strWhere & mstrOrderSQLs

    strsqlAll = "select " & strkeys & " from " & " 專(zhuān)家庫 " & strWhere & mstrOrderSQLs

    adoconnection.Execute strSQL

    adoconnection.Execute strsqlAll

    If Err Then

        MsgBox Err.Number & vbCrLf & Err.Description & Err.Source, vbCritical, "SQL語(yǔ)句錯誤"

        Err.Clear

        Exit Sub

    End If

    Set recResult = New ADODB.Recordset

    Set recKeyword = New ADODB.Recordset

    frmQueryResult.strSQL = strSQL

    frmQueryResult.strSQL = strsqlAll

    recKeyword.Open strSQL, adoconnection, adOpenStatic, adLockOptimistic

    recResult.Open strsqlAll, adoconnection, adOpenDynamic, adLockOptimistic

    If recKeyword.RecordCount <= 0 Then

        MsgBox "沒(méi)有您要查找的記錄!", vbInformation + vbOKOnly, "找不到記錄"

        Exit Sub

    End If

'查詢(xún)結果顯示    

frmQueryResult.Show vbModal

End Sub

5 結語(yǔ)

中國學(xué)會(huì )工程地質(zhì)專(zhuān)業(yè)委員會(huì )建立“全國工程地質(zhì)專(zhuān)家庫系統”的目是便于相互了解、交流，以滿(mǎn)足各單位部門(mén)了解專(zhuān)家專(zhuān)家信息的需求，充分發(fā)揮專(zhuān)家作用，更快推進(jìn)工程地質(zhì)學(xué)科和事業(yè)的創(chuàng )新發(fā)展。

【全國工程地質(zhì)專(zhuān)家庫系統的開(kāi)發(fā)】相關(guān)文章：

網(wǎng)絡(luò )教學(xué)系統的設計與開(kāi)發(fā)03-07

學(xué)生成績(jì)管理系統的開(kāi)發(fā)03-17

在線(xiàn)考試系統設計與開(kāi)發(fā)論文05-29

在MIPS開(kāi)發(fā)板上建立Linux系統及開(kāi)發(fā)環(huán)境03-18

紡織企業(yè)快速報價(jià)系統開(kāi)發(fā)12-26

簡(jiǎn)易電子郵件系統的開(kāi)發(fā)11-23

淺談線(xiàn)損管理系統的設計及開(kāi)發(fā)03-19

談學(xué)生成績(jì)管理系統的開(kāi)發(fā)03-20

管理信息系統開(kāi)發(fā)論文06-16