浅析数据库技术在海河流域水资源综合规划中的(3)

　　4供需平衡数据的分析

　　为了生成省套二级区的供需分析长系列成果，并进行各种频率的供需分析，首先需对“单元供需分析．dbf”数据库中的每个记录进行分类，如哪些记录属于海河北系河北省1956年的数据?通过提取单元编码中代表二级区及省级区的编码，并与年份进行组合，即可形成不同年份省套二级区的组合码，将其存人数据库的组合码字段，为同类合并(相加)创造了条件。数据库系统对已索引或排序的数据库提供了方便的同类合并功能，以下程序片段，轻而易举地完成了省套二级区供需分析长系列数据的整理工作。

　　use单元供需分析．dbf

　　copy all to temp．dbf

　　use temp．dbf

　　repl all组合码with yearl+substr(code0，1，3)+substr(code0，8，2)1

　　index on组合码to ch_code

　　total on组合码to省套二级区系列．dbf

　　其中：temp．dbf为临时数据库，是“单元供需分析．dbf”数据库的复制文件．对其进行操作可避免改变原有数据库：yearl和code0分别为年份和单元编码字段。

　　在数据库系统的工作区1打开先前建立的“省套二级区编码．dbf”，并保持打开状态。在工作区2反复打开或关闭用于查找不同降水频率对应年份的“降水排序．dbf”、用于提取不同保证率供需平衡数据的“省套二级区系列．dbf”及存储统计分析结果的“省套二级区供需分析．dbf”，并进行数据的统计、复制、添加、分区名称及保证率的填写等操作。以工作区1第1个记录(第一个省套二级区)为起始，提取省套二级区信息，利用do while not eofO循环语句。在两个工作区之间来回变换，进行重复的统计分析操作，直到完成最后一个省套二级区的统计分析。程序片段(仅以50％保证率和平均值统计为例)如下：

　　sele1 &&选择工作区1

　　use省套二级区编码．dbf

　　do while not eof0 &&循环开始

　　prv_nal=prv_na &&提取要统计的省级区名

　　wt_na1=wt_na &&提取要统计的二级区名

　　prv_codel=pry_code &&提取要统计的省级区编码

　　wt_codel=wt_code &&提取要统计的二级区编码