Πώς να κωδικός φόρμας Είσοδος /Εγγραφή στο VB

Κωδικοποίηση ένα όνομα χρήστη και ένα έντυπο εγγραφής στο Microsoft Visual Basic.NET ( VB.NET ) μπορεί να κάνουν τις εφαρμογές σας πιο ασφαλή . Ένα πρόγραμμα που χρησιμοποιεί συχνά μια σελίδα σύνδεσης χρησιμοποιεί επίσης μια βάση δεδομένων για την παρακολούθηση των εγγεγραμμένων χρηστών και τις πληροφορίες τους, όπως ονόματα χρηστών και κωδικούς πρόσβασης . Η Microsoft Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων και μπορεί να χρησιμοποιηθεί για την παρακολούθηση των χρηστών . Στην VB.NET , μπορείτε να συνδεθείτε σε μια βάση δεδομένων της Access για να αποθηκεύσετε ή να ανακτήσετε πληροφορίες για το χρήστη για να συνδεθείτε και να χρησιμοποιήσετε το πρόγραμμα σας . Τα πράγματα που θα χρειαστείτε για Microsoft Access βάση δεδομένων
πίνακα που ονομάζεται tblUsers
στήλη FirstName
στήλη userName
UserPassword στήλη
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Studio , κάντε κλικ στο " New Project" στο αριστερό τμήμα της οθόνης του υπολογιστή σας , και να επεκτείνουν " Visual Basic " κάτω " Εγκατεστημένα πρότυπα . " κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " windows Forms Application " για να δημιουργήσετε μια νέα παράθυρα μορφές του έργου . 2

διπλό κλικ στο " πλαίσιο κειμένου " για να του "Toolbox " παράθυρο για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου κειμένου στη φόρμα σας . Προσθέστε ένα δεύτερο πλαίσιο κειμένου . Κάντε διπλό κλικ στο " κουμπί" από την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί ελέγχου στη φόρμα σας . Προσθέστε ένα δεύτερο κουμπί . Κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν click για αυτό το κουμπί .
Εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να προσθέσετε το όνομα χρήστη και τον κωδικό πρόσβασης ελέγχου με βάση τις πληροφορίες στη βάση δεδομένων Access για το χρήστη Είσοδος :

Dim connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = C : \\ userDB.accdb " Dim MyConnection Όπως OleDbConnection = Νέα OleDbConnectionDim da Όπως OleDbDataAdapterDim strSQL Όπως StringDim ds Όπως DataSetDim Όνομα As String

strSQL = "SELECT tblUsers.FirstName ΑΠΟ tblUsers " strSQL = strSQL & "WHERE ( tblUsers.userName = " & ( Me.TextBox1.Text ) & " ? " strSQL = strSQL & " και tblUsers.userPassword = " & ( Me.TextBox2.Text ) &" " ) ? " myConnection.ConnectionString = connStringda = Νέα OleDbDataAdapter ( strSQL , MyConnection ) ds = Νέα DataSetda.Fill (ds , "χρήστες") myConnection.Close ( )

For Each rowTest Σε ds.Tables ( 0 ) . RowsfirstName = rowTest ( " FirstName " ) . ToStringNextIf ΟΝΟΜΑ <> " " ThenMessageBox.Show ( " Welcome" & όνομα & " ! " ) ElseMessageBox.Show ( " Παρακαλώ ελέγξτε το όνομα χρήστη και τον κωδικό πρόσβασης . " ) End If
Η 4

Επεξεργαστείτε το προηγούμενο βήμα και πληκτρολογήστε τη διαδρομή της βάσης δεδομένων της Access .
5

Επιστρέψτε στην προβολή σχεδίασης φόρμας και κάντε διπλό κλικ στο " Button2 " για να δημιουργήσετε ένα συμβάν κλικ. Προσθέστε τον ακόλουθο κώδικα για να εμφανίσετε τη φόρμα εγγραφής όταν κάνετε κλικ :

Form2.Show ( )
Η

6 Κάντε δεξί κλικ στο όνομα του έργου σας στο παράθυρο " Solution Explorer " και κάντε κλικ στο " Προσθήκη > ? Windows φόρμας ... "για να προσθέσετε μια νέα μορφή για την εγγραφή στο έργο σας . Κάντε διπλό κλικ στο " Φόρμα2 " και προσθέστε τρία πλαίσια κειμένου χρησιμοποιώντας την ίδια τεχνική που χρησιμοποιείται στο βήμα 1 . . Προσθέστε ένα κουμπί
Η 7

διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν κλικ και προσθέστε τον παρακάτω κώδικα για να προσθέσετε τις πληροφορίες του χρήστη στη βάση δεδομένων της Access :

Dim strSQL Όπως StringDim objCmd Όπως Νέα OleDbCommandstrSQL = " INSERT INTO tblUsers ( Όνομα, userName , UserPassword ) " strSQL = strSQL & " ΑΞΙΕΣ ( " & ( Me.TextBox1.Text ) & " ',' " & ( Me.TextBox3.Text ) & " ' , ' " & ( Me.TextBox4.Text ) & " " ) ? "Dim Con = Νέα OleDbConnection ( " Provider = Microsoft.ACE.OLEDB . 12.0 ? Πηγή δεδομένων = C : \\ userDB.accdb " ) Con.Open ( ) objCmd = Νέα OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Con.Close ( ) MessageBox.Show ( " Έχετε εγγραφεί επιτυχώς Παρακαλώ συνδεθείτε . »). Form1.Show ( )
8

Επεξεργαστείτε το προηγούμενο βήμα και πληκτρολογήστε τη διαδρομή της βάσης δεδομένων της Access .
Η

9 Πατήστε το πλήκτρο" F5 "για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο " Button2 " για να ανοίξετε τη φόρμα εγγραφής . Πληκτρολογήστε το όνομά σας στο πρώτο πλαίσιο κειμένου, ένα όνομα χρήστη στο δεύτερο και τον κωδικό πρόσβασης του χρήστη στο τρίτο πλαίσιο κειμένου . Κάντε κλικ στο " Button1 " για να αποθηκεύσετε τις πληροφορίες . Πληκτρολογήστε το όνομα χρήστη και τον κωδικό πρόσβασής σας στη σελίδα σύνδεσης και κάντε κλικ στο " Button1 " για να εμφανιστεί ένα μήνυμα σύνδεσης .
Η
εικόνων