Selasa, 23 April 2013

SISTEM INFORMASI DATA KOSMETIK



Nama Database          :  Barang
Nama Tabel                :  Kosmetik


Tabel BARANG dengan struktur sebagai berikut:
Nama Field
Type
Jumlah
kodebarang
text
10
namabarang
text
100
harga
text
50
jumlah
text
50








LISTING PROGRAM

Imports System.Data.OleDb
Public Class Form1
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String

    Public Sub OPENDB()
        Dim LOKASI = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\vb3\barang1.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub Recordkosmetik()
        ADP = New OleDbDataAdapter("SELECT * FROM kosmetik", DB)
        DS = New DataSet
        ADP.Fill(DS, "kosmetik")
        DataGridView1.DataSource = DS.Tables("kosmetik")
    End Sub
    Sub butoonbaru()
        btn_baru.Enabled = True
        btn_simpan.Enabled = False
        btn_edit.Enabled = False
        btn_hapus.Enabled = False
        btn_batal.Enabled = False
        btn_keluar.Enabled = True
    End Sub
    Sub butoonedit()
        btn_baru.Enabled = False
        btn_simpan.Enabled = False
        btn_edit.Enabled = True
        btn_hapus.Enabled = True
        btn_batal.Enabled = True
        btn_keluar.Enabled = False
    End Sub
    Sub butoonsimpan()
        btn_baru.Enabled = False
        btn_simpan.Enabled = True
        btn_edit.Enabled = False
        btn_hapus.Enabled = False
        btn_batal.Enabled = True
        btn_keluar.Enabled = False
    End Sub
    Sub hapustext()
        kode_barang.Text = ""
        nama_barang.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        Call butoonbaru()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call OPENDB()
        Call hapustext()
        Call Recordkosmetik()
    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        SQL = "DELETE FROM kosmetik Where kode_barang='" & kode_barang.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btn_baru_Click(sender, e)
        Call Recordkosmetik()
    End Sub

    Private Sub btn_baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_baru.Click
        Call hapustext()
        kode_barang.Focus()
    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
        Me.Close()
    End Sub

    Private Sub kode_barang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode_barang.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            SQL = "SELECT * FROM kosmetik Where kode_barang='" & kode_barang.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                nama_barang.Text = DR.Item(1)
                harga.Text = DR.Item(2)
                jumlah.Text = DR.Item(3)

                Call butoonedit()
                MsgBox("DATA DITEMUKAN!")
            Else
                xkode = kode_barang.Text
                Call hapustext()
                kode_barang.Text = xkode
                Call butoonsimpan()
            End If
            nama_barang.Focus()
            harga.Focus()
            jumlah.Focus()
        End If
    End Sub

    Private Sub btn_batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_batal.Click
        Call hapustext()
        kode_barang.Focus()
    End Sub

    Private Sub btn_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_edit.Click
        SQL = "UPDATE kosmetik SET NAMA='" & nama_barang.Text & "'," & _
                                                "harga='" & harga.Text & "'," & _
                                                "jumlah='" & jumlah.Text & "' " & _
                                                "Where kode_barang='" & kode_barang.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btn_baru_Click(sender, e)
        Call Recordkosmetik()

    End Sub

    Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
        SQL = "INSERT INTO kosmetik (kode_barang, nama_barang, harga, jumlah)" & _
                                       "Values ('" & kode_barang.Text & "','" & _
                                                       nama_barang.Text & "','" & _
                                                       harga.Text & "','" & _
                                                       jumlah.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btn_baru_Click(sender, e)
        Call Recordkosmetik()
    End Sub
End Class