Predmet:Re: Zastita aplikacije
Objasnje procedure:
Function main()'Ime procedure
Dim Db As Database
Dim Rs As Recordset
Dim Kljuc As String
Dim Provjera As Boolean ' Variable koje su dimenzionisane
Set Db = CurrentDb 'Setovanje baze (Davanje do znanja sa kojom se bazom operise)
Set Rs = Db.OpenRecordset("RegisterProgram") 'Setovanje rekordseta (To su ti kolone i redovi iz tabele koja se zove RegisterProgram. Znaci mora postojati tabela ili Query RegisterProgram
Kljuc = Rs!Reg ' U memorijsku kljuc ucitava se vrijednost iz tabele RegisterProgram iz polja Reg.
Rs.Close ' Zatvaranje rekordseta(Tabele koja je bila otvorena u memoriji samo se ne vidi)
Provjera = ProvjeraKljuca(Kljuc) ' Poziv procedure Provjera sa ulaznim podatkokm Kljuc koji smo prepisali iz tabele RegisterProgram iz polja Reg.
If Provjera = True Then ? ako je provjera true odnosno ako je procedura vratila u memorijsku provjera true tada ide ovo ispod.
'Ako je uredu onda podizes startnu formu ovdje
'Ovdje mozes napisati kod da podigne tvoju formu
DoCmd.OpenForm "ImeTvojeForme"
Else ? ako je false tada radi ovo ispod tj. Podize formu koja se zove RegisterProgram i ovdje se nista ne mijenja
DoCmd.OpenForm "RegisterProgram" ovo sam mislio da se mjenja na ime moje forme
End If ? kraj uslova
End Function 'Kraj procedure.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.