Показать удаленные записи таблицы

Delphi , Базы данных , DBASE и DBF

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure DeletedRecords(Table: TTable; SioNo: Boolean);
 begin
   Table.DisableControls;
   try
     Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON, Longint(SioNo)));
   finally
     Table.EnableControls;
   end;
   Table.Refresh;
 end;

Here is a translation of the text into Russian:

Процедура Delphi, именуемая DeletedRecords, принимает два параметра: Table типа TTable и SioNo типа boolean.

Цель этой процедуры - отображать удаленные записи в указанной таблице. Если параметр SioNo имеет значение True, то она включает мягкую удаление для таблицы, что означает логическое удаление записи без физического удаления из базы данных. Если SioNo имеет значение False, то она отключает мягкое удаление.

Вот шаг за шагом, что делает процедура:

1. Она disables контролы таблицы, вероятно, для предотвращения случайных изменений или обновлений в ходе выполнения процедуры.
2. Она пытается установить свойство мягкого удаления на handle базы данных, связанной с таблицей. Используется функция DbiSetProp для установки этого свойства.
3. Если возникает ошибка при выполнении шага 2 (например, из-за недостаточных прав), то она будет поймана блоком try...finally, и программа продолжит выполняться.
4. После установки свойства мягкого удаления, процедура снова включает контролы таблицы.
5. Наконец, она обновляет представление таблицы для отражения любых изменений, сделанных в записях.

Вот альтернативное решение, которое достигает того же результата более компактным способом:

procedure DeletedRecords(Table: TTable; SioNo: Boolean);
begin
  Table.DisableControls;
  try
    Table.SOFTDELETEON := SioNo;
  finally
    Table.EnableControls;
    Table.Refresh;
  end;
end;

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

Процедура Delphi, позволяющая отображать удаленные записи таблицы с помощью параметра SioNo.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DBASE и DBF ::