Fungsi Insert, Update, Delete , View di VB.Net 2005

Assalammualaikum ....
Waaahh....akhirnya  ada juuga waktu untuk membuat postingan lagi..lama rasa.a blog tercintaku ini ku biarkan..hehehe

oke..kali ini saya akan membagi ilmu tentang bagaimana melakukan sebuah fungsi CRUD (" Create ", " Update ", " Delete ") dan View menggunakan VB.Net 2005...

Tiap kali melihat desain form punya temen, fungsi-fungsi CRUD selalu berada didalam satu form...seperti pada contoh form dibawah ini

nah sekarang..bagaimana kalo fungsi CRUD tersebut ada di Form yang lain..misalnya ketika Tombol Tambah ditekan maka akan muncul Form Tambah, begitu juga seperti Tombol yang lainnya...

Oke..langsung ajah..sekarang kita coba untuk membuat Aplikasi Pendaftaran Praktikan Sederhana...

1. Buka VB.Net kalian......

2. Buat Sebuah Project varu dengan pilih File-->New-->Project...
    Beri nama project sesuka kalian misal " cobacoba "

3. Kemudian disebelah kanan ada Solution Explorer..klik kanan nama project kalian..kemudian pilih Add Reference..Maka akan keluar kotak dialog..pilih pada bagian .NET...Karena disini saya memakai database MySql..maka pilih MySql.Data..kemudian OK...Seperti pada gambar dibawah ini

4. Buat Sebuah module..Dengan klik kanan nama project, kemudian pilih Add-->New Item-->Module...dan berilah nama Koneksi...Kemudian Ketikan potongan Code berikut ini :

Imports MySql.Data.MySqlClient.MySqlConnection
Module koneksi
    Public comm As New MySql.Data.MySqlClient.MySqlCommand
    Public da As New MySql.Data.MySqlClient.MySqlDataAdapter
    Public ds As New DataSet
    Public conn As New MySql.Data.MySqlClient.MySqlConnection
    Public Sub konek(ByVal server As String, ByVal user As String, ByVal pass As String, ByVal db As String)
        If conn.State = ConnectionState.Closed Then
            Dim myString As String = "server=" & server _
            & ";user=" & user _
            & ";password=" & pass _
            & ";database=" & db
            Try
                conn.ConnectionString = myString
                conn.Open()
             Catch ex As MySql.Data.MySqlClient.MySqlException
                MsgBox("Koneksi Gagal")
                End
            End Try
        End If
    End Sub
    Public Sub disconnect()
        Try
            conn.Open()
        Catch ex As MySql.Data.MySqlClient.MySqlException
        End Try
    End Sub
End Module

5. Kemudian design form kalian seperti gambar dibawah ini...dengan memanfaatkan menu toolbox yang ada di sebelah kiri ..

Kemudian pada ComboBox, pilih properties--items, dimana items yang ada didalam ComboBox berisi Npm, Nama dan Sesi...kemudian double klik pada form..dan ketikan kode berikut:

Imports MySql.Data.MySqlClient.MySqlConnection
Public Class dataPraktikan
    Public dai As New MySql.Data.MySqlClient.MySqlDataAdapter
    Public dsi As New DataSet
    Public Sub tampil()
        ds.Clear() 'utk menghapus data lama di memory/g double
        Dim query As String
        query = "Select * from praktikan"
        comm.CommandText = query
        da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
        da.Fill(ds, "praktikan")
        tablePraktikan.DataSource = ds.Tables("praktikan").DefaultView
        tablePraktikan.ReadOnly = True 'supaya data d grid tidak bisa diubah
    End Sub
    Public Sub Editdata()
        Try
            ubahPraktikan.txtNPM.Text = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 0)
            ubahPraktikan.txtNama.Text = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 1)
            ubahPraktikan.comSesi.SelectedItem = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 2)
            ubahPraktikan.txtNPM.Enabled = False
            ubahPraktikan.Show()
        Catch ex As Exception
        End Try
    End Sub
    Sub cari()
        ds.Clear()
        Dim query As String
        If comboCari.SelectedItem.ToString.Contains("Nama") Then
            query = "Select * from praktikan Where nama like '%" & txtCari.Text & "%'"
            comm.CommandText = query
            da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
            da.Fill(ds, "praktikan")
            tablePraktikan.DataSource = ds.Tables("praktikan").DefaultView
            tablePraktikan.ReadOnly = True
        ElseIf comboCari.SelectedItem.ToString.Contains("NPM") Then
            query = "Select * from praktikan Where npm like '%" & txtCari.Text & "%'"
            comm.CommandText = query
            da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
            da.Fill(ds, "praktikan")
            tablePraktikan.DataSource = ds.Tables("praktikan").DefaultView
            tablePraktikan.ReadOnly = True
        ElseIf comboCari.SelectedItem.ToString.Contains("Sesi") Then
            query = "Select * from praktikan Where sesi like '%" & txtCari.Text & "%'"
            comm.CommandText = query
            da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
            da.Fill(ds, "praktikan")
            tablePraktikan.DataSource = ds.Tables("praktikan").DefaultView
            tablePraktikan.ReadOnly = True
        End If

    End Sub
    Private Sub dataPraktikan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        konek("localhost", "root", "", "psi")
        tampil()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tp As New tambahPraktikan()
        tp.ShowDialog()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Editdata()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            hapus()
        Catch ex As Exception

        End Try
    End Sub
    Sub hapus()
        ubahPraktikan.txtNPM.Text = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 0)
        ubahPraktikan.txtNama.Text = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 1)
        ubahPraktikan.comSesi.SelectedItem = tablePraktikan.Item(tablePraktikan.CurrentRowIndex, 2)
        Dim tanya As DialogResult
        tanya = MessageBox.Show("Yakin akan menghapus recordini??", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If tanya = Windows.Forms.DialogResult.Yes Then
            Dim query As String
            query = "delete from praktikan where npm= '" & ubahPraktikan.txtNPM.Text & "' "
            comm.CommandText = query
            da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
            da.Fill(ds, "praktikan")
            MessageBox.Show("Data sudah dihapus", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
            tampil()
        End If
    End Sub

    Private Sub btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click
        Try
            cari()
            If txtCari.Text = "" Then
                MsgBox("Data Tidak ada")
                tampil()
            End If
        Catch ex As Exception

        End Try

    End Sub
End Class

6. Nah sekarang klik kanan pada nama project kalian...kemudian pilih Add-->New Item-->Windows Form-->Add...Maka akan muncul Halaman Form kosong..form kosong tersebut yag akan kita gunakan sebagai form tambah..jadi ketika Tombol tambah ( No.4 ) ditekan..maka Form tambah inilah yang akan tampil..Design seperti dibawah ini

Kemudian double klik pada form dan ketikan code beikut :

Imports MySql.Data.MySqlClient.MySqlConnection
Public Class tambahPraktikan
    Sub simpan()
        Dim query As String
        query = "Insert Into praktikan values (" & _
              "'" & txtNPM.Text & "'" & _
              ",'" & txtNama.Text & "'" & _
              ",'" & comSesi.SelectedItem & "')"
        comm.CommandText = query
        da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
        da.Fill(ds, "praktikan")
        MessageBox.Show("Data Tersimpan")
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Me.Close()
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        If txtNPM.Text = "" Or txtNama.Text = "" Then
            MsgBox("Tidak Boleh ada yang kosong!!")
        ElseIf Len(txtNPM.Text) > 10 Then
            MsgBox("NPM Tidak boleh > 10 Digit!!")
        ElseIf Len(txtNPM.Text) < 10 Then
            MsgBox("NPM Tidak boleh < 10 Digit!!")
        ElseIf Not IsNumeric(txtNPM.Text) = True Then
            MsgBox("NPM harus angka")
        Else
            simpan()
            dataPraktikan.tampil()
            Me.Close()
        End If
    End Sub
End Class

7. Nah sekarang klik kanan pada nama project kalian...kemudian pilih Add-->New Item-->Windows Form-->Add...Maka akan muncul Halaman Form kosong..form kosong tersebut yag akan kita gunakan sebagai form Ubah..jadi ketika Tombol Ubah ( No.4 ) ditekan..maka Form Ubah inilah yang akan tampil..Design seperti dibawah ini

Kemudian double klik pada form dan ketikan code berikut ini :

Imports MySql.Data.MySqlClient.MySqlConnection
Public Class ubahPraktikan

    Private Sub ubahPraktikan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dataPraktikan.Editdata()
    End Sub

    Sub ubah()
        Dim query As String
        query = "Update praktikan SET " & _
              "nama='" & txtNama.Text & ",'" & _
              ",sesi='" & comSesi.SelectedItem & "'" & _
              " WHERE npm like '" & txtNPM.Text & "'"
        comm.CommandText = query
        da = New MySql.Data.MySqlClient.MySqlDataAdapter(comm.CommandText, conn)
        da.Fill(ds, "praktikan")
        MessageBox.Show("Data berhasil diubah")
        dataPraktikan.tampil()
        Me.Close()
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        If txtNama.Text = "" Then
            MessageBox.Show("Nama Tidak Boleh kosong!!")
        Else
            ubah()
        End If
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Me.Close()
    End Sub
End Class


Selamat mencoba..semoga bermanfaat :)

Selengkapnya - Fungsi Insert, Update, Delete , View di VB.Net 2005

Tugas Modul 7 OOP

Karena praktikum jum'at kemarin tertunda..kita masih ngadain praktikum (pengganti),
tapi masalah jadwal masih belum tahu...nanti akan ada pemberitahuan...

Tugas ini juga berlaku bagi Sesi praktikum yang hari rabu tidak hadir

1. Cari artikel tentang OOP
2. Cari source code mengenai encapsulation
3. Buat sebuah program yang terdapat turunan ( inheritance )
4. Untuk soal no.3, gunakan inputan user

Tugas dikumpulkan paling lambat H-1 sebelum praktikum
Fortmat Sesi_Tupen_Npm_Nama ( dijadikan 1 folder berformat .ZIP/ .RAR )
NB : Untuk format yang tidak sesuai...tidak dimasukkan dalam nilai

Terima kasih...selamat mencoba

Selengkapnya - Tugas Modul 7 OOP

membuat fungsi di java

Sebelum kita mengenal apa itu fungsi, alangkah baiknya kita mengerti terlebih dahulu apa itu class dan object, karena antara ketiga hal tersebut saling berkaitan...

1. Pengertian 
• Class merupakan suatu  blueprint  atau  cetakan  untuk menciptakan suatu  instant dari  object.  class  juga  merupakan  grup  suatu  object  dengan  kemiripan attributes/properties, behaviour dan relasi ke object lain. 
• Contoh : Class Person, Vehicle, Tree, Fruit dan lain-lain.  

1. Pengertian Object
• Object  adalah  instance  dari  class.   Jika  class  secara  umum  merepresentasikan (template) sebuah object, sebuah  instance adalah  representasi nyata dari class  itu sendiri. 
• Contoh : Dari class Fruit kita dapat membuat object Mangga, Pisang, Apel dan lain-lain.  

Membuat object 

Untuk membuat object, kita menggunakan perintah new dengan sebuah nama class yang akan dibuat sebagai instance dari class tersebut.  

String str = new String();  

Random r = new Random();  

Pegawai p2 = new PEgawai();  

Date hari = new Date();   

hari adalah object reference dari class Date yang akan digunakan untuk mengakses class Date. 

Sedangkan  operator  new  adalah  operator  yang  akan  menghasilkan  hari  sebagai reference ke instance dari class Date().   

Attributes merupakan nilai data  yang  terdapat pada  suatu object  yang berasal dari class. Attributes merepresentasikan karakteristik dari suatu object.   

Contoh  :  pada Class  Fruit  terdapat  attribute  : warna,  berat  pada  object mangga  : 

warna  berisi  kuning  dan  berat  misalkan  0.25  kg  pada  object  apel  :  warna  berisi merah dan berat misalkan 0.30 kg   

Method merupakan  suatu operasi berupa  fungsi-fungsi  yang dapat  dikerjakan oleh suatu object. Method didefinisikan pada class akan tetapi dipanggil melalui object.   

Contoh : pada object mangga : terdapat method ambilRasa , kupasKulit dan lain-lain.    

METHOD  

Metode menentukan perilaku objek, yakni apa yang  terjadi ketika objek  itu dibuat serta berbagai operasi yang dapat dilakukan objek sepanjang hidupnya.  

Metode  memiliki 4 (empat) bagian dasar : 

1.  Nama metode 

2.  Tipe Objek atau tipe primitive yang dikembalikan metode. 

3.  Daftar parameter. 

4.  Badan atau isi metode.  

Tiga  bagian  pertama  mengindikasikan  informasi  penting  tentang  metode  itu  sendiri. Dengan kata  lain, nama metode  tersebut=metode  lain dalam program. Dalam  java kita dapat memiliki metode-metode berbeda yang memiliki nama sama  tetapi berbeda  tipe kembalian atau daftar argumennya, sehingga bagian-bagian definisi metode ini menjadi penting. Ini disebut overloading metode.  Untuk  menjalankan  program  yang  memiliki  sifat  polymorphism  tersebut,  diperlukan suatu  kemampuan  overloading,  yaitu  suatu  kemampuan  untuk  menentukan  fungsi yang mana yang harus digunakan atau dijalankan jika terdapat nama fungsi yang sama.   Polimorfisme  bisa  diartikan  seperti  kemampuan  suatu  variable  untuk  mengubah perangai  sesuai  dengan  objek  hasil  instansiasi  yang  digunakan.  Polimorfisme membiarkan  lebih  dari  1  objek  dari  sub  class sub  class  dan  diperlakukan  sebagai objek dari super class tunggal 

Contoh: 

Mahasiswa cowok = new anakSI(); 

cowok.methodKU( Bernaz );  

Mahasiswa cewek = new anakTI(); 

cewek.mothodKU( Amelia ); 

Outputnya: 

Methodku dengan parameter dengan nilai Bernaz di class anakSI telah dipanggil 

Methodku dengan parameter dengan nilai Amelia di class anakTI telah dipanggil 

Contoh program bisa di download disini

Selamat mencoba...semoga bermanfaat
jangan lupa tinggalkan komentar Anda..terima kasih :)

Selengkapnya - membuat fungsi di java

Cara memasang tombol Like Facebook di Blog

Siapa yang tidak populer dengan situs jejaring sosial Facebook??Situs Jejaring sosial tersebut masih berada di peringkat pertama di jajaran jejaring sosial terpopuler saat ini. Jumlah pengguna Facebook di dunia pun dalam 6 tahun sejak berdirinya terus meningkat.

Mengutip data yang dikeluarkan oleh checkfacebook.com pada 5 Februari 2011, total masyarakat dunia yang mengakses Jejaring Sosial Terpopuler Facebook saat ini telah mencapai angka yang cukup tinggi yakni 608,083,720. Indonesia menduduki urutan nomer 2, setelah Amerika Serikat, dari daftar negara dengan jumlah pengguna akses facebook tertinggi. Indonesia mencapai angka 34.498.920 pengguna facebook, dengan 100% online user. Namun selain digunakan sebagai media komunikasi dunia maya, kita bisa memanfaatkan tombol like facebook sebagai media promosi bagi blog kita..bagaimana caranya ??

1.Login dulu ke blogger
2.Ketika di halaman dasbor , klik rancangan .
3.Kemudian pilih Edit Html dan centang kotak Expand Template Widget

Nah sekarang ada 2 pilihan apakah anda hendak menaruh tombol like ini di atas posting , atau di bawah posting.

1.Untuk memasang tombol like ini di atas posting , sobat cari kode   <div class='post-header-line-1'/> , bisa menggunakan control F , kalau sudah ketemu masukkan kode tombol like facebook ini di bawah kode   <div class='post-header-line-1'/> yang sobat temukan .

<iframe allowTransparency='true' expr:src='&quot;http://www.facebook.com/plugins/like.php?href=&quot; + data:post.url + &quot;&amp;layout=button_count&amp;show_faces=false&amp;width=100&amp;action=like&amp;font=arial&amp;colorscheme=light&quot;' frameborder='0' height='30' scrolling='no' style='border:none; overflow:hidden; '/>

2.Kemudian simpan deh .

1.Untuk meletakkan kode tombol like button facebooknya di bawah posting , maka sobat cari kode <data:post.body/> , bisa menggunakan control F , kalau sudah ketemu masukan kode tombol like facebook ini tepat dibawah kode <data:post.body/> yang pertama.

<b:if cond='data:blog.pageType == &quot;item&quot;'>
<iframe allowTransparency='true' expr:src='&quot;http://www.facebook.com/plugins/like.php?href=&quot; + data:post.url + &quot;&amp;layout=button_count&amp;show_faces=false&amp;width=100&amp;action=like&amp;font=arial&amp;colorscheme=light&quot;' frameborder='0' height='30' scrolling='no' style='border:none; overflow:hidden; '/>
</b:if> 

2. Kemudian Simpan

Anda ganti kode   button_count dengan kode standard .Jika ingin tampilan tombol like seperti standart ( seperti pada postingan blog saya )
Dan jika sobat ingin merubah warnanya menjadi agak gelap ganti kode light dengan kode dark .
Selamat mencoba dan semoga bermanfaat..!

Selengkapnya - Cara memasang tombol Like Facebook di Blog