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