Delphi 如何判断数据库指针记录是否被改变,测试需要连接SQLSERVER数据库,例子面向Delphi初学者,学习数据库指针的相关操作。主要的代码如下:
procedure TFrmState.FormShow(Sender: TObject);
begin
ADODataSet1.Active := false;
ADODataSet1.Active := true;
end;
procedure TFrmState.BtnCloseClick(Sender: TObject);
begin
Close;
end;
procedure TFrmState.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
if DataSource1.State = dsBrowse then
ShowMessage('指针位置发生改变');
end;