導(dǎo)語(yǔ)：工程地質(zhì)系統(tǒng)開(kāi)發(fā)分析論文一文來(lái)源于網(wǎng)友上傳，不代表本站觀點(diǎn)，若需要原創(chuàng)文章可咨詢客服老師，歡迎參考。

1前言

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

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

2軟件功能

2.1基本功能

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

2.2查詢

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

2.3高級(jí)查詢

多個(gè)字段的組合條件查詢，查詢結(jié)果可制作報(bào)表。

2.4數(shù)據(jù)庫(kù)維護(hù)

數(shù)據(jù)庫(kù)管理員能夠輕松完成數(shù)據(jù)庫(kù)的日常維護(hù)工作，如添加、刪除、查詢等。

專家?guī)炜捎糜谌耸聶n案管理、查找工程咨詢專家、聘請(qǐng)工程項(xiàng)目評(píng)審專家、查找稿件評(píng)閱人、聘任學(xué)位論文審閱人等。

3系統(tǒng)界面及功能模塊

3.1主界面

全國(guó)工程地質(zhì)專家?guī)煜到y(tǒng)主界面如圖1所示。界面包括菜單區(qū)、查詢區(qū)、信息管理區(qū)和信息顯示區(qū)。菜單包括記錄、查詢、管理員和幫助等項(xiàng)。查詢區(qū)包括單個(gè)字段的簡(jiǎn)單查詢和高級(jí)查詢按鈕。信息管理區(qū)由基本資料、專業(yè)特長(zhǎng)、工作領(lǐng)域、備注、全表瀏覽、打印、退出按鈕組成，點(diǎn)選不同的按鈕，信息顯示區(qū)將顯示不同的信息。

3.2高級(jí)查詢界面

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

3.3查詢結(jié)果窗口

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

3.4查詢結(jié)果報(bào)表打印窗口

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

3.5選中結(jié)果報(bào)表打印窗口

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

3.6數(shù)據(jù)庫(kù)管理員界面

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

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

4工程地質(zhì)專家?guī)?a href="http://www.eimio.cn/lunwen/shllw/shlshdgchlw/200907/221642.html" target="_blank">系統(tǒng)開(kāi)發(fā)

4.1數(shù)據(jù)庫(kù)

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

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

（2）創(chuàng)建數(shù)據(jù)庫(kù)

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

（3）數(shù)據(jù)錄入

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

所有專家的信息存儲(chǔ)在一個(gè)數(shù)據(jù)表中，每位專家的信息在數(shù)據(jù)表中表現(xiàn)為一條記錄。

4.2系統(tǒng)功能的代碼實(shí)現(xiàn)

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

下面著重?cái)⑹龈呒?jí)查詢的實(shí)現(xiàn)。在高級(jí)查詢窗口中，用戶填寫(xiě)的查詢條件包括查詢結(jié)果中顯示的字段、where子句查詢條件、字段排序子句，用字符串連接生成SQL查詢語(yǔ)句。然后在專家數(shù)據(jù)表中查找符合查詢條件的專家記錄并在查詢結(jié)果窗口中顯示給用戶。完成高級(jí)查詢功能的程序片段如下：

PrivateSubcmdQuery_Click()

DimstrKeyAsString

DimstrSQLAsString,strsqlAllAsString

DimstrOrderSQLAsString

DimstrOrderAsString

DimintLenKeyAsInteger

DimiAsInteger,jAsInteger

''''查詢結(jié)果至少要顯示一個(gè)字段

IflstKey.SelCount=0Then

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

ExitSub

EndIf

IftxtCondition.Text=vbNullStringThen

MsgBox"請(qǐng)加入查詢條件！",vbOKOnly+vbInformation,"提示"

ExitSub

EndIf

''''查詢結(jié)果中顯示的字段

strKey=vbNullString

strkeys=vbNullString

Fori=0TolstKey.ListCount-1

IflstKey.Selected(i)=TrueThen

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

EndIf

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

Next

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

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

''''where子句查詢條件

strWhere=vbNullString

IfLen(Trim(strQuerySQL))>0Then

strWhere="where"&Trim(strQuerySQL)

Else

strWhere=vbNullString

EndIf

''''字段排序字句

IflstOrderKey.ListCount>0Then

mstrOrderSQLs=""

intLenKey=0

Forj=0TolstOrderKey.ListCount-1

strOrderSQL=lstOrderKey.List(j)

IfoptOrder(0).Value=TrueThen

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

strOrder="ASC"

Else

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

strOrder="DESC"

EndIf

IfintLenKey>0Then

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

IfmstrOrderSQLs<>""Then

mstrOrderSQLs=mstrOrderSQLs&","

EndIf

mstrOrderSQLs=mstrOrderSQLs&strOrderSQL&strOrder

EndIf

Nextj

mstrOrderSQLs="orderby"&mstrOrderSQLs

Else

mstrOrderSQLs=""

EndIf

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

strSQL="select"&strKey&"from"&"專家?guī)?&strWhere&mstrOrderSQLs

strsqlAll="select"&strkeys&"from"&"專家?guī)?&strWhere&mstrOrderSQLs

adoconnection.ExecutestrSQL

adoconnection.ExecutestrsqlAll

IfErrThen

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

Err.Clear

ExitSub

EndIf

SetrecResult=NewADODB.Recordset

SetrecKeyword=NewADODB.Recordset

frmQueryResult.strSQL=strSQL

frmQueryResult.strSQL=strsqlAll

recKeyword.OpenstrSQL,adoconnection,adOpenStatic,adLockOptimistic

recResult.OpenstrsqlAll,adoconnection,adOpenDynamic,adLockOptimistic

IfrecKeyword.RecordCount<=0Then

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

ExitSub

EndIf

''''查詢結(jié)果顯示

frmQueryResult.ShowvbModal

EndSub

5結(jié)語(yǔ)

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