SISTEM PENGIRIMAN PAKET PADA PT. POS INDONESIA MEDAN BAGIAN POS EXPRESS DENGAN MENGGUNAKAN VISUAL BASIC 2008

SISTEM PENGIRIMAN PAKET PADA PT. POS INDONESIA MEDAN BAGIAN POS EXPRESS DENGAN MENGGUNAKAN VISUAL BASIC 2008

 Tabel menggunakan Ms.Access...

Kode	Nama Pengirim	Alamat Pengirim	Tanggal Kirim
001	Dwi	Medan	11 Maret 2013
002	Juli	Kota Pinang	23 April 2013
003	Juliani	Sidodadi	28 Juni 2013
004	Kris	Jln saudara	20 April 2013

Tampilan design Form :

 

LISTING PROGRAM...

Imports System.Data.OleDb

Public Class Form1

    Public db As OleDbConnection

    Public cmd As OleDbCommand

    Public adp As OleDbDataAdapter

    Public ds As New DataSet

    Dim sql As String

    Public dr As OleDbDataReader

    Public Sub opendb()

        Dim lokasi = "provider=microsoft.jet.oledb.4.0;data source=c:\Tugas\Data.mdb"

        db = New OleDbConnection(lokasi)

        If db.State = ConnectionState.Closed Then

            db.Open()

        End If

    End Sub

    Sub tampilrecordpengirim()

        adp = New OleDbDataAdapter("SELECT*FROM Pengirim", db)

        ds = New DataSet

        adp.Fill(ds, "Pengirim")

        DataGridView1.DataSource = ds.Tables("Pengirim")

    End Sub

    Sub ButtonBaru()

        BtnBaru.Enabled = True

        BtnSimpan.Enabled = False

        BtnEdit.Enabled = False

        BtnHapus.Enabled = False

        BtnBatal.Enabled = False

        BtnKeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        BtnBaru.Enabled = False

        BtnSimpan.Enabled = False

        BtnEdit.Enabled = True

        BtnHapus.Enabled = True

        BtnBatal.Enabled = True

        BtnKeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        BtnBaru.Enabled = False

        BtnSimpan.Enabled = True

        BtnEdit.Enabled = False

        BtnHapus.Enabled = False

        BtnBatal.Enabled = True

        BtnKeluar.Enabled = False

    End Sub

    Sub HapusText()

        kode.Text = ""

        Nama_Pengirim.Text = ""

        Alamat_Pengirim.Text = ""

        Tgl_Kirim.Text = ""

        Call ButtonBaru()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call opendb()

        Call HapusText()

        Call tampilrecordpengirim()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        sql = "DELETE FROM Pengirim Where Kode='" & kode.Text & "'"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnhapus_Click(sender, e)

        Call tampilrecordpengirim()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Close()

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Call HapusText()

        Nama_Pengirim.Focus()

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Call HapusText()

        Nama_Pengirim.Focus()

    End Sub

    Private Sub btnedit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

        sql = "update pengirim set alamat='" & Alamat_Pengirim.Text & "' " & _

                               "Nama Pengirim ='" & Nama_Pengirim.Text & "'," & _

                               "where Tanggal Kirim='" & Tgl_Kirim.Text & "'"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordpengirim()

    End Sub

    Private Sub btnsimpan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

        sql = "insert into pengirim (Nama Pengirim,Alamat Pengirim,Tanggal Kirim)" & _

                       "values ('" & Nama_Pengirim.Text & "','" & _

                                     Alamat_Pengirim.Text & "','" & _

                                     Tgl_Kirim.Text & "')"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordpengirim()

    End Sub

    Private Sub kode_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

        If tombol = 13 Then

            sql = "select *from Pengirim Where kode='" & kode.Text & "'"

            cmd = New OleDbCommand(sql, db)

            dr = cmd.ExecuteReader

            dr.Read()

            If dr.HasRows = True Then

                Nama_Pengirim.Text = dr.Item(1)

                Alamat_Pengirim.Text = dr.Item(2)

                Tgl_Kirim.Text = dr.Item(3)

                Call ButtonEdit()

                MsgBox("Data ditemukan !")

            Else

                xkode = kode.Text

                Call HapusText()

                kode.Text = xkode

                Call ButtonSimpan()

            End If

            Nama_Pengirim.Focus()

        End If

    End Sub

    Private Sub BtnBaru_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBaru.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        sql = "INSERT INTO Pengirim (Kode, [Nama Pengirim], [Alamat Pengirim], [Tanggal Kirim]) " & _

                          " values('" & kode.Text & "','" & _

                                        Nama_Pengirim.Text & "','" & _

                                        Alamat_Pengirim.Text & "','" & _

                                        Tgl_Kirim.Text & "')"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnbaru_Click (sender, e)

        Call tampilrecordpengirim()

    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click

        sql = "UPDATE Pengirim SET [nama Pengirim]='" & Nama_Pengirim.Text & "'," & _

                             "[Alamat Pengirim]='" & Alamat_Pengirim.Text & "'," & _

                             "[Tanggal Kirim]='" & Tgl_Kirim.Text & "' " & _

                            " Where Kode='" & kode.Text & "'"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordpengirim()

    End Sub

    Private Sub BtnHapus_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        sql = "DELETE FROM Pengirim Where Kode='" & kode.Text & "'"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordpengirim()

    End Sub

    Private Sub BtnBatal_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub BtnKeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Me.Close()

    End Sub

End Class