delphi编程限制数据库记录数

　　非常偏门的技巧，很少人会需要限制数据库的记录，但还是列出来给大家参考。假如数据库中只允许用户输入３个记录，那么我们可以在Table1的BeforeInsert事件里加入判断语句：

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);beginIF Table1.RecNo =3 thenbeginmessagedlg(记录只能输入三个,mtinformation,[mbok],0);abort;end;end; 

　　其中的abort;方法是将改动返回到数据库中，他还可以用在其他的控制数据输入中。