Visual Basic 6.0 - Program Penjualan Barang v. Recordset

.::| PROGRAM PENJUALAN BARANG (V. Recordset) |::.

Visual Basic 6.0

-=:| Berikut kode Syntax Program Penjualan Barang menggunakan Recordset |:=-

/////////

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

If Text1.Text = "" Then

MsgBox "Anda belum melengkapi pengisian data !!"

Exit Sub

End If

Adodc1.Recordset.Update

End Sub

Private Sub Command3_Click()

If Text1.Text = "" Then

MsgBox "Anda belum memilih data dari database !!"

Exit Sub

End If

Dim Form1 As Integer

Form1 = MsgBox("Apakah anda yakin ingin mengapus sebagian data dari database !!", vbYesNo)

If Form1 = vbYes Then

Adodc1.Recordset.Delete

End If

If Text1.Text = "" Then

MsgBox "Anda belum memilih data dari database !!"

Exit Sub

End If

End Sub

Private Sub Command4_Click()

Dim Form1 As Integer

Form1 = MsgBox("Apakah Anda Yakin Ingin Keluar ??", vbYesNo)

If Form1 = vbYes Then

End

End If

End Sub

Private Sub Form_Load()

hasil = Text3 * text4

Text5.Text = Format(hasil, "currency")

End Sub