Delphi数据库编程一日通(1)_Deiphi数据库编程_Deiphi_编程开发

Delphi数据库编程一日通(1)

日期：2008-10-20 22:12:14　　　　来源：

　·用DELPHI通过写注册表来实现建立IIS的虚拟目录！　·Delphi数据库编程一日通(3)
　·Delphi数据库编程一日通(2)

Delphi数据库编程一日通。
　　通常情况下，利用 Delphi 开发数据库应用程序，可以使用TTable、TDataSource、TDBEdit、TDBNavigator等构件。只要正确设置了构件的某些属性，再编写必要的程序代码对一些特定事件进行处理，就能够完成对多种数据库进行的数据处理，例如：记录的输入、修改、删除和查询等。这样做虽然只需要编写极少量的程序代码就能达到很好的效果，但如果在程序设计过程中，某些数据表的结构发生了改变，则必须修改与此数据表有关的所有构件的属性，这将使程序员陷入繁琐的重复劳动中。
首先来介绍一些查询技巧

Delphi中实现多线程同步查询

---- 为避免上述的麻烦，我们可以在编写网络数据库应用程序时采用结构化查询语言 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.Commit;
end;
---- 以上过程包含五个参数，实现从页面中的一系列编辑框中读取数据，并向指定数据表输入的功能。其中，参数 qName 为页面中所使用的 TQuery 类构件的名称；参数 szDBName 是数据表的名称；参数eName 是 TEdit 类型的数组，列出了页面中包含数据的各编辑框名称；参数 iNum 是数据表中的字段个数，也即编辑框的个数；参数 iMark 是一个整数类型的数组，该参数表明相应字段是以何种方式输入的，如果是字符方式，需要在数据前后两端加上引号。需要注意的是：在调用本过程之前，应将数据库连接打开：

DataModule1.DataBase1.Connected := true;

过程调用完成后，将数据库连接断开：
DataModule1.DataBase1.Connected := false;
---- 另外，开发网络数据库应用程序时，还可以使用存储过程，即：将预先编译过的 SQL 语句存储在服务器上。存储过程提前运行，且不与程序代码一同存储和编译，因此其对应主程序中的代码相对简洁，运行速度也较快。SQL 语句的集中存放，使其修改更容易。

---- 要创建向数据表中输入数据的存储过程，代码编写举例如下：

CREATE PROC ProcTest1
@inttest smallint
,@strtest char(4) output
AS
INSERT INTO TEST_User.TRANS_TEST
VALUES(@inttest,@strtest)
SELECT @strtest,* FROM TEST_User.TRANS_TEST
---- 以上代码向数据表 TEST_User.TRANS_TEST 添加数据，该数据表包括两个字段：第一个字段为 smallint 类型的数据，参数类型定为 Input(在存储过程中可缺省)；第二个字段数据为长度为4 的字符类型，参数类型为 Output。

---- 其模块程序的编写与 DataInsert 过程相似，区别主要在于模块的中间部分，对应的主要代码如下：

StoredProc1.Close;
{关闭存储过程}
StoredProc1.Params[1].ParamType := ptInput;
{设置存储过程的参数类型}
StoredProc1.Params[1].AsInteger := 1;
{设置存储过程中参数的数据}
StoredProc1.Params[2].ParamType := ptOutput;
StoredProc1.Params[2].AsString := 'abcd';
StoredProc1.Open; {打开存储过程}
---- 其中，StoredProc1 是 TStoredProc 类型的构件名称；Params[1] 是存储过程中的第一个参数，对应存储过程 ProcTest1 可以用ParamByName('@inttest')代替；存储过程的第二个参数与其类似。

---- 实际上，编写对网络数据库进行其他数据处理(如：修改、删除和查询等)的模块，与数据的输入模块大体相似，这里就不再赘述了。

　　优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化查询语句、分页查询等途径收到明显的效果。即使是这样，也不可避免地会在查询时闪现一个带有 SQL符号的沙漏，即鼠标变成了查询等待。最可怜的是用户，他（她）在此时只能无奈地等待。遇到急性子的，干脆在此时尝试 Windows中的其它应用程序，结果致使你的数据库应用显示一大片白色的窗口。真是无奈！

本文将以简单的例子告诉你如何实现线程查询。还等什么，赶快打开Delphi对照着下面的完整源代码试试吧。

在查询时能够做别的事情或者取消查询，这只是基本的线程查询，在你阅读了Delphi有关线程帮助之后能立刻实现。这里介绍的是多个线程查询的同步进行。

在Delphi数据库应用中，都有一个缺省的数据库会话 Session。通常情况下，每个数据库应用中只有这一个会话。无论是查询函数修改数据，在同一时间内只能进行其中的一件事情，而且进行这一件事情的时候应用程序不能响应键盘、鼠标以及其它的 Windows消息。这就是在窗口区域会显示一片空白的原因所在。当然，只要将查询或数据操纵构造成线程对象，情况会好一些，至少可以接受窗口消息，也可以随时终止查询或数据操纵，而不会在屏幕上显示出太难看的白色。不过，这只是解决了问题的一部分。假如在进行一个线程查询的时候，用户通过按钮或菜单又发出了另一个查询的命令，这可如何是好，难道终止正在执行的数据库访问吗？解决之道就是：多线程同步查询。

实现多线程同步查询的基本思想是，为每一个查询组件（如TQuer 　[1]

Delphi数据库编程一日通(1)

Delphi中动画设计(2)

MSSQL压缩数据库

配置数据库和编程方式管理

◎→	本类最新
asp + sqlserver 分页方法（不用在Delphi中用拼音首字符序列来实在Delphi中实现多重查询用DELPHI编程访问SQL SERVER数据加密ACCESS数据库增加安全性加密ACCESS数据库增加安全性文本数据导入数据库的方法

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
九赢广告联盟的优点和缺点通过IP反查域名用VB的Printer对象编写打印程序用DELPHI通过写注册表来实现建立网络积件再思考。（其实也只是胡 Delphi中动画设计(2) Delphi中动画设计