xl_kid 08.02.2021 14:32
Predmet:Audit Trail log - praćenje izmena

Pozdrav svima Smiling

pokuÅ¡avam napraviti praćenje izmena podataka od strane korisnika. Imam formu sa datagridom (tabelaZaglavlje i tabelaDetalji). U tabeli imam korisnikizmenio i datumizmene. Ako neko od korisnika izmeni neki podatak imam zapis o tome ali ne i Å¡ta je izmenio. Hteo bih u posebnoj tabeli da pratim samo izmene ko je i Å¡ta izmenio.

Gjoreski 08.02.2021 15:22
Predmet:Re: Audit Trail log - praćenje izmena

Najbolje da napravis tabela koja u koja ces upusati sve uradzene izmene.
Tabela bi sadrzala sledeci polja : izTabela, izPole, izStatus, izVrednost,izID,izKorisnik,izDatum
i jos ostalo sta smatras da ce ti trebati.
Uradis i jedna funkcija koja ces koristiti za upis u ovoj tabeli .
Evo jedan primer u vb6 kako sam ja to odradio.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function fnDodadi_Izmena(izTabela As String, izPole As String, izID_Dokument As Long, izID_Naziv As String, izVrednost As String, _
  2.                                 izTip As Integer, izVraboten As Long, Optional Opis = "")
  3.         Dim rsIzmeni As ADODB.Recordset
  4.         Set rsIzmeni = New ADODB.Recordset
  5.             rsIzmeni.Open "SELECT * FROM tblIzmeni WHERE ID_Izmena < 0", cn, adOpenStatic, adLockOptimistic
  6.             rsIzmeni.AddNew
  7.             rsIzmeni.Fields("izTabela") = izTabela
  8.             rsIzmeni.Fields("izPole") = izPole
  9.             rsIzmeni.Fields("izID_Dokument") = izID_Dokument
  10.             rsIzmeni.Fields("izID_Naziv") = izID_Naziv
  11.             rsIzmeni.Fields("izVrednost") = izVrednost
  12.             rsIzmeni.Fields("izTip") = izTip        ' 0=Nedefinirano 1=Izmena 2=NovZapis 3=Izbrisan zapis
  13.            rsIzmeni.Fields("izData") = Format(fnServer_DateTime, "dd.MM.yyyy hh:mm:ss")
  14.             rsIzmeni.Fields("izVraboten") = izVraboten
  15.             rsIzmeni.Fields("izOpis") = Format$(Opis)
  16.             rsIzmeni.Update
  17.      
  18.       Set rsIzmeni = Nothing
  19. End Function
  20.  
  21.  
  22. ' If rsKorisnk.Fields("kAdresa") <> txtAdresa.Text Then fnIma_Izmeni = True: Call fnDodadi_Izmena("tblKorisnik", "kAdresa", rsKorisnk.Fields("ID_Korisnik"), "ID_Korisnik", rsKorisnk.Fields("kAdresa"), 1, ID_Vraboten, "")