Advertisement
Guest User

Untitled

a guest
Mar 22nd, 2017
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 2.86 KB | None | 0 0
  1. Imports MySql.Data.MySqlClient
  2. Public Class Registreringsskjema
  3.     Private tilkobling As MySqlConnection
  4.     Private Sub Registreringsskjema_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  5.  
  6.         tilkobling = New MySqlConnection("Server=mysql.stud.iie.ntnu.no;Database=g_oops_23;Uid=g_oops_23;Pwd=3d4CcHvg")
  7.         tilkobling.Open()
  8.  
  9.         txtPostnummer.MaxLength = 4
  10.     End Sub
  11.  
  12.     'Funksjon for uppercase for registrering
  13.     Public Function ToUpperFirst(Value As String) As String
  14.         Dim FirstChar As String = Value.Chars(0).ToString
  15.         Dim Rest As String = Value.Remove(0, 1)
  16.         Return FirstChar.ToUpper & Rest
  17.     End Function
  18.  
  19.     Private Sub btnRegistrer_Click(sender As Object, e As EventArgs) Handles btnRegistrer.Click
  20.         Dim passord = txtPassord.Text
  21.         Dim bpassord = txtBekreftPassord.Text
  22.  
  23.  
  24.  
  25.  
  26.         If bpassord = passord Then
  27.             Dim nyBruker As New Bruker(txtPassord.Text, txtFornavn.Text, txtEtternavn.Text, txtFodselsdato.Text,
  28.                                          txtTlf.Text, txtAdresse.Text, txtPostnummer.Text, txtEpost.Text)
  29.             nyBruker.regBruker()
  30.             Me.Close()
  31.         Else
  32.             MsgBox("Passordene er ikke like")
  33.         End If
  34.  
  35.  
  36.     End Sub
  37.  
  38.     Private Sub txtPassord_TextChanged(sender As Object, e As EventArgs) Handles txtPassord.TextChanged
  39.         'txtPassord.PasswordChar = "*"
  40.     End Sub
  41.  
  42.     Private Sub Registreringsskjema_Close(sender As Object, e As EventArgs) Handles MyBase.Closed
  43.         tilkobling.Close()
  44.         tilkobling.Dispose()
  45.     End Sub
  46.  
  47.     Private Sub txtBekreftPassord_TextChanged(sender As Object, e As EventArgs) Handles txtBekreftPassord.TextChanged
  48.         'txtBekreftPassord.PasswordChar = "*"
  49.     End Sub
  50.  
  51.     Private Sub txtPostnummer_TextChanged(sender As Object, e As EventArgs) Handles txtPostnummer.TextChanged
  52.  
  53.         If txtPostnummer.TextLength = 4 Then
  54.  
  55.             Dim READER As MySqlDataReader
  56.             Try
  57.                 Dim postnummer As Integer = txtPostnummer.Text
  58.                 Dim tuddle As String = "'"
  59.                 Dim Query As String
  60.                 Query = "SELECT poststed from Postnummer WHERE postnummer = " & tuddle & postnummer & tuddle
  61.                 Dim command As New MySqlCommand(Query, tilkobling)
  62.                 READER = command.ExecuteReader
  63.  
  64.                 If READER.Read() Then
  65.                     lbPoststed.Text = READER.GetString(0)
  66.                 End If
  67.  
  68.                 tilkobling.Close()
  69.             Catch ex As MySqlException
  70.                 MessageBox.Show(ex.Message)
  71.             Finally
  72.                 tilkobling.Open()
  73.             End Try
  74.         End If
  75.     End Sub
  76.  
  77.     Private Sub txtFornavn_TextChanged(sender As Object, e As EventArgs) Handles txtFornavn.TextChanged
  78.         txtFornavn.Text = ToUpperFirst(txtFornavn.Text)
  79.     End Sub
  80. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement