delphi編程限制數據庫記錄數

非常偏門的技巧，很少人會需要限制數據庫的記錄，但還是列出來給大家參考。假如數據庫中只允許用戶輸入３個記錄，那麼我們可以在Table1的BeforeInsert事件裡加入判斷語句：

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
IF Table1.RecNo >=3 then
begin
messagedlg(記錄只能輸入三個,mtinformation,[mbok],0);
abort;
end;
end;

其中的abort;方法是將改動返回到數據庫中，他還可以用在其他的控制數據輸入中。