Πώς να αποτρέψει έναν χρήστη σύνδεσης με τη βάση δεδομένων MS Access 2007 μετά από τρεις προσπάθειες

Ένα από τα ισχυρά χαρακτηριστικά πίσω από τη Microsoft Access 2007 είναι ότι μπορείτε να κάνετε μια βάση δεδομένων δικό του stand-alone εφαρμογή της. Αυτό έρχεται σε βολικό όταν τη διανομή της βάσης δεδομένων σε πολλαπλούς χρήστες σε ένα διακομιστή. Βεβαιωθείτε άλλα μέτρα ασφαλείας , όπως τα έντυπα σύνδεσης , για να εξασφαλιστεί η προστασία των δεδομένων σας από μη εξουσιοδοτημένους χρήστες . Να προωθηθεί η δύναμη ασφαλείας, μπορείτε να περιορίσετε την πρόσβαση εάν υπάρχουν τρεις ή περισσότερες αποτυχημένες προσπάθειες σύνδεσης . Με αυτό τον τρόπο , μη εξουσιοδοτημένους χρήστες δεν μπορούν να χρησιμοποιήσουν τον κωδικό πυρόλυση προγράμματα λογισμικού να χαράξει στη βάση δεδομένων σας . Οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων σας σε Access 2007 και να προσθέσετε ένα νέο πίνακα που ονομάζεται " tblFailedAttempts . " Ο πίνακας αυτός θα κρατήσει τον αριθμό των προσπαθειών σύνδεσης που έχει κάποιος στην τρέχουσα περίοδο . Κάντε κλικ στην καρτέλα "Δημιουργία " και στη συνέχεια " Πίνακας ". Δημιουργήστε τον πίνακα σε Προβολή σχεδίασης . Δώστε το τραπέζι τρία πεδία : " AttemptID " ως " Αυτόματη αρίθμηση " τύπος δεδομένων , " Σύνδεση " με " Text" τύπο δεδομένων και « attempt_time " ως " Ημερομηνία /Ώρα " τύπο δεδομένων . Αποθηκεύστε και κλείστε τον πίνακα . 2

Μετάβαση στη φόρμα σύνδεσης που χρησιμοποιείτε αυτήν τη στιγμή και δείτε τον κώδικα της φόρμας . Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Κάντε διπλό κλικ στο όνομα για τη φόρμα στη λίστα των αντικειμένων στην αριστερή πλευρά της Επεξεργασίας της Visual Basic .
Εικόνων 3

Προσθέστε τον κώδικα στο κώδικα της Visual Basic που έχουν ήδη υποβάλει για το έντυπο . Ο κωδικός θα ανοίξει το " tblFailedAttempts " τραπέζι και να δούμε πώς πολλές προσπάθειες που το άτομο έχει ήδη γίνει . Επίσης, θα αυξήσει τον αριθμό των αποτυχημένων προσπαθειών κάθε φορά που το άτομο προσπαθεί να συνδεθείτε . Τέλος , ο κώδικας θα κλειδώσει το πρόσωπο και να κλείσετε τη βάση δεδομένων μετά την τρίτη αποτυχημένη προσπάθεια της .

"Set RST1 = db.OpenRecordset ( " tblFailedAttempts " , dbOpenDynaset )

Με RST1

. AddNew

! [ computer_login ] = Me.txtUser_hidden

. Ενημέρωση

End With

MsgBox " Πληκτρολογήσατε λάθος όνομα χρήστη ή Κωδικός πρόσβασης . " & Chr ( 13 ) & _

" Παρακαλώ εισάγετε το σωστό όνομα χρήστη και κωδικό ή " & Chr ( 13 ) & _

" επικοινωνήστε με το Διαχειριστή βάσης δεδομένων για βοήθεια . " vbOKOnly + vbCritical , " Σύνδεση Denied "

« Αυτό που μετράει πόσες φορές ένας χρήστης έχει πληκτρολογήσει σε λάθος combo UserID /κωδικού πρόσβασης. Μετά από τρεις προσπάθειες ο χρήστης

' ανασταλεί από την DB , και δεν μπορούν να έχουν πρόσβαση μέχρι ο λογαριασμός τους έχει μηδενιστεί από το διαχειριστή

CNT = CNT + 1 «αντι αύξηση εάν το λανθασμένο κωδικό τέθηκε

Εάν CNT = 3 Στη συνέχεια, « Ρύθμιση αριθμό των σουτ

'Display Message Box

MsgBox " Πρόγραμμα Παραβίαση πρόσβασης θα τώρα Κλείσιμο" , " Παραβίαση Εντοπίστηκε "

DoCmd.OpenForm " frmPWChangeCheck " , , , , , acHidden

' αλλάξει frmPWChangeCheck στο όνομα της φόρμας σύνδεσής σας

[ Forms] ! [ frmPWChangeCheck !] [ Ενεργή] = False

DoCmd.Quit « σταματήσουν την εφαρμογή και κλείστε την Access

End If "
Η

4 Κάντε κλικ στο εικονίδιο" Αποθήκευση "στο πρόγραμμα επεξεργασίας της Visual Basic για να αποθηκεύσετε τις αλλαγές στον κώδικα και , στη συνέχεια, κλείστε το πρόγραμμα επεξεργασίας . Κάντε κλικ στο "Αποθήκευση " στο κύριο παράθυρο της Access , στην καρτέλα " Home" , για να αποθηκεύσετε τις αλλαγές στη βάση δεδομένων .
Η
εικόνων