Access - Kufizimi i afatit te perdorimit

[toni karlosi]

a ka naj kod per ta mbrojtur database-in e krijuar ne access .mendoj per ta kufizuar per nje kohe te limituar psh 2 muaj e pastaj edhe te kete mundesi ta vazhdoj nese vetem kur blersi paguan per ate sherbim

[Ardi_Pg_ID]

toni jep me shume info per ekte gje ... database eshte access ca versjoni programi qe perdor kete database ca gjuhe eshte shkrojtur apo bazohet ne ms access ka shume menyra per te bere ketee gje gjithcka varet se cfare ti kerkon per te bere jep me shume info

[toni karlosi]

tung ardi,

une e kam bere kete ne Access 2002 duke perdorur ca VBA .

[Alket123]

pershendetj juve

valle a nuk ka asnjeri ndonje ide de si behet kjo ???????

nje metode e thjeshte:

skedari c:\windows\system32\hidden-file.txt kontrollohet per last-created date. nqs date e sotme eshte me e madhe se data e skedarit atehere "trial" mbaron!

ka plot gjera qe mund te shtosh si psh reputacionin tim si webmaster. heh!

file.zip shtuar me poshte ka komplet database. mos harro macron autorun tek macrot.

module1
=============================================

Option Compare Database

'startup() ne VBA???????

Public Function StartUp()
ExpiryDate
'no return value but must be a function for macro to be able to call it
'call this from autoexec macro
On Error Resume Next
If Now >= DBEngine(0)(0).Properties("ExpiryDate") Then
MsgBox "This application has expired. @Please contact ?????????? @to obtain a new version."
Application.Quit
Else
If Err = 3270 Then Exit Function 'property does not exist
End If
End Function

Public Function CreateMyFile()

If fIsFileDIR("c:\windows\system32\hidden-file.txt") = -1 Then
'Do Nothing
Exit Function
Else
  On Error Resume Next

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\windows\system32\hidden-file.txt", False)
    a.Close
    
End If

End Function

'funksioni

Public Function fIsFileDIR(stPath As String, _
Optional lngType As Long) _
As Integer

On Error Resume Next
'Check to see if file exists
fIsFileDIR = Len(Dir(stPath, lngType)) > 0
End Function

Public Function ExpiryDate()
'creates or resets a property called ExpiryDate

On Error Resume Next
If fIsFileDIR("c:\windows\system32\hidden-file.txt") = -1 Then
'Do Nothing
Exit Function
Else
CreateMyFile 'create text file

End If

Dim db As Database
Dim p As Property
Dim pval As Date
Set db = DBEngine(0)(0)
'set the required expiry date (defaults to 30 days from now)

pval = CDate(Now() + 30)

With db
'check to see if already defined
Set p = .Properties("ExpiryDate")
If Err = 3270 Then 'property does not exist
Set p = .CreateProperty()
p.Name = "ExpiryDate"
p.Type = dbDate
p.Value = pval
.Properties.Append p

GoTo exit_setexpirydate
End If

End With
exit_setexpirydate:
Set p = Nothing
Set db = Nothing

End Function

module2
=================================

Option Compare Database

Sub ExpiryDate()
'creates or resets a property called ExpiryDate
'to use it type ExpiryDate in the debug window
'to remove the property type the following in the debug window
' DBEngine(0)(0).Properties.Delete "ExpiryDate"
On Error Resume Next
Dim db As Database
Dim p As Property
Dim pval As Date
Set db = DBEngine(0)(0)
'get the required expiry date (defaults to 30 days from now)
'NOTE: if an invalid date is entered it will generate 00:00:00
pval = CDate(InputBox("Enter the Expiry Date", "Set Expiry Date", Now() + 30))

With db
'check to see if already defined
Set p = .Properties("ExpiryDate")
If Err = 3270 Then 'property does not exist
Set p = .CreateProperty()
p.Name = "ExpiryDate"
p.Type = dbDate
p.Value = pval
.Properties.Append p
Debug.Print "Expiry Date is : "; p.Value
GoTo exit_setexpirydate
Else
Debug.Print "Expiry Date was : "; p.Value
p = pval
Debug.Print "Expiry Date is now : "; p.Value
End If

End With
exit_setexpirydate:
Set p = Nothing
Set db = Nothing
End Sub

[qoska]

besoj se me mire do te ishte qe aplikacioni te lejohej vetem 100 here te hapej dhe pastaj te mbyllej. Kjo do te ishte dhe me e sigurte pasi Data manipulohet kollaj ne kompjuter :P.

Mbase edhe qe ky numer te mos inkrementohet nese aplikacioni hapet dhe mbyllet midis 2-3 oreve duke lene nje thread te jashtme te mbaje timerin , pasi sic thame dates ne pc nuk mund ti zeme bese.

[Alket123]

besoj se me mire do te ishte qe aplikacioni te lejohej vetem 100 here te hapej dhe pastaj te mbyllej. Kjo do te ishte dhe me e sigurte pasi Data manipulohet kollaj ne kompjuter :P.

Mbase edhe qe ky numer te mos inkrementohet nese aplikacioni hapet dhe mbyllet midis 2-3 oreve duke lene nje thread te jashtme te mbaje timerin , pasi sic thame dates ne pc nuk mund ti zeme bese.

Aplikimi me lart shembull eshte vetem per 30 dite dhe VBA code nuk eshte as i mbrojtur as fshehur nga perdoruesi.

Po ka mijera menyra per te shmangur kopjimin. Nese je serioz ne te kete biznes keto jane registry, skedare, dongles, lmgrd licenses me indipedent clocks etj.

[edspace]

Kodi VBA i databazave të Access mund të mbrohet duke e kthyer databazën në formatin MDE. Në këtë format i gjithë kodi përpilohet dhe databaza ngjeshet. Kjo nuk lejon leximin apo modifikimin e kodit, si dhe nuk lejon ndryshimin e formularëve dhe raporteve. E vetmja gjë që mund të ndryshosh është informacioni i tabelave. Një avantazh tjetër i MDE është se databaza zë më pak vend në hard disk dhe kodi VBA ekzekutohet më shpejt.

Me pak fjalë MDE përdoret vetëm për të shpërndarë databazën pasi e ke përfunduar atë. Kjo është kopja që i jep klientit, ndërsa programuesi që do të bëjë ndryshime duhet të ruajë gjithnjë databazën origjinale në formatin MDB.

Për të kthyer databazën në formatin MDE, tek menuja kryesore zgjidh Tools > Database Utilities > Make MDE File. Edhe njëherë e përsëri që konvertimi është i njëanshëm (MDB->MDE) dhe jo anasjelltas, prandaj duhet të ruani një kopje të databazës origjinale në formatin MDB.

[toni karlosi]

HELLO,

Ju pershedes te gjitheve per ndihmen ,kurse sa i perket se ky ka afat 30 ditesh atehere mund ta ndroj une kete date .
Sa i perket asaj se nuk mund ta mbroj kodin ,une them se ka mundesi sepse kodi ne VBA mbrohet me Password dhe ky kod nuk mund te ndryshohe.
Sidoqofte ju falenderj te gjitheve e posqerisht qoske-n per ndihmen e tij.

gjithe te mirat

[Ardi_Pg_ID]

nje ide tjeter per mbrojtjenmund te jete lejimi i krijimit te 10-20 fileds ne databaze edhe jo me shume. po perseri mbeshtes mendimin e edspace pasi cado lloj mbrojtje te perdoresh codi i moduleve mund te lexohet edhe une personalisht preferoj kontrollet me ane te registry edhe kontrollit te tyre ajo cka qoska sygjeroi eshte nje opsjon qe mund te ndiqet me registry keys megjithat une mendoj se access eshte pak aout of date ... ky eshte mendimi im personal

ardi

[qoska]

Besoj se ne shqiperi nuk eshte akoma problemi i licensave dhe prandaj te gjithe i drejtohen aplikacioneve si access etj te microsoft.
Por kur keto te vihen ne pune mbase do te shohim aplikacione tamam.
Gjithsesi per momentin eshte me e shpejta dhe e thjeshta.