freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

Ημερομηνία λήξης ενός προγράμματος Access


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [4 Μηνύματα]      Bookmarks Tags: accessημερομηνία Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
pontikalos


Μέλος από: 14 Σεπ 2008
Μηνύματα: 16
Περιοχή: Ρόδος
View users profile
ΜήνυμαΣτις: 14 Οκτ 2008 17:53    Θέμα: Ημερομηνία λήξης ενός προγράμματος Access
Περιγραφή θέματος: μπορώ να το κάνω να "αυτοκαταστραφεί";
Απάντηση με παράθεση  Mark this post and the followings unread

Καλησπέρα σε όλους!
Θα ήθελα να μου πει κάποιος αν μπορώ να φτιάξω μια βάση η οποία ομως θα λειτουργήσει για συγκεκριμένο χρονικό διάστημα πχ ένα χρόνο. Με την παροδο ενός χρόνου δε θα μπορεί ο χρήστης να το χρησιμοποιεί άλλο. Πως γίνεται;
Επίσης θά'θελα να ξέρω αν γίνεται μια βάση access να είναι .exe ή κάτι τέτοιο τέλος πάντων
Thanx
dva_dev
Script Master

Μέλος από: 16 Σεπ 2005
Μηνύματα: 256+

View users profile Visit posters website
blog deviantART facebook linkedin 
ΜήνυμαΣτις: 14 Οκτ 2008 20:30    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Ξεκίνα από αυτά και όπου έχεις πρόβλημα μας λες πάλι
http://www.freestuff.gr/forums/viewtopic.php?t=32289
http://www.freestuff.gr/forums/viewtopic.php?t=38662
http://www.freestuff.gr/forums/viewtopic.php?t=17384
kon73
Script Master

Μέλος από: 13 Απρ 2008
Βοηθήματα: 3
Μηνύματα: 224


View users profile Visit posters website
ΜήνυμαΣτις: 15 Οκτ 2008 09:25    Θέμα: Re: Ημερομηνία λήξης ενός προγράμματος Access
Περιγραφή θέματος: μπορώ να το κάνω να "αυτοκαταστραφεί";
Απάντηση με παράθεση  Mark this post and the followings unread

Φίλε μου pontikalos καλημέρα,

Απαντώ στα ερωτήματά σου :
1.
α) Αρχικά για να κάνουμε μία βάση να λειτουργήσει πχ ένα χρόνο θα πρέπει να σχεδιάσουμε την τεχνική του. Ορίστε το λοιπόν μία τεχνική.
Όταν τρέξει για πρώτη φορά η βάση εγκαθίσταται σε ένα πεδίο ενός πίνακα (Πχ. Πίνακας TblParameters και πεδίο FirstExecutionDate) η ημερομηνία της πρώτης εκτέλεσης
Όταν περάσει το έτος (Κάθε φορά που ανοίγει η εφαρμογή ελέγχει την διαφορά της ημερομηνίας πρώτης εκτέλεσης με την τρέχουσα ημερομηνία) τότε σε ένα άλλο πεδίο του παραπάνω πίνακα (Πχ. Στον πίνακα TblParameters στο πεδίο RunDatabase) το πεδίο RunDatabase γίνεται False όταν η διαφορά είναι μεγαλύτερη του έτους. Όμως με το που γίνει το RunDatabase=False θα παύει να γίνεται ο έλεγχος διαφοράς ημερομηνίας ώστε να μην ο χρήστης αλλάξει την ημερομηνία του συστήματος και η εφαρμογή εξακολουθήσει να λειτουργεί.
Όταν το πεδίο RunDatabase γίνει False τότε η εφαρμογή θα βγάζει ένα μήνυμα και θα κλείνει η εφαρμογή.
β) Για να εισάγουμε την ημερομηνία πρώτης εκτέλεσης καθώς και να ελέγχουμε αν πέρασε το έτος θα χρειαστούμε είτε την μακροεντολή Autoexec είτε σε κάποιο event της φόρμας που ανοίγει αυτόματα (Γίνεται από Εργαλεία - Εκκίνηση - Εμφάνιση Φόρμας/Σελίδας να δώσουμε ποια φόρμα να ανοίγει αυτόματα) ώστε έτσι σε κάθε έναρξη της Access να εκτελείται ο κώδικας που θέλουμε για το κλείδωμα.
Ως Ψευδοκώδικα το λοιπόν δίνω (Σημ. είναι ψευδοκώδικας στην VBA θέλει τροποποιήσεις και SQL UPDATE strings ή τεχνική RecordSets για ενημέρωση των πεδίων)
κώδικας:

         Έλεγχος αν πρέπει να εκτελεστεί η Βάση (Διαβάζει το πεδίο RunDatabase του πίνακα TblParameters)

         If RunDatabase=true then

         Έλεγχος αν έχει πρωτοεκτελεστεί το πρόγραμμα

         If isnull(FirstExecutionDate) then FirstExecutionDate=date


        Έλεγχος εφόσον επιτρέπεται η εκτέλεση της εφαρμογής αν έχει περάσει ένα έτος
        Αν όχι τότε κλείδωμα εφαρμογής

                If FirstExecutionDate-date>365 then Rundatabase=False
         Else
        Διαφορετική περίπτωση δηλαδή έχει κλειδώσει η εφαρμογή RunDatabase=false

               Docmd.quit

         End if         

Το παραπάνω είναι απλά μία τεχνική από πιθανόν διάφορες άλλες λύσεις. Είναι το λοιπόν μία ενδεικτική λύση αυτό που παραθέτω παραπάνω.

2. Σχετικά με το RunTime (Exe δεν γίνεται η βάση MsAccess) όπως ανέφερε και ο DVA_DEV υπάρχουν διάφορες απαντήσεις ανάλογες στο Forum.

Φιλικά

kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
pontikalos


Μέλος από: 14 Σεπ 2008
Μηνύματα: 16
Περιοχή: Ρόδος
View users profile
ΜήνυμαΣτις: 15 Οκτ 2008 10:10    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Καλημέρα dva_dev, καλημέρα kon73!
Δηλώνω για μια ακομη φορά εντυπωσιασμένος. Δεν έχω λόγια...

ΥΓ:Συνεχίστε την καλή δουλειά!
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [4 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Προβλημα με υπολογισμο ΦΠΑ στην Access 0 master3763 27 Νοε 2016 17:31
master3763 Εμφάνιση τελευταίου μηνύματος
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 06 Δεκ 2016 02:49 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos