利用Delphi开发网络数据库应用的论文.docVIP

　　利用Delphi开发网络数据库应用的论文 　delphi 是具可视化界面的面向对象编程语言，它以其功能强大、简便易用等诸多特性，深受编程人员的欢迎。delphi 中提供了数据库引擎 bde(borland database engine)，并内含众多的数据库调用构件，为编程人员开发客户/服务器应用程序提供了方便。通常情况下，利用 delphi 开发数据库应用程序，可以使用ttable、tdatasource、tdbedit、tdbnavigator等构件。只要正确设置了构件的某些属性，再编写必要的程序代码对一些特定事件进行处理，就能够完成对多种数据库进行的数据处理，例如：记录的输入、修改、删除和查询等。这样做虽然只需要编写极少量的程序代码就能达到很好的效果，但如果在程序设计过程中，某些数据表的结构发生了改变，则必须修改与此数据表有关的所有构件的属性，这将使程序员陷入繁琐的重复劳动中。 　　为避免上述的麻烦，我们可以在编写网络数据库应用程序时采用结构化查询语言 sql(structured query language)，这样不仅可以更方便地与诸如 sql server、oracle 等各种后台数据库进行动态的数据交换，而且可以使程序的修改和移植更加灵活。我们以数据输入模块为例，说明开发客户/服务器应用程序时如何采用 sql 语句实现数据处理功能。首先，判断是否已经有事务处理程序在运行，如果有，将其回卷(rollback)；如果没有，则启动一个新的事务，为数据的最终处理做准备。其次，是设置 sql 语句，并将其写入 tquery 构件中。.最后，将事务提交或回卷，至此完成一条记录的数据输入。 　　下面是以页面中的 tedit 类型编辑框内容作为数据源，向数据库输入记录的过程代码： procedure datainsert(const qname:tquery; szdbname:string;inum:integer; imark:array of integer;ename:array of tedit); var i : integer; szsql : string; begin if datamodule1.database1.intransaction=true then datamodule1.database1.rollback; datamodule1.database1.starttransaction; szsql := insert into +szdbname+ values( for i:=0 to inum-1 do begin if imark[i]=0 then szsql := szsql+ename[i].text{非字符方式} else szsql := szsql++ename[i].text+;{字符方式} if i=inum-1 then szsql := szsql+) else szsql := szsql+,; end; qname.close;{关闭查询} qname.sql.clear;{清sql特性内容} qname.sql.add(szsql);{添加sql内容} szsql := select * from +szdbname; qname.sql.add(szsql); qname.open;{返回结果集} datamodule1.database1.mit; end; 　　以上过程包含五个参数，实现从页面中的一系列编辑框中读取数据，并向指定数据表输入的功能。其中，参数 qname 为页面中所使用的 tquery 类构件的名称；参数 szdbname 是数据表的名称；参数ename 是 tedit 类型的数组，列出了页面中包含数据的各编辑框名称；参数 inum 是数据表中的字段个数，也即编辑框的个数；参数 imark 是一个整数类型的数组，该参数表明相应字段是以何种方式输入的，如果是字符方式，需要在数据前后两端加上引号。需要注意的是：在调用本过程之前，应将数据库连接打开： datamodule1.database1.connected := true; 过程调用完成后，将数据库连接断开： datamodule1.database1.connected := false; 　　另外，开发网络数据库应用程序时，还可以使用存储过程，即：将预先编译过的 sql 语句存储在服务器上。存储过程提前运行，且不与程序代码一同存储和编译，因此其对应主程序中的代码相对简洁，运行速度也较快。sql 语句的集中存放，使其修改更容易。 　　要创建向数据表中输入数??的存储过程，代码编写举例如下： create proc proct