Скачать: CL | DM;

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

← →
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 и пробуй...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c