🚀 go-pugleaf

>ciach> Czy znacie jakieś bardziej "eleganckie" sposoby przeprowadzenia takiej 
> transakcji?. Przychodzi mi jeszcze do głowy Rollback i table1.Insert ale 
> wtedy użytkownik traci dane w formularzu i trzeba by je jakoś przywracać.
> 
> Z góry dziękuję
> Michał

sql update zamiast edit w dbgridzie.

Paweł

On Thu, 10 Dec 2015 00:50:30 -0800 (PST), zpksoft wrote:

> sql update zamiast edit w dbgridzie.

A biblioteka dostępowa jak wg Ciebie robi zmiany w bazie?

-- 
howgh
szemrany
"Trzeba z żywymi naprzód iść, po życie sięgać nowe,
a nie w uwiędłych laurów liść z uporem stroić głowę"

W dniu 2015-12-10 o 11:51, szemrany pisze:
> On Thu, 10 Dec 2015 00:50:30 -0800 (PST), zpksoft wrote:
>
>> sql update zamiast edit w dbgridzie.
>
> A biblioteka dostępowa jak wg Ciebie robi zmiany w bazie?
>
Tam w ogóle nie ma grida. Zapisywany obiekt to opis magazynu, kolejne 
tabele to Magazyn (table1) (zwiera unikalne klucze jak kod i nazwa - 
tylko tu może powstać błąd zależny od danych wpisanych przez 
użytkownika), Adres magazynu (table2) i Stany magazynowe (table3) oraz 
kilka pomniejszych tabel. Ponieważ istnienie każdej z nich bez innej 
jest bez sensu, to zapisuję to w transakcji.

W każdym razie zrobiłem to lepiej, korzystając z CachedUpdates, teraz 
już da się bez problemu wrócić do formularza i edytować i zapisywać aż 
do skutku.

W dniu czwartek, 10 grudnia 2015 11:51:54 UTC+1 użytkownik szemrany napisał:
> On Thu, 10 Dec 2015 00:50:30 -0800 (PST), zpksoft wrote:
> 
> > sql update zamiast edit w dbgridzie.
> 
> A biblioteka dostępowa jak wg Ciebie robi zmiany w bazie?
> 
> -- 
> howgh
> szemrany

Nie wiem. Pewnie blokuje rekord na czas edycji. Ale może to być za mało.

Paweł

W dniu 2015-12-09 o 23:36, ufo pisze:
> Czy znacie jakieś bardziej "eleganckie" sposoby przeprowadzenia takiej
> transakcji?. Przychodzi mi jeszcze do głowy Rollback i table1.Insert ale
> wtedy użytkownik traci dane w formularzu i trzeba by je jakoś przywracać.
Znacie; CachedUpdates, dopóki user nie naciśnie zapisz, nic nie idzie do 
bazy danych.
Przy Insert masz to co chciałeś, ale przy Edit musisz "jakoś" zablokować 
dokument przed edycją.
Pewnie UNIDAC coś tam potrafi zrobić, ale ja używam własnej implmentacji 
z blokowanie całkowicie zarządzanym przez apliakację (wiem kto, kiedy i 
z jakiej maszyny zablokował jaki obiekt biznesowy).


-- 
wloochacz

W dniu 2015-12-11 o 10:50, wloochacz pisze:
> W dniu 2015-12-09 o 23:36, ufo pisze:
>> Czy znacie jakieś bardziej "eleganckie" sposoby przeprowadzenia takiej
>> transakcji?. Przychodzi mi jeszcze do głowy Rollback i table1.Insert ale
>> wtedy użytkownik traci dane w formularzu i trzeba by je jakoś przywracać.
> Znacie; CachedUpdates, dopóki user nie naciśnie zapisz, nic nie idzie do
> bazy danych.
> Przy Insert masz to co chciałeś, ale przy Edit musisz "jakoś" zablokować
> dokument przed edycją.
> Pewnie UNIDAC coś tam potrafi zrobić, ale ja używam własnej implmentacji
> z blokowanie całkowicie zarządzanym przez apliakację (wiem kto, kiedy i
> z jakiej maszyny zablokował jaki obiekt biznesowy).
>
>
No, zapis informacji o blokadzie może być przydatny i tez to później 
wprowadzę. Oczywiście można korzystać z blokowania przez db lub z 
własnego mechanizmu. Można także rozważyć lokalną kopię, gdyby komputer 
użytkownika wywalił się w połowie zapisu dużego dokumentu.
Unidac z CachedUpdates blokuje rekord w trybie edycji i ustawionym 
trybie blokady Pessimistic. Jeśli anuluje się transakcję wystarczy 
uruchomić nową i zablokować ponownie funkcją Lock.
Blokowanie przy użyciu mechanizmów db jest wygodne, może mieć jednak 
uboczne skutki, bo niektóre engine, zamiast pojedynczego rekordu, 
blokują całą stronę (kilka rekordów).

W każdym razie zamieściłem ostateczną wersję na CachedUpdates. Tu każda 
tabela po pomyślnym zapisie, dodaje się do listy. A w razie błędu jest 
przywracana do stanu przed zapisem (RestoreUpdates) a całośc zapisu 
anulowana przez Rollback.
Troszkę tu moich "overridowanych" funkcji ale powinno być zrozumiałe.

    if (not mdata.db.InTransaction) then mdata.db.StartTransaction;
     Tables:=TList.Create;
     try
       try
         Tables.Capacity:=10;
         ErrTable:=DataQuery;
         if (DataQuery.State in [dsEdit, dsInsert]) then DataQuery.Post;
         if (DataQuery.UpdatesPending) then DataQuery.ApplyUpdates;
         Tables.Add(DataQuery);
         ErrTable:=adresFRM.adresQUE;
         adresFRM.Post(EditMode,15,PrimaryKey,'usr_Key','',false); //to 
robi post+applyupdates dla tej tabeli
         Tables.Add(adresFRM.adresQUE);
         ErrTable:=telfaxFRM.DataQUE;
         telfaxFRM.ApplyUpdates;
         Tables.Add(telfaxFRM.DataQUE);
         ErrTable:=emailFRM.DataQUE;
         emailFRM.ApplyUpdates;
         Tables.Add(emailFRM.DataQUE);
         ErrTable:=komunikatorFRM.DataQUE;
         komunikatorFRM.ApplyUpdates;
         Tables.Add(komunikatorFRM.DataQUE);
       except on E:Exception do
         begin
           mdata.db.Rollback;
           for i := 0 to Tables.Count-1 do 
TUniQuery(Tables[i]).RestoreUpdates;
           if EditMode=dsEdit then
           begin
             mdata.db.StartTransaction;
             DataQuery.Lock;
           end;
           if (E is EUniError) then mdata.DataBaseError(E as 
EUniError,Self,ErrTable);
           raise;
         end;
       end;
     finally
       Tables.Free;
     end;