PEMROGRAMAN MEMBUAT FORM MAHASISWA VISUAL STUDIO

Salam Sejahtra buat kita semua , Pertama tama marilah kita ucapkan Puji syukur atas kehadirat Tuhan Yang Maha Esa yang mana masih memberikan Rahmat dan limpahannya . Baiklah saya di sini akan memberikan Tutorial membuat Form Mahasiswa secara singkat Di Microsoft Visual studio 8 . Langsung saja cekidot

 

Langkah pertama Buatlah databasenya di sini saya menggunakan XAMPP dan jika ada yang belum mengerti membuat database silahkan  klick disini

Buatlah nama databasenya login

Buatlah conect antara database dengan vbnya dengan cara buka ODBC 5.1

Click Add >> MySQL ODBC 5.1 DRIVER

 

 

Setelah itu tekan ok

Setelah selesai sekaranng kita open vb 2008

Click file> newproject>  buat nama filenya mahasiswa

Pertama tama kita buat dulu koding koneksinya

Click Project > Add module buat dengan nama ModKoneksi (catatan saya memakai conector Odbc 5.1)

KODING KONEKSI

Imports System.Data.Odbc

Module ModKoneksi

    Public conn As OdbcConnection

    Public da As OdbcDataAdapter

    Public dr As OdbcDataReader

    Public ds As DataSet

    Public cmd As OdbcCommand

    Public str As String

    Public Sub koneksi()

        str = "Driver={MYSQL ODBC 5.1 Driver};database=login;server=localhost;uid=root"

        conn = New OdbcConnection(str)

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

    End Sub

End Module

Setelah modul koneksi selesai kita membuat Form Mahasiswanya

Buat lah desainya seperti ini 

 

RUBAH TEXT NYA                 

Caranya pilih View lalu pilih Properties window pilih label atau button lalu ubahlah Text nya

Rubah variable nya

Caranya pilih View lalu pilih Properties window pilih textbox lalu ubahlah (name) nya

 

Untuk menambah Item pada Combo Box dengan cara click kanan pada combo box lalu edit items..

Setelah tampilan Selesai

Imports System.Data.Odbc

    Dim Lhr As Object

    Dim Jk As Object

Click 2 kali pada Button lalu masukkan kodingnya

 KODING SIMPAN

        Try

            Call koneksi()

            Dim Jk As New TextBox

            If (Lk.Checked) Then

                Jk.Text = "Laki-laki"

            Else

                Jk.Text = "Perempuan"

            End If

            Dim da As New OdbcDataAdapter

            Dim cmd As New OdbcCommand("insert into mahasiswa values ('" & TxtNim.Text & "','" & TxtNama.Text & "','" & TxtAlamat.Text & "','" & TxtTl.Text & "','" & Format(DTP.Value, "yyyy-MM-dd") & "','" & Jk.Text & "','" & TxtAgama.Text & "','" & TxtNoTelp.Text & "')", conn)

            da.InsertCommand = cmd

            da.InsertCommand.ExecuteNonQuery()

            Call atur()

            MsgBox("Data Berhasil Disimpan")

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

KODING HAPUS

        If TxtNim.Text = "" Then TxtNim.Focus() : Exit Sub

        Try

            Dim da As New OdbcDataAdapter

            Dim cmd As New OdbcCommand("delete from mahasiswa where NIM='" & TxtNim.Text & "'", conn)

            da.InsertCommand = cmd

            da.InsertCommand.ExecuteNonQuery()

            Call atur()

            MsgBox("Data Berhasil Dihapus")

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

KODING CANCEL

Call atur()

 KODING UPDATE

If TxtNim.Text = "" Then TxtNim.Focus() : Exit Sub

        Try

            Dim Jk As New TextBox

            If (Lk.Checked) Then

                Jk.Text = "Laki-laki"

            Else

                Jk.Text = "Perempuan"

            End If

            Dim da As New OdbcDataAdapter

            Dim cmd As New OdbcCommand("update mahasiswa set Nama='" & TxtNama.Text & "',Alamat='" & TxtAlamat.Text & "', Tempat_Lahir='" & TxtTl.Text & "',Tanggal_Lahir='" & DTP.Text & "',Jenis_Kelamin='" & Jk.Text & "',Agama='" & TxtAgama.Text & "',No_Telp='" & TxtNoTelp.Text & "'where NIM='" & TxtNim.Text & "'", conn)

            da.InsertCommand = cmd

            da.InsertCommand.ExecuteNonQuery()

            Call atur()

            MsgBox("Data Berhasil Diubah")

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

 KODING KELUAR

Me.Close()

 KODING DATA GRID VIEW

Try

            TxtNim.Text = dgv.Item(0, dgv.CurrentRow.Index).Value

            TxtNama.Text = dgv.Item(1, dgv.CurrentRow.Index).Value

            TxtAlamat.Text = dgv.Item(2, dgv.CurrentRow.Index).Value

            TxtTl.Text = dgv.Item(3, dgv.CurrentRow.Index).Value

            DTP.Text = dgv.Item(4, dgv.CurrentRow.Index).Value

            TxtAgama.Text = dgv.Item(6, dgv.CurrentRow.Index).Value

            TxtNoTelp.Text = dgv.Item(7, dgv.CurrentRow.Index).Value

            BtSimpan.Enabled = False

            TxtNim.Enabled = False

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

 KODING FORM LOAD 

klick 2 kali formnya masukkan koding ini

Call koneksi()

        Call atur()

        Call tampilkan()

 

 KODING ATUR DAN TAMPILKAN

Sub tampilkan()

        da = New OdbcDataAdapter("select * from mahasiswa", conn)

        ds = New DataSet

        ds.Clear()

        da.Fill(ds, "mahasiswa")

        dgv.DataSource = (ds.Tables("mahasiswa"))

        dgv.ReadOnly = True

    End Sub

    Sub atur()

        BtSimpan.Enabled = True

        TxtNim.Text = ""

        TxtNama.Text = ""

        TxtAlamat.Text = ""

        TxtTl.Text = ""

        TxtAgama.Text = ""

        TxtNoTelp.Text = ""

        Call koneksi()

        Call tampilkan()

    End Sub

 

Baiklah sekian tutorial dari saya jika ada yang kebingungan harap koment di bawah.

 

Tweet

Postingan terkait:

— Sunday, June 4, 2017 — 21 Comments — Tutorial, visualstudio