Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Contoh Program Penjualan Dengan Visual Basic

· · 4 comments
Assalamu'alaikum, wr.wb

Cara Membuat Aplikasi Penjualan Sederhana Dengan VB - Selamat datang rekan-rekan di blog ini. Program penjualan sederhana yang kita buat kali ini menggunakan database acces 2007 dengan koneksi model AdoDc. Kita akan mengambil studi kasus pada form master barang. Pada tulisan ini saya tidak akan jelaskan bagaimana cara membuat database dan menghubungkannya dengan program master barang yang akan kita buat. Jadi bagi rekan yang masih ragu silahkan baca postingan terdahulu dibawah ini :

--> Koneksi database acces 2007 dengan metode AdoDc

Sebelum membuat form master barang pada program penjualan dengan bahasa visual basic ini, pastikan dulu dua komponen dibawah ini sudah diaktifkan dengan cara Ctrl + T

- Microsoft ADO Data Control 6.0 (OLEDB)
- Microsoft Datagrid Control 6.0 (OLEDB)

Komponen ADO Data untuk mengaktifkan AdoDC dan Datagrid control untuk menampilkan data dalam bentuk tabel pada form program yang kita buat. Keterangan untuk database acces 2007 :

nama database : databarang.accdb
kodebarang         text
namabarang        text
hargabarang        text
stokbarang          text

desain programmnya seperti dibawah ini :

cara membuat aplikasi penjualan di visual basic

Copykan mantera dibawah ini dengan cara seksama dan dalam tempo yang sesingkat-singkatnya :

Private Sub Form_Load()
    TombolHidup
    Set Me.DataGrid1.DataSource = Adodc1
End Sub

Sub TombolMati()
    'NonAktif Nav
    For i = 0 To 3
        Me.jos(i).Enabled = False
    Next
    'NonAktifAksi
    For i = 0 To 4
        Me.ok(i).Enabled = False
    Next
    Me.ok(2).Enabled = True
    Me.ok(4).Enabled = True
    'Kunci TextBox
    Me.kodebarang1.Locked = False
    Me.namabarang1.Locked = False
    Me.hargabarang1.Locked = False
    Me.stokbarang1.Locked = False
End Sub


Private Sub ok_Click(Index As Integer)
    With Me.Adodc1.Recordset
        Select Case Index
            Case 0
                'tambah
                .AddNew
                Me.kodebarang1.SetFocus
                TombolMati
            Case 1
                'Edit
                Me.namabarang1.SetFocus
                TombolMati
            Case 2
                'Simpan
                If MsgBox("Data ingin diSimpan", vbQuestion + vbYesNo, "Tanya") = vbYes Then
                    .Update
                    MsgBox "Data Tersimpan"
                Else
                    .CancelBatch
                    MsgBox "Data Tidak Disimpan"
                End If
                TombolHidup
            Case 4
                .CancelBatch
                .MoveFirst
                TombolHidup
            Case 3
                'hapus
                If MsgBox("Yakin ingin diHapus", vbQuestion + vbYesNo, "Mau??") = vbYes Then
                    .Delete
                    .MoveLast
                    MsgBox "Data Terhapus"
                Else
                    MsgBox "Data Tidak Terhapus"
                End If
           
        End Select
    End With
End Sub

Private Sub jos_Click(Index As Integer)
    With Me.Adodc1.Recordset
     'koneksi
        Select Case Index
            Case 0
                .MoveFirst
            Case 1
                .MovePrevious
                If .BOF Then
                    .MoveFirst
                    MsgBox "Awal Record", vbExclamation + vbOKOnly, "Info Penting"
                End If
            Case 2
                .MoveNext
                If .EOF Then
                    .MoveLast
                    MsgBox "Record Terakhir", vbCritical + vbOKOnly, "Konf Me"
                End If
            Case 3
                .MoveLast
        End Select
    End With
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

Private Sub kodebarang1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then Me.namabarang1.SetFocus
End Sub

Private Sub namabarang1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Me.hargabarang1.SetFocus
End Sub

Private Sub hargabarang1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Me.stokbarang1.SetFocus
End Sub

Lagi-lagi saya menuliskan bentuk coding pada command programnya dengan metode select case dengan menetapkan index pada setiap commandnya. Karena menurut saya kita akan lebih menghemat baris dan codingnya lebih terlihat simple. Untuk menyembunyikan AdoDc sebagai jembatan penghubung database kita maka silahkan rubah pada propertinya visible dengan false.

cara buat program penjualan sederhana di VB

Dengan telah berhasilnya kita membuat aplikasi penjualan yaitu master barang ini maka tentu pembuatan master data supplier juga mempunyai teknik yang sama dengan diatas. Moga bermanfaat. Begitulah.

Baca juga --> Cara isi combobox dengan list data dari database

4 comments:

  1. ingin juga ni mas belajar visual basic, tapi masih minim ilmunya ni heehee

    ReplyDelete
  2. saya juga tak begitu pandai pak dosen :)

    ReplyDelete
  3. Replies
    1. sudah kok om.tuh kan ada penjelasannya diatas dengan acces 2007

      Delete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan