用Delphi开发数据库程序经验三则

一 建立临时表 数据输入是开发数据库程序的必然环节 在Client/Server结构中 客户端可能要输入一批数据后 再向服务器的后台数据库提交 这就需要在本地（客户端）建立临时数据表来存储用户输入的数据 待提交后 清除本地表数据 这种方法的好处是 提高输入效率 减小网络负担

由于用户一次输入的数据量一般情况下较小（不会超过几百条记录） 所以临时表可以建立在内存中 这样处理速度较快 方法 使用查询控件(TQuery)第 步 在窗体上放上查询控件(TQuery) 设置好所连接的数据表 第 步 使　TQuery CachedUpdates=True;TQuery RequestLive=True;第 步 在原有的SQL语句后加入一条Where子语句 要求加入这条Where子语句后SQL查询结果为空 例如 SELECT Biolife ″Species No″ Category Common_Name Biolife ″Species Name″ Biolife ″Length (cm)″ Length_In Notes Graphic FROM ″biolife db″ Biolifewhere Biolife Category=′A′ and Biolife Category=′B′这样临时表就建立完成了

方法 使用代码创建临时表代码如下 function CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;var TempTable:TClientDataSet;begin TempTable:=nil; Result:=nil; if AFieldDefs<>nil then begin try TempTable:=TClientDataSet Create(Application); TempTable FieldDefs Assign(AFieldDefs); TempTable CreateDataSet; Result:=(TempTable as TDataSet); Except if TempTable<>nil then TempTable Free;

Result:=nil; raise;　 end;end;　end;

在程序中按如下方法使用 procedure TForm Button Click(Sender: TObject);var ADataSet:TDataSet;begin ADataSet:=TDataSet Create(Self); with ADataSet FieldDefs do begin Add(′Name′ ftString False); Add(′Value′ ftInteger False); end;

with DataSource do begin DataSet:=CreateTableInMemory(ADataSet FieldDefs); DataSet Open; end;

ADataSet Free;end;

临时表创建完成

方法 使用简单 但由于利用查询控件 清空数据时需要查询服务器后台数据库 所以速度稍慢 而且不适用于临时表中各个字段由数个数据表的字段拼凑而成的情况 方法 适用范围广 速度快 但需要编写代码 （代码中TFieldDefs的使用方法十分简单 见Delphi的联机帮助）

二 配置数据引擎（BDE SQL Link）有关数据库程序分发时 需要携带数据引擎（BDE SQL Link） 并且在客户端安装完程序后还需要配置数据引擎 如用户名（username） 密码（Password）等等 如果手工配置的话 工作量比较大（根据客户机数量而定） 而InstallShield For Delphi又好像没有这方面的选项 其实InstallShield For Delphi可以做到 在生成安装程序的目录里有一个＊ iwz的文本文件 只要在[IDAPI Alias]片段中手工加入即可 例如 [IDAPI Alias] usesname=SYSDBA password=masterkey 安装程序后数据引擎自动配置完毕

三 在InterBase数据库中使用函数 程序员可能在用InterBase作为后台数据库时 会为其提供的函数过少而感到不方便（只有四个） 无法方便地编写出复杂的存储过程 InterBase本身无法编写函数 但它可以使用外部函数（调用DLL中的函数） 下例中说明如何在InterBase 中声明SUBSTR函数 DECLARE EXTERNAL FUNCTION SUBSTR CSTRING( ) SMALLINT SMALLINT RETURNS CSTRING( ) ENTRY_POINT ″IB_UDF_substr″ MODULE_NAME ″ib_udf″

其中 MODULE_NAME为DLL的名称 ENTRY_POINT为函数名 声明后便可以使用 例如 select SUBSTR(country) from country

lishixinzhi/Article/program/Delphi/201311/8520

你想不报错可以先判断有没有重复值，再输入。用try的话，调试的时候会提示错误，编译以后就会按你写的报错。

procedure TemployeesformBitBtn1Click(Sender: TObject);

begin

with ADOQuery1 do

begin

close;

sqlclear;

sqladd('select 员工编号 from f_employees where 员工编号 = '''+trim(Edit1Text)+'''');

execsql;

open;

if recordcount = 0 then begin

close;

sqlclear;

sqladd('insert into f_employees(员工编号)'

+'values (:0)');//这里的0应该换成一个变量。如楼上所说。

parametersparambyname('0')value:=''+Edit1Text+'';

execsql;

end

else

showmessage('错误');

end;

end;

自己找下SQL语句的命令，百度找“SQL命令”即可。

表的建立

关系数据库的主要特点之一就是用表的方式组织数据。表是SQL语言存放数据、查找数据以及更新数据的基本数据结构。在SQL语言中，表有严格的定义，它是一种二维表，对于这种表有如下规定：

1)每一张表都有一个名字，通常称为表名或关系名。表名必须以字母开头，最大长度为30个字符。

2)一张表可以由若干列组成，列名唯一，列名也称作属性名。

3)表中的一行称为一个元组，它相当于一条记录。

4)同一列的数据必须具有相同的数据类型。

5)表中的每一个列值必须是不可分割的基本数据项。

注意：当用户需要新的数据结构或表存放数据时，首先要生成一个表。

语法：

CREATE TABLE 表名 [表约束]

(列名1 数据类型 [缺省值1，列约束1]

(列名2 数据类型 [缺省值2，列约束2]

…

列名n 数据类型 [缺省值n，列约束n]

[TABLESPACE 表空间名称]

[STORAGE (存贮的子句）]

[ENABLE 约束名]

[DISABLE 约束名]

插入数据

当一个表新建成时，它里面没有数据，通过向表中扦入数据，建成表的实例。

语句句法：

INSERT INTO 表名[(列名1,…)]

VALUES(值1，值2，…,值n)

[子查询]；

假设有一张表Student如下所示：

NO NAME AGE

1001 A 12

1002 B 14

将新学生E增加到上表中，并按照表的结构将信息添加完整，需要如下语句：

INSERT INTO STUDENT VALUSE(1003, 'E',12);

修改数据

对表中已有数据进行修改，语句句法：

UPDATE 表名SET 列名1＝表达式1，列名2＝表达式2，…

WHERE 条件；

例如：对下表Student

NO NAME AGE

1001 A 12

1002 B 14

将B的年纪改为18；应该执行以下语句：

UPDATE STUDENT SET AGE=18 WHERE NAME='B';

删除数据

删除表中已有数据，不能删除不存在的数据。

语句句法:

DELETE FROM 表名 WHERE 条件；

例如：

对下面Student表进行删除，要删除其中年纪为12的学生；

NO NAME AGE

1001 A 12

1002 B 14

DELETE FROM STUDENT WHERE AGE＝12；

表结构的修改

在已存在的表中增加新列，语句句法：

ALTER TABLE 表名 ADD(新列名 数据类型(长度))；

例如：

ALTER TABLE STUDENT ADD (DEPARTMENT CHAR(8));

b增加已有列的数据类型。

例如：

ALTER TABLE STUDENT MODIFY(NAME VARCHAR2(25));

表的删除

将已经存在的表删除，语句句法:

DROP TABLE表名；

例如：

DROP TABLE EMP；

查询语句

SELECT命令的语法为：

SELECT [DISTINCT|ALL] {|模式名] {表名|视图名|

快照名] …| {表达式[列别名]…} } [, [模式名 ] {表名|

视图名|} …| 表达式[列别名] ]…

FROM [模式名] {表名|视图名|快照名} [@数据库链名] [表别名]

[, [模式名] {表名|视图名|快照名} [@数据库链名]

[表别名] ]…

[WHERE条件]

[START WITH条件 CONNECT BY 条件]

[GROUP BY表达式[，表达式] …[HAVING条件]

[UNION|UNION ALL |INTERSECT|MINUS]SELECT命令

[ORDER BY{表达式|位置} [ASC|DESC] [, {表达式|位置[ASC|DESC]}]…]

例如：对于STUDENT表:

NO NAME AGE

1001 AE 12

1002 BT 14

(1) 查询年纪为12的学生姓名；

SELECT STUDENTNAME FROM STUDENT WHERE AGE=12;

(2) 查询年纪在12至16岁之间的学生姓名；

SELECT STUDENTNAME FROM STUDENT WHERE AGE BETWEEN 12 AND 16;

(3) 查询年纪不在12至16岁之间的学生姓名；

SELECT STUDENTNAME FROM STUDENT WHERE AGE NOT BETWEEN 12 AND 16;

(4) 查询所有姓名以A开头的学生的姓名；

SELECT STUDENTNAME FROM STUDENT WHERE NAME LIKE 'A%';

(5) 列出所有学生年纪的和，年纪的平均值，最大值，最小值，最大值与最小值之间的差值；

SELECT AVG(AGE), SUM(AGE), MAX(AGE), MIN(AGE), MAX(AGE)-MIN(AGE);

(6) 将所有学生按学号顺序升序排列；

SELECT FROM STUDENT ORDER BY NO DESC;

(7) 将所有学生按学号顺序升序排列；

SELECT FROM STUDENT ORDER BY NO ASC;

1Delphi是一种法度榜样开辟对象,

大年夜pascal说话成长而来,

而不是关系数据库Delphi中有很多半据库 *** 作的组件,

都是面向关系型数据库开辟的所以很多人用Delphi+关系型数据库进行软件体系开辟

应该是你没有关闭运行的project1exe就重新进行了编译！如果你没有发现有project1的运行窗口，那你就打开任务管理器（ctrl+shift+esc）,找到project1exe结束这个进程，再编译应该没有问题了！

祝：好运！

在数据库应用程序中 数据控件是经常要用到的 数据控件都是可视的 也就是说 如果修改了这些构件的属性 能在窗体上马上反映出来 如果这些构件的Enabled属性设为True并且数据集的Active属性也设为True 在设计期就可以看到数据

下面就来介绍一下这些控件的简单应用

指定一个数据源

数据控件必须通过TDataSource构件连接数据集 TDataSource构件扮演的角色实际上就是数据控件与数据集之间的桥梁 首先 把一个数据集构件放到窗体或数据模块上 设置它的DatabaseName属性指定要访问的数据库 设置它的TableName属性指定要访问的表 接着 把一个TDataSource构件放到窗体或数据模块上 设置它的DataSet属性指定数据集 然后 把一个数据控件放到窗体上 设置它的DataSource属性指定TDataSource构件 而这个TDataSource构件的DataSet属性已经指定了一个数据集 最后 设置数据控件的DataField属性指定要显示的字段 不过 对于TDBGrid TDBCtrlGrid和TDBNavigator构件来说 不需要设置DataField属性 因为这几个控件是以整个数据集为工作内容的

编辑和更新数据

除了TDBNavigator构件外 其他数据控件都是用来显示和编辑数据的 这里要介绍怎样编辑数据

要使用户能编辑数据 数据集必须进入dsEdit状态 如果TDataSource的AutoEdit属性设为False 用户不能直接编辑数据 除非程序调用Edit函数

要使用户能够在数据控件中修改数据 必须把数据控件的ReadOnly属性设为False 如果ReadOnly属性设为True 数据控件中显示的数据就是只读的 一般情况下 TDataSource构件的Enabled属性设为True 如果这个属性设为False 数据控件就无法显示数据 更不能修改数据

如果数据集构件的ReadOnly属性设为True 数据集就是只读的 用户在数据控件中所作的修改不能写到数据集中 除了TDBGrid构件外 当用户修改了一个字段的值 还需要把输入焦点移走 新的数据才写到数据集中 在移走输入焦点之前 用户随时可以按ESC键取消修改 在TDBGrid构件建立的栅格中 当用户修改了一个字段的值 还需要把输入焦点移到另一条记录上 新的数据才写到数据集中

禁止和允许数据刷新

当程序正在遍历整个数据集或者搜索一个特定的记录时 应当暂时禁止数据控件刷新数据 这样能加快遍历或搜索的速度 防止屏幕总是在闪烁 调用数据集的DisableControls可以暂时禁止连接这个数据集的数据控件刷新数据 DisableControls函数通常在循环 *** 作前调用 等循环结束后 程序应当立即调用数据集构件的EnableControls函数重新允许刷新数据 为了确保最后总是能恢复刷新 建议采用Try Finally结构 这样 即使在循环中出现异常 也可以保证总能调用EnableControls

下面的代码演示了怎样调用DisableControls和EnableControls函数

CustTable DisableControls;TryCustTable First;While not CustTable EOF DoBegin CustTable Next;End;FinallyCustTable EnableControls;End;

手动刷新数据

调用数据集的Refresh可以读取数据集中最新的数据并刷新数据控件 这个功能在多用户环境尤其有用 因为其他用户有可能已改变了数据集中的数据 有时候 调用Refresh可能会导致意想不到的结果 例如 如果另一个用户已经删除了一条记录 调用Refresh后 这条记录将从数据控件中消失

显示单个字段的数据控件

有的数据控件以数据库的一个或几个字段作为工作内容 如TDBText和TDBEdit 而有的数据控件以整个数据集为工作内容 如TDBGrid和TDBNavigator 显示单个字段的数据控件往往是从一个标准的Windows控件演化而来的 例如 TDBEdit构件就可以认为是TEdit的数据感知版本

把数据作为标签显示

TDBText构件是一个只读的数据控件 它非常类似于TLabel构件和TStaticText构件 TDBText构件能够把数据作为标签显示 用来标注其他控件 例如 可以用一个TDBText构件显示名称(Common_Name字段)

TDBText构件需要指定一个字段 当用户使用导航器或其他手段浏览记录时 TDBText构件显示的数据将自动变化 因为TDBText构件总是显示当前记录的数据

TDBText构件的AutoSize属性一般要设为True 这是因为字段的内容长度可能是不同的 如果AutoSize属性设为False 有些较长的内容可能会被截断

显示和编辑数据

TDBText构件只能显示数据 不能编辑数据 要既能显示数据 又能编辑数据 就要用到TDBEdit构件 TDBEdit可以认为是TEdit的数据感知(Data Aware)版本 例如 有一个TDataSource构件叫CustomersSource 它的DataSet属性指向一个TTable构件叫CustomersTable 把一个TDBEdit构件放在窗体上 其DataSource属性设为CustomersSource 把它的DataField属性设为CustNo 这个TDBEdit构件马上就能显示CustNo字段的值 用户可以在编辑框中键入新的值

显示和编辑多行文本

TDBMemo构件是TMemo构件的数据感知版本 可以显示dBASE和Paradox数据库中备注字段的内容

与TDBEdit不同的是 TDBMemo能够以多行的形式显示文本 同时也允许用户键入多行文本

默认情况下 TDBMemo允许用户修改它显示的文本 如果不想让用户修改文本 只要把ReadOnly属性设为True即可

要允许用户在文本中插入一个制表符 应当把WantTabs属性设为True 否则 当用户按下Tab键 将把输入焦点移走 而不是插入制表符 要限制用户最多可输入的字符数 可以设置MaxLength属性 如果这个属性设为 表示没有限制

此外 ScrollBars属性可以设置要不要加上滚动栏 WordWrap属性可以设置是否允许自动绕回 Alignment属性可以设置文本的对齐方式 在运行期 您可以调用CutToClipboard和CopyToClipboard函数把选择的文本剪切和复制到剪贴板中 调用PasteFromClipboard能够粘贴剪贴板中的文本

lishixinzhi/Article/program/Delphi/201311/8453

以上就是关于用Delphi开发数据库程序经验三则全部的内容，包括:用Delphi开发数据库程序经验三则、delphi 数据库、delphi与数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！