iCentar » Racunari i oprema » Programirannje i baze podataka » Access

zxz	04.03.2017 22:56
Predmet:Re: ZaÅ¡tita access baze od kopiranja Napravio sam tu niz grtesaka opa sam kod ponovo stavio. Molio bih te da i ti prekopiras kod ponovo.

Dado	04.03.2017 22:56
Predmet:Re: ZaÅ¡tita access baze od kopiranja Isto ovo imamo i na on load forme

Dado	04.03.2017 22:59
Predmet:Re: ZaÅ¡tita access baze od kopiranja Aha,evo uradio sam ponovo.

zxz	04.03.2017 23:50
Predmet:Re: ZaÅ¡tita access baze od kopiranja Idemo napraviti foprmu F_Kljuc i u njoj takodje dva text polja i jedan komandni taster. Prvo tekstualno polje neka se zove KorisnickiBroj i u labeli neka pise Korisnicki broj. Drugo polje neka se zove AutorskiBroj i u labeli neka pise autorski broj. Komandni taster neka se zove generisi a u u caption neka pise generisi. Ispod komandnog tastera generisi stoji kod na on clik. PreuzmiIzvorni kôd (Visual Basic): Private Sub generisi_Click() Dim KorisnickiBr KorisnickiBr = Me.KorisnickiBroj If Format$(KorisnickiBr) <> "" Then Me.AutorskiBroj = Kljuc(KorisnickiBroj) End If End Sub

zxz

04.03.2017 23:50

Predmet:Re: ZaÅ¡tita access baze od kopiranja

Idemo napraviti foprmu F_Kljuc i u njoj takodje dva text polja i jedan komandni taster.
Prvo tekstualno polje neka se zove KorisnickiBroj i u labeli neka pise Korisnicki broj.
Drugo polje neka se zove AutorskiBroj i u labeli neka pise autorski broj.
Komandni taster neka se zove generisi a u u caption neka pise generisi.
Ispod komandnog tastera generisi stoji kod na on clik.

PreuzmiIzvorni kôd (Visual Basic):

Private Sub generisi_Click()
Dim KorisnickiBr
KorisnickiBr = Me.KorisnickiBroj
If Format$(KorisnickiBr) <> "" Then
Me.AutorskiBroj = Kljuc(KorisnickiBroj)
End If
End Sub

zxz	04.03.2017 23:50
Predmet:Re: ZaÅ¡tita access baze od kopiranja Idemo napraviti foprmu F_Kljuc i u njoj takodje dva text polja i jedan komandni taster. Prvo tekstualno polje neka se zove KorisnickiBroj i u labeli neka pise Korisnicki broj. Drugo polje neka se zove AutorskiBroj i u labeli neka pise autorski broj. Komandni taster neka se zove generisi a u u caption neka pise generisi. Ispod komandnog tastera generisi stoji kod na on clik. PreuzmiIzvorni kôd (Visual Basic): Private Sub generisi_Click() Dim KorisnickiBr KorisnickiBr = Me.KorisnickiBroj If Format$(KorisnickiBr) <> "" Then Me.AutorskiBroj = Kljuc(KorisnickiBroj) End If End Sub

zxz

04.03.2017 23:50

PreuzmiIzvorni kôd (Visual Basic):

Private Sub generisi_Click()
Dim KorisnickiBr
KorisnickiBr = Me.KorisnickiBroj
If Format$(KorisnickiBr) <> "" Then
Me.AutorskiBroj = Kljuc(KorisnickiBroj)
End If
End Sub

Dado	05.03.2017 08:26
Predmet:Re: ZaÅ¡tita access baze od kopiranja Evo sve urađeno kako si napisao.MoÅ¾emo u toku danaÅ¡njeg dana nastaviti,naravno ako budeÅ¡ imao vremena ili pak sutra. Pozz...

Dado

05.03.2017 08:26

Predmet:Re: ZaÅ¡tita access baze od kopiranja

Evo sve urađeno kako si napisao.MoÅ¾emo u toku danaÅ¡njeg dana nastaviti,naravno ako budeÅ¡ imao vremena ili pak sutra. Pozz...

zxz	05.03.2017 10:36
Predmet:Re: ZaÅ¡tita access baze od kopiranja Sada u modul Mkljuc kopirati ovaj kod. PreuzmiIzvorni kôd (Visual Basic): Option Compare Database Option Explicit Function Kljuc(KorisnickiBroj As String) Dim I As Integer Dim KodS As Integer Dim DuzinaB As Integer Dim Str As String DuzinaB = Len(KorisnickiBroj) For I = 1 To DuzinaB Str = Mid(KorisnickiBroj, I, 1) KodS = Asc(Str) + I If KodS > Len(K) Then KodS = KodS - Len(K) Kljuc = Kljuc & Mid(K, KodS, 1) Next I End Function Eto ostaje nam jos da napravimo tabelu u koju cemo upisati nas azutorki kod. Naravno moze se to napraviti da se zapisuje i u registrije ali nevolim petljati po regitrijima pa cemo za tu svrhu napraviti tabelu. Neka se tabela zove opcije. U njoj pored ovoga broja mogu biti i druge opcije koje se ticu app. Tabela neka ima tri polja: Id autonumver Opcije text(5) Vrijednost text(50) Dodamu u nju jedan zapis i to samo u polje opcija upisemo kljuc. Eto ostalo nam je samo da isprobamo sve ovo i da napravimo start formu u kojoj provjeravamo dali je program registrovan.

zxz

05.03.2017 10:36

Predmet:Re: ZaÅ¡tita access baze od kopiranja

Sada u modul Mkljuc kopirati ovaj kod.

PreuzmiIzvorni kôd (Visual Basic):

Option Compare Database
Option Explicit
Function Kljuc(KorisnickiBroj As String)
Dim I As Integer
Dim KodS As Integer
Dim DuzinaB As Integer
Dim Str As String
DuzinaB = Len(KorisnickiBroj)
For I = 1 To DuzinaB
Str = Mid(KorisnickiBroj, I, 1)
KodS = Asc(Str) + I
If KodS > Len(K) Then KodS = KodS - Len(K)
Kljuc = Kljuc & Mid(K, KodS, 1)
Next I
End Function

Eto ostaje nam jos da napravimo tabelu u koju cemo upisati nas azutorki kod.
Naravno moze se to napraviti da se zapisuje i u registrije ali nevolim petljati po regitrijima pa cemo za tu svrhu napraviti tabelu.
Neka se tabela zove opcije.
U njoj pored ovoga broja mogu biti i druge opcije koje se ticu app.
Tabela neka ima tri polja:
Id autonumver
Opcije text(5)
Vrijednost text(50)
Dodamu u nju jedan zapis i to samo u polje opcija upisemo kljuc.

Eto ostalo nam je samo da isprobamo sve ovo i da napravimo start formu u kojoj provjeravamo dali je program registrovan.

zxz	05.03.2017 21:03
Predmet:Re: ZaÅ¡tita access baze od kopiranja Hehe ako si sve napravio sad bi mogao razdvojiti na dvije mdb. Prva bi bila tvoja korisnicka i u njoj bi bila forma F_Kljuc i modul M_Kljuc. Ostalo bi ostalo u ovoj. Znaci ova prva bi bila samo za generisanje kljuca a u drugoj bi trebalo praviti app. Sada kako funkcionise. Podignes regFormu i u njoj vidis korisnicki broj. Taj broj korisnik treba poslati vlasniku programa odnsono tebi. Sada ti podignes formu F kljuc te u polje korisnicki broj ukucas broj koji si dobio od korisnika. te kliknes na taster generisi i dopbijes u drugom polju autorski broj. Taj broj posaljes korisniku programa i on ga ukuca u reg foprmi u polje autorski broj te klikne na taster registracija. Ako je broj ispravan izvrsit ce se provjera i zapiasti broj u tabelu. Sa ovim je zavrseno sa registracijom. Jos u app. treba napraviti starup formu koja ce provjeravati jeli ovaj brroj u tabeli ispravan ia ako nije onda napraviti neki postupak ili izlaz iz programa a ako jeste samo da nastavi sa radom.

zxz

05.03.2017 21:03

Predmet:Re: ZaÅ¡tita access baze od kopiranja

Hehe ako si sve napravio sad bi mogao razdvojiti na dvije mdb.
Prva bi bila tvoja korisnicka i u njoj bi bila forma F_Kljuc i modul M_Kljuc.
Ostalo bi ostalo u ovoj.
Znaci ova prva bi bila samo za generisanje kljuca a u drugoj bi trebalo praviti app.
Sada kako funkcionise.
Podignes regFormu i u njoj vidis korisnicki broj.
Taj broj korisnik treba poslati vlasniku programa odnsono tebi.
Sada ti podignes formu F kljuc te u polje korisnicki broj ukucas broj koji si dobio od korisnika.
te kliknes na taster generisi i dopbijes u drugom polju autorski broj.
Taj broj posaljes korisniku programa i on ga ukuca u reg foprmi u polje autorski broj te klikne na taster registracija.
Ako je broj ispravan izvrsit ce se provjera i zapiasti broj u tabelu.
Sa ovim je zavrseno sa registracijom.
Jos u app. treba napraviti starup formu koja ce provjeravati jeli ovaj brroj u tabeli ispravan ia ako nije onda napraviti neki postupak ili izlaz iz programa a ako jeste samo da nastavi sa radom.

Dado	05.03.2017 13:30
Predmet:Re: ZaÅ¡tita access baze od kopiranja Evo uradio sam kako si napisao, Å¡ta dalje. Kako da isprobam i kakvu start formu da pravim.

Dado

05.03.2017 13:30

Predmet:Re: ZaÅ¡tita access baze od kopiranja

Evo uradio sam kako si napisao, Å¡ta dalje. Kako da isprobam i kakvu start formu da pravim.

Dado	05.03.2017 21:24
Predmet:Re: ZaÅ¡tita access baze od kopiranja Samo mi reci u ovoj prvoj bazi pored forme F_Kljuc i modula M_Kljuc trebaju li ostati i ostale forme i moduli ili njih brisem Ja kad pokrenem formu javlja mi greÅ¡ku,ne dobivam nikakav korisnički broj,evo u prilogu Å¡ta mi se pojavljuje http://prntscr.com/ege1ul I joÅ¡ jedno pitanje, dali se ostali moduli, forme i ona tebela "opcije" mogu importovati u već urađenu app.

Dado

05.03.2017 21:24

Predmet:Re: ZaÅ¡tita access baze od kopiranja

Samo mi reci u ovoj prvoj bazi pored forme F_Kljuc i modula M_Kljuc trebaju li ostati i ostale forme i moduli ili
njih brisem

Ja kad pokrenem formu javlja mi greÅ¡ku,ne dobivam nikakav korisnički broj,evo u prilogu Å¡ta mi se pojavljuje
http://prntscr.com/ege1ul

I joÅ¡ jedno pitanje, dali se ostali moduli, forme i ona tebela "opcije" mogu importovati u već urađenu app.