Imports System.Data.SqlClient
Public Class EnterAuto
    Const cs As String = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename='C:\Users\eu\Documents\Visual Studio 2013\Projects\ProgetoM17\ProgetoM17\UsersDb.mdf';Integrated Security=True;Connect Timeout=30"

    Private Sub EnterAuto_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Visible = False
        TextBox1.Text = "False"
        RadioButton1.Checked = True
        Dim con2 As New SqlConnection(cs)
        con2.Open()
        Dim sql2 As String = "select marca from marcas"
        Dim sqlcom2 As New SqlCommand(sql2, con2)
        Dim dr2 As SqlDataReader = sqlcom2.ExecuteReader()
        ComboBox1.Items.Clear()

        While dr2.Read()
            ComboBox1.Items.Add(dr2.Item(0))
        End While
        con2.Close()

    End Sub

    Private Sub CmdAdminLogin_Click(sender As Object, e As EventArgs) Handles save.Click
        Const cs As String = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename='C:\Users\eu\Documents\Visual Studio 2013\Projects\ProgetoM17\ProgetoM17\UsersDb.mdf';Integrated Security=True;Connect Timeout=30"
        Dim con As New SqlConnection(cs)
        con.Open()

        Dim matricula As String = MaskedTextBox1.Text
        Dim marca As String
        Dim Modelo As String
        Dim ano As Integer
        Dim PrecoCusto As Integer = MaskedTextBox2.Text
        Dim PrecoVenda As Integer = MaskedTextBox3.Text
        Dim Consumo As String = MaskedTextBox4.Text
        Consumo = Consumo.Replace(",", ".")
        Dim Potencia As String = MaskedTextBox5.Text
        Dim Cilindrada As String = MaskedTextBox6.Text
        Dim NumPortas As String = MaskedTextBox7.Text
        Dim Comb As String = ""
        Dim vendido As String
        vendido = TextBox1.Text

        If RadioButton1.Checked Then
            Comb = "Gasóleo"
        End If
        If RadioButton2.Checked Then
            Comb = "Gasolina"
        End If
        If RadioButton3.Checked Then
            Comb = "GPL"
        End If

        marca = ComboBox1.SelectedItem
        ano = ComboBox2.SelectedItem
        Modelo = ComboBox3.SelectedItem




        Dim sql As String = "INSERT INTO DadosAuto values('" & matricula & "', '" & marca & "', '" & Modelo & "', " & ano & " , " & PrecoVenda & ", " & PrecoCusto & ", '" & Consumo & "', " & Cilindrada & ", " & Potencia & ", " & NumPortas & ", '" & Comb & "', '" & vendido & "')"
        'InputBox("", "", sql)
        Dim sqlcom As New SqlCommand(sql, con)
        Dim nr As Integer
        Try
            nr = sqlcom.ExecuteNonQuery()
        Catch exc As SqlException
            MsgBox(exc.Message)

            MsgBox("Erro a inserir o registo, introduza todos os campos corretamente!")
        End Try
        If nr = 0 Then
            MsgBox("Registo não inserido!")
        Else

            MsgBox("Registo inserido com sucesso!")
            MaskedTextBox1.Text = ""
            MaskedTextBox2.Text = ""
            MaskedTextBox3.Text = ""
            MaskedTextBox4.Text = ""
            MaskedTextBox5.Text = ""
            MaskedTextBox6.Text = ""
            MaskedTextBox7.Text = ""
            ComboBox1.SelectedItem = Nothing
            ComboBox2.SelectedItem = Nothing
            ComboBox3.SelectedItem = Nothing
            ComboBox3.SelectedItem = ""
            ComboBox3.SelectedText = ""
            ComboBox3.Text = ""

        End If



        RadioButton1.Checked = True

        con.Close()
    End Sub
    Private Sub cancel_Click(sender As Object, e As EventArgs) Handles cancel.Click
        Me.Hide()
        limpar_sair.Show()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim con3 As New SqlConnection(cs)
        con3.Open()
        Dim sql3 As String = "select modelo from marcas,modelos where marcas.posmarca=modelos.posmarca and marcas.marca='" & ComboBox1.SelectedItem & "'"
        'InputBox("", "", sql3)
        Dim sqlcom3 As New SqlCommand(sql3, con3)
        Dim dr3 As SqlDataReader = sqlcom3.ExecuteReader()
        ComboBox3.Items.Clear()

        While dr3.Read()
            ComboBox3.Items.Add(dr3.Item(0))
        End While
        con3.Close()

    End Sub
End Class