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