RSS
 

 

Как проверить, находится ли TADODataSet в режиме изменения?

29 Дек

В основном я работая в Delphi используя для доступа к данным ADO компоненты.
Часто нужно быстро проверить, находится ли TADODataSet в режим изменения?

Вот полезная функция которую я использую для определения этого. Приведу фрагмент файла моего модуля полезных функций.

unit ZFunctions;
interface
uses
  ... DB, ADODB,...  ;
 
function ifdsEdit(ds : TADODataSet) : boolean; //ds в режиме изменения?
 
implementation
...
function ifdsEdit(ds : TADODataSet) : boolean;
begin
 Result := false;
 if ds.Active then
  Result := (ds.State = dsEdit) or (ds.State = dsInsert);
end;
...

Подключив такой модуль к своему проекту и вызвав функцию ifdsEdit вы быстро узнаете находится ли TADODataSet в режиме редактирования или вставки, что собственно практически является тем что данные пытались изменить.

Этой быстрой проверки вполне достаточно в большинстве случаев, однако эта функция точно не определяет изменились данные на такие же или на другие и изменял ли их пользователь.


 
 

Метки: , 29.12.2010