Visual Basic ( Pra UTS )

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Visual Basic ( Pra UTS ), Diterbitkan oleh scodeaplikasi pada Rabu, 02 Mei 2012. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.