Welcome

首页 / 软件开发 / Delphi / delphi编程限制数据库记录数

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

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

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