全國工程地質(zhì)專家?guī)煜到y(tǒng)的開發(fā)

1、全國工程地質(zhì)專家?guī)煜到y(tǒng)的開發(fā)            摘要：介紹了中國地質(zhì)學(xué)會工程地質(zhì)專業(yè)委員會“全國工程地質(zhì)專家?guī)煜到y(tǒng)”的功能和部分程序段，歡迎專家們加入專家?guī)臁?關(guān)鍵詞：工程地質(zhì) 專家?guī)煜到y(tǒng) 功能 界面 模塊 開發(fā)  1 前言  自2003年中國地質(zhì)學(xué)會工程地質(zhì)專業(yè)委員會發(fā)起建立“全國工程地質(zhì)專家?guī)臁币詠?，得到全國各界工程地質(zhì)（含巖土工程和地質(zhì)工程相關(guān)專業(yè)）行業(yè)高科技人員的積極響應(yīng)，已經(jīng)收到420余份反饋回來的專家登記表，均已錄入數(shù)據(jù)庫?！叭珖こ痰刭|(zhì)專

2、家?guī)臁币殉蹙咭?guī)模，從針對服務(wù)的行業(yè)來說，包括水利電力、鐵路交通、礦山和工業(yè)民用建筑等；從專業(yè)領(lǐng)域來說，包括工程地質(zhì)勘察、巖土工程施工、地質(zhì)災(zāi)害研究等；從遍及的單位來說，包括高等院校、科研院所、各部委直屬勘測設(shè)計院和公司等一百多家；從職稱分布來說，包括工程院院士、勘察大師、教授級高級工程師、高級工程師、教授、副教授、研究員、副研究員等；從工作職務(wù)來說，包括院長、副院長、總工程師、副總工程師、經(jīng)理、校長、系主任等。 入庫的單位及其人數(shù)情況：北京國電華北電力工程有限公司14人；長安大學(xué)地質(zhì)工程與測繪工程學(xué)院11人；成都理工大學(xué)環(huán)境與土木工程學(xué)院12人；國家電力公司成都勘測設(shè)計研究院43人；國家電力公

3、司貴陽勘測設(shè)計研究院15人；國家電力公司昆明勘測設(shè)計研究院39人；建設(shè)綜合勘察研究設(shè)計院11人；水利部天津水利水電勘測設(shè)計研究院11人；中國科學(xué)院地質(zhì)與地球物理研究所17人；中航勘察設(shè)計研究院39人（這里只列出了10人以上的單位）。 2 軟件功能 2.1 基本功能 顯示工程地質(zhì)（地質(zhì)工程、巖土工程及相關(guān)專業(yè)）專家基本信息，包括姓名、性別、出生年月、技術(shù)職稱、工作職務(wù)、工作單位、單位性質(zhì)、聯(lián)系方式。    2007-01-28         顯示專家專業(yè)特長，工作領(lǐng)域。 打印

4、專家表。 按照入庫序號、姓名和工作單位排序，方便檢索。 可隨時登記入庫。 2.2 查詢 按照姓名、出生年月、工作單位、單位性質(zhì)、技術(shù)職稱、專業(yè)特長、工作領(lǐng)域等單個字段查詢，查詢的結(jié)果可顯示專家基本信息、專業(yè)特長和工作領(lǐng)域，打印專家表。2.3 高級查詢 多個字段的組合條件查詢，查詢結(jié)果可制作報表。全國工程地質(zhì)專家?guī)煜到y(tǒng)主界面如圖1所示。界面包括菜單區(qū)、查詢區(qū)、信息管理區(qū)和信息顯示區(qū)。菜單包括記錄、查詢、管理員和幫助等項。查詢區(qū)包括單個字段的簡單查詢和高級查詢按鈕。信息管理區(qū)由基本資料、專業(yè)特長、工作領(lǐng)域、備注、全表瀏覽、打印、退出按鈕組成，點選不同的按鈕，信息顯示區(qū)將顯示不同的信息。 

5、   2007-01-28         3.2 高級查詢界面3.5 選中結(jié)果報表打印窗口 點擊主界面信息管理區(qū)打印按鈕和查詢結(jié)果窗口中的打印選中結(jié)果按鈕將彈出選中專家資料報表打印窗口，如圖5所示。 3.6 數(shù)據(jù)庫管理員界面通過學(xué)術(shù)會議、信件和網(wǎng)上下載（見）等途徑分發(fā)“全國工程地質(zhì)專家?guī)鞂＜业怯洷怼保占答伝貋淼脑嫉怯洷?，錄入?shù)據(jù)庫中。 （2）創(chuàng)建數(shù)據(jù)庫 在Microsoft Office Access軟件中建立專家數(shù)據(jù)庫。數(shù)據(jù)庫中包括的字段有：姓名、性別、出生年月、工作單位、技

6、術(shù)職稱、工作職務(wù)、專家特長、工作領(lǐng)域、通信地址、郵政編碼、聯(lián)系電話、傳真和電子郵箱等，基本涵蓋了專家的基本信息、特長、工作領(lǐng)域和聯(lián)系方式。 （3）數(shù)據(jù)錄入 數(shù)據(jù)錄入方式有兩種方式： 在Access中錄入； 數(shù)據(jù)維護(hù)方式，即在數(shù)據(jù)庫管理員界面中輸入數(shù)據(jù)。 所有專家的信息存儲在一個數(shù)據(jù)表中，每位專家的信息在數(shù)據(jù)表中表現(xiàn)為一條記錄。 4.2     2007-01-28        系統(tǒng)功能的代碼實現(xiàn)查詢結(jié)果中至少要顯示一個字段!", vbMsgBoxSetForegr

7、ound, "缺少字段    2007-01-28        "         Exit Sub     End If    If txtCondition.Text = vbNullString Then         MsgBox "請加入查詢條件

8、！", vbOKOnly + vbInformation, "提示"         Exit Sub     End If     '查詢結(jié)果中顯示的字段     strKey = vbNullString     strkeys = vbNullString     For i = 0 To lstKey.ListCount - 1 &

9、#160;       If lstKey.Selected(i) = True Then             strKey = strKey & lstKey.List(i) & ","         End If         strkeys

10、 = strkeys & lstKey.List(i) & ","     Next     strKey = Mid(strKey, 1, Len(strKey) - 1)     strkeys = Mid(strkeys, 1, Len(strkeys) - 1)     'where子句查詢條件     strWhere = vbNullString     If

11、Len(Trim(strQuerySQL) > 0 Then         strWhere = " where " & Trim(strQuerySQL)     2007-01-28            Else         strWhere = vbNullSt

12、ring     End If     '字段排序字句     If lstOrderKey.ListCount > 0 Then         mstrOrderSQLs = ""         intLenKey = 0         For j = 0

13、To lstOrderKey.ListCount - 1             strOrderSQL = lstOrderKey.List(j)             If optOrder(0).Value = True Then            

14、0;    intLenKey = InStr(1, strOrderSQL, "(升序)", vbTextCompare)                 strOrder = " ASC"             Else    

15、60;            intLenKey = InStr(1, strOrderSQL, "(降序)", vbTextCompare)                 strOrder = " DESC"        &

16、#160;    End If             If intLenKey > 0 Then                 strOrderSQL = Mid(strOrderSQL, 1, intLenKey - 1)       &

17、#160;         If mstrOrderSQLs <> "" Then                     mstrOrderSQLs = mstrOrderSQLs & ","     2007-01-28

18、60;                       End If                 mstrOrderSQLs = mstrOrderSQLs & strOrderSQL & strOrder

19、60;           End If         Next j         mstrOrderSQLs = " order by " & mstrOrderSQLs     Else         mstrOrderSQLs = ""     End If     '字符串連接生成SQL查詢語句     strSQL = "select " & strKey & " from " & " 專家?guī)?" & strWhere & mstrOrderSQLs     strsqlAll = "s