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

Dado	07.03.2017 21:02
Predmet:Re: ZaÅ¡tita access baze od kopiranja Da ima kod koji si ti ostavio ovdje na on load formi "Form1" .Medjutim ja bih htio da mi start up forma bude "RegForma" i poslije nje da se podiÅ¾e forma "Form1" ukoliko je registracija OK a ukoliko nije da se ide na izlaz ili već neÅ¡to drugo

Dado

07.03.2017 21:02

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

Da ima kod koji si ti ostavio ovdje na on load formi "Form1" .Medjutim ja bih htio da mi start up forma bude "RegForma" i poslije nje da se podiÅ¾e forma "Form1" ukoliko je registracija OK a ukoliko nije da se ide na izlaz ili već neÅ¡to drugo

Gjoreski	07.03.2017 21:28
Predmet:Re: ZaÅ¡tita access baze od kopiranja pa ne mozes ti svaki put kad pokrenes aplikacija da je registrujes. To se radi samo jedan put.

Gjoreski

07.03.2017 21:28

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

pa ne mozes ti svaki put kad pokrenes aplikacija da je registrujes.
To se radi samo jedan put.

Dado	07.03.2017 21:39
Predmet:Re: ZaÅ¡tita access baze od kopiranja Razumijem, onda prvo pokretanje ide registracija, otvaranje app. sa shift tipkom, pokrenem formu za registraciji, kad izvrÅ¡im registraciju, zaključavam da se ne moÅ¾e otvarati sa shift tipkom. Drugo pokretanje ide sa startup formom na kojoju on load ima kod koji provjerava jeli autorski broj-kod dobar,pa dalje nastavlja sa radom ili izlazi iz app. Izvinite Å¡to sam ovako "spor" ali hoću da shvatim kako to funkcionira.

Dado

07.03.2017 21:39

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

Razumijem, onda prvo pokretanje ide registracija, otvaranje app. sa shift tipkom, pokrenem formu za registraciji, kad izvrÅ¡im registraciju, zaključavam da se ne moÅ¾e otvarati sa shift tipkom. Drugo pokretanje ide sa startup formom na kojoju on load ima kod koji provjerava jeli autorski broj-kod dobar,pa dalje nastavlja sa radom ili izlazi iz app. Izvinite Å¡to sam ovako "spor" ali hoću da shvatim kako to funkcionira.

Dado	07.03.2017 23:33
Predmet:Re: ZaÅ¡tita access baze od kopiranja Lupam vjerovatno . Ali zar se ne moÅ¾e napraviti na start up formi kod koji će prilikom pokretanje te forme prvo provjeriti jeli app.registrovana,ukoliko nije registrovana da otvori formu za registraciju. IzvrÅ¡imo usjeÅ¡no registraciju i onda se otvara forma za početak rada app. Prilikom drugog i inog pokretanja ponovo se ta forma pokreće,provjerava jeli app.registrovana i kada utvrdi da jeste registrovana, onda otvara formu za početak rada u app.

Dado

07.03.2017 23:33

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

Lupam vjerovatno Undecided

. Ali zar se ne moÅ¾e napraviti na start up formi kod koji će prilikom pokretanje te forme prvo provjeriti jeli app.registrovana,ukoliko nije registrovana da otvori formu za registraciju. IzvrÅ¡imo usjeÅ¡no registraciju i onda se otvara forma za početak rada app. Prilikom drugog i inog pokretanja ponovo se ta forma pokreće,provjerava jeli app.registrovana i kada utvrdi da jeste registrovana, onda otvara formu za početak rada u app.

zxz	07.03.2017 23:50
Predmet:Re: ZaÅ¡tita access baze od kopiranja Pa ja sam napravio if sa dvije opcije i to kada je registrovana app. i kada nije e sad sta ces gdje staviti je tvoja stvar. Napr. ako je registrovana ide kod. Docmd.openform ime forme a ako nije opet docmd.openform regForma i eto dobio si to a na reg formi opet vracas na start formu i to je to.

zxz

07.03.2017 23:50

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

Pa ja sam napravio if sa dvije opcije i to kada je registrovana app. i kada nije e sad sta ces gdje staviti je tvoja stvar.
Napr. ako je registrovana ide kod.
Docmd.openform ime forme
a ako nije opet docmd.openform regForma i eto dobio si to a na reg formi opet vracas na start formu i to je to.

Dado	08.03.2017 11:49
Predmet:Re: ZaÅ¡tita access baze od kopiranja Jeli to ovaj kod koji sam stavio na on load star up forme koja je kod mene nosi naziv "Form1" PreuzmiIzvorni kôd (Visual Basic): Private Sub Form_Load() Dim Db As Database Dim Rs As Recordset Dim RegBr As String Dim Broj As String Set Db = CurrentDb() Dim MojBroj As String Set Rs = Db.OpenRecordset("SELECT vrijednost FROM Opcije WHERE ID=1") RegBr = Rs.Fields(0) Broj = Korisnicki_Broj(BrojDiska()) MojBroj = Provjera(Broj) If MojBroj = RegBr Then MsgBox "Kod je ispravan i odavde se nastavlja app" Else MsgBox "Kod neispravan i mozda Quit" End If End Sub

Dado

08.03.2017 11:49

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

Jeli to ovaj kod koji sam stavio na on load star up forme koja je kod mene nosi naziv "Form1"

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Form_Load()
Dim Db As Database
Dim Rs As Recordset
Dim RegBr As String
Dim Broj As String
Set Db = CurrentDb()
Dim MojBroj As String
Set Rs = Db.OpenRecordset("SELECT vrijednost FROM Opcije WHERE ID=1")
RegBr = Rs.Fields(0)
Broj = Korisnicki_Broj(BrojDiska())
MojBroj = Provjera(Broj)
If MojBroj = RegBr Then
MsgBox "Kod je ispravan i odavde se nastavlja app"
Else
MsgBox "Kod neispravan i mozda Quit"
End If
End Sub

Dado	08.03.2017 12:00
Predmet:Re: ZaÅ¡tita access baze od kopiranja Kod mene to neće da radi, izbacuje sljedeći prozor-poruku kad je neregistrovano. Kad kliknem na "Debug" onda se otvori kao na slici2 Kada registrujem onda mi otvara normalno uz poruku navedenu u kodu
Prilozi: slika1.JPG (Velicina datoteke:65.19 KB) slika2.JPG (Velicina datoteke:94.87 KB)

Dado

08.03.2017 12:00

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

Kod mene to neće da radi, izbacuje sljedeći prozor-poruku kad je neregistrovano. Kad kliknem na "Debug" onda se otvori kao na slici2
Kada registrujem onda mi otvara normalno uz poruku navedenu u kodu

Prilozi:
slika1.JPG (Velicina datoteke:65.19 KB)
slika2.JPG (Velicina datoteke:94.87 KB)

zxz	08.03.2017 12:11
Predmet:Re: ZaÅ¡tita access baze od kopiranja desava ti se zato sto pobrises broj. samo prepravi da nije tacan. Moze se ispraviti da ne daje gresku ni kada nema nista u polju ali eto ja sam mislio da ****lje tako jer kad neko nesto cacka neka ga prepadne.

zxz

08.03.2017 12:11

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

desava ti se zato sto pobrises broj.
samo prepravi da nije tacan.

Moze se ispraviti da ne daje gresku ni kada nema nista u polju ali eto ja sam mislio da ****lje tako jer kad neko nesto cacka neka ga prepadne.

Dado	08.03.2017 12:24
Predmet:Re: ZaÅ¡tita access baze od kopiranja Uspio si, evo mene si prepao . Å ala. Evo sad mi ne javlja greÅ¡ku kada prepravim broj. Međutim kada se pojavi poruka upozorenja, kada kliknem na OK opet mi otvori početnu formu "Form1! Zar ne bi trebalo otvoriti formu za registraciju "RefForma"

Dado

08.03.2017 12:24

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

Uspio si, evo mene si prepao Grinning

. Å ala. Evo sad mi ne javlja greÅ¡ku kada prepravim broj. Međutim kada se pojavi poruka upozorenja, kada kliknem na OK opet mi otvori početnu formu "Form1! Zar ne bi trebalo otvoriti formu za registraciju "RefForma"

Dado	08.03.2017 13:30
Predmet:Re: ZaÅ¡tita access baze od kopiranja Dodao sam iza MsgBox "Kod neispravan aplikacija će se zatvoriti" DoCmd.Quit . Sad izlazi iz app. kad je kod neispravan. PreuzmiIzvorni kôd (Visual Basic): Private Sub Form_Load() Dim Db As Database Dim Rs As Recordset Dim RegBr As String Dim Broj As String Set Db = CurrentDb() Dim MojBroj As String Set Rs = Db.OpenRecordset("SELECT vrijednost FROM Opcije WHERE ID=1") RegBr = Rs.Fields(0) Broj = Korisnicki_Broj(BrojDiska()) MojBroj = Provjera(Broj) If MojBroj = RegBr Then MsgBox "Kod je ispravan i odavde se nastavlja app" Else MsgBox "Kod neispravan aplikacija e se zatvoriti" DoCmd.Quit End If End Sub

Dado

08.03.2017 13:30

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

Dodao sam iza MsgBox "Kod neispravan aplikacija će se zatvoriti"
DoCmd.Quit . Sad izlazi iz app. kad je kod neispravan.

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Form_Load()
Dim Db As Database
Dim Rs As Recordset
Dim RegBr As String
Dim Broj As String
Set Db = CurrentDb()
Dim MojBroj As String
Set Rs = Db.OpenRecordset("SELECT vrijednost FROM Opcije WHERE ID=1")
RegBr = Rs.Fields(0)
Broj = Korisnicki_Broj(BrojDiska())
MojBroj = Provjera(Broj)
If MojBroj = RegBr Then
MsgBox "Kod je ispravan i odavde se nastavlja app"
Else
MsgBox "Kod neispravan aplikacija e se zatvoriti"
DoCmd.Quit
End If
End Sub