非常偏门的技巧，很少人会需要限制数据库的记录，但还是列出来给大家参考。假如数据库中只允许用户输入３个记录，那么我们可以在Table1的BeforeInsert事件里加入判断语句：
procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
IF Table1.RecNo >=3 then
begin
messagedlg('记录只能输入三个',mtinformation,[mbok],0);
abort;
end;
end; 
其中的abort;方法是将改动返回到数据库中，他还可以用在其他的控制数据输入中。