Imports System.Data.OleDb
Imports System.IO
Public Class register
    Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\goodwill.accdb")


    Private Sub btn_back_Click(sender As Object, e As EventArgs) Handles btn_back.Click
        Me.Dispose()

    End Sub

    Private Sub txt_lastname_TextChanged(sender As Object, e As EventArgs) Handles txt_username.TextChanged

    End Sub

    Private Sub checkbox_showpass_CheckedChanged(sender As Object, e As EventArgs) Handles checkbox_showpass.CheckedChanged
        If checkbox_showpass.Checked = True Then
            txt_password.UseSystemPasswordChar = False
        Else
            txt_password.UseSystemPasswordChar = True

        End If
    End Sub

    Private Sub GunaCircleButton1_Click(sender As Object, e As EventArgs) Handles GunaCircleButton1.Click
        Dim pop As OpenFileDialog = New OpenFileDialog
        If pop.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            register_picturebox.Image = Image.FromFile(pop.FileName)
        End If
    End Sub

    Sub save()
        Try
            conn.Open()
            Dim cmd As New OleDb.OleDbCommand("insert into login(`firstname`,`lastname`,`username`,`password`,`dob`,`pic`,`subject`) values (@firstname,@lastname,@username,@password,@dob,@pic,@subject)", conn)
            Dim i As Integer
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@firstname", txt_firstname.Text)
            cmd.Parameters.AddWithValue("@lastname", txt_lastname.Text)
            cmd.Parameters.AddWithValue("@username", txt_username.Text)
            cmd.Parameters.AddWithValue("@password", txt_password.Text)
            cmd.Parameters.AddWithValue("@dob", CDate(dob_picker.Value))
            cmd.Parameters.AddWithValue("@subject", checkbox_subject)
            'image convert to binary formate
            Dim FileSize As New UInt32
            Dim mstream As New System.IO.MemoryStream
            register_picturebox.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
            Dim picture() As Byte = mstream.GetBuffer
            FileSize = mstream.Length
            mstream.Close()
            cmd.Parameters.AddWithValue("@pic", picture)
            i = cmd.ExecuteNonQuery
            If i > 0 Then
                MsgBox("New User Register Success !", vbInformation)
            Else
                MsgBox("New User Register Failed !", vbCritical)
            End If


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        conn.Close()

    End Sub
    Private Sub Btn_Register_Click(sender As Object, e As EventArgs) Handles btn_register.Click
        save()
    End Sub
End Class