Aplikasi kredit visual studio dan database mysql server ~ Yang Ku Suka

Aplikasi kredit visual studio dan database mysql server ||..

aplikasi kredit visual studio dan database mysql server

nah saya mau coba bergabi hasil karya campur-campur....hehehhe..kaya buatan saya yg isinya dicampur dengan hasil karay orang lain.berbasis aplikasi kredit visual studio dan database mysql server.memang sih ini aplikasi masih jauh dari sempurna...tapi ya lumayan lah bisa bantu agan-agan yang lagi dikasih tugas sapa tau bisa jadi pencerahan sedikit...hehehe..ok deh kita mulai
alat-alat yg dibutuhkan diantaranya :
- laptop atau pc
- listik ( hehehe...kali aja batre abis)
- aplikasi visual studio
- aplikasi sql server
- sebungkus rokok
- 2 gelas kopi
hehehehe.....mantap ga tuh???

pertama, kita muali dengan mebuat database dari sql server,kalo disini saya hanya membuat dua tabel yaitu tabel nasabah dan tabel pinjaman...(saya yakin kok agan-agan lebih tau tabel apalagi yang dibutuhkan...)
y kurang lebih kaya gini...(selebihnya improfisasi aja ya)

MySQL SERVER

ini tabel nasabahnya....untuk tabel pinjamannya ga beda jauh kok...

kedua, setelah kita buat database dari sql nya sekarang kita lanjut buat apikasinya demngan mebuka visual studio...pertama tama kita buat sebuah form kita berinama form nasabah didalam form kita masukan (TabPage),lalu kita buat 3 sheet yg pertama kita bueri nama input, Data Nasabah, Data pinjaman
didalam tabpage yg kita beri nama input kita masukan beberapa label, textbox dan datagridview...contohnya kaya gini nih..

gambar dengan tabpage (input) dan kebutuhan label, textbox dan datagrid view

ini gambar tabpage(data nasabah) dan kebutuhan label,textbox dan datagrid....(bukan data gridview ya..)

nah yang ini tabpage(data pinjaman) ..

setelah dalam form nasabah ini kita sudah selesai mebuat nya sekarang langkah berikutnya kita perispan form lagi..hehehehe...kita beri nama form nya pinjaman...kurang lebih kaya gini juga...

nah setelah smua for sudah siap....terereng rereeeeengggg.....kita lanjut ke koding nya...heheheh....biar jalan juga nih aplikasinya....pertama tama biar data dari hasil inputan ini dapat disimpan dan dapat ditailkan kita drag OleDbdataAdapter menuju ke form nasabah..terus kita klik OleDbDataAdapter di pojokanan atas nya kan muncul tanda panah terus klik itu terus pilih configure data adapter...nah kita pilih deh dimana tepat sql yang tadi kita buat...

setelah itu akan munclu sebuah connection...lalu kita klik new conection,lalu klik advanced..dan gambarnya akan seperti di bawah ini ...............

setelah itu kita pilih SQLNCLI10 jangan lupa data sql tadi dicopy di server name agar data dapat dikoneksikan..setelah terhubung lalu kita pilih tabel yag kita buat tadi di sql server , lakukan hal yang sama pula pada tabel yang pinjaman agar dapat ditampilkan nanti di visual studio nya..

nah setelah persiapan koneksi telah siap,,,...kita lanjut dengan pengkodingan....

1. pertama kita dauble klik pada for nasabah...lalu kita masukan inputan seperti berikut : Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

OleDbDataAdapter1.Fill(Dsnasabah1)

OleDbDataAdapter2.Fill(Pinjaman21)

2. lalu kita double klik pada button (view) dan kita masukan koding sebagai berikut :

DataGridView1.Rows.Add(ktp.Text, nama.Text, jk.Text, pek.Text, telp.Text) dimana dimaksudkan memasukan koding tersebut agar data bisa dilihat sebelum masuk pada database.

3. lalu kita double klik pada button (simpan) :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sql As String

OleDbConnection1.Open()

sql = "Insert Into nasabah Values ('" & ktp.Text & "','" & nama.Text & "','" & DateValue(ttl.Value) & "','" &

jk.SelectedItem & "','" & alm.Text & "', " & "'" & pek.Text & "'," & "'" & gaji.Text & "'," & "'" & telp.Text & "')"

OleDbDataAdapter1.InsertCommand.CommandText = sql

OleDbDataAdapter1.InsertCommand.ExecuteNonQuery()

OleDbConnection1.Close()

MessageBox.Show("Data berhasil dimasukan", "Konfirmasi berhasil",

MessageBoxButtons.OK, MessageBoxIcon.Information)

Me.bersih()

End Sub

perintah bersih ini merupakan untuk membersihkan textbox yang telah kita isi sebelumnya dengan data-data yang akan kita iput...untuk pengkodingan bersih berupa perintah sebagai berikut :

Sub bersih()

ktp.Clear()

nama.Clear()

alm.Clear()

pek.Clear()

gaji.Clear()

telp.Clear()

dimana dijadikan sub dalam form nasabah.

4. lalu kita deuble klik pada button (selesai) dan kita masukan perintah sebagai berikut :

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

Me.Close()

End Sub

perintah ini untuk mengakhiri atau menutup penggunaan dari aplikasi ini .

5. lalu kita dauble klik pada button(pinjaman) dan masukan perintah sebagai berikut :

pinjaman.Show()

perintah ini berguna untuk memanggil form pinjaman yang telah kita buat tadi, jadi ketika kita meng klik button(pinjaman) maka akan secara otomatis dialihkan kepada form pinjaman..

tahanap untuk pengkodingan di tabpage inputan pad form nasabah sudah selesai..nah sekarang kita maju ke tahap berikutnya,....kita buka tabpage(data nasabah) dan langkah langkahnya sebagai berikut :

1. double klik pada button (cari) lalu asukan koding sebagai berikut :

Private Sub cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cari.Click

Dim sql As String

If RadioButton1.Checked = True Then

sql = "select noktp, nama , tanggal_lahir " & ", jen_kel , pekerjaan " & ", alamat , gaji " &

" , telp from nasabah Where noktp LIKE '%" & TextBox1.Text & "%'"

OleDbDataAdapter1.SelectCommand.CommandText = sql

Dsnasabah1.Clear()

OleDbDataAdapter1.Fill(Dsnasabah1, "nasabah")

DataGrid2.SetDataBinding(Dsnasabah1, "nasabah")

ElseIf RadioButton2.Checked = True Then

sql = "Select noktp , nama , tanggal_lahir " & ", jen_kel , pekerjaan " & ", alamat , gaji " &

" , telp from nasabah Where nama LIKE '%" & TextBox1.Text & "%'"

OleDbDataAdapter1.SelectCommand.CommandText = sql

Dsnasabah1.Clear()

OleDbDataAdapter1.Fill(Dsnasabah1, "nasabah")

DataGrid2.SetDataBinding(Dsnasabah1, "nasabah")

Else

MessageBox.Show("pilih jenis pencarian", "ok", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

diamana toblol cari ini berfungsi untuk melakukan pencarian berdasarkan radiobutton yang kita pilih,..melakukan filter berdasarkan perintah penemuan berdasarkan nama atau no ktp.

2. double klik pada button (refresh) ;

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

Dim sql As String

sql = "Select noktp, nama As [nama], tanggal_lahir , jen_kel , pekerjaan,alamat ,gaji As [gaji], telp from nasabah"

OleDbDataAdapter1.SelectCommand.CommandText = sql

Dsnasabah1.Clear()

OleDbDataAdapter1.Fill(Dsnasabah1, "nasabah")

DataGrid2.SetDataBinding(Dsnasabah1, "nasabah")

End Sub

3. double klik pada button (edit) ;

Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click

OleDbDataAdapter1.Update(Dsnasabah1)

MessageBox.Show("data berhasil dirubah", "data telah dirubah", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

4. double klik pada button (hapus);

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

Dim sql As String

Dim selectedsell As System.Windows.Forms.DataGridCell

Dim selecteditem As Object

Dim result As System.Windows.Forms.DialogResult

selectedsell = DataGrid2.CurrentCell

selecteditem = DataGrid2.Item(selectedsell.RowNumber, selectedsell.ColumnNumber)

result = MessageBox.Show("Anda Yakin ingin menghapus data " & selecteditem, "Konfimasi hapus data",

MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)

If result = System.Windows.Forms.DialogResult.OK Then

OleDbConnection1.Open()

sql = "delete nasabah where noktp = '" & selecteditem & "'"

OleDbDataAdapter1.DeleteCommand.CommandText = sql

OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()

Call Button2_Click(sender, e) 'menjalankan tombol refresh

OleDbConnection1.Close()

End If

End Sub

setelah ini selesai mari kita lanjut pada tabpage (pinjaman) dalam tabpage ini kita dapat mengetahui daftar yang sudah tersimpan pada database sql server dan menampilkan data data...untuk pengkodingannya sebagai berikut :

1. untuk datagrid disini kita perlu membuat dataset agar data yang ingin kita tampilkan dapat muncul...

2. bouble klik pada button(cari), kalau disini berhubung menggunakan datagrid bearti disi memanggil data-data yang sudah tersimpan pada database, berbeda dengan datagridview yang hanya menampilakan saja data yang telah kita input namun belum tersimpan pada data base..

Dim sql As String

If RadioButton1.Checked = True Then

sql = "select noktp, nama , tanggal_lahir " & ", jen_kel , pekerjaan " & ", alamat , gaji " &

" , telp from nasabah Where noktp LIKE '%" & TextBox1.Text & "%'"

OleDbDataAdapter1.SelectCommand.CommandText = sql

Dsnasabah1.Clear()

OleDbDataAdapter1.Fill(Dsnasabah1, "nasabah")

DataGrid2.SetDataBinding(Dsnasabah1, "nasabah")

ElseIf RadioButton2.Checked = True Then

sql = "Select noktp , nama , tanggal_lahir " & ", jen_kel , pekerjaan " & ", alamat , gaji " &

" , telp from nasabah Where nama LIKE '%" & TextBox1.Text & "%'"

OleDbDataAdapter1.SelectCommand.CommandText = sql

Dsnasabah1.Clear()

OleDbDataAdapter1.Fill(Dsnasabah1, "nasabah")

DataGrid2.SetDataBinding(Dsnasabah1, "nasabah")

Else

MessageBox.Show("pilih jenis pencarian", "ok", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

End Sub

3. untuk edit, cari dan hapus pengkodingannya sama seperti pada tabepage (input)

Untuk tabpage (data Pinjaman) isinya sama persis dengan tabepage (data nasabah) hanya yg membedakannya ialah database yang diambil yaitu data base yang diisi sesuai dengan for pinjaman...

nah sekarang kita lanjut lagi pada form pinjaman

langkah pertama setelah kita siapkan form pinjaman (kalo untuk latihan atau agar mudah memahaminya ikutin aja seperti pada contoh dulu, kalo udah paham nah baru improfisasi..hehehee..sekedar saran ..eheheh)

1. kita double klik pada button (hitung)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ht As String

ht = (Val(plaf.Text) * (Val(bg.Text) / 100)) + Val(plaf.Text) / Val(jw.Text)

angs.Text = ht -->merupakan textbox angsuran

adm.Text = Val(plaf.Text) * 0.03 --> merupakan nama textbox administrasi

ass.Text = ((Val(plaf.Text) * 0.5) * Val(jw.Text)) / 1000 --> merupakan nama textxbox asuransi

tb.Text = (Val(plaf.Text) - Val(adm.Text)) - Val(ass.Text) - Val(ret.Text) --> nama textbox terima bersih

siga.Text = Val(GJ.Text) - Val(angs.Text) --> merupakan nama textbox sisa gaji

2.double klik pada button (view)

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

DataGridView1.Rows.Add(kredit.Text, ktp1.Text, plaf.Text, adm.Text, ass.Text, ret.Text, tb.Text)

End Sub nah ini yang saya maksudkan tadi...pada tabpage (data Pinjaman) ini merupakan perintah untuk menampilkan data inputan tapi belum masuk pada database..

3. double klik pada button (simpan);

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

Dim sql As String

OleDbConnection1.Open()

sql = "insert Into pinjaman Values ('" & kredit.Text & "','" & Form1.ktp.Text & "'," & plaf.Text & "," & jw.Text & ",2.25 ," & adm.Text & " ," & ass.Text & ",800000 ,400000," & tb.Text & ") "

OleDbDataAdapter1.InsertCommand.CommandText = sql

OleDbDataAdapter1.InsertCommand.ExecuteNonQuery()

OleDbConnection1.Close()

Me.bersih()

MessageBox.Show("Data berhasil dimasukan", "Konfirmasi berhasil",

MessageBoxButtons.OK, MessageBoxIcon.Information)

Me.Close()

End Sub

untuk perintah simpan ini nantinya datanya adapat dilkihat pada tabepage(data pinjaman) nah kalo ini sudah tersipan dengan rapi di database my sql server..hehehehehe...

nah sudah jadi deh....begini lah newbie bekerja....masih banyakkkkkkkkkkkkk banget cacatnya...tapi mudah"an karya sederhana ini bisa bantu agan agan yang lagi kebingungan...maklum saya juga ngerasin giana bingungnya ketika dosen nyuruh bikin tugas,,....nah dari situlah saya pengen berbagi...mudah-mudahan bermanfaat...tp yang paling pnting...tetap semangat buat terus mencoba....kalo ada masukan jangan sungkan untuk di share ya...biar sy juga tau dimana mana saja yang mesti saya perbaiki (padahal seuanya perlu dirombak)hehehehe...

hasilnya kurang lebih seperti ini :