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