当前位置：水电论文首页 >> 水文水力 >> 渠道水力计算在delphi上的实现
渠道水力计算在delphi上的实现
2008-02-14 13:51:03  作者：水电站  来源：水电论文  浏览次数：2  文字大小：【大】【中】【小】
  • 　　 一、 水力计算简介 将渠道内水流视作明渠均匀流这是渠道水力计算的前提，故计算公式采用明渠均匀流公式。主要任务是解决渠道的过水能力问题，即设计渠道的断面尺寸，以 ...

一、 水力计算简介

将渠道内水流视作明渠均匀流这是渠道水力计算的前提，故计算公式采用明渠均匀流公式。主要任务是解决渠道的过水能力问题，即设计渠道的断面尺寸，以保证通过所需的流量，或校核渠道是否满足输水流量的要求等。总体而言，渠道水力计算的问题主要分两类：1、校核渠道过水能力；2、计算渠道的断面尺寸。

校核渠道的过水能力主要指在渠道的断面形式、尺寸、糙率、底坡等都已确定的情况下，计算其过水能力。计算步骤为：先根据水深h,底宽b及边坡系数m计算出过水断面面积ω、湿周χ、水力半径R。再根据糙率n及水力半径R计算（或查表）求出谢才系数C。最后用明渠均匀流公式Q=ωC(Ri)1/2计算出流量。

计算渠道的断面尺寸是渠系工程设计中碰到最多的问题。在规划设计新渠道时，设计流量由工程要求而定，坡度一般是由渠道大小根据地形条件确定，边坡系数m及糙率n,则由土质及渠壁材料与施工、治理运用等条件而定。也即已知Q、m、n、i，求渠道的水深h及底宽b。此问题有两个未知数b及h,故须经过试算才能确定。计算步骤为：1、根据已知的流量Q及渠道底坡i，求出流量模数k0（标准流量模数）；2、初步假定一水深，计算其相应的过水断面ω、湿周χ、水力半径R，并根据糙率n及水力半径R计算或查表求出相应的谢才系数C值。然后，按公式K=ωCR1/2求出相应的流量模数值（设计流量模数）；3、将计算出的设计流量模数与标准流量模数比较，若两者相等，则所设水深即为所求。若不等，则可另设一水深，重复上述步骤，直到计算出的设计流量模数与标准流量模数相等为止。然后经综合考虑各方面因素，如施工便利，防洪超高和其他用途后最终确定渠道断面尺寸。

二、delphi技术简介

Delphi是由美国Inprise公司（前Borland公司）推出的可视化编程环境，它提供了一种方便、快捷的Windows应用程序开发工具。Delphi使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了可重复利用的完整的面向对象程序语言（Object-Oriented Language）、当今世界上最快的编辑器、最为领先的数据库技术。Delphi技术的基础源自pascal语言，是对pascal语言编程的可视化、面向对象化发展，从早期的对Turbo Pascal的Windows化到如今对网络化编程拥有强大功能，Delphi已经升级到了如今的第七个版本，功能更加强大，对网络开发的需求更为适应，对数据库开发的技术更为成熟与稳定。

三、程序实现的方法

本程序作为我局治理信息系统(MIS)的一部分外挂于我局治理信息系统的主界面上，属于水利常用计算模块。我局治理信息系统采用客户端、业务服务器、数据库治理系统（DBMS）三级结构，客户端和业务服务器采用dephi开发实现，数据库治理系统（DBMS）选择美国Microsoft 公司倍受业界好评的sql server 2000。因此，本程序的数据计算、数据添加和数据删除功能以函数的形式建于业务服务器中，在客户端通过函数调用达到功能的实现。为实现数据的保存与查询，相应地在我局治理信息系统的业务数据库lsdata中建立一个数据库表watercalculationtable。客户端除实现业务服务器相关函数的调用外，还承担程序外观界面设置和部分简单功能的实现。用户只能通过程序客户端实现对软件的操作。

1、功能设计

本程序设计的主要目的在于实现对渠道水力计算的程序化和智能化，主要功能包括计算、成果显示、数据打印，另外为方便数据输入加入重置功能，为便于数据治理加入删除功能，另外为实现计算界面的退出而加入界面退出功能。

2、界面设计

为实现计算成果的显示功能在界面上添加一个dxdbgrid控件，作为成果显示的载体。为方便数据的录入和计算成果的单条显示添加十五个coastedit控件，为逐一说明各个coastedit控件代表的数据而增入十五个与之对应的label控件，为程序美观用一个groupbox将所有coastedit控件和label控件归为一组。为了实现计算、删除、重置、打印、退出功能，引入五个 button控件其中计算按钮除在单击时触发计算功能外，在计算结束后自动执行数据添加功能，将计算数据添加入数据库中；删除按钮实现对库内单条数据的删除；重置按钮主要对coastedit控件中的数据进行清除，以利于新数据的输入；打印功能作用在于将计算所得的成果通过外接打印机打印出来；退出按钮的功能在于实现界面的退出，返回主界面。

程序界面中渠道名称、试算次序数、渠道底宽、渠道水深、渠道比降、边坡系数、渠道糙率、设计流量等数据可以手动输入，其他数据不能在界面上输入，由程序自动计算，并显示。根据渠道水力计算原理，可输入的数据除设计流量外均不答应为空，此外渠道糙率和渠道比降不能为零，出现上述情况，计算时程序将予以提示。

为实现程序的打印功能，特增加一打印界面，在点击打印按钮时自动弹出，打印界面可以实现打印、打印预览功能，在此界面可以调用windows打印程序。

具体界面设计图样见图1。

（图一）

3、数据库表设计

本程序只有一张库表，即渠道水力计算表（watercalculationtable）,经过慎密的数据分析，设计该表共包含十五个字段，分别为：渠道名称、试算次序数、渠道宽度、渠道水深、渠道比降、边坡系数、设计流量、渠道糙率、湿周、标准流量模数、过水断面面积、水力半径、谢才系数、设计断面过水流量、设计流量模数。具体库表设计见表一：

渠道水力计算表（watercalculationtable）
 表一

编号

中文名

字段名

数据类型

数据长度

可否为空

备注

1

渠道名称

Ditchname

Char

20

否

主键

2

试算次序数

Calculationno

Char

8

否

3

渠道底宽

Ditchwidth

Numer

8

否

4

渠道水深

ditchheight

Numer

8

否

5

渠道比降

Ditchslope

Numer

8

否

6

边坡系数

Slopenumer

Numer

8

否

7

设计流量

Planvolume

Numer

8

可

8

渠道糙率

Ditchrough

Numer

8

否

9

湿周

Xnumer

Numer

12

可

10

标准流量模数

Kstandard

Numer

12

可

11

过水断面面积

Flowarea

Numer

12

可

12

水力半径

Waterradius

Numer

12

可

13

谢才系数

Cnumer

Numer

12

可

14

过水流量

Designvolume

Numer

12

可

15

设计流量模数

Kdesign

Numer

12

可

4、内置代码设计

内置代码主要是针对程序中相关控件触发的事件而设定的相应响应。本程序包含的事件主要有各button控件引发的单击事件、单击dxdbgrid控件引发的事件(dxdbgridclick)、数据集控件滚动事件(ADODataSet1AfterScroll)和程序界面建立时的事件(formcreat)。另外，业务服务器(teoperationserver)中包含的两个函数addwatercalculation和deletewatercalculation也用程序代码建立。

各事件代码分别如下：

1） addwatercalculation函数，代码为：

function TTeOperationServer.addwatercalculation(

const ditchname: WideString;ditchwidth, ditchheight, ditchslope,

slopenumer, ditchrough, planvolume:Currency;

const calculationno: WideString):LongWord;

var

strSql : string;

dwAffected : Integer;

kstandard,flowarea,waterradius,cnumer,designvolume,kdesign,xnumer:currency;

begin

Result :=MakeResult(Sev_Error,Facility_Account,Err_Suc);

kstandard:=strtofloat(formatfloat('0.00',(planvolume/sqrt(ditchslope))));flowarea:=strtofloat(formatfloat('0.00',((ditchwidth slopenumer*ditchheight)*ditchheight))); xnumer:=strtofloat(formatfloat('0.00',(ditchwidth 2*ditchheight*sqrt(1 sqr(slopenumer)))));

waterradius:=strtofloat(formatfloat('0.000',(flowarea/xnumer))); cnumer:=strtofloat(formatfloat('0.00',(1/ditchrough*power(waterradius,1/6))));

kdesign:=strtofloat(formatfloat('0.00',(flowarea*cnumer*sqrt(waterradius)))); designvolume:=strtofloat(formatfloat('0.00',(flowarea*cnumer*sqrt(waterradius*ditchslope))));

strsql:='insert intowatercalculationtable (ditchname,ditchwidth,ditchheight,'

' ditchslope,slopenumer,planvolume,ditchrough,kstandard,'

' flowarea,waterradius,cnumer,designvolume,Kdesign,xnumer,calculationno)'

' values (' '''' ditchname ''','

' ''' floattostr(ditchwidth) ''','

' ''' floattostr(ditchheight) ''','

' ''' floattostr(ditchslope) ''','

' ''' floattostr(slopenumer) ''','

' ''' floattostr(planvolume) ''','

' ''' floattostr(ditchrough) ''','

' ''' floattostr(kstandard) ''','

' ''' floattostr(flowarea) ''','

' ''' floattostr(waterradius) ''','

' ''' floattostr(cnumer) ''','

' ''' floattostr(designvolume) ''','

' ''' floattostr(kdesign) ''','

' ''' floattostr(xnumer) ''','

' ''' calculationno ''')';

ExecuteSQL(strSql,@dwAffected);

if dwAffected <= 0 then

begin

Result :=MakeResult(SEV_Error,Facility_Account,err_Insert);

exit;

end;

end;

2）deletewatercalculation函数的代码为：

function TTeOperationServer.deletewatercalculation(constditchname,

calculationno: WideString): LongWord;

var

strSql :string;

dwAffected :Integer;

begin

Result :=MakeResult(Sev_Error,Facility_Account,Err_Suc);

StrSql := 'Delete from watercalculationtable '

' where ditchname= ' '''' ditchname ''''

' and calculationno = ' '''' calculationno '''';

ExecuteSQL(strSql,@dwAffected);

if dwAffected< 0 then

begin

Result := MakeResult(SEV_Error,Facility_Account,err_Delete);

exit;

end;

end;

3)计算按钮(Button1Click)的代码为：

procedureTFormPrice.Button1Click(Sender: TObject);

var

resultcode:hresult;

begin

resultcode:=-1;

if coastedit1.text='' then

begin

application.messagebox('对不起,''渠道名称'' 不能为空.','提示',mb_ok mb_iconwarning);

coastedit1.setfocus;

exit;

end;

ifcoastedit2.text='' then

begin

application.messagebox('对不起,''渠道底宽'',不能为空','提示',mb_ok mb_iconwarning);

coastedit2.SetFocus;

exit;

end;

ifcoastedit3.text='' then

begin

application.messagebox('对不起,''渠道水深'',不能为空','提示',mb_ok mb_iconwarning);

coastedit3.SetFocus;

exit;

end;

ifcoastedit4.text='' then

begin

application.messagebox('对不起,''边坡系数'',不能为空','提示',mb_ok mb_iconwarning);

coastedit4.SetFocus;

exit;

end;

ifcoastedit5.text='' then

begin

application.messagebox('对不起,''渠道糙率'',不能为空','提示',mb_ok mb_iconwarning);

coastedit5.SetFocus;

exit;

end;

ifcoastedit6.text='' then

begin

application.messagebox('对不起,''渠道比降'',不能为空','提示',mb_ok mb_iconwarning);

coastedit6.SetFocus;

exit;

end;

ifcoastedit15.text='' then

begin

application.messagebox('对不起,''试算次序数'',不能为空','提示',mb_ok mb_iconwarning);

coastedit15.SetFocus;

exit;

end;

ifcoastedit2.value=0 then

begin

application.messagebox('对不起,''渠道底宽'',不能为零','提示',mb_ok mb_iconwarning);

coastedit2.SetFocus;

exit;

end;

ifcoastedit3.value=0 then

begin

application.messagebox('对不起,''渠道水深'',不能为零','提示',mb_ok mb_iconwarning);

coastedit3.SetFocus;

exit;

end;

ifcoastedit6.value=0 then

begin

application.messagebox('对不起,''渠道比降'',不能为零','提示',mb_ok mb_iconwarning);

coastedit6.SetFocus;

exit;

end;

ifcoastedit5.value=0 then

begin

application.messagebox('对不起,''渠道糙率'',不能为零','提示',mb_ok mb_iconwarning);

coastedit5.SetFocus;

exit;

end;

try

teoperationserver.begintrans; resultcode:=teoperationserver.Addwatercalculation(coastedit1.text,coastedit2.value,coastedit3.value,coastedit6.value,coastedit4.value,

coastedit5.value,coastedit7.value,coastedit15.text);

finally

if HResultCode(ResultCode) = 0 then

begin

teoperationserver.commit;

Refresh;

coastedit1.text:='';

coastedit2.text:='';

coastedit3.text:='';

coastedit4.text:='';

coastedit5.text:='';

coastedit6.text:='';

coastedit7.text:='';

coastedit8.text:='';

coastedit9.text:='';

coastedit10.text:='';

coastedit11.text:='';

coastedit12.text:='';

coastedit13.text:='';

coastedit14.text:='';

coastedit15.text:='';

coastedit1.setfocus;

end

else

begin

teoperationserver.rollback;

application.MessageBox('添加失败','提示',mb_ok mb_iconwarning);

coastedit1.SetFocus;

end;

end;

end;

4）打印按钮(Button2Click)的代码为：

procedure TFormPrice.Button2Click(Sender:TObject);

var

svdata:string;

Iheader:integer;

IheaderObject: integer;

strsql:string;

Recordset10:_Recordset;

begin

SvDatafile:=GetParentDir(ExtractFilePath(ParamStr(0))) 'datawatercalculation.txt';

ppReport1.CloseDataPipelines;

if HFile<> 0 then FIleCLose(HFile);

ifFileExists(svdatafile) then

Deletefile(svdatafile);

hFile :=FileCreate(svDatafile);

strSQL :='select * from lsdata.dbo.watercalculationtable' ;

svdata:=teOperationServer.ResultStrOrder(strSQL);

FileWrite(hFile, Pointer(SvData)^, Length(SvData));

FileClose(HFile);

ppTextPipeline1.FileName := SvDataFile;

ppReport1.DataPipeline := pptextPipeLine1;

//处理表尾

ifppReport1.ObjectByName(iHeader, iHeaderObject, 'ppLabel8') then

TPpLabel(PpReport1.Bands[iheader].Objects[iHeaderObject]).caption :=Fmainframeobject.operatorname;

withTfrmReportPreview1.Create(self) do

try

ppViewer1.Report := ppReport1;

ppViewer1.FirstPage;

show;

except

free;

end;

ppReport1.CloseDataPipelines;

fileclose(hfile);

end;

5)重置按钮(Button5Click)的代码为：

procedureTFormPrice.Button5Click(Sender: TObject);

begin

coastedit1.text:='';

coastedit2.text:='';

coastedit3.text:='';

coastedit4.text:='';

coastedit5.text:='';

coastedit6.text:='';

coastedit7.text:='';

coastedit8.text:='';

coastedit9.text:='';

coastedit10.text:='';

coastedit11.text:='';

coastedit12.text:='';

coastedit13.text:='';

coastedit14.text:='';

coastedit15.text:='';

end;

end.

6)删除按钮(Button4Click)的代码为：

procedureTFormPrice.Button4Click(Sender: TObject);

var

resultcode:Hresult;

begin

resultcode:=-1;

ifapplication.MessageBox(' 您确实要删除吗？','删除确认',MB_YesNo MB_ICONWARNING MB_DefButton2 MB_SystemModal)=IdNothen

exit;

try

teOperationServer.BeginTrans;

resultcode:=teOperationServer.deletewatercalculation(coastedit1.text,coastedit15.text);

finally

if HResultCode(ResultCode) = 0 then

begin

application.MessageBox('删除成功','提示',MB_OK MB_ICONWARNING);

teOperationServer.Commit;

Refresh;

coastedit1.text:='';

coastedit2.text:='';

coastedit3.text:='';

coastedit4.text:='';

coastedit5.text:='';

coastedit6.text:='';

coastedit7.text:='';

coastedit8.text:='';

coastedit9.text:='';

coastedit10.text:='';

coastedit11.text:='';

coastedit12.text:='';

coastedit13.text:='';

coastedit14.text:='';

coastedit15.text:='';

end

else

begin

application.MessageBox('删除失败','提示',MB_OK MB_ICONWARNING);

teOperationServer.RollBack;

end;

end;

end;

7)退出按钮(Button4Click)的代码为：

procedureTFormPrice.Button3Click(Sender: TObject);

begin

close;

end;

8)程序界面创建事件(formcreat)的代码为：

procedureTFormPrice.FormCreate(Sender: TObject);

var

strsql:string;

codestring1:string;

begin

teOperationServer:=getserver('teOperationServer');

Refresh;

coastedit1.text:='';

coastedit2.text:='';

coastedit3.text:='';

coastedit4.text:='';

coastedit5.text:='';

coastedit6.text:='';

coastedit7.text:='';

coastedit8.text:='';

coastedit9.text:='';

coastedit10.text:='';

coastedit11.text:='';

coastedit12.text:='';

coastedit13.text:='';

coastedit14.text:='';

coastedit15.text:='';

end;

9)单击dxdbgrid事件和数据集控件滚动事件的代码(两事件代码基本一样)：

begin

if (adodataset1.recordset<>nil) and (adodataset1.recordcount>0 ) then

begin

CoastEdit1.text:=AdoDataset1.Fields[0].Value;

CoastEdit2.value:=AdoDataset1.Fields[1].Value;

CoastEdit3.value:=AdoDataset1.Fields[2].Value;

CoastEdit4.value:=AdoDataset1.Fields[3].Value;

CoastEdit5.value:=AdoDataset1.Fields[4].Value;

CoastEdit6.value:=AdoDataset1.Fields[5].Value;

CoastEdit7.value:=AdoDataset1.Fields[6].Value;

CoastEdit8.value:=AdoDataset1.Fields[7].Value;

CoastEdit9.value:=AdoDataset1.Fields[8].Value;

CoastEdit10.value:=AdoDataset1.Fields[9].Value;

CoastEdit11.value:=AdoDataset1.Fields[10].Value;

CoastEdit12.value:=AdoDataset1.Fields[11].Value;

CoastEdit13.value:=AdoDataset1.Fields[12].Value;

CoastEdit14.value:=AdoDataset1.Fields[13].Value;

CoastEdit15.text:=AdoDataset1.Fields[14].Value;

end;

10)refresh函数的代码为：

procedureTFormPrice.refresh;

var

strsql:string;

begin

strSQL := 'select * from watercalculationtable' ;

ADODataset1.Recordset:=Vartorecordset(teOperationServer.query(strsql));

end;

四、程序最终成果

1)计算成果

点击“计算”按钮，则程序根据输入的已知值自动进行计算，并将计算所得以一条数据的形式，自动添加入数据库，并在dxdbgrid控件中显示出来。具体如图二

(图二)

2)打印成果

点击“打印”按钮，则程序自动弹出打印界面，从此可以预览计算成果，并完成打印功能。打印操作界面见图3。

(图三)

结束语

渠道水力计算作为水利工程中常碰到的问题尽管其计算难度不算高，但由于计算涉及多次试算，因而计算量大，且较为单调烦琐。但由于其计算步骤明确，没有过多的非公式化计算数据，故可以考虑用计算机代替人工手算。作为当前编程工具的一种优秀产品，delphi系列不仅在数据库开发上具有无以伦比的优越性，在数学计算中也同样具有强大的功能，其计算的精度，比起科学计算中常用的面向程序的开发语言fortran并不逊色。实践证实，水利工作中部分常用的程式化高的计算利用编程的方法将其计算机软件化，对于提高设计工作中的效率是大有裨益的。

0

顶一下

0

踩一下
本文引用地址：http://www.shuidianzhan.com/lunwen/2008/0214/ShuiDianLunWen_1249.html
相关文章
  • · 渠道水力计算在delphi上的实现
    • 友情链接 | 关于我们 | 版权声明 | 联系我们 | 广告服务

  • 水电站

  •     水电站