Guten Tag liebe VB Paradiser.
Seit Tagen geister ich schon als Gast im Forum rum und find das ding klasse
Hab neu mit VB.Net angefangen und habe ein Problem bei dem ich nicht weiß wie ich es realisieren kann.
Also dachte ich mir ich frage einfach mal und gucke ob mir ein paar schlaue VB Hasen da helfen können
Ich habe ein Projekt beidem es Hauptzächlich um Textboxen und Checkboxen speicherung geht. Die Boxen sollten beim Laden->Geladen und beim Schließen der Form auch geschlossen werden.
Das klappt alles wunderbar. Nun möchte ich aber das diese Daten staat lokal in einer ini , auf einem Mysql zu einem Account gespeichert werden.
Mein Projekt umfasst 10 Textboxen und 10 Checkboxen.
Das Login System habe ich hier im Forum gefunden und es nur abgeändert. Ich weiß auch das die sicherheit dieses Login Systems nicht gerade gut ist da ja ein normales .Net Programm leicht zu decompelieren ist. Dies wird sich dann im Laufe des Projektes ändern
Könnte mir jemand möglichst leicht zeigen wie ich die Check-, Textboxen auf jedem Account seperat lege?
LoginForm:
RegForm:
Das ganze ist im moment noch ziemlich C&P aber wird sich alles ändern wenn ich komplett dahinter gekommen bin
(Das verrutschen der Zeilen in natürlich im richtigen Script nicht)
Seit Tagen geister ich schon als Gast im Forum rum und find das ding klasse
Hab neu mit VB.Net angefangen und habe ein Problem bei dem ich nicht weiß wie ich es realisieren kann.
Also dachte ich mir ich frage einfach mal und gucke ob mir ein paar schlaue VB Hasen da helfen können
Ich habe ein Projekt beidem es Hauptzächlich um Textboxen und Checkboxen speicherung geht. Die Boxen sollten beim Laden->Geladen und beim Schließen der Form auch geschlossen werden.
Das klappt alles wunderbar. Nun möchte ich aber das diese Daten staat lokal in einer ini , auf einem Mysql zu einem Account gespeichert werden.
Mein Projekt umfasst 10 Textboxen und 10 Checkboxen.
Das Login System habe ich hier im Forum gefunden und es nur abgeändert. Ich weiß auch das die sicherheit dieses Login Systems nicht gerade gut ist da ja ein normales .Net Programm leicht zu decompelieren ist. Dies wird sich dann im Laufe des Projektes ändern
Könnte mir jemand möglichst leicht zeigen wie ich die Check-, Textboxen auf jedem Account seperat lege?
LoginForm:
VB.NET-Quellcode
- Imports MySql.Data.MySqlClient
- Public Class Login
- Private Sub loginbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loginbutton.Click
- Dim conn As MySqlConnection
- conn = New MySqlConnection
- conn.ConnectionString = "server=127.0.0.1;" & "user id=root;" & "password=;" & "database=key;"
- Try
- conn.Open() ' Verbindung öffnen
- Catch myerror As MySqlException
- MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
- End Try
- Dim benutzer As String = MD5StringHash(loginbox.Text)
- Dim passwort As String = MD5StringHash(passwortbox.Text)
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'" ' Das ist die Abfrage welche Prüft ob der Account existiert.Die txt_benutzer ist die Textbox in der der Benutzername eingeben wird und txt_passwort bekommt das Passwort
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader() ' Hier startet man die SQL Abfrage
- If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
- MsgBox("Einloggen erfolgreich !")
- conn.Close()
- conn.Open()
- Form1.Show()
- Me.Hide()
- Else 'Sonst wird angezeigt das die Daten falsch sind
- MsgBox("Fehler Code 2 : Falsche Daten")
- End If
- End Sub
- Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
- Regestrieren.Show()
- End Sub
- End Class
RegForm:
VB.NET-Quellcode
- Imports MySql.Data.MySqlClient
- Public Class Regestrieren
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles regbutton.Click
- If pw.Text = pw_w.Text Then ' Prüft ob die Passwörter übereinstimmen
- If email.Text.Contains("@") And email_w.Text.Contains("@") Then ' Prüft ob die E-Mails ein @ enthalten.Damit wird geschaut ob die Email gültig ist
- If email.Text = email_w.Text Then ' Wennn die Emails übereinstimmen dann Trage ein
- Dim conn As MySqlConnection
- conn = New MySqlConnection
- conn.ConnectionString = "server=127.0.0.1;" & "user id=root;" & "password=;" & "database=key;"
- Try
- conn.Open() ' Verbindung öffnen
- Catch myerror As MySqlException
- MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
- End Try
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Login.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader() ' Abfrage starten
- If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
- conn.Close()
- conn.Open()
- Dim registerfinal As New MySqlDataAdapter
- Dim benutzer As String = MD5StringHash(Login.Text)
- Dim passwort As String = MD5StringHash(pw.Text)
- myCommand.CommandText = "INSERT INTO benutzer(Benutzername, Passwort, Email)" _
- & "VALUES('" & benutzer & "','" & passwort & "','" & email.Text & "')"
- myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
- MsgBox("Der Account mit dem Namen : " & Login.Text & " wurde erfolgreich erstellt")
- conn.Close()
- Login.Show()
- Me.Hide()
- Else
- MsgBox("Dieser Benutzername existiert bereits")
- End If
- Else
- MsgBox("Die eingegebenen Emails stimmen nicht über ein !")
- End If
- Else
- MsgBox("Die eingegebenen E-Mails sind ungültig !")
- End If
- Else
- MsgBox("Die eingegebenen Passwörter stimmen nicht überein")
- End If
- End Sub
- End Class
Das ganze ist im moment noch ziemlich C&P aber wird sich alles ändern wenn ich komplett dahinter gekommen bin
(Das verrutschen der Zeilen in natürlich im richtigen Script nicht)