ASP_NET在雨情查询系统中的应用

ASP_NET在雨情查询系统中的应用

第１期（总第１６７期）

２００８年２月

山西水利科技

ＳＨＡＮＸＩＨＹＤＲＯＴＥＣＨＮＩＣＳ

Ｎｏ．１（ＴｏｔａｌＮ０．１６７）

Ｆｅｂ．２００８

１００６－８１３９（２００８）０１－９０－０２

ＡＳＰ．ＮＥＴ在雨情查询系统中的应用

安学军

（山西省水文水资源勘测局，太原０３０００１）

摘

要：为了解决山西省旬月雨量表通过ＥＸＣＥＬ电子表格进行计算统计旬月雨量的问题，

运用微软公司最新一代ＷＥＢ环境编程工具ＡＳＰ．ＮＥＴ开发了“山西省旬月雨量查询系统”程序，补充完善了水情信息服务系统，为我省雨水情信息服务探索了一条新的服务途径。关键词：ＡＳＰ．ＮＥＴ；雨情查询；应用中图分类号：ＴＰ２７１

文献标识码：Ｂ

水文现代化，水情要先行。山西省水情信息查询服务系统，实现了洪水预报、雨水情报表生成、雨水墒情检索查询等功能，集数据维护、数据查询、远程服务一体，是一个多功能、高效率的大型综合性管理系统，实现了我省水情信息资源共享，大大提高了水情工作的时效性和服务水平。在实际工作应用中，水情信息服务系统已发现有很多需要完善补充的部分需要我们去做工作。本系统采用微软最新的ＷＥＢ编程工具，进行技术创新，完善了水情信息服务系统。

段。为了编程方便，统一用字母简写代替相汉字字段，比如

ＡＤＣＤ代表行政区划代码，ＡＤＮＭ代表县名，ＹＥＡＲ代表年份，ＴＭＤ１０１代表一月上旬降雨量，ＴＭＤ２０１代表一月中旬降雨量，ＴＭＤ３０１代表一月下旬降雨量，ＴＭＤ４０１代表一月份全月降雨

量，ＲＤＹＮ０１代表一月份降雨日数，ＤＹＭＸ０１代表一月份日（市、区）历年旬月雨量统计表见表１。最大降雨量。山西各县

表１

山西各县（市、区）历年旬月雨量统计表

１系统介绍

服务ＡＳＰ．ｎｅｔ程序是使用ＡＳＰ．ｎｅｔ所创建的各类型网页、

的集合，它包含数个不同的文件类型及文件夹，包括Ｗｅｂ（ＡＳＰ．ｎｅｔ网页）、用户控件、配ＸＭＬＷｅｂＳｅｒｖｉｃｅｓ、Ｆｏｒｍｓ网页

置文件及程序集（ａｓｓｅｍｂｌｙ）等。ＡＳＰ．ｎｅｔ主要是用来创建

ＷｅｂＦｏｒｍｓ网页（ＡＳＰ．ｎｅｔ网页）及ＸＭＬＷｅｂＳｅｒｖｉｃｅｓ，ＸＭＬＷｅｂＳｅｒｖｉｃｅｓ是ＡＳＰ．ｎｅｔ新增的功能。

ＡＳＰ．ｎｅｔ只能在服务器执行。当浏览器向服务器请求打

开ＡＳＰ．ｎｅｔ程序时，服务器会从磁盘上读取该程序，然后加以执行并将结果转换成浏览器兼容的ＨＴＭＬ文档，再将

１．２动态交互式查询网页

本网页通过动态交互式ＡＳＰ．ＮＥＴ网页，用户先选择要

查询的市，选中的市所属的县（区）名称自动更新，选择要查（区）名称，点击城市按钮，再进行旬或月雨量查询选询的县

择，系统将自动进行检索查询，生成历年降雨量统计计算成果表网页。动态交互式查询网页见图１。

ＨＴＭＬ文档发送给浏览器，待浏览器收到ＨＴＭＬ文档后，就

会将ＨＴＭＬ文档翻译成网页画面呈现在用户面前。ＡＳＰ．ｎｅｔ使用ＶｉｓｕａｌＢａｓｉｃ．ＮＥＴ、ＶｉｓｕａｌＣ＋＋．ＮＥＴ等编译语言，同时支（ｏｂｊｅｃｔｏｒｉｅｎｔｅｄｐｒｏｇｒａｍｍｉｎｇ），包括封装持面向对象程序设计

（ｅｎｃａｐｓｕｌａｔｉｏｎ）、继承（ｉｎｈｅｒｉｔａｎｃｅ）、多态性（ｐｏｌｙｍｏｒｐｈｉｓｍ）等特点。对Ｗｅｂ服务器而言ＡＳＰ．ｎｅｔ程序有更高的执行效率。

系统主要由３个动态式ＡＳＰ．ＮＥＴ网页组成。应用了（县），ＡＳＰ．ＮＥＴ最新的一些功能，可以进行动态选择查询市统计计算，输出成果网页，在网页上对原始数据库进行维护更改、排序等。

１．３历年降雨量统计计算成果表网页

本网页统计计算出县区多年（旬）月平均降雨量，各（旬）

月平均最大降雨量，最大降雨量年份，各（旬）月平均最小降雨量，最小降雨量年份，历年年降雨量，历年１至５月降雨量，历年汛期６至９月降雨量，历年１０至１２月降雨量，可以进行降雨量计算等工作。历年降雨量统计计算成果表见表２。

１．４原始数据库维护网页

本网页可对原始数据库进行维护，可选择字段进行排

１．１采用Ａｃｃｅｓｓ数据库

原始数据表为山西各县（市、区）历年旬月雨量统计表，统

序、查询更新原始数据、进行自动翻页。原始数据库维护网页见表３。

行政区划计年限为１９５６年到２００３年，该表中包括ＩＤ编号、代码、年份、县（市、区）名称、统计年份中各月上旬、中旬、下７６２核心代码

， ９０

ASP_NET在雨情查询系统中的应用

２００８年２月

表２

年份

安学军：ＡＳＰ．ＮＥＴ在雨情查询系统中的应用

Ｎｏ．１ＴｏｔａｌＮ０．１６７Ｆｅｂ．２００８

盐湖区历年降雨量统计计算成果表

（ｍｍ）

６￣

１０￣２４７４４３６６

Ａｄｐｔ．Ｆｉｌｌ（ｄｓ，＂ＴＡＢＬＥＳＨＯＷ１＂）

将结果数据行置入ＤａｔａＳｅｔ对象

１２３４５６７月

８９１０１１１２年降１￣

０

０

月月月月月月月月月月月雨量５月９月１２月

Ｄｉｍｔａｂｌｅ２ＡｓＳｙｓｔｅｍ．Ｄａｔａ．ＤａｔａＴａｂｌｅ＝ｄｓ．Ｔａｂｌｅｓ（＂ＴＡＢＬＥＳＨＯＷ１＂）

Ｄｉｍｔａｂｌｅ１ＡｓＳｙｓｔｅｍ．Ｄａｔａ．ＤａｔａＴａｂｌｅ＝ｄｓ．Ｔａｂｌｅｓ（＂ＴＡＢＬＥＳＨＯＷ＂）

ｄｓ．Ｔａｂｌｅｓ（＂ＴＡＢＬＥＳＨＯＷ＂）．ＤｅｆａｕｌｔＶｉｅｗ．Ｓｏｒｔ＝ＳｏｒｔＦｉｅｌｄ．Ｔｅｘｔ＆ＳｏｒｔＴｙｐｅ．Ｔｅｘｔ

＇进行网页表格设计

……

１９５６２１９５７６１９５９０１９６０１

０４３６１２５１７２１８７２６１１５２４２

９８１３８１０７２４７１２

０４４１２７１２

８

９０

７８９１３１６３４５８６１３７３７６３７６３８３

７０９２

２６３２２５

９５２２０３

１９５８１７０１９５３７４７５２０４２２８４９８４６９０

０２６

６８５６１１３１０８８３９４２２１３

３３８２４２６

８７１１６３５５５１５３

＇换页选择代码

ＳｕｂＣｈａｎｇｅＰａｇｅ（ＢｙＶａｌｓｅｎｄｅｒＡｓＯｂｊｅｃｔ，ＢｙＶａｌｅＡｓＤａｔａＧｒｉｄＰａｇｅＣｈａｎｇｅｄＥｖｅｎｔＡｒｇｓ）

ＭｙＧｒｉｄ．ＣｕｒｒｅｎｔＰａｇｅＩｎｄｅｘ＝ｅ．ＮｅｗＰａｇｅＩｎｄｅｘＯｐｅｎＤａｔａＢａｓｅ＿Ａｎｄ＿ＢｉｎｄＴｏＤａｔａＧｒｉｄ（）ＥｎｄＳｕｂ

图１

动态交互式查询网页

＇字段升降排序选择代码

ＳｕｂＤｇＳｏｒｔＰａｇｅ（ＢｙＶａｌｓｅｎｄｅｒＡｓＯｂｊｅｃｔ，ＢｙＶａｌｅＡｓＤａｔａＧｒｉｄＳｏｒｔＣｏｍｍａｎｄＥｖｅｎｔＡｒｇｓ）

ＩｆＳｏｒｔＦｉｅｌｄ．Ｔｅｘｔ＝ｅ．ＳｏｒｔＥｘｐｒｅｓｓｉｏｎＴｈｅｎＩｆＳｏｒｔＴｙｐｅ．Ｔｅｘｔ＝＂＂ＴｈｅｎＳｏｒｔＴｙｐｅ．Ｔｅｘｔ＝＂Ｄｅｓｃ＂Ｅｌｓｅ

ＳｏｒｔＴｙｐｅ．Ｔｅｘｔ＝＂＂ＥｎｄＩｆＥｌｓｅ

Ｓｏ …… 此处隐藏：3888字，全部文档内容请下载后查看。喜欢就下载吧 ……