Текущий архив: 2005.02.27;
Скачать: 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 вся ветка
Текущий архив: 2005.02.27;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.046 c
