MASUKKAN DI ATAS PUBLIC CLASS
Imports MySql.Data.MySqlClient
Imports System.Data
DILANJUTKAN KODING INI
Public Class MasterBuku
Dim conn As New koneksiDatabase
Sub tampil()
Dim mycom As New MySqlCommand
Dim myadap As New MySqlDataAdapter
Dim mydata As New DataTable
Dim sql As String
If txt_keyword.Text <> "" Then
sql = "SELECT * From tabel_buku_view where `Nama Buku`
LIKE '%" & txt_keyword.Text & "%'"
Else
sql = "SELECT * From tabel_buku_view"
End If
Try
mycom.Connection = conn.koneksi
mycom.CommandText = sql
myadap.SelectCommand = mycom
myadap.Fill(mydata)
DataGridView1.DataSource = mydata
DataGridView1.AlternatingRowsDefaultCellStyle.BackColor
= Color.LightCyan
Catch ex As Exception
End Try
mycom.Dispose()
conn.koneksi.Close()
End Sub
Sub bersih()
txt_kd.Text = ""
txt_nma.Text = ""
cmbkode_penulis.Text = ""
cmbkode_penerbit.Text = ""
txt_thun.Text = ""
txt_halm.Text = ""
End Sub
KODING UNTUK BAGIAN LOAD
Private Sub MasterBuku_Load(sender As Object, e As EventArgs)
Handles MyBase.Load
tampilpenulis()
tampilpenerbit()
tampil()
End Sub
TOMBOL TAMBAH
Private Sub btn_tambah_Click(sender As Object, e As EventArgs)
Handles btn_tambah.Click
Dim mycom As New MySqlCommand
Dim sql As String
Dim hasil As Integer
sql = "INSERT INTO
tabel_buku(kode_buku,judul_buku,kode_penulis,kode_penerbit,tahun_ter
bit,jumlah_halaman) values (@kd,@jd,@kp,@kb,@th,@halm)"
Try
mycom.Connection = conn.koneksi
mycom.CommandText = sql
mycom.Parameters.Add("@kd", MySqlDbType.String, 5).Value
= txt_kd.Text
mycom.Parameters.Add("@jd", MySqlDbType.String,
70).Value = txt_nma.Text
mycom.Parameters.Add("@kp", MySqlDbType.String,
10).Value = cmbkode_penulis.Text
mycom.Parameters.Add("@kb", MySqlDbType.String,
10).Value = cmbkode_penerbit.Text
mycom.Parameters.Add("@th", MySqlDbType.String, 4).Value
= txt_thun.Text
mycom.Parameters.Add("@halm", MySqlDbType.String,
3).Value = txt_halm.Text
If MessageBox.Show("Anda Yakin Di Tambah ?",
"Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) =
Windows.Forms.DialogResult.Yes Then
hasil = mycom.ExecuteNonQuery
Else
hasil = 0
End If
If hasil > 0 Then
MessageBox.Show("Record Berhasil ditambahkan",
"Buku", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call tampil()
Call bersih()
End If
Catch ex As Exception
Finally
mycom.Dispose()
conn.koneksi.Close()
End Try
End Sub
TOMBOL CARI
Private Sub btn_cari_Click(sender As Object, e As EventArgs) Handles
btn_cari.Click
Dim search As MySqlDataReader
Dim mycom_search As New MySqlCommand
Dim query As String
query = "SELECT
kode_buku,judul_buku,kode_penulis,kode_penerbit,tahun_terbit,jumlah_
halaman FROM tabel_buku WHERE kode_buku='" & txt_kd.Text & "'"
Try
mycom_search.Connection = conn.koneksi
mycom_search.CommandText = query
search = mycom_search.ExecuteReader
If search.Read() Then
txt_kd.Text = search.GetString(0)
txt_nma.Text = search.GetString(1)
cmbkode_penulis.Text = search.GetString(2)
cmbkode_penerbit.Text = search.GetString(3)
txt_thun.Text = search.GetString(4)
txt_halm.Text = search.GetString(5)
End If
Catch ex As Exception
Finally
mycom_search.Dispose()
conn.koneksi.Close()
End Try
End Sub
TOMBOL UPDATE
Private Sub btn_update_Click(sender As Object, e As EventArgs)
Handles btn_update.Click
Dim mycom As New MySqlCommand
Dim sql As String
Dim hasil As Integer
sql = "UPDATE tabel_buku SET kode_buku=@kode_buku,
judul_buku=@judul_buku, kode_penulis=@kp, kode_penerbit=@kkb,
tahun_terbit=@thn, jumlah_halaman=@halm where kode_buku='" &
txt_kd.Text & "'"
Try
mycom.Connection = conn.koneksi
mycom.CommandText = sql
mycom.Parameters.Add("@kode_buku", MySqlDbType.String,
5).Value = txt_kd.Text
mycom.Parameters.Add("@judul_buku", MySqlDbType.String,
70).Value = txt_nma.Text
mycom.Parameters.Add("@kp", MySqlDbType.String,
10).Value = cmbkode_penulis.Text
mycom.Parameters.Add("@kkb", MySqlDbType.String,
10).Value = cmbkode_penerbit.Text
mycom.Parameters.Add("@thn", MySqlDbType.String,
4).Value = txt_thun.Text
mycom.Parameters.Add("@halm", MySqlDbType.String,
3).Value = txt_halm.Text
If MessageBox.Show("Anda Yakin Di Update ?",
"Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) =
Windows.Forms.DialogResult.Yes Then
hasil = mycom.ExecuteNonQuery
Else
hasil = 0
End If
If hasil > 0 Then
MessageBox.Show("Record Berhasil di Update",
"Biodata", MessageBoxButtons.OK, MessageBoxIcon.Information)
txt_kd.Text = ""
txt_nma.Text = ""
cmbkode_penulis.Text = ""
cmbkode_penerbit.Text = ""
txt_thun.Text = ""
txt_halm.Text = ""
Call tampil()
End If
Catch ex As Exception
Finally
mycom.Dispose()
conn.koneksi.Close()
End Try
End Sub
TOMBOL HAPUS
Private Sub btn_hapus_Click(sender As Object, e As EventArgs)
Handles btn_hapus.Click
Dim mycom As New MySqlCommand
Dim sql As String
Dim hasil As Integer
sql = "DELETE from tabel_buku where kode_buku='" &
txt_kd.Text & "'"
Try
mycom.Connection = conn.koneksi
mycom.CommandText = sql
If MessageBox.Show("Yakin mau dihapus ?", "Konfirmasi",
MessageBoxButtons.YesNo, MessageBoxIcon.Question) =
Windows.Forms.DialogResult.Yes Then
hasil = mycom.ExecuteNonQuery()
Else
hasil = 0
End If
If hasil > 0 Then
MessageBox.Show("Data Berhasil dihapus", "Hapus",
MessageBoxButtons.OK, MessageBoxIcon.Information)
txt_kd.Text = ""
txt_nma.Text = ""
cmbkode_penulis.Text = ""
cmbkode_penerbit.Text = ""
txt_thun.Text = ""
txt_halm.Text = ""
Call tampil()
End If
Catch ex As Exception
Finally
mycom.Dispose()
conn.koneksi.Close()
End Try
End Sub
KODING MENAMPILKAN ISI COMBO BOX DARI TABLE DATABASE
Sub tampilpenulis()
Dim mycom As New MySqlCommand
Dim sql As String
Dim reader As MySqlDataReader
sql = "SELECT nama_penulis,kode_penulis FROM tabel_penulis"
mycom.Parameters.Clear()
mycom.Connection = conn.koneksi
mycom.CommandText = sql
reader = mycom.ExecuteReader
Try
While (reader.Read())
cmbkode_penulis.Items.Add(reader.GetString(1))
End While
Catch ex As Exception
End Try
reader.Close()
conn.koneksi.Clone()
conn.koneksi.Dispose()
End Sub
Sub tampilpenerbit()
Dim mycom As New MySqlCommand
Dim sql As String
Dim reader As MySqlDataReader
sql = "SELECT nama_penerbit,kode_penerbit FROM
tabel_penerbit"
mycom.Parameters.Clear()
mycom.Connection = conn.koneksi
mycom.CommandText = sql
reader = mycom.ExecuteReader
Try
While (reader.Read())
cmbkode_penerbit.Items.Add(reader.GetString(1))
End While
Catch ex As Exception
End Try
reader.Close()
conn.koneksi.Clone()
conn.koneksi.Dispose()
End Sub
KODING MENGUBAH INPUTAN COMBO BOX
Private Sub cb_pn_SelectedIndexChanged(sender As Object, e As
EventArgs) Handles cmbkode_penulis.SelectedIndexChanged
Dim mycom As New MySqlCommand
Dim sql As String
Dim reader As MySqlDataReader
Dim kode_penerbit As String
sql = "SELECT kode_penerbit FROM tabel_penerbit WHERE
nama_penerbit='" & cmbkode_penerbit.Text & "'"
mycom.Parameters.Clear()
mycom.Connection = conn.koneksi
mycom.CommandText = sql
reader = mycom.ExecuteReader
Try
If reader.Read() Then
kode_penerbit = reader.GetString(0)
End If
Catch ex As Exception
End Try
reader.Close()
conn.koneksi.Clone()
conn.koneksi.Dispose()
End Sub
Private Sub cb_pb_SelectedIndexChanged(sender As Object, e As
EventArgs) Handles cmbkode_penerbit.SelectedIndexChanged
Dim mycom As New MySqlCommand
Dim sql As String
Dim reader As MySqlDataReader
Dim kode_penerbit As String
sql = "SELECT kode_penerbit FROM tabel_penerbit WHERE
nama_penerbit='" & cmbkode_penerbit.Text & "'"
mycom.Parameters.Clear()
mycom.Connection = conn.koneksi
mycom.CommandText = sql
reader = mycom.ExecuteReader
Try
If reader.Read() Then
kode_penerbit = reader.GetString(0)
End If
Catch ex As Exception
End Try
reader.Close()
conn.koneksi.Clone()
conn.koneksi.Dispose()
End Sub
TOMBOL CLOSE
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
Close()
End Sub
TOMBOL CANCEL
Private Sub btn_cancel_Click(sender As Object, e As EventArgs)
Handles btn_cancel.Click
Call bersih()
End Sub
LAPORAN / REPORT
1. Buat DataSet
2. Buat CrystalReport dari table view yang ingin dilampirkan ke
laporan
3. Buat form laporan, dan add CrystalReportViewer
4. Masukkan koding dibawah ini pada Load Form
Private Sub LaporanAnggota_Load(sender As Object, e As EventArgs)
Handles MyBase.Load
Dim rep As New CrystalReportAnggota
Dim DT As DataTable
Dim DataSetAnggota As
DataSetAnggotaTableAdapters.tabel_anggotaTableAdapter
DataSetAnggota = New
DataSetAnggotaTableAdapters.tabel_anggotaTableAdapter
DT = DataSetAnggota.GetData()
rep.SetDataSource(DT)
CrystalReportViewer1.ReportSource = rep
End Sub
KODING SAAT MEMASUKAN KODE ANGGOTA OTOMATIS MUNCUL NAMA ANGGOTA
Sub preview_anggota()
Dim mycom_ag As New MySqlCommand
Dim reader As MySqlDataReader
Dim sql As String
sql = "SELECT nama_anggota FROM tabel_anggota WHERE
kode_anggota='" & txtkodeagpin.Text & "'"
mycom_ag.Connection = conn.koneksi
mycom_ag.CommandText = sql
reader = mycom_ag.ExecuteReader
Try
If reader.Read() Then
txtnamaagpin.Text = reader.GetString(0)
txtkodebukupin.Focus()
Else
MessageBox.Show("Data anggota tidak ditemukan!",
"Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtkodeagpin.Text = ""
txtnamaagpin.Text = ""
txtkodeagpin.Focus()
End If
Catch ex As Exception
End Try
mycom_ag.Dispose()
reader.Close()
conn.koneksi.Close()
End Sub
EVENT LEAVE TEXT BOX
Private Sub txt_kodeagL(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txtkodeagpin.Leave
If txtkodeagpin.Text <> "" Then
Call preview_anggota()
End If
End Sub
EVENT KEYDOWN TEXT BOX
Private Sub txt_kodeagKD(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles txtkodeagpin.KeyDown
If e.KeyCode = Keys.Enter Then
Call preview_anggota()
End If
End Sub
PERHITUNGAN HARI OTOMATIS, EVENT ValueChanged pada DateTimePicker
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As
EventArgs) Handles DateTimePicker2.ValueChanged
Dim hari As Integer
If DateTimePicker1.Text > DateTimePicker2.Text Then
DateTimePicker2.Text = DateTimePicker1.Text
End If
hari = DateDiff(DateInterval.Day,
CDate(DateTimePicker1.Value), CDate(DateTimePicker2.Value))
txtlamapin.Text = hari
End Sub
KODING PERHITUNGAN MATEMATIKA
Sub preview_kembali()
Dim mycom_ag As New MySqlCommand
Dim a As Single
Dim b As Single
Dim c As Single
mycom_ag.Connection = conn.koneksi
Try
a = txttotal.Text
b = txtpay.Text
c = b - a
If a < b Then
txtkembali.Text = c
Else
MessageBox.Show("uang tidak cukup")
End If
Catch ex As Exception
End Try
mycom_ag.Dispose()
conn.koneksi.Close()
End Sub
