19

TUTORIAL-PEMROGRAMAN MEMBUAT FORM MAHASISWA VISUAL STUDIO

Saturday, June 3, 2017
Share this Article on :


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.


 






Artikel Terkait:

19 comments:

Anto Lim said...

nice gan
sering2 update yang beginian yak

Vanrezky Sadewa said...

Sip siap gan

Sindu Arema said...

ijin coba gan kebetulan jurusan saya RPL, itu databasenya pkek XAMPP versi bebas gpp ?

Ferdi Ardian said...

Nice gan, Nice

kunjungi juga gan
ardianfer. blogspot. com

shidiq fadly said...

Mkaasih gaan...

Vanrezky Sadewa said...

Sama sama :)

Vanrezky Sadewa said...

Di barang menaruh link aktif gan

Vanrezky Sadewa said...

Jangan menaruh link aktif

Alfayed Dennita said...

Sangat bermanfaat tutorialnya. Terima kasih untuk tutorialnya :)

muhammad mahfud said...

boleh diterapkan juga nih tutornya

Vanrezky Sadewa said...

Boleh gan kenapa enggak :)

nur hidayat said...

nice info

Vanrezky Sadewa said...

thanks

Vanrezky Sadewa said...

Bisa. Coba aja

Vanrezky Sadewa said...

Siap

Ainun Masyrifah said...

Manteb mas salut itu kode semua memang anak pemprograman itu jenius2

Blogcahti said...

Mantap mas. Saya juga lagi belajar pemrogaman tapi belum sampai kesitu hehe. Tutorialnya bisa buat iseng belajar nih.

Anonymous said...

Nice sharing gan..

Muh.Luqmanul Hakim said...

Makasih gan infonya..

Post a Comment