Minggu, 20 November 2011

latihan 34C

Public Class LATIHAN034C46109017

'dekklarasi connection

Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=putri")

Dim browse As New ByIskandar.CariKeDataBaseByIskandar

Private Sub TAMBAH()

'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap

If t146109017.Text.Length = 0 Then

MsgBox("kode barang belum terisi")

Exit Sub 'jgn lanjut ke proses berikutnya

End If

If t246109017.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf

MsgBox("nama barang belum terisi")

Exit Sub

End If

If Val(t346109017.Text) = 0 Then 'untuk pencarian yg bersifat angka

MsgBox("harga jual belum diisi")

Exit Sub

End If

If Val(t446109017.Text) = 0 Then

MsgBox("JUMLAH BELUM TERISI")

Exit Sub

End If

browse.AturPencarianDataBase("barang", "kode barang", t146109017.Text, 1, CONECT)

If browse.JumlanBaris > 0 Then

MsgBox("kode sudah ada")

Exit Sub

End If

'untuk memasukkan data dari visual basc ke dlm acces

Dim com As New OleDb.OleDbCommand

com = New OleDb.OleDbCommand("update barang set kodebarang ='" & t146109017.Text & "',namabarang='" & t246109017.Text & "',hargajual=" & Val(t346109017.Text) & ", jumlahbarang=" & Val(t446109017.Text) & "where kodebarang='" & KB.Text & "'", CONECT)

CONECT.Open() 'jembatannya dibuka

com.ExecuteNonQuery() 'jalankan perintahnya

CONECT.Close() 'tutup jembatan

com.Dispose() 'hancurkan comand

t146109017.Text = ""

t246109017.Text = ""

t346109017.Text = ""

t446109017.Text = ""

LATIHAN033A46109017.wandika()

End Sub

Private Sub EDIT()

'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap

If t146109017.Text.Length = 0 Then

MsgBox("kode barang belum terisi")

Exit Sub 'jgn lanjut ke proses berikutnya

End If

If t246109017.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf

MsgBox("nama barang belum terisi")

Exit Sub

End If

If Val(t346109017.Text) = 0 Then 'untuk pencarian yg bersifat angka

MsgBox("harga jual belum diisi")

Exit Sub

End If

If Val(t446109017.Text) = 0 Then

MsgBox("JUMLAH BELUM TERISI")

Exit Sub

End If

If KB.Text <> t146109017.Text Then 'jika kode barang yg akan diganti dengan kode penggantinya tidak sama

browse.AturPencarianDataBase("barang", "kode barang", t146109017.Text, 1, CONECT)

If browse.JumlanBaris > 0 Then

MsgBox("kode sudah ada")

Exit Sub

End If

End If

'untuk memasukkan data dari visual basc ke dlm acces

Dim com As New OleDb.OleDbCommand

com = New OleDb.OleDbCommand("update barang set kodebarang ='" & t146109017.Text & "',namabarang='" & t246109017.Text & "',hargajual=" & Val(t346109017.Text) & ", jumlahbarang=" & Val(t446109017.Text) & "where kodebarang='" & KB.Text & "'", CONECT)

CONECT.Open() 'jembatannya dibuka

com.ExecuteNonQuery() 'jalankan perintahnya

CONECT.Close() 'tutup jembatan

com.Dispose() 'hancurkan comand

t146109017.Text = ""

t246109017.Text = ""

t346109017.Text = ""

t446109017.Text = ""

KB.Text = "-"

LATIHAN033A46109017.wandika()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If KB.Text = "-" Then

TAMBAH()

Else

EDIT()

End If

End Sub

End Class