时间：2023-03-17 18:09:10
序论：在您撰写水利高级工程师论文时，参考他人的优秀作品可以开阔视野，小编为您整理的7篇范文，希望这些建议能够激发您的创作热情，引导您走向新的创作高度。
根据《浙江省专业技术资格评审工作实施细则(试行)》(浙人专〔2006〕351号)精神,为做好我市2013年度建工城建专业高级工程师资格评审工作,现将有关事项通知如下:
一、申报范围和对象
在全市企事业单位中从事建工城建专业的专业技术人员。任职资格的资历一律计算到2013年12月底,在此期限内已到达退休年龄的,除按规定经批准延长退休年龄者外,不列入申报范围。
二、评审条件
(一)建工城建专业高级工程师资格评审按《浙江省建设工程专业工程师和高级工程师资格评价条件(试行)》(浙人社发〔2011〕275号)的有关规定执行。水利专业高级工程师资格评审按)、《浙江省水利专业工程师、高级工程师资格评价条件(试行)》(浙人社发〔2009〕187号)及有关规定执行。
(二)计算机应用能力考核要求。凡年龄在45周岁以下,申报高级工程师资格,须获得4个科目(模块)的全国专业技术人员计算机应用能力考试成绩合格证书;计算机免试按浙人专〔2006〕351号文件规定执行。
(三)职称外语要求。职称外语要求按甬人专〔2007〕36号文件规定执行。
(四)考核要求。近3年专业技术人员年度考核合格以上。
(五)继续教育。继续教育参照甬政办发〔2002〕150号文件规定执行,对专业技术人员继续教育实行学时管理,在一个继续教育周期内不少于90学时。
(六)公示要求。所有申报人员的申报材料均须公示,具体要求按甬人专〔2004〕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、助理工程师(初级职称)：大学本科毕业后从事本工作满半年以上；大学专科毕业后从事本专业工作满一年以上；中专、高中、初中毕业后担任员级职务三年以上。
2、工程师(中级职称)：大学本科毕业后，担任助理级职务满三年以上；专科毕业后，担任助理级职务满四年以上；中专、高中毕业后担任助理级职务满五年上。
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个本科专业。现有教职工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
