Demo SÜre Bİtİmİnde Lİsans Sormasi...

[ASOİP]

Yapilan Access Programinin, Belİrtİlen SÜre(gÜn) Sonrasinda Lİsans İstemesİ, Gİrİlecek DoĞru Lİsans İle De Kullanima Devam Etmesİ MÜmkÜn MÜ? Bunu Nasil GerÇekleŞtİrİrİz.? GÖnÜl Veren ArkadaŞlara TeŞekkÜrler...

 

[modalı]

Sayın ASOIP,

Mümkün mü diye sormayın tabi ki mümkün. Ama kendi uygulamanıza ve hayalinize kalmış.

Bu konuyla ilgili uygulama da var forumda sanırım.


İyi çalışmalar

 

[karam]

Sayın ASOIP,

Mümkün mü diye sormayın tabi ki mümkün. Ama kendi uygulamanıza ve hayalinize kalmış.

Bu konuyla ilgili uygulama da var forumda sanırım.


İyi çalışmalar

Sayın Modalı bu konuda uygulamalar var ancak access 2000 de mükemmel sonuç veriyor ama 2003 te pass geçiyor sadece kaç kere giriş yptığını veriyor 20003 ile 2000 dileri farklımı ki? böyle bir hata veriyor. bir kontrol edebilirmisiniz.

Programinizin açilis formuna asagidaki kodlari yapistirin. Program 90 günlük siz istedigin rakami yazabilirsiniz. Ister 1 gün ister 10 gün.
NOT : Üretim Planlama yerine kendi programinizin ismini yazin.

Private Sub Form_Load()
On Local Error Resume Next
Dim d, x, y
d = GetSetting("ana giriş", "Ayarlar", "Ilk Giris", "")
If d = "" Then
SaveSetting "ana giriş", "Ayarlar", "Ilk Giris", Date
Else
If (Date - CDate(d)) > 60 Then
MsgBox ("Programin Demo Süresi dolmustur.Uzatmak Için Not mesaj atabilirsiniz veya 0 ----------------ile irtibata geçebilirsiniz ")
DoCmd.Close
Else
x = GetSetting("ana giriş", "Ayarlar", "Son Çikis Tarihi", "")
If CVDate(x) > Date Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
Else
y = GetSetting("ana giriş", "Ayarlar", "Son Çikis Saati", "")
If (CVDate(x) = Date) And (CVDate > Time) Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
End If
End If
x = GetSetting("ana giriş", "Ayarlar", "Sayi", "1")
MsgBox ("Programi" & x & ". defa çalistiriyorsunuz.")
SaveSetting " ana giriş", "Ayarlar", "Sayi", x + 1
End If
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "ana giriş", "Ayarlar", "Son Çikis Tarihi", Date
SaveSetting " ana giriş", "Ayarlar", "Son Çikis Saati", Time

End Sub


Alıntıdır. AHMET 114