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