Jumat, 28 Juni 2013

SISTEM INFORMASI PENJUALAN KOSMETIKA PART 3



HASIL SEMUA DATA


HASIL DATA LAPORAN


 

HASIL FORM RELASI



SEKIAN DARI SAYA..
SELEBIHNYA SAYA MINTA MAAF DAN TERIMA KASIH.. :-)

SISTEM INFORMASI PENJUALAN KOSMETIKA PART 2



DESAIN DATA PELANGGAN




LISTING PROGRAM
Imports System.Data.OleDb
Public Class DATA_PELANGGAN
    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:\vb2\vb2.mdb"
        DB = New OleDbConnection(lokasi)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Sub tampilrecordkaryawan()
        ADP = New OleDbDataAdapter("select * from pelanggan", DB)
        DS = New DataSet
        ADP.Fill(DS, "pelanggan")
        DataGridView1.DataSource = DS.Tables("pelanggan")
    End Sub
    Sub buttonbaru()
        BTNBARU.Enabled = True
        BTNEDIT.Enabled = False
        BTNSIMPAN.Enabled = False
        BTNBATAL.Enabled = False
        BTNHAPUS.Enabled = False
        BTNKELUAR.Enabled = True
    End Sub

    Sub buttonedit()
        BTNBARU.Enabled = False
        BTNEDIT.Enabled = False
        BTNSIMPAN.Enabled = True
        BTNBATAL.Enabled = True
        BTNHAPUS.Enabled = True
        BTNKELUAR.Enabled = False
    End Sub

    Sub buttonsimpan()
        BTNBARU.Enabled = False
        BTNEDIT.Enabled = True
        BTNSIMPAN.Enabled = False
        BTNBATAL.Enabled = False
        BTNHAPUS.Enabled = True
        BTNKELUAR.Enabled = False
    End Sub
    Sub hapustext()
        kode_pel.Text = ""
        nama_pel.Text = ""
        alamat.Text = ""
        telp.Text = ""
        Call buttonbaru()
    End Sub


    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        SQL = "delete from pelanggan where kode='" & kode_pel.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilrecordkaryawan()
    End Sub

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

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBARU.Click
        Call hapustext()
        kode_pel.Focus()
    End Sub

    Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call hapustext()
        Call tampilrecordkaryawan()
    End Sub

   

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBATAL.Click
        Call hapustext()
        kode_pel.Focus()
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNEDIT.Click
        SQL = "update sales set Nama pelanggan='" & nama_pel.Text & "'," & _
                                 "alamat='" & alamat.Text & "'," & _
                                 "telp='" & telp.Text & "'," & _
                                 " where kode='" & kode_pel.Text & "' "
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilrecordkaryawan()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
        SQL = "insert into pelanggan(kode_pel, nama_pel, alamat, telp) " & " values('" & kode_pel.Text & "','" & nama_pel.Text & "','" & alamat.Text & "','" & telp.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilrecordkaryawan()
    End Sub

    Private Sub kode_pel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode_pel.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        'Dim xkd As String

        If tombol = 13 Then
            SQL = "select *from pelanggan where kode='" & kode_pel.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                nama_pel.Text = DR.Item(1)
                alamat.Text = DR.Item(2)
                telp.Text = DR.Item(3)
                Call buttonedit()
                MsgBox("data ditemukan !!")
            Else
                xkode = kode_pel.Text
                Call hapustext()
                kode_pel.Text = xkode
                Call buttonsimpan()
            End If
            DR.Close()
            'kode_pel.Text = xkd
            nama_pel.Focus()
        End If
    End Sub

    Private Sub kode_pel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_pel.TextChanged

    End Sub
End Class


DESAIN DATA SALES
 


LISTING PROGRAM

Imports System.Data.OleDb
Public Class DATA_SALES
    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:\vb2\vb2.mdb"
        DB = New OleDbConnection(lokasi)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub tampilrecordkaryawan()
        ADP = New OleDbDataAdapter("select * from sales", DB)
        DS = New DataSet
        ADP.Fill(DS, "sales")
        DataGridView1.DataSource = DS.Tables("sales")
    End Sub
    Sub buttonbaru()
        btn_baru.Enabled = True
        btn_edit.Enabled = False
        btn_simpan.Enabled = False
        btn_batal.Enabled = False
        btn_hapus.Enabled = False
        btn_keluar.Enabled = True
    End Sub

    Sub buttonedit()
        btn_baru.Enabled = False
        btn_edit.Enabled = False
        btn_simpan.Enabled = True
        btn_batal.Enabled = True
        btn_hapus.Enabled = True
        btn_keluar.Enabled = False
    End Sub

    Sub buttonsimpan()
        btn_baru.Enabled = False
        btn_edit.Enabled = True
        btn_simpan.Enabled = False
        btn_batal.Enabled = False
        btn_hapus.Enabled = True
        btn_keluar.Enabled = False
    End Sub
    Sub hapustext()
        kode.Text = ""
        nama.Text = ""
        alamat.Text = ""
        telepon.Text = ""
        Call buttonbaru()
    End Sub


    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        SQL = "delete from sales where kode='" & kode.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilrecordkaryawan()
    End Sub

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

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

    Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call hapustext()
        Call tampilrecordkaryawan()
    End Sub

    Private Sub nik_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        'Dim xkd As String

        If tombol = 13 Then
            SQL = "select *from sales where kode='" & kode.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                nama.Text = DR.Item(1)
                alamat.Text = DR.Item(2)
                telepon.Text = DR.Item(3)
                Call buttonedit()
                MsgBox("data ditemukan !!")
            Else
                xkode = kode.Text
                Call hapustext()
                kode.Text = xkode
                Call buttonsimpan()
            End If
            DR.Close()
            'kode.Text = xkd
            nama.Focus()
        End If
    End Sub

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

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_edit.Click
        SQL = "update sales set Nama='" & nama.Text & "'," & _
                                 "alamat='" & alamat.Text & "'," & _
                                 "telepon='" & telepon.Text & "'," & _
                                 " where kode='" & kode.Text & "' "
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilrecordkaryawan()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
        SQL = "insert into sales(kode, nama, alamat, telepon) " & " values('" & kode.Text & "','" & nama.Text & "','" & alamat.Text & "','" & telepon.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call tampilrecordkaryawan()
    End Sub
End Class