Востановление записей помечанных на удаление

← →
sterran © (2003-01-15 09:35) [0]

Уважаемые мастера, у меня к Вам такой вопрос, работает ли процедура востановления помечанных на удаления записей dbiSetProp с TQuery, если да подскажите как.

← →
Соловьев (2003-01-15 09:56) [1]

Показывать удаленные:

procedure TForm1.Button1Click(Sender: TObject);
begin
dbiSetProp(hDBIObj(Table1.Handle), curSOFTDELETEON, 1);
Table1.Refresh;
end;

Скрыть:

procedure TForm1.Button2Click(Sender: TObject);
begin
dbiSetProp(hDBIObj(Table1.Handle), curSOFTDELETEON, 0);
Table1.Refresh;
end;

Восстановить:
procedure TForm1.Button3Click(Sender: TObject);
begin
if Table1.State=dsBrowse then Table1.Edit;
if DbiUndeleteRecord(Table1.Handle) = 0 then
Table1.Refresh
else
MessageDlg("Record NOT deleted",mtError,[mbOK],0);
end;

← →
steran (2003-01-15 10:04) [2]

Про TTable я знаю, что работает, а я вот какой способ имел ввиду, будет ли он работать?

procedure TForm1.Button1Click(Sender: TObject); begin dbiSetProp(hDBIObj( Query1.Handle), curSOFTDELETEON, 1); Table1.Refresh; end;

← →
Соловьев (2003-01-15 10:10) [3]

TQuery возвращает "жывые" данные?
А вообще, для воостановления такого типа данных, которые в памяти, функции БДЕ не применимы... Для этого есть свои методы у TQuery и TTable.

← →
steran (2003-01-15 10:13) [4]

> TQuery возвращает "жывые" данные?

Да

> Для этого есть свои методы у TQuery

Можете подсказать

← →
Соловьев (2003-01-15 10:18) [5]

UpdateStatus посмотри.

← →
steran (2003-01-15 10:29) [6]

Причем здесь это. Если мне не изменяет память, то UpdateStatus служит для коррекции записей при изменении НД (вставка, удаление или редактирования), а мне бы нужно узнать существуют ли способы востановления помечанных на уделение записей у TQuery

← →
Соловьев (2003-01-15 10:33) [7]

>>помечанных на уделение записей у TQuery
А как это понимать? Если ты хочешь физически, так кто тебе мешает проверить это?
Ты же сам писал :
procedure TForm1.Button1Click(Sender: TObject);
begin
dbiSetProp(hDBIObj(Query1.Handle), curSOFTDELETEON, 1);
Table1.Refresh;
end;
Так F9 и пробуй...

Востановление записей помечанных на удаление Найти похожие ветки