适应北方片水文资料整编程序的水量计算体会

当前位置:主页 ->论文库 ->计算机论文 ->计算机应用
适应北方片水文资料整编程序的水量计算体会

2010年12月27日 13:22 作者:景淑娟刘胜男全占东

摘要介绍各月水量的计算方法,探讨北方片水文资料整编程序,包括注册表的操作、数据库服务器的配置、数据库的查询、成果的Excel输出,以为深入了解水文资料整编技术提供参考。中国论文网:zKP+e4aK4I
　　关键词北方片水文资料整编程序;水量计算;体会如何快速发表论文
$\"D$OZ_\)x!I;X u2OF0　　中国论文网i;xl`Z9L t(O"E3Q
　　在水文调查资料整编过程中,还原计算需要各月水量值,2007年以前辽宁水文资料整编使用辽宁水文资料整编程序,该程序具有计算各月水量的功能[1]。从整编2008年水文资料开始,辽宁使用了北方片全国统编水文资料整编程序,该程序不提供计算各月水量的功能。在进行水文调查资料整编时,需要用水文资料整编中的成果表《逐日平均流量表》逐日相加(累计值单位:m3/s),再乘以日秒数8.64万s,得到各月水量值(单位:万m3),相加可选用Excel 列求和功能或使用计算器累加,计算方法十分烦琐。为解决水文调查资料整编水量还原对各月水量的需要,现介绍一种利用程序计算各月水量的方法,该方法适合全国统编的北方片整编程序计算环境,是在北方片水文资料整编的基础上,通过程序在成果数据库中读取逐日平均流量值,计算各月流量总数,输出各月水量表,输出格式与以前使用程序计算的结果相同。发表论文代理中国论文网tWM/?:\WKEb
　　1基本思路中国论文网1cJ8G8^MO
　　北方片水文资料整编程序,计算逐日流量结果保存在数据库中及Excel成果表中。程序可以在数据库中读取,也可以在Excel成果表中读取。在Excel成果表中读取数据要知道成果表存放在哪个目录中,该目录位置信息可以通过北方片程序读出,也可以在数据库表COM_PATHSET中得到[2-3]。通过北方片程序读出要手动操作,十分烦琐;另外,程序操作Excel速度比较慢, 要尽量避免操作Excel。在COM_PATHSET表中读取要连接数据库,对于不同的使用者该目录有可能不同。中国论文网cdu r9?4xd
　　在数据库中直接读取流量日表数据,首先,要知道数据库的配置参数,用来连接数据库,北方片水文资料整编程序数据库配置参数保存在注册表中,根键 “hkey_local_machine”,子键“software\田中岳\北方片整汇编软件”,“linkset”项键值保存数据库连接字。其次,要了解数据库中流量日表在数据库中的位置,逐日流量数据保存在数据库表sou_zcgb_qal中;该表的结构中stcd字段是站号,yr字段是年份,yy 是月份,d01,d02,d03,……,d31分别表示1日、2日、3日,……、31日平均流量。中国论文网Db-a `m(h{1t%DF
　　2实现方法中国论文网}5k Z `w%wZT
　　获取数据库配置参数,使用Delphi7.0语言读取注册表中数据库配置参数,配置数据库的程序段如下:
0h6]8^8Av|b0　　Procedure TForm1.FormCreate(Sender: TObject);
TT`E2o~.}A0　　var 中国论文网2|Bm%pa6K1Y/b a
　　registry1:tregistry;// 注册注册表对象
*R VX5I(r'h0　　s:string; 中国论文网}~'mO}%U
　　Begin
}T Re9Y.kkHo;d;k0　　try
wO ~9e6Zt:uK0　　registry1:=tregistry.Create;// 创建注册表对象
@_`6uCS3]%[3o'G0　　with registry1 do
J,|$D$]n0　　begin
/y~R ]n0　　rootkey:=hkey_local_machine;// 确定根键中国论文网$MDk4? H"D,h e5o
　　// 注册子键software\田中岳\北方片整汇编软件中国论文网Mk([7]7Z1m)W
　　if openkey('software\田中岳\北方片整汇编软件',false) then
T Z I0W/Dc*{0　　s:=readstring('linkset');// 读 linkset 键值中国论文网"QbJmW-g
　　end; 中国论文网9SYjc;t&FpB7N }
　　ADOConnection1.ConnectionString:=s;//数据库连接字设置
AN,Q-P!t TQ-C0　　except
5YKuq3r oX7Y&}rp0　　application.MessageBox('读取注册表数据失败','提示信息',64); 中国论文网[!BW7hj
　　end; 中国论文网,`"znlmV
　　registry1.Destroy;// 释放注册表对象
_/W+k W'@8c?f8g0　　end; 中国论文网S%?l\MH
　　逐日流量数据查询,要查询某年某站的逐日流量,在配置好数据库的情况下,查询逐日流量的程序关键语句如下: 中国论文网+H7kK pu-d,kttJH'T
　　with adoquery1 do中国论文网v@cKZd#k
begin
$_4Q_Lw!c:B!@mA3p0　　close;sql.Clear;
q3e%U,T~Wfb!rH6O0　　sql.Add('select stcd 站号,yr 年份,yy 月,d01,d02,d03,d04,d05'+
B/w ?D%{+\0　　',d06,d07,d08,d09,d10,d11,d12,d13,d14,d15,d16,d17,d18,'+ 中国论文网kB9sc(IN5\J
　　'd19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29,d30,d31,+
QU[fi(@9nG0c+Z0　　′ from sou_zcgb_qal'); 中国论文网6q v/P} pb8zD
　　sql.Add('where (stcd=:stcd1) and (yr=:yr1)'); 中国论文网BMwGyPb
　　sql.Add('order by yy');
/o}g-Fn0　　parameters.ParamByName('stcd1').Value:=edit1.Text; 中国论文网l;]c],XB2BqD}
　　parameters.ParamByName('yr1').Value:=edit2.Text; 中国论文网4Uu Yy Z-Y.B`9YU
　　open; 中国论文网)wA$Zu zS)W5L
　　end; 中国论文网t(b:gH]F$W{
　　根据查询结果计算逐日流量月总数,再乘日秒数计算月水量。
2nkQ+Lb0　　3计算结果输出
h7@*C3C)VQ JtqL0　　经过计算的结果输出Excel表中,Excel表采用模板形式。在程序中与Excel连接采用VCL的方法。首先在程序中加入 TexcelApplication、TexcelWordbook和TexcelWorksheet对象,分别命名为EA、EW、ES。由于使用以上3 个控件,所以需要加入ExcelXP、OleServer单元。连接模板文件采用如下语句:
~R3I!C8V^Q0　　TryEA.Connect;
#TS'U+|~!b0　　EA.Workbooks.Open(模板文件名,null,null,null,null,
(a'{uaK{4]/dV#e N0　　 null,null,null,null,null,null,null,null,null,null,1); 中国论文网-B x*f-O&NE+yx
　　 EW.ConnectTo(EA.Workbooks[1] as _workbook);
a*he%mQkm3V{C0　　 ES.ConnectTo(EW.Worksheets[1] as _worksheet); 中国论文网n,xw Y&T-Y2B
　　except
8X-K jN#e s*_0　　begin 中国论文网.`7_)H'n(}D+S@r
　　EA.Disconnect; //出现问题时关闭中国论文网 p%a$p/C6U?
　　EA.Quit;showmessage(′请选用 Excel 电子表格′); 中国论文网+KERd O:I2^nni.y
　　end; 中国论文网r/A#l7IjST;R
　　end; 中国论文网8X,A9c GyG J2n
　　程序中模板与辽宁省2007年以前使用的水量计算成果模板相同,计算结果填表,单元格的调用使用如下语句:
Hs|cp7A)q x*LT0　　EA.Cells.Item[I,j]:=结果中国论文网r {b2S'Op7t)AC
　　成果填表完成后,需要对成果文件保存,成果文件保存采用如下语句: 中国论文网U*_HH)uS
　　ES.SaveAs(保存的文件名)
_)I!awe]T6P0　　4体会中国论文网j8cYGk"^2Ta5JU
　　经过2009年的使用,该方法数据库服务器的配置采用读注册表的方法,程序不用人工单独配置数据库,使得程序操作简单方便。逐日流量数据采用数据库结果,使得操作不用了解成果目录的位置,减少了人为干预,自动化程度得到提高。成果输出采用原来水文资料整编的模板,便于与以前水文调查整编程序的衔接 [4]。由于使用时间短,整编程序还不够完善,有待于今后进一步改进。中国论文网9o1F+Nzkt2x
　　
A&[H%_ {XoI0　　5参考文献
!x _3BCZk0A0　　[1] 李璇,王福利,肖鹏云.运用Excel进行水文资料整编成果表明方法[J].黑龙江水利科技,2009(5):82-83. 中国论文网9Pi%^;bf
　　[2] 贺顺德,刘立,王文成.水土保持工程影响地区水文资料还原方法探讨[J].人民黄河,2008,30(12):43-44.
R:LVJ%f8n{0　　[3] 孙园宾.浅谈水文数据库开发利用存在的主要问题及对策[J].江苏水利,2008(12):26-27.
(M7g@ W5{-Y+Z}3r0　　[4] 王意惟,李登民,隋铁成.水文原始数据库的开发应用与分析评价[J].东北水利水电,2008(12):40-41.
J K$M e0R9Esb0
上一篇下一篇