時間：2023-03-17 18:09:10
序論：在您撰寫水利高級工程師論文時，參考他人的優(yōu)秀作品可以開闊視野，小編為您整理的7篇范文，希望這些建議能夠激發(fā)您的創(chuàng)作熱情，引導(dǎo)您走向新的創(chuàng)作高度。
根據(jù)《浙江省專業(yè)技術(shù)資格評審工作實施細則(試行)》(浙人?！?006〕351號)精神,為做好我市2013年度建工城建專業(yè)高級工程師資格評審工作,現(xiàn)將有關(guān)事項通知如下:
一、申報范圍和對象
在全市企事業(yè)單位中從事建工城建專業(yè)的專業(yè)技術(shù)人員。任職資格的資歷一律計算到2013年12月底,在此期限內(nèi)已到達退休年齡的,除按規(guī)定經(jīng)批準(zhǔn)延長退休年齡者外,不列入申報范圍。
二、評審條件
(一)建工城建專業(yè)高級工程師資格評審按《浙江省建設(shè)工程專業(yè)工程師和高級工程師資格評價條件(試行)》(浙人社發(fā)〔2011〕275號)的有關(guān)規(guī)定執(zhí)行。水利專業(yè)高級工程師資格評審按)、《浙江省水利專業(yè)工程師、高級工程師資格評價條件(試行)》(浙人社發(fā)〔2009〕187號)及有關(guān)規(guī)定執(zhí)行。
(二)計算機應(yīng)用能力考核要求。凡年齡在45周歲以下,申報高級工程師資格,須獲得4個科目(模塊)的全國專業(yè)技術(shù)人員計算機應(yīng)用能力考試成績合格證書;計算機免試按浙人?！?006〕351號文件規(guī)定執(zhí)行。
(三)職稱外語要求。職稱外語要求按甬人?！?007〕36號文件規(guī)定執(zhí)行。
(四)考核要求。近3年專業(yè)技術(shù)人員年度考核合格以上。
(五)繼續(xù)教育。繼續(xù)教育參照甬政辦發(fā)〔2002〕150號文件規(guī)定執(zhí)行,對專業(yè)技術(shù)人員繼續(xù)教育實行學(xué)時管理,在一個繼續(xù)教育周期內(nèi)不少于90學(xué)時。
(六)公示要求。所有申報人員的申報材料均須公示,具體要求按甬人?！?004〕32號文件執(zhí)行。
三、面試、筆試有關(guān)事項
申報高級人員須參加面試答辯或?qū)I(yè)知識筆試。其中申報建筑工程管理、建筑施工、市政道路(橋梁)、工程造價、風(fēng)景園林專業(yè)的須參加專業(yè)知識筆試,筆試的內(nèi)容分別為建筑施工技術(shù)、道路橋梁施工技術(shù)、建筑預(yù)算、園林工程施工;水利專業(yè)按浙水辦人〔2009〕3號文件要求,需提供《浙江省水利專業(yè)高級工程師資格評價業(yè)務(wù)考試成績合格證》;申報其它專業(yè)的參加論文答辯和專業(yè)知識面試。面試、筆試成績作為評委會評審的重要依據(jù)之一。
四、材料報送及要求
為確保評審?fù)扑]工作順利進行,送審的材料必須真實規(guī)范,材料中的論文、學(xué)歷證書、專業(yè)技術(shù)資格證書等應(yīng)提供原件,材料中的證書提供復(fù)印件時,須由單位人事干部負責(zé)驗證后,在復(fù)印件上簽名,加蓋單位公章,縣(市)、區(qū)申報的材料需經(jīng)當(dāng)?shù)厝松绮块T審核蓋章,市屬單位由行政主管部門審核蓋章。對在申報過程中有弄虛作假行為的人員,從評審次年起3年內(nèi)不得申報高一級專業(yè)技術(shù)資格,已參加評審取得資格的取消其評審結(jié)果。送審材料具體要求是:
(一)專業(yè)技術(shù)人員技術(shù)業(yè)務(wù)檔案(包括任期內(nèi)年度考核材料1套);
(二)《專業(yè)技術(shù)人員任職資格評審表》(需貼照片),一式3份,另需電子版的免冠白底二寸彩色照片1張,要求用jpg格式,身份證號做文件名,尺寸不大于300×420,不小于200×280像素,文件大小在50k以內(nèi)。
(三)《推薦高級專業(yè)技術(shù)職務(wù)任職資格人員情況綜合表》(A3紙打印)一式30份,并須加蓋公章;
(四)《推薦高級專業(yè)技術(shù)職務(wù)任職資格人員學(xué)術(shù)論文基本情況登記表》(A4紙打印)一式30份;
(五)《推薦高級專業(yè)技術(shù)職務(wù)任職資格評審對象名冊》1份,另報電子文檔;
(六)任現(xiàn)職以來專業(yè)工作總結(jié)1份;
(七)任現(xiàn)職以來能夠反映本人專業(yè)水平的業(yè)績材料;
(八)任現(xiàn)職以來撰寫的論文;
(九)破格申報人員,需填報《破格推薦高級專業(yè)技術(shù)職務(wù)任職資格審批表》一式3份,同時,需說明符合哪幾條破格申報條件,并附有關(guān)證明材料;
(十)以下材料請按順序裝訂成冊:
1.學(xué)歷證書、教育部學(xué)歷證書電子注冊備案表、專業(yè)技術(shù)職務(wù)任職資格證書,專業(yè)技術(shù)職務(wù)聘書、外語考試合格證(或外語免試審核表)、計算機合格證(或計算機應(yīng)用能力免試審核表)、繼續(xù)教育證書、本人身份證,近1年勞動合同(企業(yè)及事業(yè)編外人員提供),近1年(按申報材料截止月往上推1年算)在甬工作養(yǎng)老保險繳納證明(企業(yè)及事業(yè)編外人員提供,多人申報的單位可統(tǒng)一出具)等原件,同時再附上述所有證書的復(fù)印件各1份;
2.寧波市高級專業(yè)技術(shù)職務(wù)任職資格申報材料公示確認表1份;
3.專業(yè)技術(shù)職務(wù)任職資格評審材料真實性保證書1份。
4.在外地取得工程師資格人員須提供《專業(yè)技術(shù)資格評審表》、市級公布文件、調(diào)動相關(guān)證明材料。
在私營企業(yè)、港澳臺僑獨資企業(yè)、民營科技企業(yè)以及其他非公有制經(jīng)濟組織中從事專業(yè)技術(shù)工作的人員和在市、縣人才交流中心實行人事的專業(yè)技術(shù)人員，均可申報評審相應(yīng)的專業(yè)技術(shù)職務(wù)任職資格.
二、基本條件
1、助理工程師(初級職稱)：大學(xué)本科畢業(yè)后從事本工作滿半年以上；大學(xué)?？飘厴I(yè)后從事本專業(yè)工作滿一年以上；中專、高中、初中畢業(yè)后擔(dān)任員級職務(wù)三年以上。
2、工程師(中級職稱)：大學(xué)本科畢業(yè)后，擔(dān)任助理級職務(wù)滿三年以上；?？飘厴I(yè)后，擔(dān)任助理級職務(wù)滿四年以上；中專、高中畢業(yè)后擔(dān)任助理級職務(wù)滿五年上。
3、高級工程師(高級職稱):大學(xué)本科畢業(yè)后，從事本專業(yè)技術(shù)工作10年以上，取得中級職務(wù)任職資格,并從事中級職務(wù)工作5年以上；參加工作后取得本專業(yè)或相近專業(yè)的大學(xué)本科學(xué)歷，從事本專業(yè)技術(shù)工作10年以上，取得中級職務(wù)任職資格5年以上。
三、材料要求
為了保證申報材料的真實性，凡涉及申報對象的學(xué)歷、專業(yè)年限、考試成績、任職年限及本人的工作能力和主要業(yè)績、獎懲情況，須由申報單位核實后，按規(guī)定的要求提交以下主要材料：
1、《專業(yè)技術(shù)職務(wù)評審表》（中、初級一式二份）、附件表（一式一份）；
2、上一年度的《專業(yè)技術(shù)人員考核登記表》；
3、專業(yè)論文和業(yè)務(wù)工作總結(jié)；
4、其它能反映本人工作能力和重要業(yè)績的相關(guān)材料；
5、《專業(yè)技術(shù)人員水平能力測試合格證》；
6、一寸免冠彩照5張、身份證復(fù)印件2份、最高學(xué)歷證書復(fù)印件2份。
四、評審專業(yè)類別
關(guān)鍵字：項目；節(jié)水灌溉；承辦單位；成就；科研成果
中圖分類號：TU991文獻標(biāo)識碼： A
引言
由于河西冷涼區(qū)水資源供需矛盾嚴重，在該地區(qū)實施《河西冷涼地區(qū)高新節(jié)水灌溉技術(shù)與信息化控制系統(tǒng)建設(shè)及應(yīng)用》項目將會在農(nóng)業(yè)灌溉中提高水的利用率，緩解用水矛盾，促進當(dāng)?shù)剞r(nóng)業(yè)的發(fā)展和社會的進步和諧，具有很大的意義。但是此項目實施也有很明顯的優(yōu)勢。這些優(yōu)勢主要從項目承辦單位的科研實力，我國現(xiàn)有的技術(shù)水平和當(dāng)?shù)厝〉玫目蒲谐晒矫姹憩F(xiàn)出來。
一、項目承擔(dān)單位具有較強的科研實力
該項目由民樂縣洪水河管理處主持，甘肅農(nóng)業(yè)大學(xué)工學(xué)院、河西學(xué)院數(shù)學(xué)與統(tǒng)計學(xué)院和洪水河管理處下屬職能科室參與完成。
洪水河管理處下設(shè)三科一室一所二站，現(xiàn)有職工253人，專業(yè)技術(shù)人員108人，其中：高級工程師4人，工程師22人，助理工程師37人，技術(shù)員45人。2010年洪水河管理處與甘肅農(nóng)業(yè)大學(xué)聯(lián)合掛牌成立節(jié)水科研與教學(xué)基地，2013年成立洪水河灌區(qū)社會實踐服務(wù)基地、青年就業(yè)創(chuàng)業(yè)見習(xí)基地，為項目實施提供了可靠的技術(shù)支撐。從20世紀(jì)80年代起，洪水河管理處針對灌區(qū)干旱缺水的實際，一直致力于節(jié)水灌溉研究應(yīng)用，先后完成了35項節(jié)水灌溉試驗課題研究。取得了民樂縣、甘肅省乃至國內(nèi)外的各項技術(shù)大獎。并且在國家級或省部級核心期刊上也發(fā)表多篇應(yīng)用性論文。
甘肅農(nóng)業(yè)大學(xué)工學(xué)院，現(xiàn)有農(nóng)業(yè)水利工程、農(nóng)業(yè)電氣化及其自動化、電氣工程及其自動化等8個本科專業(yè)?，F(xiàn)有教職工90人，其中教授20人、正高級工程師1人、副教授18人、博士生導(dǎo)師5人學(xué)院在校外建立了多個校外實踐教學(xué)與研究基地。并且學(xué)院近年來先后承擔(dān)了國家“863計劃”項目專題、國家自然基金多項，主持和參與了多項國家公益性行業(yè)科研專項、科技支撐計劃等科研項目，并多次獲得省部級科研成果獎。同時在國內(nèi)外期刊上發(fā)表了多篇論文。學(xué)院立足甘肅、面向干旱半干旱地區(qū)，突出農(nóng)業(yè)院校工科專業(yè)特色和農(nóng)業(yè)工程學(xué)科優(yōu)勢，實現(xiàn)規(guī)模、質(zhì)量、結(jié)構(gòu)、效益協(xié)調(diào)發(fā)展，建成了在全國同類院校及西部地區(qū)有重要影響的教學(xué)研究型學(xué)院。
洪水河管理處工程科，先后完成洪水河大型灌區(qū)續(xù)建配套與節(jié)水改造項目，日元貸款風(fēng)沙治理項目、農(nóng)業(yè)綜合開發(fā)項目、節(jié)水增效示范項目等多項水利工程的設(shè)計、施工建設(shè)任務(wù)。均被評為省、市、縣優(yōu)良工程。共配置專業(yè)技術(shù)人員67名，其中高級工程師2名，工程師12名，助理工程師21名，技術(shù)員32名。完成科研項目自壓式半固定噴管灌技術(shù)在洪水河灌區(qū)的應(yīng)用，獲民樂縣科技進步一等獎；低壓管道輸水技術(shù)在自流灌區(qū)的推廣應(yīng)用，獲民樂縣科技進步三等獎。
洪水河管理處信息調(diào)度中心，已建設(shè)完成了較為完善的配套設(shè)備。共配置專業(yè)技術(shù)人員5名,其中工程師2名，助理工程師2名，技術(shù)員1名。完成科研項目洪水河灌區(qū)信息化管理系統(tǒng)應(yīng)用與研究，獲民樂縣科技進步一等獎。
民樂縣益民灌溉試驗站配置專業(yè)技術(shù)人員8名，其中工程師2名，助理工程師2名，技術(shù)員3名，研究生1名。先后作為項目主要承擔(dān)單位完成了多項節(jié)水灌溉試驗課題研究，獲得了地廳級科技進步獎3項，縣處級科技進步獎8項，在國家級或省部級核心期刊發(fā)表相關(guān)研究應(yīng)用論文多篇。
二、我國國內(nèi)節(jié)水灌溉事業(yè)取得了很大成就
1發(fā)展社會化
節(jié)水灌溉把水利、農(nóng)機、農(nóng)業(yè)、農(nóng)藝等農(nóng)業(yè)要素結(jié)合起來，成為他們的載體。節(jié)水灌溉使農(nóng)村經(jīng)濟得到快速發(fā)展。同時對于灌溉農(nóng)業(yè)，全社會有了越來越統(tǒng)一的認識，社會輿論也越來越好。大家都意識到了發(fā)展節(jié)水灌溉的重要性，從心底愿意攜起手來發(fā)展節(jié)水灌溉農(nóng)業(yè)。在政府層面，形成了新的有利局面，各部門包括財政、農(nóng)機、水利、發(fā)展改革、農(nóng)業(yè)、科技實現(xiàn)了合作。在社會層面，一些社會群體包括農(nóng)業(yè)合作組織、受益農(nóng)戶、涉農(nóng)企業(yè)、種植大戶在高收益的驅(qū)使下，發(fā)展節(jié)水灌溉投資修建節(jié)水灌溉設(shè)施的有著空前高漲的積極性。發(fā)展節(jié)水灌溉被政府大力推動，巨大的環(huán)境效益和生態(tài)效益也會被節(jié)水灌溉激發(fā)出來，一些社會會組織越來越關(guān)注其發(fā)展。在技術(shù)發(fā)展層面，一些新技術(shù)新設(shè)備被企業(yè)自主研發(fā)出來，譬如微潤灌溉、痕量灌溉，對政府的依賴性減少，企業(yè)的自主性增加。
2技術(shù)集成化
隨著不斷的對節(jié)水灌溉技術(shù)進行研發(fā)、實驗和推廣，隨著不斷調(diào)整的農(nóng)業(yè)種植結(jié)構(gòu)、不斷轉(zhuǎn)變的耕作技術(shù)、不斷革新的管理手段，節(jié)水灌溉從原有的單一的灌溉技術(shù)模式開始經(jīng)歷向農(nóng)業(yè)綜合集成技術(shù)模式轉(zhuǎn)變。膜下滴灌技術(shù)，在西北、東北地區(qū)近幾年被大力推廣，這項技術(shù)效率很高，是農(nóng)機、農(nóng)藥、農(nóng)膜、滴灌、種子、化肥、農(nóng)藝的集成技術(shù)。在南方水稻產(chǎn)區(qū)開始推廣控制灌溉技術(shù)，這項技術(shù)包括“淺、薄、濕、曬”的特點，也集成了農(nóng)藝、種子、灌溉、化肥等技術(shù)。水肥一體化、覆膜保墑等技術(shù)被農(nóng)業(yè)部門推廣。使節(jié)水灌溉技術(shù)相應(yīng)的得到進一步整合。
3建設(shè)的規(guī)模約來越大
由于政府對節(jié)水灌溉進行大力推動，越來越多的土地流轉(zhuǎn)起來，農(nóng)業(yè)生產(chǎn)經(jīng)營方式也開始轉(zhuǎn)變，一些新特點如規(guī)?；?、區(qū)域化開始在節(jié)水灌溉建設(shè)方面出現(xiàn)。譬如400萬畝在新疆一年內(nèi)發(fā)展起來、在甘肅河西走廊地區(qū)700多萬畝在五年內(nèi)發(fā)展、3800萬畝在東北四省區(qū)在四年內(nèi)發(fā)展起來等，這些在節(jié)水灌溉領(lǐng)域的新發(fā)展表明，節(jié)水灌溉事業(yè)越來越規(guī)?；瘏^(qū)域化。其他地區(qū)也針對區(qū)域優(yōu)勢作物為對象，開始對節(jié)水灌溉技術(shù)進行大規(guī)模推廣。
4應(yīng)用大田化
隨著越來越成熟的噴微灌技術(shù)、不斷擴大的生產(chǎn)企業(yè)規(guī)模、生產(chǎn)成本不斷降低的節(jié)水灌溉設(shè)備，噴微灌技術(shù)也從小范圍應(yīng)用到大范圍轉(zhuǎn)變。原來應(yīng)用的主要是在高效經(jīng)濟作物領(lǐng)域如蔬菜、花卉、果樹等，現(xiàn)在開始大范圍應(yīng)用到大田范圍，譬如馬鈴薯、棉花、玉米等。小麥噴灌在黃淮海平原井灌區(qū)的發(fā)展規(guī)模越來越大，水稻膜下滴灌技術(shù)試驗也在新疆、寧夏等地區(qū)開展起來。
5服務(wù)更加專業(yè)化
不斷擴大的節(jié)水灌溉發(fā)展規(guī)模，也使得越來越專業(yè)化的節(jié)水灌溉的服務(wù)出現(xiàn)。專業(yè)化特點在設(shè)計工程、施工、后期服務(wù)等各個階段呈現(xiàn)出來。也出現(xiàn)了規(guī)模越來越大的設(shè)計工程、施工與維修養(yǎng)護的專業(yè)化隊伍。
三、民樂縣在節(jié)水灌溉領(lǐng)域取得了豐碩的科研成果
當(dāng)?shù)厝嗣穹e極在當(dāng)?shù)匕l(fā)明應(yīng)用節(jié)水灌溉的新技術(shù)，以及進行了一系列的科學(xué)實驗都取得了很大成果。如低壓管道輸水技術(shù)在自流灌區(qū)的推廣應(yīng)用、自壓式半固定噴管灌技術(shù)在洪水河灌區(qū)的應(yīng)用、溫室葡萄滴灌輸水系統(tǒng)及灌溉制度實驗研究、張掖市節(jié)水型社會建設(shè)板藍根灌溉制度試驗研究、中藥材及優(yōu)質(zhì)牧草灌溉制度試驗研究、馬鈴薯免耕覆蓋栽培與調(diào)虧灌溉技術(shù)試驗研究、加工型馬鈴薯節(jié)水灌溉制度試驗研究、作物灌溉需水預(yù)測預(yù)報研究、水資源優(yōu)化配置及農(nóng)業(yè)種植結(jié)構(gòu)調(diào)整問題探索與研究、洪水河灌區(qū)信息化管理系統(tǒng)應(yīng)用與研究、全膜覆土穴播條件下春小麥灌溉制度試驗研究等技術(shù)與研究實驗分別獲得了民樂縣及甘肅省的各項技術(shù)大獎。。
結(jié)束語
我國的南北水資源分布不均，民樂縣降水少，干旱嚴重，水資源匱乏。在該地區(qū)實施《河西冷涼灌區(qū)高新節(jié)水灌溉技術(shù)與信息化控制系統(tǒng)建設(shè)及應(yīng)用》的項目很有必要。由于此項目承辦的單位擁有較強的科研實力、我國的節(jié)水灌溉事業(yè)發(fā)展迅速及該縣在節(jié)水灌溉領(lǐng)域取得了豐碩的成果，這些條件成為項目實施的優(yōu)勢。該項目在這些優(yōu)勢條件幫助下必將順利展開并圓滿完成任務(wù)。
參考文獻：
[1] 陳文華. 淺論現(xiàn)代水利水電工程施工 [J]. 教育探究, 2008(3): 73-75.
[2] 胡以麟. 節(jié)水灌溉的歷史發(fā)展進程[M]. 北京: 北京大學(xué)出版社, 2006.
[3] 潘峰. 近代水利事業(yè)的成就[J]. 語言文字應(yīng)用, 2011(3): 40-50.
[4] 沈國娣. 灌溉技術(shù)發(fā)展之我見[J]. 科技周刊, 2009(5): 15-16.
這是昆明醫(yī)學(xué)院第一附屬醫(yī)院一間特殊的病房，房間里堆滿了書籍、論文，床頭有一塊橫板，隨時可以成為移動的書桌。比起其它病房，這里更像一間書房。這里，住著一位特殊的癌癥病人，身上輸著液、插著引流管，劇烈的疼痛時時襲來，他卻伏在病床案頭上奮筆疾書。
這位74歲的古稀老人，是中國水電十四局教授級高級工程師劉元岐。作為中國水電十四局教授級高級工程師、云南省電建工程設(shè)計研究所總工程師，他5次獲得國家、云南省科技進步獎，被評為“云南省有突出貢獻的專業(yè)技術(shù)人員”。
劉元岐是山東濟寧人，從小家境貧寒的他，讀書格外用功。1954年，從山東大學(xué)工學(xué)院畢業(yè)后，劉元岐來到當(dāng)時我國唯一的水電勘測設(shè)計部門———北京水電總局設(shè)計處工作。1958年6月，劉元岐受國家派遣，赴蘇聯(lián)水電科學(xué)研究院及加里寧工業(yè)學(xué)院學(xué)習(xí)。留蘇期間，他每晚都學(xué)習(xí)到深夜，他說：“赴蘇聯(lián)學(xué)習(xí)的機會，是國家在物資匱乏的情況下，用無數(shù)優(yōu)質(zhì)的農(nóng)副產(chǎn)品換來的，我們怎能不拼命學(xué)習(xí)、拼命工作？”
1962年，劉元岐學(xué)成回國，咬破手，用鮮血寫下奔赴邊疆建功立業(yè)的決心書。這年7月，劉元岐來到云南，先后到昆明水電勘測設(shè)計院和中國水電十四局工作。在云南的40年，是劉元岐不遺余力奉獻的40年。40個春秋，劉元岐的足跡踏遍了云南的山山水水，為以禮河電站、六郎洞電站、西洱河電站、魯布革電站等水電建設(shè)重大工程項目的規(guī)劃設(shè)計及實驗研究工作嘔心瀝血……
遇到科研中有爭議的問題，劉元岐從不盲從權(quán)威，總是勇于實踐，成了云南水利工程學(xué)界出了名的“倔老頭”。劉元岐說：“做人要誠實，我就不贊成有的專家原來一個意見，一聽領(lǐng)導(dǎo)的意見馬上轉(zhuǎn)了，我就要研究你轉(zhuǎn)得對不對，轉(zhuǎn)的對我支持你，你轉(zhuǎn)的不對，該提意見我還提?！?/p>
1964年，我國第一座高水頭、跨流域開發(fā)建設(shè)的梯級電站———以禮河三級電站鋪設(shè)1820多米鋼管后出現(xiàn)技術(shù)難題，由國內(nèi)外權(quán)威專家組成的專家組出現(xiàn)意見分歧。一部分專家主張將管道炸掉重修，當(dāng)時在業(yè)內(nèi)尚屬“初生牛犢”的劉元岐，力主進行現(xiàn)場實驗、反對盲目炸掉。通過艱苦而危險的管道實驗，證明進行局部補救的管道完全能使用，為電站工程節(jié)約了大量資金和寶貴時間。
2002年，劉元岐患上慢性腎功能衰竭、尿毒癥，醫(yī)院三次下達病危通知書，劉元岐開始了與病魔和時間的賽跑。當(dāng)時，云南能源產(chǎn)業(yè)正面臨“向何處去”等一系列重大戰(zhàn)略選擇問題，劉元岐與多年至交、現(xiàn)任云南省社會科學(xué)院南亞研究所所長王崇理合作撰寫了《新世紀(jì)的云南能源》。2004年，病魔再次襲擊了這位老人，他又被確診為右側(cè)腮腺導(dǎo)管癌再次入院治療。今年3月，發(fā)生腫瘤骨轉(zhuǎn)移，8月病情再次惡化……
關(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è)民用建筑等；從專業(yè)領(lǐng)域來說，包括工程地質(zhì)勘察、巖土工程施工、地質(zhì)災(zāi)害研究等；從遍及的單位來說，包括高等院校、科研院所、各部委直屬勘測設(shè)計院和公司等一百多家；從職稱分布來說，包括工程院院士、勘察大師、教授級高級工程師、高級工程師、教授、副教授、研究員、副研究員等；從工作職務(wù)來說，包括院長、副院長、總工程師、副總工程師、經(jīng)理、校長、系主任等。
入庫的單位及其人數(shù)情況：北京國電華北電力工程有限公司14人；長安大學(xué)地質(zhì)工程與測繪工程學(xué)院11人；成都理工大學(xué)環(huán)境與土木工程學(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ī)炜捎糜谌耸聶n案管理、查找工程咨詢專家、聘請工程項目評審專家、查找稿件評閱人、聘任學(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é)果按鈕。下部是選中專家的詳細信息，當(dāng)點選左上部的不同專家，其詳細信息會改變。
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)上下載（見/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ī)?" & strwhere & mstrordersqls
strsqlall = "select " & strkeys & " from " & " 專家?guī)?" & 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
自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è)民用建筑等；從專業(yè)領(lǐng)域來說，包括工程地質(zhì)勘察、巖土工程施工、地質(zhì)災(zāi)害研究等；從遍及的單位來說，包括高等院校、科研院所、各部委直屬勘測設(shè)計院和公司等一百多家；從職稱分布來說，包括工程院院士、勘察大師、教授級高級工程師、高級工程師、教授、副教授、研究員、副研究員等；從工作職務(wù)來說，包括院長、副院長、總工程師、副總工程師、經(jīng)理、校長、系主任等。
入庫的單位及其人數(shù)情況：北京國電華北電力工程有限公司14人；長安大學(xué)地質(zhì)工程與測繪工程學(xué)院11人；成都理工大學(xué)環(huán)境與土木工程學(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ī)炜捎糜谌耸聶n案管理、查找工程咨詢專家、聘請工程項目評審專家、查找稿件評閱人、聘任學(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é)果按鈕。下部是選中專家的詳細信息，當(dāng)點選左上部的不同專家，其詳細信息會改變。
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)上下載（見/xwdt-040106.htm）等途徑分發(fā)“全國工程地質(zhì)專家?guī)鞂＜业怯洷怼?，收集反饋回來的原始登記表，錄入?shù)據(jù)庫中。
（2）創(chuàng)建數(shù)據(jù)庫
在MicrosoftOfficeAccess軟件中建立專家數(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)
采用MicrosoftVisualBasic6.0作為開發(fā)工具，運用其集成開發(fā)環(huán)境和快速應(yīng)用程序開發(fā)技術(shù)，根據(jù)軟件的功能模塊分別創(chuàng)建程序界面和窗口（圖1－圖7）。開發(fā)過程中使用了ADOData控件、DataGrid控件、DataEnviornment設(shè)計器、DataReport設(shè)計器等。
下面著重敘述高級查詢的實現(xiàn)。在高級查詢窗口中，用戶填寫的查詢條件包括查詢結(jié)果中顯示的字段、where子句查詢條件、字段排序子句，用字符串連接生成SQL查詢語句。然后在專家數(shù)據(jù)表中查找符合查詢條件的專家記錄并在查詢結(jié)果窗口中顯示給用戶。完成高級查詢功能的程序片段如下：
PrivateSubcmdQuery_Click()
DimstrKeyAsString
DimstrSQLAsString,strsqlAllAsString
DimstrOrderSQLAsString
DimstrOrderAsString
DimintLenKeyAsInteger
DimiAsInteger,jAsInteger
''''查詢結(jié)果至少要顯示一個字段
IflstKey.SelCount=0Then
MsgBox"查詢結(jié)果中至少要顯示一個字段!",vbMsgBoxSetForeground,"缺少字段"
ExitSub
EndIf
IftxtCondition.Text=vbNullStringThen
MsgBox"請加入查詢條件！",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查詢語句
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語句錯誤"
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"沒有您要查找的記錄!",vbInformation+vbOKOnly,"找不到記錄"
ExitSub
EndIf
''''查詢結(jié)果顯示
frmQueryResult.ShowvbModal
EndSub
關(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è)民用建筑等；從專業(yè)領(lǐng)域來說，包括工程地質(zhì)勘察、巖土工程施工、地質(zhì)災(zāi)害研究等；從遍及的單位來說，包括高等院校、科研院所、各部委直屬勘測設(shè)計院和公司等一百多家；從職稱分布來說，包括工程院院士、勘察大師、教授級高級工程師、高級工程師、教授、副教授、研究員、副研究員等；從工作職務(wù)來說，包括院長、副院長、總工程師、副總工程師、經(jīng)理、校長、系主任等。
入庫的單位及其人數(shù)情況：北京國電華北電力工程有限公司14人；長安大學(xué)地質(zhì)工程與測繪工程學(xué)院11人；成都理工大學(xué)環(huán)境與土木工程學(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ī)炜捎糜谌耸聶n案管理、查找工程咨詢專家、聘請工程項目評審專家、查找稿件評閱人、聘任學(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é)果按鈕。下部是選中專家的詳細信息，當(dāng)點選左上部的不同專家，其詳細信息會改變。
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)上下載（見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ī)?" & strWhere & mstrOrderSQLs
strsqlAll = "select " & strkeys & " from " & " 專家?guī)?" & 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
MsgBox "沒有您要查找的記錄!"， vbInformation + vbOKOnly， "找不到記錄"
Exit Sub
End If
'查詢結(jié)果顯示
frmQueryResult.Show vbModal
End Sub
