第１７卷第１２期
２０１１年１２月
水利科技与经济
Ｗａｔｅｒ Ｃｏｎｓｅｒｖａｎｃｙ Ｓｃｉｅｎｃｅ ａｎｄ Ｔｅｃｈｎｏｌｏｇｙ ａｎｄ Ｅｃｏｎｏｍｙ
Ｖｏ１．１７ Ｎｏ．１２
Ｄｅｃ．，２０１１
基于ＰｏｗｅｒＢｕｉｌｄｅｒｌ ２．０的雨水，Ｉ肯简报
处理系统设计与实现
王凤瑞
（河北省沧州水文水资源勘测局，河北沧州０６１０００）
［摘要］介绍了采用ＰｏｗｅｒＢｕｉｌｄｅｒｌ２．０为开发工具，在水利部实时雨水情数据库（ＳＱＬ ＳＥＲＶ—
ＥＲ）的基础上，开发雨、水情简报处理系统的过程。本系统的成功研制，大大提高了为政府及防
汛抗旱决策部门提供雨、水情信息的效率及信息共享的自动化水平。
［关键词］ＰｏｗｅｒＢｕｉｌｄｅｒ；数据库；水情简报
［中图分类号］ＴＰ３９ ［文献标识码］Ｂ ［文章编号］ １００６—７１７５（２０１１）１２—００９０—０２
０ 引 言
为政府及防汛抗旱决策部门提供及时、便捷的雨、水
情信息成为水文部门日常工作中的重要组成部分，采用
人工录入、计算的方式工作量大，且效率低下，易出错，其
实效性和正确性均难以得到保证。在当今科技水平不断
１ 系统需求分析
水利部雨水情数据库采用了ＳＱＬ ＳＥＲＶＥＲ ２０００为数
据库管理系统，共存储了２００５～２０１０年３０余万条记录，
由于数据库系统较为完善，大大节省了前期数据库建立
的成本。在日常情况下，一般要求提供日降水量、旬、月降
水量报表、水库站、河道站、堰闸站等流量、水位、蓄水量等
基本信息，根据以上要求，绘制系统的ＨＩＰＯ图。见图１。
提高的情况下，迫切需要采用更先进的手段提高这项工
作的信息化水平。
图１ 系统ＨＩＰＯ图
２ 誊体殁纾
系统采用ＰｏｗｅｒＢｕｉｌｄｅｒ为开发工具，３层体系结构，以
ＯＤＢＣ方式连接数据库，采用多文档窗口（ＭＤＩ）样式，集
在“确定”按钮的ｃｌｉｃｋ事件下，键入如下代码，完成
旬雨量报表制作功能。
ｌｏｎｇ １１ｉ，ｌｌｆ，ｌｌ ｍ
＿
ｓｔｒｉｎｇ ｌｓｓｔｃｄ，ｌｓｓｔｎｍ，ｉｓｈｎｎｍ，ｌｓｒｖｎｍ，ｌｓｄａｔｅ，ｌｓｘ，ｌｓ
—————
—成菜单栏、工具栏、快捷按钮等于一体，功能齐全，操作简
便。见图２。
ｐｒｄｔｐ，ｌｓｘａｖ，ｌｓ
ｔｅｍｐ ＿
——
ｅ１１，Ｉｓｄａｔｅ２１，ｌｓｘｌ，ｌｓ
ｘｌ１，ｌｓ
ｘ２１，ｌｓ
ｓｔｒｉｎｇ ｌｓ ｄａｔｅｌ，１ｓ
ｄａｔ
＿＿—————
——３ 功能实现
以旬、月雨量报表制作为例，操作界面设计完成后见
图３。
ｄａｔｅｍ，Ｉｓ
ｙｅａｒ ＿
ｌｓｄａｔｅ＝ｄｄｌｂｙ．ｔｅｘｔ＋”０８：Ｏ０：ｏ０”
—
ｉｆ ｄａｙ（ｄａｔｅ（ｄｄｌｂ＿ｙ．ｔｅｘｔ））：１ １ ｔｈｅｎ
ｌｓｐｒｄｔｐ
＿
”１”
［收稿日期］２０１１—０８—０２
［作者简介］王凤瑞（１９７８一），男，河北沧县人，工程师，硕士，主要从事水文水资源研究及３ｓ技术应用工作
一９０—
王凤瑞：基于ＰｏｗｅｒＢｕｉｌｄｅｒｌ２．０的雨水情简报处理系统设计与实现
ｌｓｓｔｎｍ＝ｄｗ
第１２期
＿ｉｎｆｏ．ＧｅｔｌｔｅｍＳｔｒｉｎｇ（１ｌ＿ｆ，”ｓｔｎｍ”）
＿
ｌｓｈｎｎｍ＝ｄｗ
＿ｉ￣ｏ．ＧｅｔｈｅｍＳｔｒｉｎｇ（１ｌ＿ｆ，”ｈｎｎｍ”）
ｉ￣ｏ．ＧｅｔｌｔｅｍＳｔｒｉｎｇ（１ｌ＿ｆ，”ｒｖｎｍ”）
＋ｌｓｓｔｃｄ＋” ａｎｄ ｓｔｔｄｒｃｄ＝４
—
ｌｓｒｖｎｍ＝ｄｗ
—＿
ｅｎｄ ｉｆ
ｌｓｔｅｍｐ
—
”ｓｔｃｄ＝
ａｎｄ ｓｔｉｒｎｇ（ｉｄｔｍ）＝ ＋ｌｓ—ｄａｔｅ＋”
Ｕｆ＝ｄｗ
—ｐｓｔａｔ．ｆｉｎｄ（１ｓ—ｔｅｍｐ，１，ｄｗ—ｐｓｔａｔ．ｒｏｗｃｏｕｎｔ
（））
ｉｆ ｌｌ
＿
ｆ＞０ ｔｈｅｎ
ｌｓ
—ｘ＝ｓｔｉｒｎｇ（ｄｗ—ｐｓｔａｔ．Ｇｅｔｌｔｅｍｎｕｍｂｅｒ（１１一ｆ，”ａｅ
ｃｐ ｔ．））
ｅｌｓｅ
图２系统主界面
ｌｓｘ：”’
＿
ｅｎｄ ｉｆ
ｌｓｔｅｍｐ＝”ｓｔｅｄ＝ ＋ｌｓ
＿ｓｔｃｄ＋” ａｎｄ ｓｔｉｒｎｇ（ｐｒｄｔｐ）
＝刖＋ｌｓ
＿ｐｒｄｔｐ＋” ａｎｄ ｓｔｒｉｎｇ（ｍｎｔｈ）＝ ＋ｓｔｒｉｎｇ（ｍｏｎｔｈ
（ｄａｔｅ（ｄｄｌｂ＿ｙ．ｔｅｘｔ）））＋”
Ｕ
—
ｆ＝ｄｗ
—ｐｄｍｍｙａｖ．ｆｉｎｄ（１ｓ—ｔｅｒｎｐ，ｌ，ｄｗ—ｐｄｍ—
ｍｙａｖ．ｒｏｗｅｏｕｎｔ（））
ｉｆ ｌｌ
＿
ｆ＞０ ｔｈｅｎ
ｌｓ
—ｘａｖ：ｓｔｉｒｎｇ（ｄｗ—ｐｄｍｍｙａｖ．ＧｅｔｈｅｍＮｕｍｂｅｒ（１１一
ｆ，”ｍｙｍａｖｐ”））
ｅｌｓｅ
ｌｓｘａｖ＝””
＿
ｅｎｄ ｉｆ
图３旬、月雨量表制作
ｄｗ
＿ｘ．ｉｎｓｅｒｔｒｏｗ（０）
ｌｓｊｅｍｐ＝”上旬”
１１
一
ｍ＝ｄｗ
＿ｘ．ｒｏｗｃｏｕｎｔ（）
ｅｎｄ ｉｆ