- Option Compare Database
- Option Explicit
- Function HDDBroj()
- Dim fs, D
- Set fs = CreateObject("Scripting.FileSystemObject")
- Set D = fs.GetDrive(fs.GetDriveName _
- (fs.GetAbsolutePathName(Access.References.Count)))
- HDDBroj = Abs(D.SerialNumber)
- End Function
- Function Kodiranje(SerBr As String)
- Const K = "1234567890A78BCSDEFGHCS344HJKLM5657NBVLC90112TGMLKBHJFZGH3234"
- Dim I As Integer
- Dim KodS As Integer
- Dim DuzinaB As Integer
- Dim Str As String
- DuzinaB = Len(SerBr)
- For I = 1 To DuzinaB
- Str = Mid(SerBr, I, 1)
- KodS = Asc(Str) + I
- If KodS > Len(K) Then KodS = KodS - Len(K)
- Kodiranje = Kodiranje & Mid(K, KodS, 1)
- Next I
- End Function
- Function Kljuc(GenerisaniB As String)
- Dim I As Integer
- Dim Duz As Integer
- Duz = Len(GenerisaniB)
- For I = Duz To 1 Step -1
- Kljuc = Kljuc & Asc(Mid(GenerisaniB, I, 1)) - I
- Next I
- End Function
- Function ProvjeraKljuca(GenerisaniBroj As String)
- Dim SBroj As String
- Dim Kodirani As String
- Dim I As Integer
- Dim Duz As Integer
- Dim KljucProvjera As String
- SBroj = HDDBroj
- Kodirani = Kodiranje(SBroj)
- Duz = Len(Kodirani)
- For I = Duz To 1 Step -1
- KljucProvjera = KljucProvjera & Asc(Mid(Kodirani, I, 1)) - I
- Next I
- If KljucProvjera <> GenerisaniBroj Then
- MsgBox "Program nije registrovan za rad na ovom ra
- unaru!", vbCritical, "Greška"
- 'Quit
- 'DoCmd.OpenForm "frmRegistracijaKljuca"
- Else
- DoCmd.OpenForm "frmTPrijava"
- End If
- End Function
- Function ProvjeraKljuca1(GenerisaniBroj As String)
- Dim SBroj As String
- Dim Kodirani As String
- Dim I As Integer
- Dim Duz As Integer
- Dim KljucProvjera As String
- SBroj = HDDBroj
- Kodirani = Kodiranje(SBroj)
- Duz = Len(Kodirani)
- For I = Duz To 1 Step -1
- KljucProvjera = KljucProvjera & Asc(Mid(Kodirani, I, 1)) - I
- Next I
- If KljucProvjera <> GenerisaniBroj Then
- MsgBox "Program nije registrovan za rad na ovom ra
- unaru!", vbCritical, "Greška"
- DoCmd.Close
- Quit
- Else
- DoCmd.SetWarnings False
- DoCmd.RunSQL "UPDATE StanjeART SET Kolicina='" & Forms!frmRegistracijaKljuca!RegistarBroj & "' WHERE Sifra='" & "1" & "'" 'and SifSklad='" & Me.Skladiste & "'"
- DoCmd.SetWarnings True
- DoCmd.SetWarnings False
- DoCmd.RunSQL "DELETE FROM POREZI WHERE SIFPOR='" & "4" & "'"
- DoCmd.SetWarnings True
- DoCmd.Close
- DoCmd.OpenForm "frmPocetak"
- End If
- End Function