1. tabel barang (tbbarang) - kodebarang =varchar (6) - namabarang=varchar (35) - harga =int (8) dan stock int (4)
2. tabel Suplier(tbsuplier) - kodesup=varchar(6) - namasuplier=varchar(35) - alamat=varchar(35) dan telpn=varchar(15)
3. tabel Pelanggan(tbpelanggan) - kodepel=varchar(6) - namapelanggan=varchar(35) alamat=varchar(35) dan telpn=varchar(15)
Setelah itu buat desain untuk from Master seperti berikut :
Imports MySql.Data.MySqlClient
Module Mdlbarang
Public Conn As MySqlConnection
Public RD As MySqlDataReader
Public DA As MySqlDataAdapter
Public CMD As MySqlCommand
Public DS As DataSet
Public simpan, ubah, hapus As String
Public Sub bukaDB()
' Public Conn As String = "Server=localhost;User" & "ID=root;password=;database=sc"
Dim SQLConn As String
SQLConn = "server=localhost;database=dbinventori;password=;username=root;"
Conn = New MySqlConnection(SQLConn)
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
End Sub
End Module
FROM BARANG
Public Class frmbarang
Sub isiGrid()
Mdlbarang.bukaDB()
DA = New MySqlDataAdapter("SELECT * from tbbarang", Conn)
DS = New DataSet
DA.Fill(DS, "tbbarang")
DataGridView1.DataSource = DS.Tables("tbbarang")
DataGridView1.ReadOnly = True
End Sub
Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
If btntambah.Text = "Tambah" Then
btntambah.Text = "Simpan"
txtkodebarang.Focus()
Else
Try
Call bukaDB()
CMD = New MySqlCommand("SELECT kodebarang from tbbarang WHERE kodebarang = '" & txtkodebarang.Text & "'", conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
MsgBox("Maaf, Data dengan kode tersebut telah ada", MsgBoxStyle.Exclamation, "Peringatan")
Else
Call bukaDB()
simpan = "INSERT INTO tbbarang (kodebarang,namabarang,harga,stok) VALUES ('" & txtkodebarang.Text & "','" & txtnamabarang.Text & "','" & txthargabarang.Text & "','" & txtstock.Text & "')"
CMD = New MySqlCommand(simpan, Conn)
CMD.ExecuteNonQuery()
Call isiGrid()
Call bersih()
Call isiCombo()
End If
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End If
End Sub
Private Sub frmbarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbinventoriDataSet.tbbarang' table. You can move, or remove it, as needed.
''Me.TbbarangTableAdapter.Fill(Me.DbinventoriDataSet.tbbarang)
Call bukaDB()
Call isiGrid()
Call isiCombo()
End Sub
Sub isiCombo()
Call bukaDB()
CMD = New MySqlCommand("SELECT kodebarang From tbbarang", Conn)
RD = CMD.ExecuteReader
ComboBox1.Items.Clear()
Do While RD.Read
ComboBox1.Items.Add(RD.Item(0))
Loop
CMD.Dispose()
RD.Close()
Conn.Close()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Call bukaDB()
CMD = New MySqlCommand("SELECT kodebarang,namabarang,harga,stok FROM tbbarang WHERE kodebarang = '" & ComboBox1.Text & "'", Conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
txtkodebarang.Text = RD.Item(0)
txtnamabarang.Text = RD.Item(1)
txthargabarang.Text = RD.Item(2)
txtstock.Text = RD.Item(3)
txtkodebarang.Enabled = False
txtnamabarang.Focus()
End If
End Sub
Private Sub bersih()
txtkodebarang.Text = ""
txtnamabarang.Text = ""
txthargabarang.Text = ""
txtstock.Text = ""
txtkodebarang.Focus()
btntambah.Text = ""
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Try
Call bukaDB()
hapus = "DELETE FROM tbbarang WHERE kodebarang='" & txtkodebarang.Text & "'"
CMD = New MySqlCommand(hapus, Conn)
CMD.ExecuteNonQuery()
Call bersih()
Call isiGrid()
Call isiCombo()
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End Sub
Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
Try
Call bukaDB()
ubah = "UPDATE tbbarang SET namabarang='" & txtnamabarang.Text & "',harga='" & txthargabarang.Text & "',stok='" & txtstock.Text & "' WHERE kodebarang = '" & txtkodebarang.Text & "'"
CMD = New MySqlCommand(ubah, Conn)
CMD.ExecuteNonQuery()
Call bersih()
Call isiGrid()
Call isiCombo()
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
Me.Close()
End Sub
End Class
FROM SUPLIER
Public Class datasuplier
Private Sub datasuplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Sub isiGrid()
Mdlbarang.bukaDB()
DA = New MySqlDataAdapter("SELECT * from tbsuplier", Conn)
DS = New DataSet
DA.Fill(DS, "tbsuplier")
DataGridView1.DataSource = DS.Tables("tbsuplier")
DataGridView1.ReadOnly = True
End Sub
Sub isiCombo()
Call bukaDB()
CMD = New MySqlCommand("SELECT kodesup From tbsuplier", Conn)
RD = CMD.ExecuteReader
CMD.Dispose()
RD.Close()
Conn.Close()
End Sub
Private Sub bersih()
txtkodesuplier.Text = ""
txtnamasuplier.Text = ""
txtalamatsuplier.Text = ""
txttlpn.Text = ""
txtkodesuplier.Focus()
btntambah.Text = ""
End Sub
Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
If btntambah.Text = "Tambah" Then
btntambah.Text = "Simpan"
txtkodesuplier.Focus()
Else
Try
Call bukaDB()
CMD = New MySqlCommand("SELECT kodesup from tbsuplier WHERE kodesup = '" & txtkodesuplier.Text & "'", conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
MsgBox("Maaf, Data dengan kode tersebut telah ada", MsgBoxStyle.Exclamation, "Peringatan")
Else
Call bukaDB()
simpan = "INSERT INTO tbsuplier (kodesup,namasuplier,alamat,telp) VALUES ('" & txtkodesuplier.Text & "','" & txtnamasuplier.Text & "','" & txtalamatsuplier.Text & "','" & txttlpn.Text & "')"
CMD = New MySqlCommand(simpan, Conn)
CMD.ExecuteNonQuery()
Call isiGrid()
Call bersih()
Call isiCombo()
End If
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Try
Call bukaDB()
hapus = "DELETE FROM tbsuplier WHERE kodesup='" & txtkodesuplier.Text & "'"
CMD = New MySqlCommand(hapus, Conn)
CMD.ExecuteNonQuery()
Call bersih()
Call isiGrid()
Call isiCombo()
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End Sub
Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
Try
Call bukaDB()
ubah = "UPDATE tbsuplier SET namasuplier='" & txtnamasuplier.Text & "',alamat='" & txtalamatsuplier.Text & "',telp='" & txttlpn.Text & "' WHERE kodesup = '" & txtkodesuplier.Text & "'"
CMD = New MySqlCommand(ubah, Conn)
CMD.ExecuteNonQuery()
Call bersih()
Call isiGrid()
Call isiCombo()
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
Me.Close()
End Sub
End Class
FROM PELANGGAN
Public Class datapelanggan
Private Sub datapelanggan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Sub isiGrid()
Mdlbarang.bukaDB()
DA = New MySqlDataAdapter("SELECT * from tbpelanggan", Conn)
DS = New DataSet
DA.Fill(DS, "tbpelanggan")
DataGridView1.DataSource = DS.Tables("tbpelanggan")
DataGridView1.ReadOnly = True
End Sub
Sub isiCombo()
Call bukaDB()
CMD = New MySqlCommand("SELECT kodepel From tbpelanggan", Conn)
RD = CMD.ExecuteReader
CMD.Dispose()
RD.Close()
Conn.Close()
End Sub
Private Sub bersih()
txtkodepelanggan.Text = ""
txtnamapelanggan.Text = ""
txtalamat.Text = ""
txttlpn.Text = ""
txtkodepelanggan.Focus()
btntambah.Text = ""
End Sub
Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
If btntambah.Text = "Tambah" Then
btntambah.Text = "Simpan"
txtkodepelanggan.Focus()
Else
Try
Call bukaDB()
CMD = New MySqlCommand("SELECT kodepel from tbpelanggan WHERE kodepel = '" & txtkodepelanggan.Text & "'", conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
MsgBox("Maaf, Data dengan kode tersebut telah ada", MsgBoxStyle.Exclamation, "Peringatan")
Else
Call bukaDB()
simpan = "INSERT INTO tbpelanggan (kodepel,namapelanggan,alamat,telp) VALUES ('" & txtkodepelanggan.Text & "','" & txtnamapelanggan.Text & "','" & txtalamat.Text & "','" & txttlpn.Text & "')"
CMD = New MySqlCommand(simpan, Conn)
CMD.ExecuteNonQuery()
Call isiGrid()
Call bersih()
Call isiCombo()
End If
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Try
Call bukaDB()
hapus = "DELETE FROM tbpelanggan WHERE kodepel='" & txtkodepelanggan.Text & "'"
CMD = New MySqlCommand(hapus, Conn)
CMD.ExecuteNonQuery()
Call bersih()
Call isiGrid()
Call isiCombo()
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End Sub
Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
Try
Call bukaDB()
ubah = "UPDATE tbpelanggan SET namapelanggan='" & txtnamapelanggan.Text & "',alamat='" & txtalamat.Text & "',telp='" & txttlpn.Text & "' WHERE kodepel = '" & txtkodepelanggan.Text & "'"
CMD = New MySqlCommand(ubah, Conn)
CMD.ExecuteNonQuery()
Call bersih()
Call isiGrid()
Call isiCombo()
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
End Try
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
Me.Close()
End Sub
End Class
SELAMAT MENCOBAAAAAA :)
Tidak ada komentar:
Posting Komentar