Centar za edukaciju-BiH



#1 08.02.2021-14:32
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 150


Subject: 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.
↑  ↓

#2 08.02.2021-15:22
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,754


Subject: 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.
DownloadIzvorni kod (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, "")  
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 15.04.2021-17:28.