- 相關(guān)推薦
全國工程地質(zhì)專家?guī)煜到y(tǒng)的開發(fā)
摘要：介紹了中國學(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ì)專家?guī)臁币殉蹙咭?guī)模，從針對服務(wù)的行業(yè)來說，包括、鐵路、礦山和民用等；從專業(yè)領(lǐng)域來說，包括工程地質(zhì)勘察、巖土工程、地質(zhì)災(zāi)害研究等；從遍及的單位來說，包括高等院校、科研院所、各部委直屬勘測設(shè)計院和公司等一百多家；從職稱分布來說，包括工程院院士、勘察大師、教授級高級工程師、高級工程師、教授、副教授、研究員、副研究員等；從工作職務(wù)來說，包括院長、副院長、總工程師、副總工程師、經(jīng)理、校長、系主任等。
入庫的單位及其人數(shù)情況：北京國電華北電力工程有限公司14人；長安大學(xué)地質(zhì)工程與工程學(xué)院11人；成都理工大學(xué)與土木工程學(xué)院12人；國家電力公司成都勘測設(shè)計研究院43人；國家電力公司貴陽勘測設(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)系方式。 ② 顯示專家專業(yè)特長，工作領(lǐng)域。 ③ 打印專家表。 ④ 按照入庫序號、姓名和工作單位排序，方便檢索。 ⑤ 可隨時登記入庫。
2.2 查詢
按照姓名、出生年月、工作單位、單位性質(zhì)、技術(shù)職稱、專業(yè)特長、工作領(lǐng)域等單個字段查詢，查詢的結(jié)果可顯示專家基本信息、專業(yè)特長和工作領(lǐng)域，打印專家表。
2.3 高級查詢
多個字段的組合條件查詢，查詢結(jié)果可制作報表。
2.4 數(shù)據(jù)庫維護
數(shù)據(jù)庫員能夠輕松完成數(shù)據(jù)庫的日常維護工作，如添加、刪除、查詢等。
專家?guī)炜捎糜谌耸鹿芾�、查找工程咨詢專家、聘請工程項目評審專家、查找稿件評閱人、聘任學(xué)位審閱人等。
3 系統(tǒng)界面及功能模塊
3.1 主界面
全國工程地質(zhì)專家?guī)煜到y(tǒng)主界面如圖1所示。界面包括菜單區(qū)、查詢區(qū)、信息管理區(qū)和信息顯示區(qū)。菜單包括記錄、查詢、管理員和幫助等項。查詢區(qū)包括單個字段的簡單查詢和高級查詢按鈕。信息管理區(qū)由基本資料、專業(yè)特長、工作領(lǐng)域、備注、全表瀏覽、打印、退出按鈕組成，點選不同的按鈕，信息顯示區(qū)將顯示不同的信息。
3.2 高級查詢界面
點擊主界面窗口中查詢區(qū)的高級查詢按鈕會彈出高級查詢窗口，如圖2所示。通過該窗口可生成查詢條件、選擇結(jié)果中要顯示的字段、選擇排序字段、選擇組合查詢條件，并執(zhí)行查詢。查詢結(jié)果由查詢結(jié)果窗口（圖3）顯示出來。
3.3 查詢結(jié)果窗口
點擊高級查詢窗口中的開始查詢按鈕就可彈出查詢結(jié)果窗口。查詢結(jié)果窗口左上部分顯示符合查詢條件的記錄，右上部分是打印全部結(jié)果按鈕和打印選中結(jié)果按鈕。下部是選中專家的詳細信息，當點選左上部的不同專家，其詳細信息會改變。
3.4 查詢結(jié)果報表打印窗口
點擊查詢結(jié)果窗口中的打印全部結(jié)果按鈕將彈出查詢結(jié)果報表打印窗口，如圖4所示。上部是打印按鈕、導(dǎo)出按鈕和縮放比例下拉列表框，中間是報表顯示區(qū)，下部是頁碼顯示和翻頁按鈕。
3.5 選中結(jié)果報表打印窗口
點擊主界面信息管理區(qū)打印按鈕和查詢結(jié)果窗口中的打印選中結(jié)果按鈕將彈出選中專家資料報表打印窗口，如圖5所示。
3.6 數(shù)據(jù)庫管理員界面
點擊主界面管理員菜單下的管理員登陸菜單項后，彈出管理員登陸對話框（圖6）,輸入帳號和密碼后，點擊確定按鈕進入數(shù)據(jù)庫管理員界面（圖7）。
數(shù)據(jù)庫管理員界面由菜單、工具按鈕、專家信息編輯區(qū)和全表數(shù)據(jù)瀏覽和編輯區(qū)組成。工具按鈕包括移動記錄、添加、刪除等按鈕組成，專家信息編輯區(qū)用來編輯專家信息，全表數(shù)據(jù)瀏覽、編輯區(qū)瀏覽和編輯數(shù)據(jù)庫記錄。
4 工程地質(zhì)專家?guī)煜到y(tǒng)開發(fā)
4.1 數(shù)據(jù)庫
（1）信息來源
通過學(xué)術(shù)會議、信件和網(wǎng)上下載（見http://www.enggeo.org/xwdt-040106.htm）等途徑分發(fā)“全國工程地質(zhì)專家?guī)鞂＜业怯洷怼保占答伝貋淼脑嫉怯洷�，錄入�?shù)據(jù)庫中。
（2）創(chuàng)建數(shù)據(jù)庫
在Microsoft Office Access中建立專家數(shù)據(jù)庫。數(shù)據(jù)庫中包括的字段有：姓名、性別、出生年月、工作單位、技術(shù)職稱、工作職務(wù)、專家特長、工作領(lǐng)域、地址、郵政編碼、聯(lián)系電話、傳真和郵箱等，基本涵蓋了專家的基本信息、特長、工作領(lǐng)域和聯(lián)系方式。
（3）數(shù)據(jù)錄入
數(shù)據(jù)錄入方式有兩種方式： ① 在Access中錄入； ② 數(shù)據(jù)維護方式，即在數(shù)據(jù)庫管理員界面中輸入數(shù)據(jù)。
所有專家的信息存儲在一個數(shù)據(jù)表中，每位專家的信息在數(shù)據(jù)表中表現(xiàn)為一條記錄。
4.2 系統(tǒng)功能的代碼實現(xiàn)
采用Microsoft Visual Basic 6.0作為開發(fā)工具，運用其集成開發(fā)環(huán)境和快速應(yīng)用程序開發(fā)技術(shù)，根據(jù)的功能模塊分別創(chuàng)建程序界面和窗口（圖1－圖7）。開發(fā)過程中使用了ADO Data控件、DataGrid控件、DataEnviornment設(shè)計器、Data Report設(shè)計器等。
下面著重敘述高級查詢的實現(xiàn)。在高級查詢窗口中，用戶填寫的查詢條件包括查詢結(jié)果中顯示的字段、where子句查詢條件、字段排序子句，用字符串連接生成SQL查詢語句。然后在專家數(shù)據(jù)表中查找符合查詢條件的專家記錄并在查詢結(jié)果窗口中顯示給用戶。完成高級查詢功能的程序片段如下：
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é)果至少要顯示一個字段
If lstKey.SelCount = 0 Then
MsgBox "查詢結(jié)果中至少要顯示一個字段!", vbMsgBoxSetForeground, "缺少字段"
Exit Sub
End If
If txtCondition.Text = vbNullString Then
MsgBox "請加入查詢條件！", 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查詢語句
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語句錯誤"
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 "沒有您要查找的記錄!", vbInformation + vbOKOnly, "找不到記錄"
Exit Sub
End If
'查詢結(jié)果顯示
frmQueryResult.Show vbModal
End Sub
5 結(jié)語
中國學(xué)會工程地質(zhì)專業(yè)委員會建立“全國工程地質(zhì)專家?guī)煜到y(tǒng)”的目是便于相互了解、交流，以滿足各單位部門了解專家專家信息的需求，充分發(fā)揮專家作用，更快推進工程地質(zhì)學(xué)科和事業(yè)的創(chuàng)新發(fā)展。
【全國工程地質(zhì)專家?guī)煜到y(tǒng)的開發(fā)】相關(guān)文章：
紡織企業(yè)快速報價系統(tǒng)開發(fā)05-11
職工工資管理系統(tǒng)的設(shè)計與開發(fā)論文開題報告09-15
飛機艙音背景聲特征實時分析系統(tǒng)開發(fā)及應(yīng)用05-05
淺談開發(fā)電力系統(tǒng)繼電保護中級工教學(xué)培訓(xùn)包的實踐與體會05-28
工程地質(zhì)隨想（三）08-21
綜合布線系統(tǒng)概述09-22
前臺mis治理系統(tǒng)06-04
績效治理系統(tǒng)及作用06-05
項目管理系統(tǒng)開題報告06-30
庫存管理系統(tǒng)論文07-21