LISTING PROGRAM

LISTING PROGRAM

Dim constring As String

Private Sub CMDHAPUS_Click()

Dim dbbarang As New ADODB.Connection

Dim rstbbarang As ADODB.Recordset

dbbarang.Open constring, "neng", "as"

dbbarang.Execute "Delete from tbbarang where kode ='" & TXTKODE.Text & "'"

bersih

End Sub

Private Sub CMDSIMPAN_Click()

Dim dbbarang As New ADODB.Connection

Dim rstbbarang As ADODB.Recordset

dbbarang.Open constring, "neng", "as"

Set rstbbarang = dbbarang.Execute("select * from tbbarang where kode ='" & TXTKODE.Text & "'")

If rstbbarang.EOF Then

dbbarang.Execute ("insert into tbbarang(kode,nama,satuan,harga,jumlah,stok) values ('" & TXTKODE.Text & "','" & TXTNAMA.Text & "','" & TXTSATUAN.Text & "','" & TXTHARGA.Text & "', '" & txtjumlah.Text & "','" & TXTSTOK.Text & "')")

Else

If MsgBox("data ini sudah ada dalam database," & " perbaiki?", vbQuestion + vbYesNo, "konfirmasi") Then

dbbarang.Execute "update barang set nama ='" & TXTNAMA.Text & ""

End If

End If

End Sub

Private Sub CMDTUTUP_Click()

PSN = MsgBox("ANDA YAKIN MAU KELUAR?", vbCritical + vbYesNo, "PESAN")

If PSN = vbYes Then

Unload Me

End If

End Sub

Private Sub Form_Load()

bersih

constring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=neng;Initial Catalog=barang;Data Source=IBM-FA741BA59D5"

End Sub

Private Sub bersih()

TXTKODE.Text = ""

TXTNAMA.Text = ""

TXTSATUAN.Text = ""

TXTHARGA.Text = ""

TXTJUMLAH.Text = ""

TXTSTOK.Text = ""

End Sub

Private Sub CMDBERSIH_Click()

bersih

End Sub

Private Sub TXTKODE_Change()

Dim dbbarang As New ADODB.Connection

Dim rstbbarang As ADODB.Recordset

dbbarang.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=neng;Initial Catalog=barang;Data Source=IBM-FA741BA59D5", "neng", "as"

Set rstbbarang = dbbarang.Execute("select *from tbbarang where kode = '" & TXTKODE.Text & "'")

If Not rstbbarang.EOF Then

TXTKODE.Text = rstbbarang!kode

TXTNAMA.Text = rstbbarang!nama

TXTSATUAN.Text = rstbbarang!satuan

TXTHARGA.Text = rstbbarang!harga

txtjumlah.Text = rstbbarang!jumlah

TXTSTOK.Text = rstbbarang!stok

End If

If TXTKODE.Text = "" Then

bersih

End If

End Sub