Windows 7, Delphi 5, lokalna baza Paradox
Zdarza się, że rekordy zapisane wg niżej podanego kodu giną, czasami jest to spowodowane zanikiem napięcia, złym wyłączeniem,
a czasami nie mam pojęcia dlaczego. Czy jest na to sposób programowy. Zastosowanie UPS-sa pomijam.
Wczoraj przenoszono komputer z pokoju do pokoju. kilkadziesiąt danych wprowadzonych tego dnia wyparowało.
If znaleziony then
tab_uczni.Edit
else
tab_uczni.Append ;
tab_uczni.FieldByName('Nazwisko').AsString := E_nazwisko.Text ;
tab_uczni.FieldByName('Imie').AsString := E_imie.Text ;
tab_uczni.FieldByName('Pokoj').AsString := E_pokoj.Text ;
tab_uczni.Post ;
tab_dokad.Open ;
tab_dokad.Append ;
tab_dokad.FieldByName('Dokad').AsString := E_dokad.Text ;
tab_dokad.FieldByName('Godz_wyjscia').AsString := E_godz.Text ;
tab_dokad.Post ;