I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
移动到最后一条记录时再按一下“下”就会追加一条记录，如果去掉这项功能 procedure TForm1.DataSource1Change(Sender: TObject; Field: TField);
begin
if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel;
end;
begin
if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel;
end;