Program Penjualan dengan VB 6 #Step1

 Assamualaikum Wr. Wb.

                Kali ini saya membuat tutorial penjualan sederhana step by step, supaya dapat di mengerti teman-teman sekalian yg masih pemula seperti saya hehehe ☺. Langsung saja kita keturorialnya.

Pertama kita buat database dulu tentunya dengan Ms. Access dengan nama dbJual , Buat tabel dengan nama Barang seperti gambar dibawah ini :

 

 

Setelah selesai kemudian buka project Vb 6, buat form baru dengan desain seperti di bawah ini :

Ketikan code di bawah ini :

 

Private Sub Command1_Click()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where kode_barang='" & Text1.Text & "'", Conn, adOpenDynamic, adLockOptimistic

  

   If RsBarang.EOF Then

    Set RsBarang = New ADODB.Recordset

        RsBarang.Open "select * from barang", Conn, adOpenDynamic, adLockOptimistic

       

        With RsBarang

            .AddNew

                !kode_barang = Text1.Text

                !nama_barang = Text2.Text

                !satuan = Text3.Text

                !harga_jual = Text4.Text

                !stok = Text5.Text

            .Update

        End With

        MsgBox "Data Tersimpan   ", vbInformation, ""

        Hapustxt

        TampilGrid

    Else

        MsgBox "Kode Barang Sudah ada  ", vbCritical, ""

    End If

End Sub

Sub Hapustxt()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

End Sub

Sub TampilGrid()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang", Conn, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = RsBarang

End Sub

 

Private Sub Command2_Click()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where kode_barang='" & Text1.Text & "'", Conn, adOpenDynamic, adLockOptimistic

   

        With RsBarang

                !kode_barang = Text1.Text

                !nama_barang = Text2.Text

                !satuan = Text3.Text

                !harga_jual = Text4.Text

                !stok = Text5.Text

            .Update

        End With

        MsgBox "Data Tersimpan   ", vbInformation, ""

        Hapustxt

        TampilGrid

End Sub

 

Private Sub Command3_Click()

Hapustxt

End Sub

 

Private Sub Command4_Click()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where kode_barang='" & Text1.Text & "'", Conn, adOpenDynamic, adLockOptimistic

   

    RsBarang.Delete

    RsBarang.MoveNext

    Hapustxt

    TampilGrid

    MsgBox "Berhasil Di hapus  ", vbInformation, ""

End Sub

 

Private Sub DataGrid1_dblClick()

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

Text4.Text = DataGrid1.Columns(3).Text

Text5.Text = DataGrid1.Columns(4).Text

End Sub

 

Private Sub Form_Load()

Koneksi

TampilGrid

End Sub

 

Private Sub Text6_Change()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where nama_barang like '" & Text6.Text & "%'", Conn, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = RsBarang

 

End Sub

 

Kemudian buat modul untuk menjalankan koneksi ketikan code dibawah ini :

Public Conn As New ADODB.Connection

Public RsBarang As New ADODB.Recordset

Public RsPenjualan As New ADODB.Recordset

Public RsPenjualanDetail As New ADODB.Recordset

Public RsTemp As New ADODB.Recordset

'buka koneksi database

Sub Koneksi()

Set Conn = New ADODB.Connection

    Conn.CursorLocation = adUseClient

    Conn.Provider = "microsoft.jet.oledb.4.0"

    Conn.Open "data source=" & App.Path & "\dbjual.mdb" 'database satu folder dengan project

End Sub

 

Form barang selesai di buat, sekarang jalankan project.

 selmat mencoba

Sekian dulu tutorial kali ini ……….