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

#31

04.03.2017 22:59

Dado

Clan

Registrovan od:27.10.2011
Postovi:276

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

Aha,evo uradio sam ponovo.

Pozdrav!

#32

04.03.2017 23:50

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,692

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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#33

04.03.2017 23:50

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,692

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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#34

05.03.2017 08:26

Dado

Clan

Registrovan od:27.10.2011
Postovi:276

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...

Pozdrav!

#35

05.03.2017 10:36

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,692

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.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#36

05.03.2017 13:30

Dado

Clan

Registrovan od:27.10.2011
Postovi:276

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.

Pozdrav!

#37

05.03.2017 21:03

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,692

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.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#38

05.03.2017 21:24

Dado

Clan

Registrovan od:27.10.2011
Postovi:276

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.

Pozdrav!

Ovaj post je ureden 2 puta. Posljednja izmjena 05.03.2017 21:38 od strane Dado.

#39

05.03.2017 23:35

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,692

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

Citat:

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

Naravno moze se importovati ali ako radis novu app. onda ****lje da ti ova bude templata za pocetak.
Naravno u njoj moze biti jos stosta kao napr backup startup forma , meni itd..

Ovo gdje ti javlja gresku jel to kada podignes RegForma?

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#40

06.03.2017 07:48

Dado

Clan

Registrovan od:27.10.2011
Postovi:276

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

Da kad pokrenem RegForma pojavi se poruka o greÅ¡ki,kliknem na "OK" onda se otvori forma "RegForma" prazna. Pretpostavljam da prilikom pokretanja forme "RegForma" treba u polju Korisnicki broj da se vidi taj broj koji cu ubaciti kod generisanja Autorskog broja

Pozdrav!

Stranice (11):1,2,3,4,5,6 ... 10,11

Centar za edukaciju-BiH

Glavni meni

Forumi

Linkovi

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

Srodne teme

Ko je online?

Prijavi se

Izdvojeno