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