Si të mbroj databazën në Access 2007 nga kopjimi?

[nince_tutes]

Pershendetje cuna.

E kam krijuar nje program ne access 2007, e kam konvertu n format .accde ne menyre qe t mos shifen forms, reported dhe ne design view, dhe kam filluar ta shperndaj tek klientet e mi.

Problemi im eshte se si me e ruajt kete databaze ne akses nga perdorimi i paautorizur, e kam fjalen qe te mos ta kopjojne dhe ta perdorin ne kompjutera te tjere.

A ka ndonje zgjidhje per kete. Po sikur ta konvertoj te gjithe aplikacionin ne Visual Basic 2008 ose 2005, di dikush. DUa qe ti bej dhe import formave dhe raporteve qe kam krijuar ne access dhe te mos ti rikrijoj nga e para ne visual basic.

Per me teper q kete gjuhe programimi nuk e njoh mire.

flm, ne pritje....

[hot_prinz]

pershendetje,

nje menyre do te ishte implementimi i nje funksioni, qe programi yt kur starton per here te pare ne nje kompjuter te ri, te mos startoje komplet por vetem si demonstrim dmth, i bllokon funksionet e programit perderisa programi nuk eshte regjistruar, nese perdoruesit i pelqen domnstrimi i programit tend dhe vendos te regjistroje/pervetsoje programin tend atehere programi yt mund te marre numrin serial te ndonje hardware te atij kompjuteri te ri, psh: numrin serial te hardiskut dhe ne baze te tij te gjeneroje nje numer regjistrimi te cilin perdoruesi ta dergon ty (bashke me mjetet financiare) dhe ti i dergon nje numer serial i cili i perputhet atij numri per te c'bllokuar funksionalitetin e plote te atij programit tend.

[nince_tutes]

shum mire hot_prinz. po a m ndihmon dot q kur ta jap n nje pc, un dorezimin e bej vete, si t'ja marr numrin serial te harddiskut psh, dhe ne rast se ai do t provoje ta perdori ne nje vend tjeter te bllokohet nepermjet kodit te harddiskut.

Une jam vete q ja bej demostrimin e programit ne akses dhe dua q ta mbroj me nr serial t harddiskut ose me cdo menyre tjeter.

pres perseri

[hot_prinz]

ja nje udhezim ne VB6 se si me e marre kodin e hardiskut, mos merr shembullin e pare me GetVolumeInformation API function ky numer serial i hardiskut ndrron pas cdo formatimi te kompjuterit, por perdor shembullin e dyte te gjate i cili e merr numrin serial te hardiskut nga prodhuesi i vertete i hardiskut dhe vetem ai do te jete unik:

Shembull per te marre nurmin unik te hardiskut

te pershendes

[nince_tutes]

flm gjithsesi, por puna eshte se une dua nje rast konkret t implementuar ne access, dhe sidomos n formen qe do te ekzekutohet e para kur hapet aksesi.

Kjo do t ishte me shume rendesi, pasi do mund te identifikohej q n fillim nese po perdoret ne pc tjeter ose jo.

Madje, do ishte mire qe me ane t ndonje kodi, ne rast se tentohet te perdoret m shume se 3 here databaza ne kompjuter tjeter ti fshinte dokumentat.

flm, ne pritje perseri

[mendimi]

Mua me jane vjedhe shpesh programet ne access, me gjith mbrojtjet qe kam bere. Mendoj qe eshte e pamundur te mbrohet, por nese gjeni ndonje menyre do te me pelqente edhe mua.

[hot_prinz]

Ja implementimi i nje shembulli te thjesht si mund te kontrollohet numri i hardiskut te nje kompjuteri dhe vlersimi se a mund te perdorim apo jo kete program ne kete hardisk, nese numri nuk perputhet accessi do te perfundoje (Kujdes ketu se mund te bllokosh edhe programin tend). Para se te perdorni kete cope kodi ruani programet tuaja ne nje vend tjeter!

Option Compare Database

    Private Sub Form_Load()
        Dim serHardisk As Long
        serHardisk = GetDriveSerialNumber
        If serHardisk = 815 Then
            MsgBox "Numri serial hardiskut " & Left(AppPath, 1) & ":\ eshte " & GetDriveSerialNumber & _
            vbCrLf & "Ju keni te drejte te perdorni kete Program!", vbOKOnly + vbInformation
            
        Else
            MsgBox "Numri serial hardiskut " & Left(AppPath, 1) & ":\ eshte " & GetDriveSerialNumber & _
            vbCrLf & "Ju nuk keni te drejte te perdorni kete Program!" & vbCrLf & "PAPA!", vbOKOnly + vbInformation

            Dim a
            a = InputBox("Jepni numrin e sakte serial!")
            If serHardisk = a Then
                MsgBox "Numri serial hardiskut " & Left(AppPath, 1) & ":\ eshte " & GetDriveSerialNumber & _
                vbCrLf & "Ju keni te drejte te perdorni kete Program!", vbOKOnly + vbInformation
            Else
                MsgBox "Numri serial hardiskut " & Left(AppPath, 1) & ":\ eshte " & GetDriveSerialNumber & _
                vbCrLf & "Ju nuk keni te drejte te perdorni kete Program!" & vbCrLf & "PAPA!", vbOKOnly + vbInformation
                'DoCmd.Quit 'Mbyll Accessin dhe Databazen! PERDORE ME KUJDES SEPSE MUND TA BLLOKOSH PROGRAMIN TEND
            End If
        End If
        
    End Sub
      
    Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long
        Dim fso As Object, Drv As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        If DriveLetter <> "" Then
            Set Drv = fso.GetDrive(DriveLetter)
        Else
            Set Drv = fso.GetDrive(fso.GetDriveName(AppPath))
        End If
        With Drv
            If .IsReady Then
                DriveSerial = Abs(.SerialNumber)
            Else
                DriveSerial = -1
            End If
        End With
        Set Drv = Nothing
        Set fso = Nothing
        GetDriveSerialNumber = DriveSerial
    End Function

    Public Function AppPath() As String
        Dim sPath As String
        sPath = CurrentDb.Name
        While Right$(sPath, 1) <> "\"
            sPath = Left$(sPath, Len(sPath) - 1)
        Wend
        AppPath = sPath
    End Function

per te kontrolluar se sa here eshte hapur ky program nga perdoruesi mund te perdoret nje tekstfile e fshehur diku ne system qe numron startimet e programit dhe nese startimet e paregjistruara arrijne numrin 3 atehre mund te aktivizohet nje funksion qe fshin databazen prej sistemi.

[klodj]

Une perdor nje menyre jo dhe aq te sigurte por ka pasur efekt.
Perdor nje procedure qe kerkon nje file te cilin e kam hedhur ne nje folder te sistemit te i cili perdoruesi nuk ka pse te hyje.
Ne momentin qe hapet programi kerkon kete file dhe nqs nuk e gjen do te thote qe programi eshte kopjuar ne nje kompjuter tjeter. Dhe une nuk hezitoj te theras nje Macro e cila i shuan te gjitha Tabelat e brendshme dhe Pyetesat pa te cilat programi nuk ka sesi te funksionoje.
Ai qe e kopjon programin nuk e di kete dhe sapo e hap ne kompjuter tjeter i del nje mesazh qe i thote se nuk ka te drejte ta perdori kete program dhe me pas cdo gje i shuhet si me siper.
E keqja e kesaj eshte se duhet qe ta instaloj vete programin dhe te hedh fajllin ne menyre te fshehte ne nje vend te fshehte. Deri tani kane kaluar dy vjet dhe nuk kam pasur probleme. Ama po iu be format do bej te njejten procedure.

Gjithsesi kam shfrytezuar edhe serialin e hard diskut por nuk e di pse kam nje frike se mos nuk funksionoje. Ndaj nga halli kam shpikur kete procedure te cilen po jua postoj me poshte. Shpresoj te kuptoni dicka edhe pse une perdor variabla pa shume shpjegime dhe me duhet te them se programit i kam vendosur edhe kod qe askush te mos shohe VB scriptet.


Private Sub Form_Open(Cancel As Integer)
On Error GoTo virus_err
Dim hej
Dim virus As Integer

Me.Text3 = Me.F1
If [Forms]![kloklo]![Text3] <> 1234567 Or [Forms]![kloklo]![F1] <> 1234567 Then
DoCmd.RunMacro "KillBill"
hej = MsgBox("Te gjitha te drejtat e kopjimit i perkasin vetem autorit! Ju nuk jeni i autorizuar per te perdorur kete program!", vbInformation, "Exchange 2007! - Gjirokastra Online")
virus = 1
End If
DoCmd.RunMacro "Min"
exit_form_open:
Exit Sub
virus_err:
If Err.Number = 7874 Then
hej = MsgBox("Me vjen keq! Ju nuk jeni i autorizuar per te perdorur kete program!", vbInformation, "Exchange 2007! - emriim@faqjaime.com")
DoCmd.Close
End If
' MsgBox Err.Description
Resume exit_form_open

End Sub

[OO7]

Nuk ka menyre per te mbrojtur programin sepse c'do gje thyhet/manipulohet.

[nince_tutes]

Bravo klojd, me pelqeu menyra jote se si e ke trajtuar menyren e fshirjes se databazes, (duke futur nje folder tjeter)

Megjithate, do ta provoj dhe ne rast se funxionon do ta di shume per nder.
Gjithsesi per momentin me pelqeu menyra e te arsyetuarit.

Tema vazhdon t qendroj e hapur dhe cdo ide tjeter do t ishte e mirepritur.