Centar za edukaciju-BiH

Predmet:Re: Zastita aplikacije

---

Hvala Vam.

To mi je bilo potrebno.
Moze li se ovaj reg fajl dodati u instalaciju da se automatski pokrene? I moze li se u instalaciju dodati da mi kreira na c folder temp i ili neki drugi, jer mi je potreban za rad programa.

Unaprijed hvala.

Pozdrav

---

Predmet:Re: Zastita aplikacije

---

Pa to mozes napraviti pri prvom pokkretanju programa.
Ima niz nacina prvi je da provjerava dali postoji fajl. pa ako ne postoji da ga napravi.
Drugi nacin je da u nekoj tabeli u nekom polju napr. imas upisano 0 pa ako je nula da ovo odradi ako nije da ne radi a pri odradjivanju u ovo polje upises neki drugi broj.
Ako ne uspijes pomoci cemo detaljno.

---

Predmet:Re: Zastita aplikacije

---

jas ne koristam nekakvi posebni naici za istalacija na programite i sve sto e potrebno za niv.
Vo eden folder gi cuvam site raboti potrebni za rabota na programot i od tamu gi rasporeduvam na potrebnite mesta so eden .BAT fajl (Stariot dobar dos)

Predmet:Re: Zastita aplikacije

---

Da moze i tako. Ja se toga nisam ni sjetio.

---

Predmet:Re: Zastita aplikacije

---

tuka sme za da gi spodelime iskustvata so kolegite.
pozdrav

Predmet:Re: Zastita aplikacije

---

Pokusao sam da uradim zastitu sve je ok osim sto mi ne otvara poslije registracije zeljenu formu to jest poslije provjere da li je reg kljuc ispravan, radio sam po ovom primjeru od zxz kljuc a primjetio sam takodje i u ovom primjeru od zxz da poslije registracije ne dize formu? Kako prepraviti kod?

---

Predmet:Re: Zastita aplikacije

---

Uspio rijeseno ipak je po obicaju greska do mene

---

Predmet:Re: Zastita aplikacije

---

Ipak nisam uspio promjenio sam kod bio ali pogresno
Function main()
Dim Db As Database
Dim Rs As Recordset
Dim Kljuc As String
Dim Provjera As Boolean

Set Db = CurrentDb

Set Rs = Db.OpenRecordset("RegisterProgram")
Kljuc = Rs!Reg
Rs.Close
Provjera = ProvjeraKljuca(Kljuc)
If Provjera = True Then
'Ako je uredu onda podizes startnu formu ovdje
Else
DoCmd.OpenForm "RegisterProgram" ovo sam mislio da se mjenja na ime moje forme
End If
End Function

tad mi otvaralo moju formu ali nije registraciju

---

Predmet:Re: Zastita aplikacije

---

Function main()
Dim Db As Database
Dim Rs As Recordset
Dim Kljuc As String
Dim Provjera As Boolean

Set Db = CurrentDb

Set Rs = Db.OpenRecordset("RegisterProgram")
Kljuc = Rs!Reg
Rs.Close
Provjera = ProvjeraKljuca(Kljuc)
If Provjera = True Then
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form1" 'naziv moje forme
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
DoCmd.OpenForm "RegisterProgram"
End If
End Function

Sa ovim dobijam dobar rezultat ako sam gdje pogrijsio ne zamjerite nov samm

---

Predmet:Re: Zastita aplikacije

---

Kompletan kod i opis zastite programa imas ovdje:
http://www.icentar.ba/showtopic.php?id=501

---