1. ambil data mentah
2. olah menjadi table normal 1 (1NF) ampe ngk dipecah pecah tabelnya seperti ini
TABEL TOKO HANDPHONE
| KDSUPP | NAMASUPP | ALAMAT | KOTA | TELP | TGLMASUK | NAMABRANG | QTY | HARGA | TOTAL |
| K205 | KUSUMA | GANDHI | MEDAN | 0611234567 | 21/04/2009 | NOKIAE71BLACK | 5 | 4500000 | 22500000 |
| S205 | SELULAR | MANTRI | MEDAN | 0612345678 | 21/04/2009 | BBJAVELINE | 3 | 4000000 | 12000000 |
| H205 | SELSEL | HMYAMIN | MEDAN | 0618989898 | 22/04/2009 | NOKIAN73BLACK | 5 | 2500000 | 12500000 |
| 22/04/2009 | SONERW900I | 5 | 1500000 | 75000000 |
TABEL NORMAL PERTAMA 1NF
| KDSUPP | NAMASUPP | ALAMAT | KOTA | TELP | TGLMASUK | NAMABRANG | QTY | HARGA | TOTAL |
| K205 | KUSUMA | GANDHI | MEDAN | 0611234567 | 21/04/2009 | NOKIAE71BLACK | 5 | 4500000 | 22500000 |
| S205 | SELULAR | MANTRI | MEDAN | 0612345678 | 21/04/2009 | BBJAVELINE | 3 | 4000000 | 12000000 |
| H205 | SELSEL | HMYAMIN | MEDAN | 0618989898 | 22/04/2009 | NOKIAN73BLACK | 5 | 2500000 | 12500000 |
| H205 | SELSEL | HMYAMIN | MEDAN | 0618989898 | 22/04/2009 | SONERW900I | 5 | 1500000 | 75000000 |
TABEL NORMAL KE DUA 2 NF
| KDSUPP | TGLMASUK | NMBARANG | QTY | HARGA | TOTAL |
| K205 | 21/04/2009 | NOKIAE71BLACK | 5 | 4500000 | 22500000 |
| S205 | 21/04/2009 | BBJAVELINE | 3 | 4000000 | 12000000 |
| H205 | 22/04/2009 | NOKIAN73BLACK | 5 | 2500000 | 12500000 |
| H205 | 22/04/2009 | SONERW900I | 5 | 1500000 | 75000000 |
| KDSUPP | NMSUPP | ALAMATSUPP | TELPSUPP | KOTASUPP |
| K205 | KUSUMA | GANDHI | 0611234567 | MEDAN |
| S205 | SELULAR | MANTRI | 0612345678 | MEDAN |
| H205 | SELSEL | HMYAMIN | 0618989898 | MEDAN |
TABEL PENJUALAN
| TGLTRNASAKSI | NOFAKTUR | TELP | KDCUSS | NMCUSS | ALAMAT | NMBARANG | HARGA | QTY |
| 23/09/200 | 10478 | 0618888888 | C111 | FELIX | GABUS 15E | NOKIAE71BLACK | 4500000 | 1 |
| | 10479 | 0619999999 | C112 | KEVIN | MANTRI 2A | NOKIAN73 | 2500000 | 1 |
| | 10480 | 0611111111 | C113 | STEFFI | KMPKELING | SONERW900I | 1500000 | 1 |
| 24/09/2009 | 10481 | 0615555555 | C114 | SHERLY | MARELAN | BBJAVELINE | 4000000 | 1 |
TABEL NORMAL PERTAMA 1NF
| TGLTRNASAKSI | NOFAKTUR | TELP | KDCUSS | NMCUSS | ALAMAT | NMBARANG | HARGA | QTY |
| 23/09/200 | 10478 | 0618888888 | C111 | FELIX | GABUS 15E | NOKIAE71BLACK | 4500000 | 1 |
| 23/09/200 | 10479 | 0619999999 | C112 | KEVIN | MANTRI 2A | NOKIAN73 | 2500000 | 1 |
| 23/09/200 | 10480 | 0611111111 | C113 | STEFFI | KMPKELING | SONERW900I | 1500000 | 1 |
| 24/09/2009 | 10481 | 0615555555 | C114 | SHERLY | MARELAN | BBJAVELINE | 4000000 | 1 |
TABEL NORMAL KE 2 2NF
| NOFAKCUSS | TGLTRANSAKSI | KDCUSS | NAMABARANG | HARGATRANSAKSI | QTYTRANSAKSI |
| 10478 | 23/09/2009 | C111 | NOKIAE71BLACK | 4500000 | 1 |
| 10479 | 23/09/2009 | C112 | NOKIAN73 | 2500000 | 1 |
| 10480 | 23/09/2009 | C113 | SONERW900I | 1500000 | 1 |
| 10481 | 24/09/2009 | C114 | BBJAVELINE | 4000000 | 1 |
| NOFAKCUSS | KDCUSS | NMCUSS | ALAMATCUSS | TELPCUSS | KOTACUSS |
| 10478 | C111 | FELIX | GABUS 15E | 0618888888 | MEDAN |
| 10479 | C112 | KEVIN | MANTRI 2A | 0619999999 | MEDAN |
| 10480 | C113 | STEFFI | KMPKELING | 0611111111 | MEDAN |
| 10481 | C114 | SHERLY | MARELAN | 0615555555 | MEDAN |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
RELASI ANTAR TABEL
TAMPILAN PROGRAM
LISTNING PROGRAM
Imports ADOX
Imports System.Data.OleDb
Public Class TabelBarang
Dim KNS As New OleDbConnection
Dim DA, DA2, DA3, DA4 As New OleDbDataAdapter
Dim DT1, DT2, DT3, DT4, DT5, DT6, DT7, DT8 As New DataTable
Dim BS1, BS2, BS3, BS4, BS5, BS6, BS7, BS8 As New BindingSource
Dim SQL, SQL2, SQL3, SQL4 As String
Dim A, B, D, F, G As String
Dim Z As New ADOX.Catalog
Private Sub kosongtabelbarang()
kdsupp.Text = ""
tglmasuk.Text = ""
nmbarang.Text = ""
qty.Text = ""
harga.Text = ""
total.Text = ""
End Sub
Private Sub kosongtabelsupplier()
kdsupp.Text = ""
nmsupp.Text = ""
alamatsupp.Text = ""
telpsupp.Text = ""
kotasupp.Text = ""
End Sub
Private Sub KOSONGTABELCUSTOMER()
NOFAK.Text = ""
NMCUSS.Text = ""
ALAMATCUSS.Text = ""
TELPCUSS.Text = ""
KOTACUSS.Text = ""
End Sub
Private Sub KOSONGTABELTRANSAKSI()
NOFAK2.Text = ""
TGLTRANSAKSI.Value = Now
KDCUSS2.Text = ""
NMBARANG2.Text = ""
HARGATRANSAKSI.Text = ""
QTYTRANSAKSI.Text = ""
End Sub
Private Sub semuatabelbarang()
SQL = "SELECT * FROM BARANG"
DA.SelectCommand = New OleDbCommand(SQL, KNS)
DA.Fill(DT1)
BS1.DataSource = DT1
DG.DataSource = BS1
End Sub
Private Sub semuatabelsupplier()
SQL2 = "SELECT * FROM HPSUPP"
DA2.SelectCommand = New OleDbCommand(SQL2, KNS)
DA2.Fill(DT3)
BS3.DataSource = DT3
dgsupp.DataSource = BS3
End Sub
Private Sub SEMUATABELCUSTOMER()
SQL3 = "SELECT * FROM CUSTOM"
DA3.SelectCommand = New OleDbCommand(SQL3, KNS)
DA3.Fill(DT5)
BS5.DataSource = DT5
DGCUSS.DataSource = BS5
End Sub
Private Sub SEMUATABELTRANSAKSI()
SQL4 = "SELECT * FROM TRANSAKSI"
DA4.SelectCommand = New OleDbCommand(SQL4, KNS)
DA4.Fill(DT7)
BS7.DataSource = DT7
DGTRANSAKSI.DataSource = BS7
End Sub
Private Sub CARItabelbarang()
DT1.Clear()
SQL = "SELECT * FROM BARANG WHERE KDSUPP='" & kdsupp.Text & "'"
DA.SelectCommand = New OleDbCommand(SQL, KNS)
DA.Fill(DT1)
End Sub
Private Sub CARItabelsupplier()
DT3.Clear()
SQL2 = "SELECT * FROM HPSUPP WHERE KDSUPP='" & kdsupp.Text & "'"
DA2.SelectCommand = New OleDbCommand(SQL2, KNS)
DA2.Fill(DT3)
End Sub
Private Sub CARITABELCUSTOMER()
DT5.Clear()
SQL3 = "SELECT * FROM CUSTOM WHERE NOFAKCUSS='" & NOFAK.Text & "'"
DA3.SelectCommand = New OleDbCommand(SQL3, KNS)
DA3.Fill(DT5)
End Sub
Private Sub CARITABELTRANSAKSI()
DT7.Clear()
SQL4 = "SELECT * FROM TRANSAKSI WHERE NOFAKCUSS='" & NOFAK.Text & "'"
DA4.SelectCommand = New OleDbCommand(SQL4, KNS)
DA4.Fill(DT7)
End Sub
Private Sub tampiltabelbarang()
kdsupp.Text = DT1.Rows(0)("KDSUPP")
tglmasuk.Text = DT1.Rows(0)("TGLMASUK")
nmbarang.Text = DT1.Rows(0)("NMBARANG")
qty.Text = DT1.Rows(0)("QTY")
harga.Text = DT1.Rows(0)("HARGA")
total.Text = DT1.Rows(0)("TOTAL")
End Sub
Private Sub tampiltabelsupplier()
kdsupp.Text = DT3.Rows(0)("KDSUPP")
nmsupp.Text = DT3.Rows(0)("NMSUPP")
alamatsupp.Text = DT3.Rows(0)("ALAMATSUPP")
telpsupp.Text = DT3.Rows(0)("TELPSUPP")
kotasupp.Text = DT3.Rows(0)("KOTASUPP")
End Sub
Private Sub TAMPILTABELCUSTOMER()
NOFAK.Text = DT5.Rows(0)("NOFAKCUSS")
NMCUSS.Text = DT5.Rows(0)("NMCUSS")
ALAMATCUSS.Text = DT5.Rows(0)("ALAMATCUSS")
TELPCUSS.Text = DT5.Rows(0)("TELPCUSS")
KOTACUSS.Text = DT5.Rows(0)("KOTACUSS")
End Sub
Private Sub TAMPILTABELTRANSAKSI()
NOFAK.Text = DT7.Rows(0)("NOFAKCUSS")
TGLTRANSAKSI.Text = DT7.Rows(0)("TGLTRANSAKSI")
KDCUSS2.Text = DT7.Rows(0)("KDCUSS")
NMBARANG2.Text = DT7.Rows(0)("NAMABARANG")
HARGATRANSAKSI.Text = DT7.Rows(0)("HARGATRANSAKSI")
QTYTRANSAKSI.Text = DT7.Rows(0)("QTYTRANSAKSI")
End Sub
Private Sub isitabelbarang()
DT1.Clear()
SQL = "SELECT * FROM [BARANG] ORDER BY KDSUPP"
DA.SelectCommand = New OleDbCommand(SQL, KNS)
DA.Fill(DT2)
BS2.DataSource = DT2
kdsupp.DataSource = BS2
kdsupp.DisplayMember = "KDSUPP"
End Sub
Private Sub isitabelsupplier()
DT3.Clear()
SQL2 = "SELECT * FROM [HPSUPP] ORDER BY KDSUPP"
DA2.SelectCommand = New OleDbCommand(SQL2, KNS)
DA2.Fill(DT4)
BS4.DataSource = DT4
kdsupp.DataSource = BS4
kdsupp.DisplayMember = "KDSUPP"
End Sub
Private Sub ISITABELCUSTOMER()
DT5.Clear()
SQL3 = "SELECT * FROM [CUSTOM] ORDER BY NOFAKCUSS"
DA3.SelectCommand = New OleDbCommand(SQL3, KNS)
DA3.Fill(DT6)
BS6.DataSource = DT6
NOFAK.DataSource = BS6
NOFAK.DisplayMember = "NOFAKCUSS"
End Sub
Private Sub ISITABELTRANSAKSI()
DT7.Clear()
SQL4 = "SELECT * FROM [TRANSAKSI] ORDER BY NOFAK"
DA4.Fill(DT8)
BS7.DataSource = DT8
NOFAK.DataSource = BS7
NOFAK.DisplayMember = "NOFAKCUSS"
End Sub
Private Sub TabelBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kdsupp.Focus()
'MENCIPTAKAN DATABASE DENGAN MICROSOFT ACCESS 2007
If IO.File.Exists(Application.StartupPath & "\HANDPHONE.ACCDB") = False Then
'MENCIPTAKAN DATABSE DENGAN NAMA HANDPHONE DAN FORMAT ACCDB
A = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & Application.StartupPath & "\HANDPHONE.ACCDB"
Z.Create(A)
'MENCIPTAKAN TABEL BARANG,HPSUPP,CUSTOM, DAN TRANSAKSI
B = "CREATE TABLE [BARANG]([KDSUPP] CHAR(10),[TGLMASUK] date,[NMBARANG] CHAR(30),[QTY] CHAR(3),[HARGA] CHAR(30),[TOTAL] CHAR(30))"
D = "CREATE TABLE [HPSUPP]([KDSUPP] CHAR(10),[NMSUPP] CHAR(20),[ALAMATSUPP] CHAR(30),[TELPSUPP] CHAR(20),[KOTASUPP] CHAR(30))"
F = "CREATE TABLE [CUSTOM]([NOFAKCUSS] CHAR(10),[KDCUSS] CHAR(10),[NMCUSS] CHAR(30),[ALAMATCUSS] CHAR(30),[TELPCUSS] CHAR(14),[KOTACUSS] CHAR(30))"
G = "CREATE TABLE [TRANSAKSI]([NOFAKCUSS] CHAR(10),[TGLTRANSAKSI] date,[KDCUSS] CHAR(10),[NAMABARANG] CHAR(30),[HARGATRANSAKSI] CHAR(20),[QTYTRANSAKSI] CHAR(10))"
KNS.ConnectionString = A
DA.SelectCommand = New OleDbCommand(B, KNS)
DA2.SelectCommand = New OleDbCommand(D, KNS)
DA3.SelectCommand = New OleDbCommand(F, KNS)
DA4.SelectCommand = New OleDbCommand(G, KNS)
DA.Fill(DT1)
DA2.Fill(DT3)
DA3.Fill(DT5)
DA4.Fill(DT7)
End If
KNS.ConnectionString = "PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & Application.StartupPath & "\HANDPHONE.ACCDB"
semuatabelbarang()
semuatabelsupplier()
SEMUATABELCUSTOMER()
SEMUATABELTRANSAKSI()
End Sub
Private Sub vsim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vsim.Click
If kdsupp.Text.Trim = "" Then
MsgBox("Isi data dengan lengkap")
Exit Sub
End If
KNS.Open()
CARItabelbarang()
CARItabelsupplier()
If DT1.Rows.Count = 0 Then
SQL = "INSERT INTO BARANG VALUES('" & kdsupp.Text & "','" & tglmasuk.Value.Date & "','" & nmbarang.Text & "','" & qty.Text & "','" & harga.Text & "','" & total.Text & "')"
SQL2 = "INSERT INTO HPSUPP VALUES('" & kdsupp.Text & "','" & nmsupp.Text & "','" & alamatsupp.Text & "','" & telpsupp.Text & "','" & kotasupp.Text & "')"
Else
SQL = "UPDATE BARANG SET KDSUPP='" & kdsupp.Text & "',[TGLMASUK]=#" & tglmasuk.Value.Date & "#,[NMBARANG]='" & nmbarang.Text & "',[QTY]='" & qty.Text & "',[HARGA]='" & harga.Text & "',[TOTAL]='" & total.Text & "'"
SQL2 = "UPDATEHPSUPP SET HPSUPP='" & kdsupp.Text & "',[NMSUPP]='" & nmsupp.Text & "',[ALAMATSUPP]='" & alamatsupp.Text & "',[TELPSUPP]='" & telpsupp.Text & "',[KOTASUPP]='" & kotasupp.Text & "'"
End If
Using CMD As New OleDbCommand(SQL, KNS)
CMD.ExecuteNonQuery()
End Using
Using CMD As New OleDbCommand(SQL2, KNS)
CMD.ExecuteNonQuery()
End Using
KNS.Close()
isitabelbarang()
isitabelsupplier()
semuatabelbarang()
semuatabelsupplier()
kdsupp.Text = ""
kdsupp.Focus()
kosongtabelbarang()
kosongtabelsupplier()
Me.Refresh()
End Sub
Private Sub VSIMCUSS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VSIMCUSS.Click
If KDCUSS.Text.Trim = "" Then
MsgBox("Isi data dengan lengkap")
Exit Sub
End If
KNS.Open()
CARITABELCUSTOMER()
If DT5.Rows.Count = 0 Then
SQL3 = "INSERT INTO CUSTOM VALUES('" & NOFAK.Text & "','" & KDCUSS.Text & "','" & NMCUSS.Text & "','" & ALAMATCUSS.Text & "','" & TELPCUSS.Text & "','" & KOTACUSS.Text & "')"
Else
SQL3 = "UPDATE CUSTOM SET NOFAKCUSS='" & NOFAK.Text & "',[KDCUSS]='" & KDCUSS.Text & "',[NMCUSS]='" & NMCUSS.Text & "',[ALAMATCUSS]='" & ALAMATCUSS.Text & "',[TELPCUSS]='" & TELPCUSS.Text & "',[KOTACUSS]='" & KOTACUSS.Text & "'"
End If
Using CMD As New OleDbCommand(SQL3, KNS)
CMD.ExecuteNonQuery()
End Using
If DT7.Rows.Count = 0 Then
SQL4 = "INSERT INTO TRANSAKSI VALUES('" & NOFAK.Text & "','" & TGLTRANSAKSI.Value.Date & "','" & KDCUSS.Text & "','" & NMBARANG2.Text & "','" & HARGATRANSAKSI.Text & "','" & QTYTRANSAKSI.Text & "')"
Else
SQL4 = "UPDATE TRANSAKSI SET NOFAKCUSS='" & NOFAK.Text & "',[TGLTRANSAKSI]='" & TGLTRANSAKSI.Value.Date & "',[KDCUSS]='" & KDCUSS.Text & "',[NAMABARANG]='" & NMBARANG2.Text & "',[HARGATRANSAKSI]='" & HARGATRANSAKSI.Text & "',[QTYTRANSAKSI]='" & QTYTRANSAKSI.Text & "'"
End If
Using CMD As New OleDbCommand(SQL4, KNS)
CMD.ExecuteNonQuery()
End Using
ISITABELCUSTOMER()
ISITABELTRANSAKSI()
SEMUATABELCUSTOMER()
SEMUATABELTRANSAKSI()
KOSONGTABELCUSTOMER()
KOSONGTABELTRANSAKSI()
DGCUSS.Refresh()
DGTRANSAKSI.Refresh()
Me.Refresh()
End Sub
Private Sub kdsupp_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kdsupp.TextChanged
DT1.Clear()
DT3.Clear()
'DT5.Clear()
SQL = "SELECT * FROM BARANG WHERE KDSUPP='" & kdsupp.Text & "'"
SQL2 = "SELECT * FROM HPSUPP WHERE KDSUPP='" & kdsupp.Text & "'"
DA.SelectCommand = New OleDbCommand(SQL, KNS)
DA2.SelectCommand = New OleDbCommand(SQL2, KNS)
DA.Fill(DT1)
DA2.Fill(DT3)
If DT1.Rows.Count = 0 Then
semuatabelbarang()
Else
tampiltabelbarang()
End If
If DT3.Rows.Count = 0 Then
semuatabelsupplier()
Else
tampiltabelsupplier()
End If
KDSUPP2.Text = kdsupp.Text
End Sub
Private Sub NOFAK_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NOFAK.TextChanged
DT5.Clear()
SQL3 = "SELECT * FROM CUSTOM WHERE NOFAKCUSS='" & NOFAK.Text & "'"
DA3.SelectCommand = New OleDbCommand(SQL3, KNS)
DA3.Fill(DT5)
If DT5.Rows.Count = 0 Then
SEMUATABELCUSTOMER()
Else
TAMPILTABELCUSTOMER()
End If
NOFAK2.Text = NOFAK.Text
End Sub
Private Sub vhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vhap.Click
CARItabelbarang()
CARItabelsupplier()
If DT1.Rows.Count = 0 Then
MessageBox.Show("DATA GAK KETEMU", "INFO", MessageBoxButtons.OK)
Else
MessageBox.Show("Yakin Data Dihapus", "INFORMATION", MessageBoxButtons.YesNo)
If vbYes Then
SQL = "DELETE FROM BARANG WHERE [KDSUPP]='" & kdsupp.Text & "'"
SQL2 = "DELETE FROM HPSUPP WHERE [KDSUPP]='" & kdsupp.Text & "'"
KNS.Open()
DA.DeleteCommand = New OleDbCommand(SQL, KNS)
DA2.DeleteCommand = New OleDbCommand(SQL2, KNS)
DA.DeleteCommand.ExecuteNonQuery()
DA2.DeleteCommand.ExecuteNonQuery()
semuatabelbarang()
semuatabelsupplier()
dgsupp.Refresh()
DGCUSS.Refresh()
isitabelbarang()
isitabelsupplier()
kosongtabelbarang()
kosongtabelsupplier()
Me.Refresh()
DG.Refresh()
dgsupp.Refresh()
kdsupp.Text = ""
kdsupp.Focus()
Else
kosongtabelbarang()
kosongtabelsupplier()
End If
End If
KNS.Close()
dgsupp.Refresh()
End Sub
Private Sub VHAPCUSS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VHAPCUSS.Click
CARITABELCUSTOMER()
CARITABELTRANSAKSI()
If DT5.Rows.Count = 0 And DT7.Rows.Count = 0 Then
MessageBox.Show("DATA GAK KETEMU", "INFO", MessageBoxButtons.OK)
Else
MessageBox.Show("Yakin Data Dihapus", "INFORMATION", MessageBoxButtons.YesNo)
If vbYes Then
SQL3 = "DELETE FROM CUSTOM WHERE [NOFAKCUSS]='" & NOFAK.Text & "'"
SQL4 = "DELETE FROM TRANSAKSI WHERE [NOFAKCUSS]='" & NOFAK.Text & "'"
KNS.Open()
DA3.DeleteCommand = New OleDbCommand(SQL3, KNS)
DA4.DeleteCommand = New OleDbCommand(SQL4, KNS)
DA3.DeleteCommand.ExecuteNonQuery()
DA4.DeleteCommand.ExecuteNonQuery()
SEMUATABELCUSTOMER()
SEMUATABELCUSTOMER()
DGCUSS.Refresh()
DGTRANSAKSI.Refresh()
ISITABELCUSTOMER()
ISITABELTRANSAKSI()
KOSONGTABELCUSTOMER()
KOSONGTABELTRANSAKSI()
Me.Refresh()
DGCUSS.Refresh()
kdsupp.Text = ""
kdsupp.Focus()
Else
KOSONGTABELCUSTOMER()
DGTRANSAKSI.Refresh()
End If
End If
KNS.Close()
dgsupp.Refresh()
DGTRANSAKSI.Refresh()
End Sub
Private Sub TabelBarang_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
kdsupp.Focus()
kdsupp.Text = ""
End Sub
Private Sub vubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vubah.Click
If kdsupp.Text.Trim = "" Then
MsgBox("ISI DATA DENGAN LENGKAP")
Exit Sub
End If
KNS.Open()
CARItabelbarang()
If MsgBox("perbaiki data", MsgBoxStyle.OkCancel) <> MsgBoxResult.Ok Then Exit Sub
SQL = "UPDATE BARANG SET KDSUPP='" & kdsupp.Text & "',[TGLMASUK]=#" & tglmasuk.Value.Date & "#,[NMBARANG]='" & nmbarang.Text & "',[QTY]='" & qty.Text & "',[HARGA]='" & harga.Text & "',[TOTAL]='" & total.Text & "'"
SQL2 = "UPDATE HPSUPP SET KDSUPP='" & kdsupp.Text & "',[NMSUPP]='" & nmsupp.Text & "',[ALAMATSUPP]='" & alamatsupp.Text & "',[TELPSUPP]='" & telpsupp.Text & "',[KOTASUPP]='" & kotasupp.Text & "'"
Using CMD As New OleDbCommand(SQL, KNS)
CMD.ExecuteNonQuery()
End Using
Using CMD As New OleDbCommand(SQL2, KNS)
CMD.ExecuteNonQuery()
End Using
KNS.Close()
isitabelbarang()
isitabelsupplier()
semuatabelbarang()
semuatabelsupplier()
kosongtabelbarang()
kosongtabelsupplier()
kdsupp.Text = ""
kdsupp.Focus()
End Sub
Private Sub VUBAHCUSS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VUBAHCUSS.Click
If NOFAK.Text.Trim = "" Then
MsgBox("ISI DATA DENGAN LENGKAP")
Exit Sub
End If
KNS.Open()
CARITABELCUSTOMER()
CARITABELTRANSAKSI()
If MsgBox("perbaiki data", MsgBoxStyle.OkCancel) <> MsgBoxResult.Ok Then Exit Sub
SQL3 = "UPDATE CUSTOM SET NOFAK='" & NOFAK.Text & "',[KDSCUSS]='" & KDCUSS.Text & "',[NMCUSS]='" & NMCUSS.Text & "',[ALAMATCUSS]='" & ALAMATCUSS.Text & "',[TELPCUSS]='" & TELPCUSS.Text & "',[KOTACUSS]='" & KOTACUSS.Text & "'"
SQL4 = "UPDATE TRANSAKSI SET NOFAKCUSS='" & NOFAK.Text & "',[TGLTRANSAKSI]='" & TGLTRANSAKSI.Value.Date & "',[KDCUSS]='" & KDCUSS.Text & "',[NAMABARANG]='" & NMBARANG2.Text & "',[HARGATRANSAKSI]='" & HARGATRANSAKSI.Text & "',[QTYTRANSAKSI]='" & QTYTRANSAKSI.Text & "'"
Using CMD As New OleDbCommand(SQL3, KNS)
CMD.ExecuteNonQuery()
End Using
Using CMD As New OleDbCommand(SQL4, KNS)
CMD.ExecuteNonQuery()
End Using
KNS.Close()
ISITABELCUSTOMER()
ISITABELTRANSAKSI()
SEMUATABELCUSTOMER()
SEMUATABELTRANSAKSI()
KOSONGTABELCUSTOMER()
KOSONGTABELTRANSAKSI()
kdsupp.Text = ""
kdsupp.Focus()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Refresh()
kosongtabelsupplier()
kosongtabelbarang()
KOSONGTABELCUSTOMER()
KOSONGTABELTRANSAKSI()
End Sub
Private Sub KDCUSS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDCUSS.TextChanged
KDCUSS2.Text = KDCUSS.Text
End Sub
End Class
2 komentar:
very good article =D
What an informative article =D
Posting Komentar