YukCoding

Tampilkan postingan dengan label Desktop Dev. Tampilkan semua postingan

Tutorial + Source Code CRUD & Searching Data dengan VB.NET dan MariaDB

Assalamu'alaikum wr. wb.

Kali ini kita akan belajar bersama bagaimana membuat CRUD (Create, Read, Update, Delete) & search data dengan menggunakan VB.NET dan database MySQL.

Aplikasi yang dibutuhkan ialah Microsoft Visual Studio, disini saya menggunakan Microsoft Visual Studio 2010. Sedangkan untuk database nya saya menggunakan MariaDB bawaan web server XAMPP karena OS nya windows.

Tampilan output-nya kira-kira seperti ini :

Tutorial :

1. Siapkan alat tempur yaitu Microsoft Visual Studio (versi terserah) dan install database MySQL (lebih enak install xampp yang sudah satu paket).

2. Buat project baru di vb.net dan jangan lupa pastikan sudah terinstall MySQL Connector Net (Anda dapat mendownload-nya disini).

3. Buat database perkuliahandb (nama optional), dan buat tabel mahasiswa (nama optional) dengan deskripsi field-field sebagai berikut.

4. Klik kanan pada project kita di bagian Solution Explorer (kanan) > Add Reference > .NET > MySql.Data

5. Buat desain form-form nya seperti hasil output program diatas (silakan di explore sesuai keinginan masing-masing), lalu berikan nama unique pada masing-masing komponen di dalamnya.

6. Buat modul baru dengan nama koneksi.vb dan kemudian sesuaikan script nya seperti dibawah ini

koneksi.vb

Imports MySql.Data.MySqlClient

Module koneksi
Public conn As New MySqlConnection
Public MySQLReader As MySqlDataReader
Public CMD As New MySqlCommand
Public DA As New MySqlDataAdapter

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
MessageBox.Show("Koneksi Gagal" & vbCrLf & "Mohon cek apakah server sudah siap!", "Koneksi ke server", MessageBoxButtons.OK, MessageBoxIcon.Warning)
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

Form1.vb

Imports Pertemuan9.koneksi
Imports MySql.Data.MySqlClient

Public Class Form1
Dim conn As New MySqlConnection("Server=localhost; user=root; database=perkuliahandb")
Dim perintah As New MySqlCommand
Dim data As New MySqlDataAdapter
Dim ds As New DataSet

Private Sub tampildata()
Dim dt As DataTable
Dim adapter As MySqlDataAdapter
Dim sqlstr As String
Dim data As Integer

sqlstr = "SELECT * FROM mahasiswa"
adapter = New MySqlDataAdapter(sqlstr, conn)
dt = New DataTable
data = adapter.Fill(dt)

If data > 0 Then
tabelMhs.DataSource = dt
tabelMhs.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill
tabelMhs.Columns(0).HeaderText = "NIM"
tabelMhs.Columns(1).HeaderText = "NAMA"
tabelMhs.Columns(2).HeaderText = "TEMPAT"
tabelMhs.Columns(3).HeaderText = "TGL LAHIR"
tabelMhs.Columns(4).HeaderText = "JENIS KELAMIN"
tabelMhs.Columns(5).HeaderText = "ALAMAT"
Else
tabelMhs.DataSource = Nothing
End If
bersih()
End Sub

Private Sub bersih()
txtNim.Text = ""
txtNama.Text = ""
txtAlamat.Text = ""
txtTempat.Text = ""
cbJk.SelectedIndex = -1
dtpTgl.Text = ""
txtNim.Focus()
End Sub

Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
conn.Open()
Try
perintah.CommandType = CommandType.Text
perintah.CommandText = "INSERT INTO mahasiswa (nim, nama, jekel, tempat, tgl_lahir, alamat) VALUES ('" & txtNim.Text & "', '" & txtNama.Text & "', '" & cbJk.Text & "', '" & txtTempat.Text & "', '" & dtpTgl.Text & "', '" & txtAlamat.Text & "')"
perintah.Connection = conn
perintah.ExecuteNonQuery()
MsgBox("Data berhasil disimpan", MsgBoxStyle.Information, "Informasi")
Catch ex As Exception
MsgBox("Data gagal disimpan" + ex.Message, MsgBoxStyle.Critical)
End Try
conn.Close()
tampildata()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
konek("localhost", "root", "", "perkuliahandb")
tampildata()
dtpTgl.Format = DateTimePickerFormat.Custom
dtpTgl.CustomFormat = "yyyy/MM/dd"

btnEdit.Enabled = False
btnHapus.Enabled = False
btnBatal.Enabled = False
End Sub

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

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
conn.Open()
Try
Dim perintah As New MySql.Data.MySqlClient.MySqlCommand
perintah.CommandType = CommandType.Text
perintah.CommandText = "UPDATE mahasiswa SET nama = '" & txtNama.Text & "' , jekel = '" & cbJk.Text & "' , tempat = '" & txtTempat.Text & "' , tgl_lahir = '" & dtpTgl.Text & "' , alamat = '" & txtAlamat.Text & "' WHERE nim = '" & txtNim.Text & "'"
perintah.Connection = conn
perintah.ExecuteNonQuery()
MySQLReader = perintah.ExecuteReader
MsgBox("Data berhasil diubah", MsgBoxStyle.Information, "Informasi")
Catch ex As Exception
MsgBox("Data gagal diubah" + ex.Message, MsgBoxStyle.Critical)
End Try
conn.Close()
tampildata()
btnSimpan.Enabled = True
txtNim.Enabled = True
txtNim.Focus()
End Sub

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
Dim hasil As MsgBoxResult = MessageBox.Show("Apakah data ingin dihapus?", "Pesan", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
If hasil = vbOK Then
conn.Open()
perintah.Connection = conn
perintah.CommandType = CommandType.Text
perintah.CommandText = "DELETE FROM mahasiswa WHERE nim = '" & txtNim.Text & "'"
perintah.ExecuteNonQuery()
conn.Close()
End If
tampildata()
btnSimpan.Enabled = True
txtNim.Focus()
End Sub

Private Sub tabelMhs_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles tabelMhs.CellClick
Dim i As Integer
i = Me.tabelMhs.CurrentRow.Index
With tabelMhs.Rows.Item(i)
Me.txtNim.Text = .Cells(0).Value
Me.txtNama.Text = .Cells(1).Value
Me.cbJk.Text = .Cells(4).Value
Me.txtTempat.Text = .Cells(2).Value
Me.dtpTgl.Text = .Cells(3).Value
Me.txtAlamat.Text = .Cells(5).Value
End With
txtNim.Enabled = False
btnSimpan.Enabled = False

btnEdit.Enabled = True
btnHapus.Enabled = True
btnBatal.Enabled = True
End Sub

Private Sub txtCari_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCari.KeyPress
Dim dt As DataTable
Dim adapter As MySqlDataAdapter
Dim sqlstr As String
Dim data As Integer
If cbCari.Text = "NIM" Then
sqlstr = "SELECT * FROM mahasiswa WHERE nim LIKE '%" & txtCari.Text & "%'"
ElseIf cbCari.Text = "Nama" Then
sqlstr = "SELECT * FROM mahasiswa WHERE nama LIKE '%" & txtCari.Text & "%'"
Else
sqlstr = "SELECT * FROM mahasiswa WHERE nim or nama LIKE '%" & txtCari.Text & "%'"
End If
adapter = New MySqlDataAdapter(sqlstr, conn)
dt = New DataTable
data = adapter.Fill(dt)
If data > 0 Then
tabelMhs.DataSource = dt
tabelMhs.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.Fill
tabelMhs.Columns(0).HeaderText = "NIM"
tabelMhs.Columns(1).HeaderText = "NAMA"
tabelMhs.Columns(2).HeaderText = "JEKEL"
tabelMhs.Columns(3).HeaderText = "TEMPAT"
tabelMhs.Columns(4).HeaderText = "TGL. LAHIR"
tabelMhs.Columns(5).HeaderText = "ALAMAT"
Else
tabelMhs.DataSource = Nothing
'MsgBox("Data tidak ditemukan!", MsgBoxStyle.Information, "Informasi")
End If
End Sub

Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
bersih()
txtNim.Enabled = True
btnSimpan.Enabled = True

btnEdit.Enabled = False
btnHapus.Enabled = False
End Sub
End Class

7. Silakan di atur-atur juga bagian properties komponen-komponen di dalamnya sesuai selera.

8. Selesai. Selamat dan semoga berhasil :)

Kira-kira seperti itu tutorial pembuatannya. Cukup mudah bukan?

Bagi teman-teman yang belum bisa praktek atau ingin mendapatkan langsung source code jadi + database nya. Silakan download pada link dibawah ini :

atau

Jika mungkin gagal download dengan link diatas, coba link INI.

Catatan :
Jika Anda mendownload source code ini dan ketika dijalankan terjadi error seperti gambar dibawah ini,

Maka solusinya adalah klik kanan project kita di Solution Explorer (biasanya di kanan atas), kemudian cari bagian menu References dan remove dulu bagian MySql.Data nya (biasanya paling atas). Setelah itu ulangi Add Reference seperti pada tutorial nomor 4 diatas.

* Referensi :
Modul Praktikum Pemrograman Terstuktur (Pertemuan ke IXb dan Xa) jurusan Teknik Informatika Semester 2, yang diampu oleh Dosen Ahmad Abdul Chamid, S.Kom., M.Kom. di Universitas Muria Kudus. Tetapi source code sudah di modifikasi sesuai kebutuhan oleh YukCoding.

Semoga bermanfaat, happy coding :)

Wassalamu'alaikum wr. wb.

Membuat Program Kelulusan Sederhana dengan C++

Assalamu'alaikum wr. wb.
Hai sobat coding, apa kabar? Semoga baik-baik saja.

Pada kesempatan kali ini saya akan berbagi ilmu tentang bagaimana cara membuat program kelulusan sederhana dengan menggunakan bahasa C++. Kita belajar yang dasar dan sederhana dulu agar paham struktur dari bahasa C++ itu sendiri.

Bagi anda yang belum mempunyai compilernya [disini saya memakai Borland C++ 5.02] dan belum menginstalnya, silahkan baca artikel "Download Borland C++ 5.02 dan Cara Instal". Setelah aplikasinya terinstal di komputer anda, ikuti langkah-langkah selanjutnya :

1. Buka aplikasi Borland C++ 5.02

2. Selanjutnya klik menu File >> New >> Text Edit

3. Setelah muncul kotak kosong kemudian isikan script-script untuk membuat programnya di bawah :

#include<stdio.h>
#include<constrea>
main()
{
int nilai;
cout<<"--Menentukan Kelulusan-- \nBy : http://yukcoding.blogspot.com \n";
cout<<"\nJika nilai diatas 70 maka Anda LULUS\n";
printf("\nMasukan sebuah nilai : "); scanf("%d",&nilai);
if (nilai>70)
printf("Anda LULUS\n");
else
printf("Maaf Anda Tidak LULUS\n");
getch();
}

4. Setelah script diatas Anda copy, klik Debug >> Run atau tekan CTRL + F9

5. Jika muncul program CLI atau berbasis text, berarti program tersebut berhasil kita buat, jika tidak muncul program dan ada pesan kesalahan berarti ada yang salah dalam script nya, coba ulangi lagi dengan teliti.

6. Langkah terakhir adalah menyimpannya. Di dalam folder tersebut setelah di Run script diatas maka akan secara otomatis ada program jadinya yang berekstensi .exe

Screen shoot program jadinya seperti ini kawan :

Ternyata gampang bukan cara membuat programnya.

Sekian dulu sob informasi dari saya, jika masih kesulitan atau mengalami masalah bisa langsung ditanyakan di komentar sob. Terimakasih.

Semoa ilmunya bermanfaat :)
Wassalamu'alaikum wr. wb.

Membuat Program Koperasi Sederhana dengan C++

Assalamu'alaikum wr. wb. Kali ini ane mau berbagi ilmu "Cara Membuat Program Koperasi Sederhana di C++". Sebenarnya membuat program sederhana sendiri itu mudah gan, asalkan paham alur syntax bahasa pemrogramannya.

Okay lanjut ke topik postingan, ini ane tunjukin dulu tampilan program koperasi sederhana C++ hasil buatan ane sendiri sewaktu dulu sekolah gan :

Dan untuk membuat program diatas, ikuti langkah-langkah dibawah ini :

1. Buka aplikasi compiler pada komputer Anda [disini saya menggunakan Borland C++ 5.02, bagi yang belum memiliki aplikasi ini dan belum menginstall-nya bisa download DISINI]

2. Setelah terbuka kemudian klik File >> New >> Text Edit

3. Setelah terbuka kotak kosong, copy dan paste-kan script program di bawah pada kotak kosong tersebut.

Klik Spoiler Berikut:

4. Jika sudah di copy-paste, kemudian klik menu Debug >> Run atau bisa menekan CTRL + F9

5. Apabila setelah itu muncul tampilan program CLI seperti screenshot gambar diatas, maka programnya sukses dibuat. Dan apabila tidak muncul programnya dan ada pesan kesalahan, Anda jangan bersedih, ulangi lagi dan teliti dalam memasukkan script-nya. [Jika ada kesulitan bisa ditanyakan langsung dengan saya]

6. Tinggal menyimpannya, nanti di folder tempat menyimpannya tadi akan otomatis ada program jadinya dengan ekstensi .exe, tapi dengan syarat harus di Run dulu pada Text Edit yang berisi script tadi.

Bagi sobat yang males membuat programnya tenang saja, karna saya tahu mungkin ada yang males nginstall Borland C++ nya dan males ngetik/copy-paste scriptnya. Saya sudah menyediakan program jadinya + coding-nya. Anda tinggal download dan dapat dipakai sesuka hati. Link downloadnya ada di bawah :

Klik gambar ini untuk download

Keterangan Program Koperasi diatas :

Setelah program dibuka maka akan muncul saldo Rp. 50.000,00. Saldo tersebut sebagai simpanan pokok dan uang tidak boleh diambil melebihi saldo pokok tersebut. Jika kita memasukkan angka 1 dan di enter maka program akan muncul dialog berapa uang yang akan kita tambahkan, dan apabila kita tambahkan semisal Rp. 20.000,00 maka program akan seperti ini :

Apabila kita masukkan perintah "y" untuk kembali ke menu utama maka akan tampil seperti dibawah ini :

Pada gambar diatas lihatlah saldo-nya akan berubah otomatis menjadi Rp. 70.000,00 karena saldo pokok Rp. 50.000,00 dan kita menambahkan uang Rp. 20.000,00. Apabila kita kita masukkan angka 2 dan di enter maka program akan muncul dialog baru berapa uang yang akan kita ambil. Coba saja Anda masukkan uang yang akan diambil Rp. 40.000,00 maka program akan menampilkan peringatan berupa "Saldo tidak dapat diambil karena saldo minimal Rp. 50.000,00" seperti gambar dibawah :

Kenapa bisa begitu..?? Karena saldo kita Rp. 70.000,00 jika kita ambil Rp. 40.000,00 maka saldo pokok hanya Rp. 30.000,00. Makanya tidak bisa diambil sebesar itu karena saldo pokok minimal harus Rp. 50.000,00. Gimana, sudah jelas kan sobat..??

Terus ane juga mau jelasin kenapa jika kita masukkan angka pada pilihan menu akan muncul dialog baru dan dialog sebelumnya bisa hilang [tidak seperti program di artikel saya kemaren-kemaren yang tulisan sebelumnya tidak hilang], karena ane menambahkan perintah system("cls"); yang berfungsi membersihkan layar pada program yang akan dijalankan sehingga pembuat program bisa menentukan saat untuk menghapus data yang telah dijalankan tanpa harus menutup program tersebut dan membukanya kembali, dan perintah ini menggunakan header : #include <stdlib>

Mungkin itu saja yang bisa ane jelasin sobat, kalau ada yang kurang jelas jangan sungkan-sungkan untuk bertanya. Program diatas bisa sobat otak-atik sendiri sesuka hati.

Sekian artikel tentang "Cara Membuat Program Koperasi Sederhana di C++", semoga bermanfaat. Wassalamu'alaikum wr. wb.

Membuat Program Perpustakaan Sederhana dengan C++

Assalamu'alaikum Wr. Wb.

Kali ini kita akan belajar membuat program perpustakaan sederhana dengan menggunakan bahasa C++.

Screenshotnya bisa dilihat dibawah ini :

Ok tutorialnya bisa dilihat di link berikut ini :

Membuat Program Perpustakaan Sederhana di C++

Semoga bermanfaat. Wassalamu'alaikum Wr. Wb.

Membuat Program Kasir Sederhana dengan C++

Assalamu'alaikum Wr. Wb.

Kali ini kita akan belajar membuat program kasir yang sederhana dengan menggunakan C++. Screenshotnya bisa dilihat dibawah :

Ok langsung saja kita ikuti tutorialnya di link dibawah ini :

Membuat Program Kasir Sederhana di C++

Apabila ada yang masih bingung silahkan ditanyakan, semoga bermanfaat.
Wassalamu'alaikum Wr. Wb.

Membuat Program Kalkulator Sederhana dengan C++

Assalamu'alaikum Wr. Wb.

Melanjutkan tutorial yang sebelumnya belajar C++, kali ini saya akan berbagi cara membuat kalkulator sederhana dengan C++.

Screenshot programnya bisa dilihat dibawah :

Tutorial nya bisa dilihat di link (url) dibawah ini :

Membuat Kalkulator Sederhana di C++

Apabila ada yang masih bingung bisa ditanyakan di komentar, semoga bermanfaat.

Wassalamu'alaikum Wr. Wb,

Membuat CRUD Sederhana dengan Java Netbeans dan MySQL

Assalamu'alaikum Wr. Wb.

Kali ini kita akan belajar pemrograman desktop dengan menggunakan java, kita akan membuat crud sederhana dengan menggunakan java netbeans dan mysql.

Screenshotnya bisa dilihat disini :

Ok langsung saja kita ikuti tutorialnya di link berikut :

Membuat Aplikasi Manipulasi Data dengan Java Netbeans dan MySQL

Sekian tutorial kali ini, apabila ada yang ingin ditanyakan silahkan berkomentar. Semoga bermanfaat.

Wassalamu'alaikum Wr. Wb.

Membuat CRUD Sederhana dengan Borland Delphi 7 dan MySQL

Assalamu'alaikum Wr. Wb.

Kali ini saya akan berbagi cara membuat aplikasi manipulasi data (CRUD) sederhana dengan Borland Delphi 7 dan MySQL. Screenshotnya bisa dilihat diatas.

Ok langsung saja kita ikuti tutorialnya dengan membuka di halaman berikut :