第13章 数据库编程(15)

delphi数据库编程

AppendRecord等方法时，自动调用Post方法。

在dsEdit或dsInsert状态下，若尚未直接或间接调用Post方法，则可以调用Cancel方法取消修改。

发送数据时常因数据不合法而引发异常，导致程序崩溃，因此应作适当处理。

例如，以下代码用于处理异常： procedure TForm1.btnPostClick(Sender: TObject);

begin

with ADOTable1 do

begin

if (State <> dsEdit) and (State <> dsInsert) then exit; try //用try...except 结构处理异常

Post;

except

on E: Exception do //发生异常时显示异常信息

if Application.MessageBox(PChar(E.Message +

#13#13 + '是否取消本次操作？'), '提示',

MB_YESNO + MB_ICONWARNING) = IDYES then

Cancel

end;

end;

end;

对于一些能够预知的错误，可利用数据集的BeforePost事件处理。例如：

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet); begin

if Trim(dbeID.Text) = '' then

begin

Application.MessageBox('学号不得为空！','提示',MB_OK + MB_ICONWARNING);

Abort; //调用全局过程Abort取消操作

dbeID.SetFocus;