|
实用技巧
控制数据库关键字的重复输入
赖立谦
[请作者和我们联系]
----
在Delphi中向数据库添加重复的关键字是异常处理的一部分。具体的解决方法是使你的程序能够对异常响应。
----
我们举一个简单的例子来说明。为了方便我们就使用Delphi自带的数据库DBDEMOS，它是Paradox型的数据库，其中表employee.db具有关键字EmpNo。
----
Table1的DataBaseName是DBDEMOS ，TableName是employee.db，Active设为True。DataSource1的DataSet是Table1。DBNavigator1和DBGrid1的DataSource是DataSource1。
----
下面我们就要写Table的OnPostError事件：当出现重复的关键字时，首先要提示用户，然后取消此次操作。这个事件是在修改或向数据库插入记录时产生异常时才响应的。具体代码如下：
procedure TForm1.Table1PostError
(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if (E is EDBEngineError) then
if (E as EDBEngineError).Errors
[0].Errorcode = eKeyViol then
begin
MessageDlg('出现重复记录！',
mtWarning, [mbOK], 0);
Table1.Cancel;
Abort;
end;
end;
----
说明：
----
1. 通过EDBEngineError异常可以获得描述数据库驱动错误的详细信息。当EDBEngineError异常产生时，就会生成一个EDBEngineError对象，这个EDBEngineError对象包含有异常的错误信息，可以用程序进行分析，从而决定要完成的操作。
----
2. 上面程序的Errorcode是BDE的错误代码，是一个word类型的变量，我们还需要定义它，定义如下：
const
eKeyViol = 9729;
----
3. 此程序运行时，Delphi的错误信息提示会在你的异常响应之前。所以在Delphi的IDE环境中运行这个程序时，你将先看到Delphi的错误信息提示，程序中断执行，这并不是说明你的程序有错误，此时再按F9，继续执行，才会看到你的异常响应，也就是你自己的错误信息提示。不过如果你直接执行exe文件就不会有这些问题了。
此程序在Delphi4.0、Windows95环境下运行通过。
|
