Frmpendaftaran_Load

Imports MySql.Data.MySqlClient

Public Class Frmpendaftaran
    Private dataTable As DataTable
    Private connString As String
    Private Sub BtnBatal_Click(sender As Object, e As EventArgs) Handles BtnBatal.Click
        Dim formMain = New Frmmain
        Me.Hide()
        formMain.Show()
    End Sub

    Private Sub Frmpendaftaran_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        connString = "Server=localhost;Database=pendaftaran_online;User Id=root;"

        Using conn As New MySqlConnection(connString)
            Try
                conn.Open()
                Dim query As String = "SELECT * FROM jurusan"
                Dim adapter As New MySqlDataAdapter(query, conn)
                dataTable = New DataTable()
                adapter.Fill(dataTable)
            Catch ex As MySqlException
                MessageBox.Show("Terjadi kesalahan: " & ex.Message)
            Finally
                ' Menutup koneksi
                conn.Close()
                Console.WriteLine("Koneksi ditutup.")
            End Try
        End Using

        If dataTable IsNot Nothing AndAlso dataTable.Rows.Count > 0 Then
            For Each row As DataRow In dataTable.Rows
                ' Mengakses data di kolom nama
                Dim namaJurusan As String = row("nama").ToString()
                ' Memasukan nama jurusan kedalam combo box
                ComboJurusan.Items.Add(namaJurusan)
            Next
        Else
            MessageBox.Show("Tidak ada data dalam database jurusan.")
        End If
    End Sub

    Private Sub ComboJurusan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboJurusan.SelectedIndexChanged
        Dim selectedJurusan As String = ComboJurusan.SelectedItem.ToString()

        Dim foundRows As DataRow() = dataTable.Select("nama = '" & selectedJurusan & "'")

        If foundRows.Length > 0 Then
            ' Mengakses nilai 'ukt' dari baris yang ditemukan
            Dim ukt As Long = Convert.ToInt64(foundRows(0)("ukt"))
            Dim formattedUkt As String = ukt.ToString("N0")

            labelUkt.Text = "Rp. " + formattedUkt
        Else
            MessageBox.Show("Data UKT tidak ditemukan untuk jurusan yang dipilih.")
        End If

        ' Menampilkan semua data selain jurusan yang dipilih dalam DataGridView
        Dim filteredRows As DataRow() = dataTable.Select("nama <> '" & selectedJurusan & "'")

        dataGridUkt.Visible = True
        labelUktLain.Visible = True

        If filteredRows.Length > 0 Then
            Dim filteredDataTable As New DataTable()
            filteredDataTable = filteredRows.CopyToDataTable()

            dataGridUkt.DataSource = filteredDataTable
            dataGridUkt.Columns("ukt").DefaultCellStyle.Format = "N0"

            ' Mengganti nilai kolom 'id' dengan nomor urut
            Dim rowIndex As Integer = 1
            For Each row As DataRow In filteredDataTable.Rows
                row("id") = rowIndex
                rowIndex += 1
            Next
        Else
            dataGridUkt.DataSource = Nothing
            MessageBox.Show("Tidak ada data lain untuk ditampilkan.")
        End If
    End Sub

    Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
        Application.Exit()
    End Sub

    Private Sub BtnSubmit_Click(sender As Object, e As EventArgs) Handles BtnSubmit.Click
        Dim nama, email, alamat, kota, jenis_kelamin, no_hp, jurusan_pilihan As String
        Dim query As String = "INSERT INTO user (nama, email, alamat, kota, jenis_kelamin, no_hp, jurusan_pilihan, created_at, updated_at) VALUES
                    (@nama, @email, @alamat, @kota, @jenis_kelamin, @no_hp, @jurusan_pilihan, @created_at, @updated_at)"

        nama = txtNama.Text.Trim()
        email = txtEmail.Text.Trim()
        alamat = txtAlamat.Text.Trim()
        kota = txtKota.Text.Trim()
        jenis_kelamin = comboJenisKelamin.Text.Trim()
        no_hp = txtHp.Text.Trim()
        jurusan_pilihan = ComboJurusan.Text.Trim()

        If String.IsNullOrEmpty(nama) Then
            MessageBox.Show("Nama tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If

        If String.IsNullOrEmpty(email) Then
            MessageBox.Show("Email tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If

        If String.IsNullOrEmpty(alamat) Then
            MessageBox.Show("Alamat tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If

        If String.IsNullOrEmpty(kota) Then
            MessageBox.Show("Kota tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If

        If String.IsNullOrEmpty(jenis_kelamin) Then
            MessageBox.Show("Jenis kelamin tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If

        If String.IsNullOrEmpty(no_hp) Then
            MessageBox.Show("No HP tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If

        If String.IsNullOrEmpty(jurusan_pilihan) Then
            MessageBox.Show("Jurusan yang dipilih tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If

        Dim createdAt As DateTime = DateTime.Now

        Using conn As New MySqlConnection(connString)
            Try
                conn.Open()

                Using cmd As New MySqlCommand(query, conn)
                    ' Menambahkan parameter ke pernyataan SQL
                    cmd.Parameters.AddWithValue("@nama", nama)
                    cmd.Parameters.AddWithValue("@email", email)
                    cmd.Parameters.AddWithValue("@alamat", alamat)
                    cmd.Parameters.AddWithValue("@kota", kota)
                    cmd.Parameters.AddWithValue("@jenis_kelamin", jenis_kelamin)
                    cmd.Parameters.AddWithValue("@no_hp", no_hp)
                    cmd.Parameters.AddWithValue("@jurusan_pilihan", jurusan_pilihan)
                    cmd.Parameters.AddWithValue("@created_at", createdAt)
                    cmd.Parameters.AddWithValue("@updated_at", createdAt)

                    ' Menjalankan perintah SQL
                    Dim rowsAffected As Integer = cmd.ExecuteNonQuery()

                    If rowsAffected > 0 Then
                        MessageBox.Show("Data berhasil disimpan.", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

                    Else
                        MessageBox.Show("Data gagal disimpan.", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Warning)

                    End If
                End Using
            Catch ex As MySqlException
                MessageBox.Show("Terjadi kesalahan: " & ex.Message)

            Finally
                ' Menutup koneksi
                conn.Close()
                Console.WriteLine("Koneksi ditutup.")

            End Try
        End Using

        Dim formMain = New Frmmain
        Me.Hide()
        Frmmain.Show()
    End Sub

    Private Sub BtnSubmit_Click(sender As Object, e As EventArgs) Handles BtnSubmit.Click
    Dim nama, email, alamat, kota, jenis_kelamin, no_hp, jurusan_pilihan As String
    Dim query As String = "INSERT INTO user (nama, email, alamat, kota, jenis_kelamin, no_hp, jurusan_pilihan, created_at, updated_at) VALUES
                (@nama, @email, @alamat, @kota, @jenis_kelamin, @no_hp, @jurusan_pilihan, @created_at, @updated_at)"

    nama = txtNama.Text.Trim()
    email = txtEmail.Text.Trim()
    alamat = txtAlamat.Text.Trim()
    kota = txtKota.Text.Trim()
    jenis_kelamin = comboJenisKelamin.Text.Trim()
    no_hp = txtHp.Text.Trim()
    jurusan_pilihan = ComboJurusan.Text.Trim()

    If String.IsNullOrEmpty(nama) Then
        MessageBox.Show("Nama tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return
    End If

    If String.IsNullOrEmpty(email) Then
        MessageBox.Show("Email tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return
    End If

    If String.IsNullOrEmpty(alamat) Then
        MessageBox.Show("Alamat tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return
    End If

    If String.IsNullOrEmpty(kota) Then
        MessageBox.Show("Kota tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return
    End If

    If String.IsNullOrEmpty(jenis_kelamin) Then
        MessageBox.Show("Jenis kelamin tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return
    End If

    If String.IsNullOrEmpty(no_hp) Then
        MessageBox.Show("No HP tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return
    End If

    If String.IsNullOrEmpty(jurusan_pilihan) Then
        MessageBox.Show("Jurusan yang dipilih tidak boleh kosong.", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Return
    End If

    Dim createdAt As DateTime = DateTime.Now

    Using conn As New MySqlConnection(connString)
        Try
            conn.Open()

            Using cmd As New MySqlCommand(query, conn)
                ' Menambahkan parameter ke pernyataan SQL
                cmd.Parameters.AddWithValue("@nama", nama)
                cmd.Parameters.AddWithValue("@email", email)
                cmd.Parameters.AddWithValue("@alamat", alamat)
                cmd.Parameters.AddWithValue("@kota", kota)
                cmd.Parameters.AddWithValue("@jenis_kelamin", jenis_kelamin)
                cmd.Parameters.AddWithValue("@no_hp", no_hp)
                cmd.Parameters.AddWithValue("@jurusan_pilihan", jurusan_pilihan)
                cmd.Parameters.AddWithValue("@created_at", createdAt)
                cmd.Parameters.AddWithValue("@updated_at", createdAt)

                ' Menjalankan perintah SQL
                Dim rowsAffected As Integer = cmd.ExecuteNonQuery()

                If rowsAffected > 0 Then
                    MessageBox.Show("Data berhasil disimpan.", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Else
                    MessageBox.Show("Data gagal disimpan.", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Warning)

                End If
            End Using
        Catch ex As MySqlException
            MessageBox.Show("Terjadi kesalahan: " & ex.Message)

        Finally
            ' Menutup koneksi
            conn.Close()
            Console.WriteLine("Koneksi ditutup.")

        End Try
    End Using

    Dim formMain = New Frmmain
    Me.Hide()
    Frmmain.Show()
End Sub
End Class