Prikazi cijelu temu 04.03.2017 20:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zaštita access baze od kopiranja
Taj drugi modul prepravi odnosno daj mu ime MKljuc radi lakse komunikacije i pobrisi sve iz njega.
Neka ostane prazan za sada.
Idemo sad na formu.
Njoj daj ime RegForma isto radi lakse komunikacije.
Provjere radi navest cu i imena polje.
Znaci prov txtpolje sa imenom KoprisnickiBroj i u labeli neka pise korisnicki broj.
Ovo polje neka bude zakljucano.
Drugo polje sa imenom AutorskiKod i u labeli neka pise autorski kod.
Komandni taster neka se zove registracija i u kaption neka pise regisracija

Na on load ove forme stavi sledeci kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. Me.KorisnickiBroj = Korisnicki_Broj(BrojDiska())
  3. End Sub

Na on klik tastera registracija ide sledeci kod:

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Registracija_Click()
  2. Dim Akod
  3. Dim Kbroj As String, KKod As String
  4.  
  5. Akod = Me.AutorskiKod
  6. Kbroj = Me.KorisnickiBroj
  7. If Format$(Akod) <> "" Then
  8. KKod = Provjera(Kbroj)
  9.     If KKod = Akod Then
  10.     Dim db As Database
  11.     Dim rs As Recordset
  12.    
  13.     Set db = CurrentDb
  14.     Set rs = db.OpenRecordset("SELECT * FROM Opcije WHERE ID=1")
  15.     rs.Edit
  16.     rs.Fields(2) = Akod
  17.     rs.Update
  18.     MsgBox "Program je registrovan"
  19.     Else
  20.     MsgBox "Registracija nije uspjela"
  21.     End If
  22. End If
  23. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 04.03.2017 21:55 od strane zxz.