点‘添加’ 接着点 ‘下一条’ 会出现系统错误信息(因为不能添NULL) 程序自动关闭
要求 在出现所有类似的系统错误之前 都出现自己的messagedlg 并且程序正常运行
写了以下机句 没用
procedure TFormStudent.ADOQuery1PostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
MessageDlg('学生名不能重复且不能为空!', mtInformation, [mbOk], 0);
Abort;
end;
要求 在出现所有类似的系统错误之前 都出现自己的messagedlg 并且程序正常运行
写了以下机句 没用
procedure TFormStudent.ADOQuery1PostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
MessageDlg('学生名不能重复且不能为空!', mtInformation, [mbOk], 0);
Abort;
end;
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————