实例——修改数据且在提交给数据库前验证.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 8 行

procedure TForm1.Table1BeforePost(DataSet: TDataSet)；
begin
if DBEdit1.Text = '' then
//判断编辑框中的姓名是否为空，如果是调用Abort方法
  Abort；
End；