文档介绍:利用Delphi开发网络数据库应用
delphi是具可视化界面的面向对象编程语言,它以其功能强大、简便易用等诸多特性,深受编程人员的欢送。delphi中提供了数据库引擎bde(brlanddatabaseengine),并内含众多的数利用Delphi开发网络数据库应用
delphi是具可视化界面的面向对象编程语言,它以其功能强大、简便易用等诸多特性,深受编程人员的欢送。delphi中提供了数据库引擎bde(brlanddatabaseengine),并内含众多的数据库调用构件,为编程人员开发客户/效劳器应用程序提供了方便。通常情况下,利用delphi开发数据库应用程序,可以使用ttable、tdatasure、tdbedit、tdbnavigatr等构件。只要正确设置了构件的某些属性,再编写必要的程序代码对一些特定事件进展处理,就可以完成对多种数据库进展的数据处理,例如:记录的输入、修改、删除和查询等。这样做虽然只需要编写极少量的程序代码就能到达很好的效果,但假如在程序设计过程中,某些数据表的构造发生了改变,那么必须修改与此数据表有关的所有构件的属性,这将使程序员陷入繁琐的重复劳动中。
为防止上述的费事,我们可以在编写网络数据库应用程序时采用构造化查询语言sql(struturedquerylanguage),这样不仅可以更方便地与诸如sqlserver、rale等各种后台数据库进展动态的数据交换,而且可以使程序的修改和移植更加灵敏。我们以数据输入模块为例,说明开发客户/效劳器应用程序时如何采用sql语句实现数据处理功能。首先,判断是否已经有事务处理程序在运行,假如有,将其回卷(rllbak);假如没有,那么启动一个新的事务,为数据的最终处理做准备。其次,是设置sql语句,并将其写入tquery构件中。最后,将事务提交或回卷,至此完成一条记录的数据输入。
下面是以页面中的tedit类型编辑框内容作为数据源,向数据库输入记录的过程代码:
preduredatainsert(nstqnae:tquery;
szdbnae:string;inu:integer;
iark:arrayfinteger;enae:arrayftedit);
var
i:integer;
szsql:string;
begin
=truethen
;
;
szsql:='insertint'+szdbnae+'values('
fri:=0tinu-1d
begin
ifiark[i]=0then
szsql:=szsql+enae[i].text{非字符方式}
else
szsql:=szsql+'"'+enae[i].text+'"';{字符方式}
ifi=inu-1then
szsql:=szsql+')'
else
szsql:=szsql+',';
end;
;{关闭查询}
;{