用DataSource1的DataChange事件
procedure TForm1.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
if (TDataSource(Sender).DataSet.Eof) and not 非按钮 then
TDataSource(Sender).DataSet.Cancel;
end;
用DataSource1的DataChange事件
procedure TForm1.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
if (TDataSource(Sender).DataSet.Eof) and not 按钮 then
TDataSource(Sender).DataSet.Cancel;
end;