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



Вопросы
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Что такое хук (hook)?
   Категория: Приложение
  Переключение раскладки клавиатуры
   Категория: Приложение
  Как получить код HTM страницы зная ее URL
   Категория: Интернет и Сети
  BDE. Расположение БД по псевдониму
   Категория: Базы данных
  Компонент SpeedButton
   Категория: Компоненты
  Сохраняем Bitmap в поле dbase
   Категория: Базы данных
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Пароль на ADO
   Категория: Базы данных

Delphi - База Знаний: Показать удаленные записи в DBase

  << Вернуться к Содержанию  

uses DBITYPES, DBIERRS, DBIPROCS;

procedure TForm1.ShowDeleted(Table: TTable; ShowDeleted: Boolean);
var
  rslt: DBIResult;
  szErrMsg: DBIMSG;
begin
  Table.DisableControls;
  try
    Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON,
      LongInt(ShowDeleted)));
  finally
    Table.EnableControls;
  end;
  Table.Refresh;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  ShowDeleted(Table1, CheckBox1.Checked);
end;

//или

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;
  << Вернуться к Содержанию