Prikazi cijelu temu 06.03.2017 20:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zaštita access baze od kopiranja
Evo u startap formu na on load staviti ovaj kod i prilagoditi sebi gdje je msg napisan
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim RegBr As String
  5. Dim Broj As String
  6. Set Db = CurrentDb()
  7. Dim MojBroj As String
  8. Set Rs = Db.OpenRecordset("SELECT vrijednost FROM Opcije WHERE ID=1")
  9. RegBr = Rs.Fields(0)
  10. Broj = Korisnicki_Broj(BrojDiska())
  11. MojBroj = Provjera(Broj)
  12.  
  13. If MojBroj = RegBr Then
  14.  MsgBox "Kod je ispravan i odavde se nastavlja app"
  15. Else
  16. MsgBox "Kod neispravan i mozda Quit"
  17. End If
  18. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.