Visual Basic ( Pra UTS )

Komponen Yang Dipakai :

1. Microsoft ADO Data Control 6.0 (OLEDB)
2. Microsoft DataGrid Control 6.0 (OLEDB)

Listing Modul :

Public conn As New ADODB.Connection
Public rsbuku As New ADODB.Recordset

Public Sub koneksi()
Set conn = New ADODB.Connection
Set rsbuku = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Adam\Desktop\Visual Basic\Latihan 8\Toko_Buku.mdb;Persist Security Info=False"
End Sub

Coding/ Listing :

Dim isi As Boolean

Sub auto()

Dim no As String

Dim noint As Integer

With rsbuku

If .RecordCount = 0 Then

no = "2012" + "001"

Else

.MoveLast

noint = Val(Right(!kdbuku, 3)) + 1

no = "2012" + Right("000" & noint, 3)

End If

txtkode.Text = no

End With

End Sub

Sub aktif()

txtkode.Enabled = True

txtjudul.Enabled = True

txtpengarang.Enabled = True

txtpenerbit.Enabled = True

txtharga.Enabled = True

End Sub

Sub nonaktif()

txtkode.Enabled = False

txtjudul.Enabled = False

txtpengarang.Enabled = False

txtpenerbit.Enabled = False

txtharga.Enabled = False

End Sub

Sub bersih()

txtkode.Text = ""

txtjudul.Text = ""

txtpengarang.Text = ""

txtpenerbit.Text = ""

txtharga.Text = ""

End Sub

Sub tampil()

With rsbuku

If Not .EOF Then

txtkode.Text = !kdbuku

txtjudul.Text = !judul_buku

txtpengarang.Text = !pengarang

txtpenerbit.Text = !penerbit

txtharga.Text = !harga

End If

End With

End Sub

Private Sub Form_Load()

Call koneksi

conn.CursorLocation = adUseClient

rsbuku.Open "Select * from Buku", conn

Set gridbuku.DataSource = rsbuku.DataSource

End Sub

Private Sub Form_Activate()

nonaktif

bersih

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmddelete.Enabled = False

cmdcancel.Enabled = False

cmdexit.Enabled = True

cmdinput.SetFocus

End Sub

Private Sub cmdinput_Click()

aktif

bersih

auto

txtkode.Enabled = False

txtjudul.SetFocus

cmdinput.Enabled = False

cmdsave.Enabled = True

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

End Sub

Private Sub cmdsave_Click()

If cmdsave.Caption = "&Save" Then

Dim sqlsave As String

sqlsave = "insert into Buku values ('" & txtkode.Text & "','" & txtjudul.Text & "','" & txtpengarang.Text & "','" & txtpenerbit.Text & "','" & txtharga.Text & "')"

conn.Execute sqlsave

MsgBox "Data Telah Tersimpan"

Form_Load

Else

Dim sqledit As String

sqledit = "update Buku set judul_buku = '" & txtjudul.Text & "', pengarang = '" & txtpengarang.Text & "',penerbit = '" & txtpenerbit.Text & "', harga ='" & txtharga.Text & "' where kdbuku = '" & txtkode.Text & "'"

conn.Execute sqledit

MsgBox "Data Telah Diperbaharui"

Form_Load

End If

nonaktif

cmdsave.Enabled = True

cmdsave.Caption = "&save"

cmdsave.Enabled = False

cmdinput.Enabled = True

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdedit_Click()

If Not isi = True Then

MsgBox "Silakan Melakukan Pengeditan..!!"

tampil

aktif

txtkode.Enabled = False

txtjudul.SetFocus

cmdsave.Caption = "&Update"

cmdsave.Enabled = True

cmdinput.Enabled = True

cmdedit.Enabled = False

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

Else

MsgBox "Maaf Data Tidak Ada Anda Harus Mengisi Dahulu..!!"

nonaktif

cmdinput.SetFocus

cmdinput.Enabled = True

cmdsave.Enabled = True

cmdinput.Enabled = True

cmdedit.Enabled = False

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

End If

End Sub

Private Sub cmddelete_Click()

If Not isi = True Then

Call koneksi

rsbuku.Open "delete from Buku where kdbuku = '" & txtkode.Text & "'", conn

MsgBox "Data Telah Terhapus"

Form_Load

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

Else

MsgBox "Maaf Data Tidak Ada Anda Harus Mengisi Dahulu..!!"

nonaktif

cmdinput.SetFocus

cmdinput.Enabled = True

cmdsave.Enabled = True

cmdinput.Enabled = True

cmdedit.Enabled = False

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

End If

End Sub

Private Sub cmdcancel_Click()

p = MsgBox("Yakin Ingin Membatalkan Penginputan..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

nonaktif

bersih

End If

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmddelete.Enabled = False

cmdcancel.Enabled = False

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

End Sub

Private Sub cmdtop_Click()

With rsbuku

rsbuku.MoveFirst

MsgBox "Sudah Diawal Record!", vbCritical, "Pesan"

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmddelete.Enabled = True

cmdsave.Caption = "&Save"

End With

End Sub

Private Sub cmdbott_Click()

With rsbuku

rsbuku.MoveLast

MsgBox "Sudah Diakhir Record!", vbCritical, "Pesan"

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmddelete.Enabled = True

cmdsave.Caption = "&Save"

End With

End Sub

Private Sub cmdback_Click()

With rsbuku

rsbuku.MovePrevious

If rsbuku.BOF Then

MsgBox "Sudah Diawal Record!", vbCritical, "Pesan"

rsbuku.MoveFirst

End If

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmddelete.Enabled = True

cmdsave.Caption = "&Save"

End With

End Sub

Private Sub cmdnext_Click()

With rsbuku

rsbuku.MoveNext

If rsbuku.EOF Then

MsgBox "Sudah Diakhir Record!", vbCritical, "Pesan"

rsbuku.MoveLast

End If

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmddelete.Enabled = True

cmdsave.Caption = "&Save"

End With

End Sub

Private Sub cmdexit_Click()

p = MsgBox("Yakin Ingin Keluar Dari Program Ini..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

End

End If

End Sub