Blogger: Januari 2014

Buat design terlebih dahulu di VB Net / Visual Studio 2008 seperti di gambar ini.

Buatlah 7 TextBox seperti di desain.
                                       1. Name : TextBoxt1.Text
                                       2. Name : TextBoxt2.Text
                                       3. Name : TextBoxt3.Text
                                       4. Name : TextBoxt4.Text
                                     5. Name : TextBoxt5.Text
                                       6. Name : TextBoxt6.Text

7. Name : TextBoxt7.Text

Buatlah 1 Buah DataGridView dengan properties Name nya : dgv
Buatlah 2 Buah Button ( Simpan dan Exit )
Buatlah 7 Buah Label ( Nip Dosen, Nama, Alamat, jenis Kelamin, Golongan, Jabatan, Usia )
tambah 1 Label lagi untuk Title ( LATIHAN DATABASE ).

Selanjutnya jangan lupa buat Database Access, Soalnya kalau database gak di buat, percuma donk.,., ! hahahhahah
Lanjuuuttttttttt...........

Di latihan kali ini ane pakai Access 2007, tapi save file access nya dirubah ke 2003. Sehingga menjadi .mdb bukan .accdb.

Buat desain di database access nya, seperti gambar di bawah ini....
Ingat, jangan sepelekan nama Database dan nama Tabel, Ingat baik2 ya friends.,.,.,. :D :D

Disini nama Database ane ( latihan ) dan nama Tabel ane juga ( latihan ).
Ingaaaaaat lagi, huruf besar di nama database dan tabel berpengaruh... Hati - hati ...!

jangan salah juga ya di Data Type nya... sesuaikan..

Lanjutt.

Sekarang Kita buka program Visual Studio lagi.
Kita akan mulai konfigurasi script nya,
Setelah di Buka.
Double klik form yang sudah di desain tadi.
kemudian masukkan script berikut ini
Dim con As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand

di bagian paling atas, di bawah kalimat Public Class Form1
seperti gambar dibawah ini.. yang di dalam kotak merah.

Lanjut lagi Brother or sis...

Double Klik lagi form yang sudah di buat tadi.

Kemudian di bagian form_load kalau gak salah nama nya, Pokok nya, masukkan aja dech script di bawah ini..

con.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " & Application.StartupPath & "\latihan.mdb"

        Me.RefresData()

        TextBox1.Focus()
    End Sub
    Public Sub RefresData()
        If Not con.State = ConnectionState.Open Then
            con.Open()
        End If

        Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM latihan ORDER BY Nip_Dosen", con)
        Dim dt As New DataTable

        da.Fill(dt)
        Me.dgv.DataSource = dt

        con.Close()

    End Sub

Lihat Image ya.... :)

Penjelasan.

Kata latihan.mdb adalah nama database yang sudah anda buat tadi.
kemudian kata FROM latihan  adalah nama tabel.
Lanjuttt...

Double KLik Button Simpan. Maka akan masuk ke bagian script.
Kemudian masukkan script di bawah ini.

If Not con.State = ConnectionState.Open Then
            con.Open()
        End If

        cmd.Connection = con

        cmd.CommandText = "INSERT INTO latihan(Nip_Dosen , Nama , Alamat , Jenis_Kelamin , Golongan , Jabatan , Usia)" & _
        "VALUES('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & Me.TextBox7.Text & "')"

        cmd.ExecuteNonQuery()
        Me.RefresData()

        con.Close()
    End Sub

Lihat Image ya...

Penjelasan .

kata latihan adalah nama tabel.
Kata ( Nip_Dosen, Nama, alamat, Jenis_ Kelamin, Golongan, jabatan, Usia) adalah kata yang sama dan sesuai seperti yang ada di database.
Ingat huruf kecil dan besar memepengaruhi. Jangan Sampai Salah.

Lanjut, Double Klik Button Exit, yang sudah di buat tadi. Maka akan masuk ke bagian script.
Masukkan code Me.Close ( ) atau End

Lanjut lagi ya, capek ne, kan ane ntar juga maw istirahat and mkn bro.,., :D
masih banyak lagi yang maw di tulis. :D
Tapi gak susah kox, Sekarang semua script sudah selesai.. Kita tinggal Connect ke database aja lgi.. :D

Siaaap... Mulai..

Nah, dibagian Menu menu yang ada di Program Visual Studio 2008 kan ada menu Data tu,
Klik Data, pilih Add New Data Source...

Lihat Image aja dech..

Maka Akan tampil gambar di bawah ini...

Pilih Database, Klik Next

Nah, Kemudian, akan tampil gambar di bawah ini...

Klik New Connection.

maka akan tampil gambar berikut ini...

Klik Browse, Pilih Databse dimana tempat anda menyimpan nya tadi...... Jika Sudah, Klik Test Connection, Klik OK, Klik OK lagi.

nah, Kemudian di Bagian di bawah ini... Klik aja Cancel..
Gak pa2 kox... :D

Selesai dech...
Sekarang anda tinggal menjalankan Program nya, gak perlu kan ane tampilkan gambar cara Debug Program nya...,., :D Gak lah ya.,., :D

Bukti...

Untuk para adik adik yang sekolah menengah kejuruan jurusan informatika khususnya Rekayasa Perangkat Lunak dan untuk para abang abangku yang sudah semester 4 atau 3, berikut saya posting aplikasi penjualan yang sangat sederhana dengan menggunakan visual basic 6.0 yang saya pelajari dulu di Smkn 2 langsa tercinta =D.

Langsung saja saya praktikan bagaimana membuat aplikasi penjualan sederhana menggunakan visual basic 6.0. Sekarang coba buka program visual basic nya. Kemudian siapkan satu buah form dengan tambahan beberapa
komponen berikut :

No	Komponen	Name	Text	Caption
1	Text1	txtHarga	-	-
2	Text2	txtJumlah	-	-
3	Text3	txtInput	-	-
4	Label1	Label1	-	Aplikasi Penjualan Sederhana
5	Label2	Label2	-	Harga Barang
6	Label3	Label3	-	Jumlah
7	Label4	Label4	-	Pembayaran
8	Label5	Label5	-	Total Bayar
9	Label6	Label6	-	Kembalian
10	Label7	lblTotal	-	0
11	Label8	lblKembali	-	0
12	CommandButton1	cmdHitung	-	&Hitung
13	CommandButton2	cmdBersih	-	&Bersih