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

Как узнать была ли изменена база?   Найти похожие ветки 

← →
mlitkin   (2005-01-31 04:51) [0]

Подскажите, пожалуйста, как узнать была ли изменена база перед тем, как делать commit транзакции? Т.е. есть ли несохраненные с помощью commit изменения. Это для того, чтобы, например, определить нужно ли выдавать MessageDlg с вопросом сохранять ли изменения или нет. Запросы некэшированные.

---

← →
Deniz   (2005-01-31 06:57) [1]

Какими компонентами пользуешься?

---

← →
jack128 ©   (2005-01-31 08:10) [2]

Так пойдет?
procedure TForm1.IBDataSet1AfterPost(DataSet: TDataSet);
begin
 FChangeFlag := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Transaction1.InTransaction then
 begin
   if FChangeFlag and (MessageBox(Handle, PChar("Сохранить изменения?"), "", MB_YESNO) = IDYES) then
     Transaction1.Rollback
   else
     Transaction1.Commit;
   FChangeFlag := False;
 end;
end;

---

← →
jack128 ©   (2005-01-31 08:11) [3]

Сорри, так, конечно, надо MessageBox(Handle, PChar("Сохранить изменения?"), "", MB_YESNO) = IDNO

---

← →
mlitkin   (2005-01-31 08:26) [4]

Deniz
Я пользуюсь IB-компонентами (IBDataSet, IBTransaction и др.).

jack128 ©
Неее. С помощью переменной эт мне не нравится. Так я умею. Хотелось бы как-то узнать, есть ли незакомиченные изменения или нет...

---

← →
jack128 ©   (2005-01-31 08:37) [5]

mlitkin   (31.01.05 8:26) [4]
С помощью переменной эт мне не нравится.
В явном или неявном виде переменная всегда будет использоваться...

---

← →
DSKalugin ©   (2005-01-31 17:09) [6]

IBTransaction.InTransaction
и см  [2]

---

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

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



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