Η φόρμα σύνδεσης είναι απαραίτητη για βάσεις δεδομένων που περιέχουν ευαίσθητες πληροφορίες. Ακολουθήστε τα παρακάτω βήματα για να δημιουργήσετε τη δική σας φόρμα σύνδεσης για να προστατεύσετε τη βάση δεδομένων σας από μη έγκυρη πρόσβαση.
Κατεβάστε το Δωρεάν Τώρα
Αν θέλετε να αρχίσετε να χρησιμοποιείτε τη λειτουργία το συντομότερο δυνατό, τότε μπορείτε να κάνετε τα εξής:
Κάντε λήψη του δείγματος βάσης δεδομένων με κωδικούς VBA τώρα
Διαφορετικά, αν θέλετε να κάνετε DIY, μπορείτε να διαβάσετε τα παρακάτω περιεχόμενα.
Βήματα για τη δημιουργία μιας φόρμας σύνδεσης στην Access
1. Δημιουργήστε έναν πίνακα σύνδεσης
Το πρώτο πράγμα που πρέπει να κάνουμε είναι να δημιουργήσουμε έναν πίνακα που θα αποθηκεύει όλες τις πληροφορίες σύνδεσης.
- Δημιουργήστε έναν νέο πίνακα και ονομάστε τον ως tbl_login.
- Ανοίξτε τον πίνακα σε προβολή σχεδίασης.
- Προσθέστε τα ακόλουθα πεδία με τους αντίστοιχους τύπους δεδομένων τους:
| Ονομα πεδίου | Τύπος δεδομένων |
| Κωδικός χρήστη | Αυτόματος Αριθμός |
| Ονομα | Σύντομο Κείμενο |
| Επίθετο | Σύντομο Κείμενο |
| UserName | Σύντομο Κείμενο |
| Κωδικός Πρόσβασης | Σύντομο Κείμενο |
- Επεξεργαστείτε τη μάσκα εισαγωγής του κωδικού πρόσβασης έτσι ώστε να εμφανίζεται ως μια σειρά αστερίσκων (*).
- Επιλέξτε το πεδίο Κωδικός πρόσβασης.
- Μεταβείτε στην καρτέλα Γενικά > Μάσκα εισαγωγής >…
- Όταν εμφανιστεί ο Οδηγός μάσκας εισαγωγής, επιλέξτε Κωδικός πρόσβασης.
- Κάντε κλικ στο κουμπί Τέλος.
- Ανοίξτε τον πίνακα σε προβολή φύλλου δεδομένων και εισαγάγετε την πρώτη εγγραφή (τα στοιχεία σύνδεσής σας).
- Κλείστε τον πίνακα και αποθηκεύστε τις αλλαγές που έγιναν.
2. Δημιουργήστε τη φόρμα σύνδεσης
Δημιουργήστε μια κενή φόρμα με 2 πλαίσια κειμένου και 2 κουμπιά εντολών (όπως φαίνεται παρακάτω). Παράβλεψη του οδηγού κουμπιού εντολών.
Θα αναφερθούμε σε αυτά τα στοιχεία ελέγχου φόρμας στον κώδικά μας αργότερα, επομένως θα ήταν καλύτερο να τα μετονομάσουμε έτσι ώστε να είναι εύκολα αναγνωρίσιμα:
- txt_username
- txt_password
- cmd_login
- cmd_cancel
Στη συνέχεια, αλλάξτε τη μάσκα εισαγωγής του πλαισίου κειμένου κωδικού πρόσβασης, ώστε να εμφανίζεται επίσης ως μια σειρά αστερίσκων (*).
- Ενώ βρίσκεστε σε προβολή σχεδίασης, επιλέξτε το πλαίσιο κειμένου κωδικού πρόσβασης.
- Ανοίξτε το Φύλλο Ιδιοτήτων (ALT + Enter).
- Μεταβείτε στην καρτέλα Δεδομένα > Μάσκα εισαγωγής.
- Επιλέξτε Κωδικός πρόσβασης και κάντε κλικ στο Τέλος.
Τώρα, θα αλλάξουμε ορισμένες από τις ιδιότητες της φόρμας για αισθητικούς λόγους και, το πιο σημαντικό, για να διασφαλίσουμε ότι οι χρήστες δεν μπορούν να παρακάμψουν αυτήν τη φόρμα χωρίς να εισάγουν τα σωστά στοιχεία σύνδεσης.
- Ενώ βρίσκεστε σε προβολή σχεδίασης, επιλέξτε τη φόρμα (όπως φαίνεται παρακάτω).
- Ανοίξτε το Φύλλο ιδιοτήτων (ALT + Enter) και ενημερώστε τις ακόλουθες ιδιότητες:
- Σύμφωνα με το Μορφή αυτί
- Λεζάντα: Είσοδος
- Επιλογείς εγγραφής: Όχι
- Κουμπιά πλοήγησης: Όχι
- Γραμμές κύλισης: Ούτε
- Στυλ περιγράμματος: Διάλογος
- Κουμπί κλεισίματος: Όχι
- Σύμφωνα με το Άλλα αυτί
- Pop Up: Ναι
- Modal: Ναι
- Μενού συντόμευσης: Όχι
- Αποθηκεύστε τη φόρμα ως frm_login.
3. Προσθέστε τον κωδικό
Προσθέστε ένα συμβάν On Click στο κουμπί Σύνδεση.
- Ενώ βρίσκεστε σε προβολή σχεδίασης, επιλέξτε το κουμπί Είσοδος.
- Μεταβείτε στο Φύλλο Ιδιότητας > Καρτέλα Συμβάν > On Κάντε κλικ >…
- Αγορά Εργαλείο δημιουργίας κώδικα από το μενού Choose Builder και κάντε κλικ στο OK.
- Αυτό θα ανοίξει το πρόγραμμα επεξεργασίας VBA.
- Αντιγράψτε τον παρακάτω κωδικό.
Private Sub cmd_login_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
If Trim(Me.txt_username.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Username should not be left blank.", buttons:=vbInformation, title:="Username Required"
Me.txt_username.SetFocus
Exit Sub
End If
If Trim(Me.txt_password.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Password should not be left blank.", buttons:=vbInformation, title:="Password Required"
Me.txt_password.SetFocus
Exit Sub
End If
'query to check if login details are correct
strSQL = "SELECT FirstName FROM tbl_login WHERE Username = """ & Me.txt_username.Value & """ AND Password = """ & Me.txt_password.Value & """"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
If rst.EOF Then
MsgBox prompt:="Incorrect username/password. Try again.", buttons:=vbCritical, title:="Login Error"
Me.txt_username.SetFocus
Else
MsgBox prompt:="Hello, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
DoCmd.Close acForm, "frm_login", acSaveYes
End If
Set db = Nothing
Set rst = Nothing
End Sub
Αυτός ο κωδικός θα:
- Ελέγξτε εάν τα πεδία ονόματος χρήστη και κωδικού πρόσβασης δεν είναι κενά. Εάν είναι, θα εμφανιστεί ένα μήνυμα.
- Ελέγξτε εάν τα στοιχεία σύνδεσης είναι σωστά συγκρίνοντάς τα με τις τιμές στον πίνακα σύνδεσης (tbl_login).
- Μόλις επαληθευτούν τα στοιχεία σύνδεσης, θα εμφανιστεί ένα μήνυμα που καλωσορίζει τον χρήστη.
Το επόμενο βήμα είναι να προσθέσετε τον κώδικα για το κουμπί Άκυρο, ώστε μόλις κάνετε κλικ σε αυτό, η βάση δεδομένων να κλείσει.
- Προσθέστε ένα συμβάν On Click στο κουμπί Cancel (η ίδια διαδικασία με το κουμπί Login).
- Αντιγράψτε τον παρακάτω κωδικό.
Private Sub cmd_cancel_Click() DoCmd.Quit acQuitSaveAll End Sub
4. Ορίστε τη Φόρμα σύνδεσης ως Φόρμα Εμφάνισης
Τέλος, ορίστε τη Φόρμα σύνδεσης ως την προεπιλεγμένη φόρμα που θα βλέπουν οι χρήστες κατά το άνοιγμα της βάσης δεδομένων.
- Μεταβείτε στο Αρχείο > Επιλογές > Τρέχουσα βάση δεδομένων.
- Ορίστε τη φόρμα εμφάνισης σε frm_login.
- Κάντε κλικ στο OK.
Θα πρέπει να κλείσετε τη βάση δεδομένων και να την ανοίξετε ξανά για να δείτε πώς λειτουργεί.
Ανακτήστε τη βάση δεδομένων της πρόσβασής σας
Συγχαρητήρια! Τώρα ξέρετε πώς να προστατεύσετε την πολύτιμη βάση δεδομένων σας από μη έγκυρη πρόσβαση. Τώρα, θα σας δώσω μια επιπλέον συμβουλή. Εάν, για έναν ατυχή λόγο, η βάση δεδομένων σας έχει καταστραφεί, ΜΗΝ πανικοβληθείτε. DataNumen Η Inc., ειδικός στις τεχνολογίες ανάκτησης δεδομένων, παρέχει ένα λογισμικό που επισκευάζει κατεστραμμένη πρόσβαση βάση δεδομένων. Η βάση δεδομένων σας μπορεί ακόμα να ανακτηθεί.
Εισαγωγή συγγραφέα:
Ο Jayme Stack είναι ειδικός στην ανάκτηση δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και υπερέχουν προϊόντα λογισμικού ανάκτησης. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com