f

Imports MySql.Data.MySqlClient
Imports System.Data.SqlServerCe

Public Class Form1
    Dim MySqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand

    Dim con As SqlCeConnection = New SqlCeConnection("Data Source=|DataDirectory|\Database1.sdf")
    Dim cmd As SqlCeCommand
    Dim myReader As SqlCeDataReader

    Dim id_user As String = CheckDL()
    Dim email As String
    Dim nama_lengkap As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MySqlConn = New MySqlConnection
        MySqlConn.ConnectionString = "server=localhost;user id=root;password=programming;database=spesifikasi"
        Dim READER As MySqlDataReader

        Try
            MySqlConn.Open()
            Dim Query As String
            Query = "SELECT * FROM spesifikasi.user WHERE email = '" & TextBox1.Text & "' AND password = md5('" & TextBox2.Text & "')"
            COMMAND = New MySqlCommand(Query, MySqlConn)
            READER = COMMAND.ExecuteReader
            Dim count As Integer
            count = 0

            While READER.Read
                id_user = READER("id_user").ToString()
                email = READER("email").ToString()
                nama_lengkap = READER("nama_lengkap").ToString()
                count = count + 1
            End While

            If count = 1 Then
                MessageBox.Show("Login Berhasil")
                InsertDL(id_user, email, nama_lengkap)
                MySqlConn.Close()
                Me.Hide()
                Form2.id_user = id_user
                Form2.email = email
                Form2.nama_lengkap = nama_lengkap
                Form2.Show()
            ElseIf count > 1 Then
                MessageBox.Show("Email And Password Duplikat")
                TextBox1.Focus()
            Else
                MessageBox.Show("Email And Password Salah")
                TextBox1.Focus()
                TextBox1.Clear()
                TextBox2.Clear()
            End If

            MySqlConn.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message & " - " & ex.StackTrace)
        Finally
            MySqlConn.Dispose()
        End Try

    End Sub

    'Binding database table to DataGridView
    Public Function CheckDL()
        cmd = New SqlCeCommand("SELECT * FROM [user]", con)
        If con.State = ConnectionState.Closed Then con.Open()
        myReader = cmd.ExecuteReader()
        Dim count As Integer
        count = 0
        While myReader.Read
            id_user = myReader("id_user").ToString()
            count = count + 1
        End While

        If count > 0 Then
            Return id_user
            Exit Function
        End If
        Return count
    End Function

    ' Insert record
    Public Sub InsertDL(ByVal id_user As String, ByVal email As String, ByVal nama_lengkap As String, Optional ByVal id_perangkat As String = "")
        cmd = New SqlCeCommand("INSERT INTO [user] (id_user, email, nama_lengkap, id_perangkat) Values('" & id_user.ToString & "', '" & email & "', '" & nama_lengkap & "', '" & id_perangkat & "')", con)
        If con.State = ConnectionState.Closed Then con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub

    ' Insert record
    Public Sub UpdateDL(ByVal id_user As String, ByVal email As String, ByVal nama_lengkap As String, Optional ByVal id_perangkat As String = "")
        cmd = New SqlCeCommand("UPDATE [user] SET email='" & email & "', nama_lengkap='" & nama_lengkap & "', id_perangkat='" & id_perangkat & "' WHERE id_user='" & id_user & "'", con)
        If con.State = ConnectionState.Closed Then con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub

    ' Insert record
    Public Sub DeleteDL(ByVal id_user As String)
        cmd = New SqlCeCommand("DELETE FROM [user] WHERE id_user='" & id_user & "'", con)
        If con.State = ConnectionState.Closed Then con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub

    Private Function count() As Integer
        Throw New NotImplementedException
    End Function

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        If id_user <> 0 Then
            Me.Hide()
            Form2.Show()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class