KAKO DA U OVAJ KOD UTRPAM DA MI OTVORI GLAVNU FORMU PROGRAMA, TEK KADA OVO REGISTRUJE
I DA SE OVA FORMA NAKON REGISTRACIJE VIŠE NE POJAVLJUJE VEĆ GLAVNA FORMA PRI STARTANJU APLIKACIJE.
OVA REGISTRACIJA FUNKCIONIŠE...
ILI MOŽDA IMATE GOTOV PRIMJER REGISTRACIJE APLIKACIJE U ACCESS-U SA KODOM MAŠINE DA SE GENERIŠE.
POZDRAV "BACKO"...
Option Compare Database
Option Explicit
Private Sub cmdCancel_Click()
DoCmd.Close acForm, Me.Name
End Sub
Private Sub Form_Open(Cancel As Integer)
Select Case Me.OpenArgs
Case "Calculate"
Me.Caption = "Calculate registration code"
Me.cmdCancel.Caption = "Exit"
Me.OK.Caption = "Calculate"
Case Else
If checkDAO() = False Then
MsgBox "Pogrešna Licenca molimo pokušajte ponovno" & vbCrLf & "BackoSoft Živiice Copyright 2006 (
www.BackoSoft.com)...", vbCritical
Cancel = True
End If
Me.Caption = "Registration"
Me!PCCode = Int(UGetVolumeInfo() / 3)
If CheckReg = True Then
Me!RegName = getRegName()
Me!RegCode = getRegCode()
Me!RegName.Enabled = False
Me!RegCode.Enabled = False
Me!PCCode.Enabled = False
Me!cmdCancel.Visible = False
Exit Sub
Else
End If
End Select
Me!PCCode.Locked = Not (Nz(Me.OpenArgs) = "Calculate")
Me!RegCode.Locked = (Nz(Me.OpenArgs) = "Calculate")
End Sub
Private Sub OK_Click()
On Error Resume Next
Dim namestr As String, i, addition As Long, regstr, setkey, j, s, k
addition = 0
namestr = "SGS" & Me!RegName
For i = 1 To Len(namestr)
addition = addition + Asc(mID(namestr, i, 1))
Next i
Select Case Me.OpenArgs
Case "Calculate"
k = Nz((Me!PCCode))
Case Else
k = Int(UGetVolumeInfo / 3)
End Select
s = CStr(addition)
j = Int(Len(CStr(k)) / Len(CStr(s))) + 1
For i = 1 To j
s = s & CStr(addition)
Next i
s = Left(s, Len(CStr(k)))
addition = CLng(s)
Select Case Me.OpenArgs
Case "Calculate"
If IsNull(Me!PCCode) Then Me!RegCode = Null: Exit Sub
Me!RegCode = Nz((Me!PCCode)) Xor addition
Case Else
If Me!RegCode = (Int(UGetVolumeInfo / 3) Xor addition) Then
If CheckReg = True Then DoCmd.Close acForm, Me.Name: Exit Sub
regstr = CStr(Me!RegCode)
setkey = SetAppProp("sgRegCode", dbText, regstr)
setkey = SetAppProp("sgRegName", dbText, Me!RegName)
MsgBox "Registracija programa je uspješno završena.Hvala što koristite softvere BackoSoft.", vbInformation
DoCmd.Close acForm, Me.Name
Else
If getRegName() > "" Then
setkey = SetAppProp("sgRegCode", dbText, "0")
setkey = SetAppProp("sgRegName", dbText, "Neregistrovana Verzija Programa")
End If
MsgBox "Pogrešna Licenca, molimo pokušajte ponovno" & vbCrLf & "BackoSoft Živiice Copyright 2006 (
www.BackoSoft.com).", vbCritical, "Greška pri licenciranju programa..."
End If
End Select
End Sub