点‘添加’ 接着点 ‘下一条’ 会出现系统错误信息(因为不能添NULL) 程序自动关闭
要求 在出现所有类似的系统错误之前 都出现自己的messagedlg  并且程序正常运行 
写了以下机句  没用
procedure TFormStudent.ADOQuery1PostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
    MessageDlg('学生名不能重复且不能为空!', mtInformation, [mbOk], 0);
    Abort;
end;

解决方案 »

  1.   

    在编辑状态时,就不应该让用户能够点击DBNavigator。此时可设置它.Enabeld := False;————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————
      

  2.   

    这种控件会在当前位置改变的时候自动更新的!所以你点击了next后当然是执行更新啦!