membuat program pendaftaran menggunakan VBNET Dan Database Mysql

  • Instal XAMPP
  • Instal Crystal Report 8.5
  • Instal Mysql-Connector NET
  • Instal Mysql-Connector ODBC

Buat Database Sebagai Berikut

Dan Desain Form Program Sebagai Berikut :


Dan Desain Juga Form Laporan Sebagai Berikut :

Lalu Setting reference dengan cara project - add reference cari dari mysql.data.versi 2.0 lalu klik OK


Lalu Buat Modul Koneksi Dengan Cara Sebagai Berikut :

Dengan Source Code 

Module Moduleku
    Public CONN As String = "Server=localhost;user id=root;database=data_mahasiswa"

End Module
Ket: Saya Disini Memberi Nama Modul Saya Dengan Nama : Moduleku






Setelah Menulis Code Di Atas Lalu Buat ODBC Dengan Cara Membuka
Control Panel - AdministrativeTools - ODBC Lalu ADD


Kemudian Pilih MySQL ODBC 5.1 Driver 
Dan Finish


Setelah Itu Isi Data Data Seperti Di Gambar


Lalu Klik Test Maka Akan Muncul Connection Succesful


Langkah Selanjutnya Buatlah Sebuah Format Seperti Gambar Dibawah ini:


Lalu Simpan Dengan Nama Laporan.rpt


Dan Sekarang Saatnya Menulisnya Source Code Untuk Programnya
Maka Tujuan Mata Berpindah Ke VBNET

Selanjutnya Isilah Source Code Programnya

Public Class menuutama
    Private Sub TAMPILDATA()
        Try
            Using KONEKSI As New MySqlConnection(CONN)
                Using CMD As New MySqlCommand("SELECT * FROM pendaftaran ", KONEKSI)
                    KONEKSI.Open()
                    Using DATA As MySqlDataReader = CMD.ExecuteReader
                        ListView1.Items.Clear()
                        Dim ListItem As ListViewItem
                        While DATA.Read
                            ListItem = New ListViewItem()
                            ListItem = ListView1.Items.Add(DATA("no_pendaftaran"))
                            ListItem.SubItems.Add(DATA("nama_mahasiswa"))
                            ListItem.SubItems.Add(DATA("tempat_lahir"))
                            ListItem.SubItems.Add(DATA("tanggal_lahir"))
                            ListItem.SubItems.Add(DATA("jenkel"))
                            ListItem.SubItems.Add(DATA("agama"))
                            ListItem.SubItems.Add(DATA("asal_sekolah"))
                            ListItem.SubItems.Add(DATA("jurusan"))
                            ListItem.SubItems.Add(DATA("alamat"))
                            ListItem.SubItems.Add(DATA("no_hp"))
                        End While
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message())
        End Try
    End Sub
    Private Sub cetak()
        FormLaporan.CrystalReportViewer1.ReportSource = "laporan.rpt"
        FormLaporan.CrystalReportViewer1.SelectionFormula = "{pendaftaran.no_pendaftaran}='" & TextBox1.Text & "'"
        FormLaporan.CrystalReportViewer1.RefreshReport()
        FormLaporan.CrystalReportViewer1.Zoom(85)
        FormLaporan.ShowDialog()

    End Sub
    Private Sub nootomatis()
        Try
            Using KONEKSI As New MySqlConnection(CONN)
                Using CMD As New MySqlCommand("SELECT MAX (RIGHT(pendaftaran.no_pendaftaran,3))AS NO FROM pendaftaran", KONEKSI)
                    KONEKSI.Open()
                    Dim jumlahdata As String
                    Using Data As MySqlDataReader = CMD.ExecuteReader
                        If Data.Read = True Then
                            If IsDBNull(Data("NO")) Then
                                TextBox1.Text = "REG" & "001"
                            Else
                                jumlahdata = Data("NO") + 1
                                If Len(jumlahdata) = 1 Then
                                    TextBox1.Text = "REG" & "00" & jumlahdata
                                ElseIf Len(jumlahdata) = 2 Then
                                    TextBox1.Text = "REG" & "0" & jumlahdata
                                Else
                                    TextBox1.Text = "REG" & jumlahdata
                                End If
                            End If
                        End If
                    End Using
                End Using
            End Using
        Catch ex As Exception

        End Try
    End Sub
    Private Sub BERSIH()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        DateTimePicker1.Text = ""
        ComboBox1.Text = "-Pilih-"
        ComboBox2.Text = "-Pilih-"
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox2.Focus()
    End Sub

    Private Sub menuutama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TAMPILDATA()
        BERSIH()
        nootomatis()
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Try
            TextBox1.Text = ListView1.SelectedItems(0).Text
            TextBox2.Text = ListView1.SelectedItems(0).SubItems(1).Text.ToString
            TextBox3.Text = ListView1.SelectedItems(0).SubItems(2).Text.ToString
            DateTimePicker1.Text = ListView1.SelectedItems(0).SubItems(3).Text.ToString
            ComboBox1.Text = ListView1.SelectedItems(0).SubItems(4).Text.ToString
            ComboBox2.Text = ListView1.SelectedItems(0).SubItems(5).Text.ToString
            TextBox4.Text = ListView1.SelectedItems(0).SubItems(6).Text.ToString
            TextBox5.Text = ListView1.SelectedItems(0).SubItems(7).Text.ToString
            TextBox6.Text = ListView1.SelectedItems(0).SubItems(8).Text.ToString
            TextBox7.Text = ListView1.SelectedItems(0).SubItems(9).Text.ToString
        Catch ex As Exception

        End Try


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tanggal As Date
        tanggal = DateTimePicker1.Value
        If TextBox1.Text = "" Then
            MsgBox("No Pendaftaran Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            TextBox1.Focus()
        ElseIf TextBox2.Text = "" Then
            MsgBox("Nama Mahasiswa Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            TextBox2.Focus()
        ElseIf TextBox3.Text = "" Then
            MsgBox("Tempat Lahir Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            TextBox3.Focus()
        ElseIf DateTimePicker1.Text = "" Then
            MsgBox("Tanggal Lahir Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            DateTimePicker1.Focus()
        ElseIf ComboBox1.Text = "-Pilih-" Then
            MsgBox("Jenis Kelamin Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            ComboBox1.Focus()
        ElseIf ComboBox2.Text = "-Pilih-" Then
            MsgBox("Agama Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            ComboBox2.Focus()
        ElseIf TextBox4.Text = "" Then
            MsgBox("Asal Sekolah Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            TextBox4.Focus()
        ElseIf TextBox5.Text = "" Then
            MsgBox("Jurusan Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            TextBox5.Focus()
        ElseIf TextBox6.Text = "" Then
            MsgBox("Alamat Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            TextBox6.Focus()
        ElseIf TextBox7.Text = "" Then
            MsgBox("No HP Tidak Boleh Kosong ...!", MsgBoxStyle.Information, "Lengkapi Data")
            TextBox7.Focus()
        Else
            If MsgBox("Yakin Data Ingin Disimpan !", MsgBoxStyle.YesNo, "Simpan Data") = MsgBoxResult.Yes Then
                Try
                    Using KONEKSI As New MySqlConnection(CONN)
                        Using CMD As New MySqlCommand("INSERT INTO pendaftaran  VALUES ('" & TextBox1.Text & _
                                                      "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')", KONEKSI)

                            KONEKSI.Open()
                            Using Data As MySqlDataReader = CMD.ExecuteReader
                            End Using
                        End Using
                    End Using
                    MsgBox("Data Sudah Berhasil Disimpan", MsgBoxStyle.Information, "Pesan")
                    cetak()
                Catch ex As Exception
                    MsgBox(ex.Message())
                End Try
            Else
                TAMPILDATA()
                BERSIH()

            End If
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Yakin Data Ingin Diubah !", MsgBoxStyle.YesNo, "Ubah Data !!!") = MsgBoxResult.Yes Then
            Try
                Using KONEKSI As New MySqlConnection(CONN)
                    Using CMD As New MySqlCommand("UPDATE pendaftaran SET nama_mahasiswa= '" & TextBox2.Text & _
                                                  "', tempat_lahir= '" & TextBox3.Text & _
                                                  "', tanggal_lahir= '" & DateTimePicker1.Text & _
                                                  "', jenkel= '" & ComboBox1.Text & _
                                                  "', agama= '" & ComboBox2.Text & _
                                                  "', asal_sekolah= '" & TextBox4.Text & _
                                                  "', jurusan= '" & TextBox5.Text & _
                                                  "', alamat= '" & TextBox6.Text & _
                                                  "', no_hp= '" & TextBox7.Text & _
                                                  "' where no_pendaftaran= '" & TextBox1.Text & "' ", KONEKSI)
                        KONEKSI.Open()
                        Using Data As MySqlDataReader = CMD.ExecuteReader
                        End Using
                    End Using
                End Using
                MsgBox("Data Sudah Berhasil Diubah", MsgBoxStyle.Information, "Pesan")
                TAMPILDATA()
                BERSIH()
            Catch ex As Exception
                MsgBox(ex.Message())
            End Try
        Else
            BERSIH()
        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Pilih Datanya Dulu Coy....", MsgBoxStyle.Information, "Pilih Data")
        Else

            Using KONEKSI As New MySqlConnection(CONN)
                Using CMD As New MySqlCommand("DELETE FROM pendaftaran WHERE no_pendaftaran='" & _
                                              TextBox1.Text & "'", KONEKSI)
                    KONEKSI.Open()
                    Using Data As MySqlDataReader = CMD.ExecuteReader
                    End Using
                End Using
            End Using
            MsgBox("Data Sudah Berhasil Dihapus", MsgBoxStyle.Information, "Hapus Data User")
            TAMPILDATA()

        End If

    End Sub

    Private Sub DateTimePicker1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker1.KeyDown
        If e.KeyCode = 13 Then
            ComboBox1.Focus()
        End If
    End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = 13 Then
            TextBox2.Focus()
        End If
    End Sub

    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyCode = 13 Then
            TextBox3.Focus()
        End If
    End Sub

    Private Sub TextBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown
        If e.KeyCode = 13 Then
            DateTimePicker1.Focus()
        End If
    End Sub

    Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = 13 Then
            ComboBox2.Focus()
        End If
    End Sub

    Private Sub ComboBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox2.KeyDown
        If e.KeyCode = 13 Then
            TextBox4.Focus()
        End If
    End Sub

    Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
        If e.KeyCode = 13 Then
            TextBox5.Focus()
        End If
    End Sub

    Private Sub TextBox5_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox5.KeyDown
        If e.KeyCode = 13 Then
            TextBox6.Focus()
        End If
    End Sub

    Private Sub TextBox6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox6.KeyDown
        If e.KeyCode = 13 Then
            TextBox7.Focus()
        End If
    End Sub

    Private Sub TextBox7_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox7.KeyDown
        If e.KeyCode = 13 Then
            Button1.Focus()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        BERSIH()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        frmAbout.Show()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Shell("calc", AppWinStyle.NormalFocus)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Shell("notepad", AppWinStyle.NormalFocus)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        frmSystemInfo.Show()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()
        LoginForm1.Show()

    End Sub
End Class



Latest


EmoticonEmoticon