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

　　sele2 &&选择工作区2

　　use降水排频．Dbf &&在排频文件中找到年份

　　locate for省级码=prv_codel and二级区码=wt_codel and降水排序=23

　　year50=年份

　　use省套二级区系列．Dbf &&在数据库中提取对应省套二级区和频率的记录

　　Locate for substr(code0，1，3)=wt_code1and substr(code0，8，2)=prv_codel and year0=year50

　　Copy next 1 to tmp50．dbf

　　average all城镇需水to城镇需水1 for substr(code0，1，3)=wt_codel and substr(code0，8，2)=pry_codel

　　…

　　use省套二级区供需分析表．dbf

　　append from tmp50．dbf

　　repl name0 with pry_nal

　　repl code0  with wt_nal

　　repl ch_code with“50％”

　　append blank

　　repl ch_code with“多年平均”

　　repl城镇需水with城镇需水1