Mds Blogger

Sebelumnya Saya Mengucapkan Happy New Year .. Smg tahun ini Lebih baik dari Tahun sebelumnya khususnya  untuk saya Pribadi, hehehe.. :-D

Untuk kelanjutannya saya akan membahas tentang Program Penjualan Pada Sebuah Market Menggunakan Visual Basic 6.0. Program  seperti  ini telah saya pelajari  diKampus saya. Dan sengaja saya posting selain ingin berbagi ilmu kepada sobat sekalian juga sebagai latihan untuk saya pribadi dalam mengulang  bahan matakuliah yang sudah saya terima. ,, yangmana sebelumnya saya juga pernah membahas tentang Program Penjualan Barang Menggunakan Visual Basic 6.0 .

Baiklah Langsung saja,

Listing Program Save :

Private Sub Command4_Click()

With Adodc1.Recordset

.AddNew

    !Kode = Text1.Text

    !namabrg = Text2.Text

    !satuan = Text3.Text

    !harga = Text4.Text

    !jumlah = Text5.Text

.Update

End With

MsgBox "Data Sudah Disimpan CuY...!!!", vbOKOnly + vbInformation, "SAVE.."

Bersih

End Sub

Listing untuk Bersih

Sub Bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Listing untuk Program Cancel

Private Sub Command1_Click()

Bersih

MsgBox "Thanks..", vbOKOnly + vbExclamation, "CANCEL"

End Sub

Listing Program Hapus

Private Sub Command2_Click()

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveFirst

MsgBox "Data Sudah Terhapus", vbOKOnly + vbCritical, "DELETE"

End Sub

Listing  Program  Exit

Private Sub Command3_Click()

End

MsgBox "Thanks...", vbOKOnly + vbQuestion, "EXIT"

End Sub