🚀 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:;
         ErrTable:ÚtaQuery;
         if (DataQuery.State in [dsEdit, dsInsert]) then DataQuery.Post;
         if (DataQuery.UpdatesPending) then DataQuery.ApplyUpdates;
         Tables.Add(DataQuery);
         ErrTable:­resFRM.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;