- 相關(guān)推薦
全國(guó)工程地質(zhì)專家?guī)煜到y(tǒng)的開(kāi)發(fā)
摘要：介紹了中國(guó)學(xué)會(huì)工程地質(zhì)專業(yè)委員會(huì)“全國(guó)工程地質(zhì)專家?guī)煜到y(tǒng)”的功能和部分程序段，歡迎專家們加入專家?guī)臁?
關(guān)鍵詞：工程地質(zhì) 專家?guī)煜到y(tǒng) 功能 界面 模塊 開(kāi)發(fā)
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è)領(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ì)工程與工程學(xué)院11人；成都理工大學(xué)與土木工程學(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ī)炜捎糜谌耸鹿芾�、查找工程咨詢專家、聘�?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ī)煜到y(tǒng)開(kāi)發(fā)
4.1 數(shù)據(jù)庫(kù)
（1）信息來(lái)源
通過(guò)學(xué)術(shù)會(huì)議、信件和網(wǎng)上下載（見(jiàn)http://www.enggeo.org/xwdt-040106.htm）等途徑分發(fā)“全國(guó)工程地質(zhì)專家?guī)鞂＜业怯洷怼保占答伝貋?lái)的原始登記表，錄入數(shù)據(jù)庫(kù)中。
（2）創(chuàng)建數(shù)據(jù)庫(kù)
在Microsoft Office Access中建立專家數(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)
采用Microsoft Visual Basic 6.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ò)程中使用了ADO Data控件、DataGrid控件、DataEnviornment設(shè)計(jì)器、Data Report設(shè)計(jì)器等。
下面著重?cái)⑹龈呒?jí)查詢的實(shí)現(xiàn)。在高級(jí)查詢窗口中，用戶填寫的查詢條件包括查詢結(jié)果中顯示的字段、where子句查詢條件、字段排序子句，用字符串連接生成SQL查詢語(yǔ)句。然后在專家數(shù)據(jù)表中查找符合查詢條件的專家記錄并在查詢結(jié)果窗口中顯示給用戶。完成高級(jí)查詢功能的程序片段如下：
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
'查詢結(jié)果至少要顯示一個(gè)字段
If lstKey.SelCount = 0 Then
MsgBox "查詢結(jié)果中至少要顯示一個(gè)字段!", vbMsgBoxSetForeground, "缺少字段"
Exit Sub
End If
If txtCondition.Text = vbNullString Then
MsgBox "請(qǐng)加入查詢條件！", vbOKOnly + vbInformation, "提示"
Exit Sub
End If
'查詢結(jié)果中顯示的字段
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子句查詢條件
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查詢語(yǔ)句
strSQL = "select " & strKey & " from " & " 專家?guī)?/SPAN> " & strWhere & mstrOrderSQLs
strsqlAll = "select " & strkeys & " from " & " 專家?guī)?/SPAN> " & strWhere & mstrOrderSQLs
adoconnection.Execute strSQL
adoconnection.Execute strsqlAll
If Err Then
MsgBox Err.Number & vbCrLf & Err.Description & Err.Source, vbCritical, "SQL語(yǔ)句錯(cuò)誤"
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
'查詢結(jié)果顯示
frmQueryResult.Show vbModal
End Sub
5 結(jié)語(yǔ)
中國(guó)學(xué)會(huì)工程地質(zhì)專業(yè)委員會(huì)建立“全國(guó)工程地質(zhì)專家?guī)煜到y(tǒng)”的目是便于相互了解、交流，以滿足各單位部門了解專家專家信息的需求，充分發(fā)揮專家作用，更快推進(jìn)工程地質(zhì)學(xué)科和事業(yè)的創(chuàng)新發(fā)展。
【全國(guó)工程地質(zhì)專家?guī)煜到y(tǒng)的開(kāi)發(fā)】相關(guān)文章：
紡織企業(yè)快速報(bào)價(jià)系統(tǒng)開(kāi)發(fā)05-11
職工工資管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)論文開(kāi)題報(bào)告09-15
飛機(jī)艙音背景聲特征實(shí)時(shí)分析系統(tǒng)開(kāi)發(fā)及應(yīng)用05-05
淺談開(kāi)發(fā)電力系統(tǒng)繼電保護(hù)中級(jí)工教學(xué)培訓(xùn)包的實(shí)踐與體會(huì)05-28
工程地質(zhì)隨想（三）08-21
綜合布線系統(tǒng)概述09-22
前臺(tái)mis治理系統(tǒng)06-04
績(jī)效治理系統(tǒng)及作用06-05
項(xiàng)目管理系統(tǒng)開(kāi)題報(bào)告06-30
庫(kù)存管理系統(tǒng)論文07-21