Cara Membuat Form Pelanggan Sistem Perpustakaan di Visual Studio 2010

Imports System.Data.Odbc
Public Class FormPelanggan
Sub TampilPelanggan()
Call bukaDB()
da = New OdbcDataAdapter("SELECT * FROM tb_pelanggan ORDER BY id_pelanggan ASC", conn)
ds = New DataSet
da.Fill(ds, "tb_pelanggan")
dgvPelanggan.DataSource = ds.Tables("tb_pelanggan")
dgvPelanggan.ReadOnly = True
End Sub
Sub Kosongkan()
txtID.Clear()
txtNama.Clear()
txtAlamat.Clear()
txtID.Focus()
End Sub
Private Sub FormPelanggan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call TampilPelanggan()
End Sub

Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
If txtID.Text = "" Or txtNama.Text = "" Or txtAlamat.Text = "" Then
MsgBox("Semua field harus diisi!")
Exit Sub
End If

Call bukaDB()
cmd = New OdbcCommand("INSERT INTO tb_pelanggan VALUES('" & txtID.Text & "', '" & txtNama.Text & "', '" & txtAlamat.Text & "')", conn)
cmd.ExecuteNonQuery()
MsgBox("Data pelanggan berhasil disimpan")
Call TampilPelanggan()
Call Kosongkan()
End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
Call bukaDB()
cmd = New OdbcCommand("UPDATE tb_pelanggan SET nama_pelanggan='" & txtNama.Text & "', alamat='" & txtAlamat.Text & "' WHERE id_pelanggan='" & txtID.Text & "'", conn)
cmd.ExecuteNonQuery()
MsgBox("Data pelanggan berhasil diupdate")
Call TampilPelanggan()
Call Kosongkan()
End Sub

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
If MsgBox("Hapus data pelanggan ini?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Call bukaDB()
cmd = New OdbcCommand("DELETE FROM tb_pelanggan WHERE id_pelanggan='" & txtID.Text & "'", conn)
cmd.ExecuteNonQuery()
MsgBox("Data pelanggan berhasil dihapus")
Call TampilPelanggan()
Call Kosongkan()
End If
End Sub

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

Private Sub dgvPelanggan_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvPelanggan.CellClick
Try
Dim i As Integer = dgvPelanggan.CurrentRow.Index
txtID.Text = dgvPelanggan.Item(0, i).Value
txtNama.Text = dgvPelanggan.Item(1, i).Value
txtAlamat.Text = dgvPelanggan.Item(2, i).Value
Catch ex As Exception
End Try
End Sub

Private Sub dgvPelanggan_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvPelanggan.CellContentClick

End Sub

Private Sub txtCariPelanggan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCariPelanggan.TextChanged
Call bukaDB()
da = New Odbc.OdbcDataAdapter("SELECT * FROM tb_pelanggan WHERE id_pelanggan LIKE '%" & txtCariPelanggan.Text & "%' OR nama_pelanggan LIKE '%" & txtCariPelanggan.Text & "%'", conn)
ds = New DataSet
da.Fill(ds)
dgvPelanggan.DataSource = ds.Tables(0)
End Sub
End Class

Видео Cara Membuat Form Pelanggan Sistem Perpustakaan di Visual Studio 2010 канала Rian Studio