18.00
makjegagik
Yang terdiri dari aplikasi pendataan buku, pendataan anggota, peminjaman dan pengembalian. Namun saya akan membahas pendataan buku.
Mari kita mulai,,, hahahahha
pertama - tama buatlag database untuk buku dengan memberi nama perpus_buku
Jika sudah mari beralih ke program visual basic nya,,
Buat tamplan seperti ini atau terserah kamu yang penting name nya sama dengan name yang saya contohkan,,
kata-kata yang berada dalam kolom text itu adalah "name" nya,, juga pada tampilan tombol , kata yang ada pada tommbol itulah name nya . Maei kita membuat form_buku
tampilan isi data.
tampilan lihat, cari,print data.
Setelah selesai berkutat pada tampilan, sekarang kita menuju koding nya ,, yang di taruh di dalam form_buku
Dim rsbuku As New ADODB.Recordset
Dim rs As New ADODB.Recordset
Dim buku As New classbuku
Dim tekan As String
Private Sub tombol(tambah As Boolean, _
ubah As Boolean, simpan As Boolean, _
hapus As Boolean, batal As Boolean)
cmdtambah.Enabled = tambah
cmdubah.Enabled = ubah
cmdsimpan.Enabled = simpan
cmdhapus.Enabled = hapus
cmdbatal.Enabled = batal
End Sub
Sub aktif(sts As Boolean)
Dim ctl As Control
For Each ctl In frm_buku
If TypeName(ctl) = "TextBox" Then
ctl.Enabled = sts
End If
If TypeName(ctl) = "ComboBox" Then
ctl.Enabled = sts
End If
Next
cmbfield.Enabled = True
txtcari.Enabled = True
End Sub
Sub kosong()
Dim ctl As Control
For Each ctl In frm_buku
If TypeName(ctl) = "TextBox" Then
ctl.Text = ""
End If
If TypeName(ctl) = "ComboBox" Then
ctl.ListIndex = 0
End If
Next
aktif False
tombol 1, 1, 0, 0, 0
End Sub
Private Sub cmdBatal_Click()
kosong
End Sub
Private Sub cmdcari_Click()
If cmbfield.ListIndex = 0 Then
strsql = "select kode_buku,judul, pengarang, thn_terbit,kategori,jenis " _
& "from perpus_buku where kode_buku like '%" & txtcari.Text & "%'"
ElseIf cmbfield.ListIndex = 1 Then
strsql = "select kode_buku,judul, pengarang, thn_terbit,kategori,jenis " _
& "from perpus_buku where judul like '%" & txtcari.Text & "%'"
ElseIf cmbfield.ListIndex = 2 Then
strsql = "select kode_buku,judul, pengarang, thn_terbit,kategori,jenis " _
& "from perpus_buku where pengarang like '%" & txtcari.Text & "%'"
End If
Set rsbuku = New ADODB.Recordset
rsbuku.Open strsql, conn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rsbuku
End Sub
Private Sub cmdexportexel_Click()
Dim baris As Integer
Dim kolom As Integer
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
excelApp.Workbooks.Add
rsbuku.MoveFirst
For baris = 0 To rsbuku.RecordCount - 1
For kolom = 0 To rsbuku.Fields.Count - 1
excelApp.ActiveCell(1, kolom + 1) = UCase(rsbuku.Fields(kolom).Name)
excelApp.ActiveCell(1, kolom + 1).Font.Bold = True
excelApp.ActiveCell(baris + 2, kolom + 1) = UCase(rsbuku.Fields(kolom).Value)
Next
rsbuku.MoveNext
Next
excelApp.Visible = True
End Sub
Private Sub cmdHapus_Click()
If MsgBox("Yakin data akan dihapus ?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
buku.hapus txtkode_buku.Text
kosong
rsbuku.Requery
MsgBox "buku telah dihapus", vbInformation, "hapus data berhasil "
End If
End Sub
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdSimpan_Click()
buku.kode_buku = txtkode_buku.Text
buku.judul = txtjudul.Text
buku.pengarang = txtpengarang.Text
buku.penerbit = txtpenerbit.Text
buku.No_ISBN = txtno_isbn.Text
buku.edisi = txtedisi.Text
buku.thn_terbit = txtthnterbit.Text
buku.kategori = cmbkategori.Text
buku.jenis = cmbjenis.Text
If tekan = cmdtambah.Caption Then
buku.simpan
MsgBox "Data buku telah tersimpan", vbInformation, "Simpan data berhasil"
rsbuku.Requery
End If
If tekan = cmdubah.Caption Then
buku.ubah txtkode_buku.Text
MsgBox "Data telah diubah", vbInformation, "ubah data berhasil"
rsbuku.Requery
End If
kosong
End Sub
Private Sub cmdtambah_Click()
tekan = cmdtambah.Caption
aktif True
txtkode_buku.SetFocus
tombol 0, 0, 1, 0, 1
End Sub
Private Sub cmdUbah_Click()
tekan = cmdubah.Caption
aktif True
txtkode_buku.SetFocus
tombol 0, 0, 1, 1, 1
End Sub
Private Sub Form_Load()
BukaKoneksi
Set buku = New classbuku
strsql = "select kode_buku,judul, pengarang, thn_terbit,kategori,jenis from perpus_buku"
Set rsbuku = New ADODB.Recordset
rsbuku.Open strsql, conn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rsbuku
kosong
End Sub
Private Sub txtKode_buku_LostFocus()
If tekan = cmdtambah.Caption Then
If buku.cari(txtkode_buku.Text) = True Then
MsgBox "Kode buku yang akan dientri sudah ada", _
vbCritical, "Duplikasi data"
kosong
End If
End If
If tekan = cmdubah.Caption Then
If buku.cari(txtkode_buku.Text) = True Then
txtjudul.Text = buku.judul
txtpengarang.Text = buku.pengarang
txtpenerbit.Text = buku.penerbit
txtno_isbn.Text = buku.No_ISBN
txtedisi.Text = buku.edisi
txtthnterbit.Text = buku.thn_terbit
cmbkategori.Text = buku.kategori
cmbjenis.Text = buku.jenis
Else
MsgBox "Kode buku yang dicari tidak ada", _
vbCritical, "tidak ditemukan"
kosong
End If
End If
End Sub
Yang diatas baru koding nya, sekarang kita menuju Class Modules nya,,
beri nama classbuku
Public kode_buku As String
Public judul As String
Public pengarang As String
Public penerbit As String
Public No_ISBN As String
Public edisi As String
Public thn_terbit As String
Public kategori As String
Public jenis As String
Dim rs As ADODB.Recordset
Public Sub simpan()
strsql = "insert into perpus_buku (kode_buku, judul, pengarang " _
& ",penerbit, No_ISBN,edisi,thn_terbit,kategori " _
& ",jenis) values ('" & kode_buku & "', '" & judul & "' " _
& ",'" & pengarang & "', '" & penerbit & "' " _
& ",'" & No_ISBN & "','" & edisi & "', '" & thn_terbit & "' " _
& ",'" & kategori & "', '" & jenis & "')"
conn.Execute (strsql)
End Sub
Public Sub ubah(kode_buku As String)
strsql = "update perpus_buku set judul = '" & judul & "' " _
& ", pengarang = '" & pengarang & "' " _
& ", penerbit = '" & penerbit & "' " _
& ", No_ISBN = '" & No_ISBN & "' " _
& ", edisi = '" & edisi & "' " _
& ", thn_terbit = '" & thn_terbit & "' " _
& ", kategori = '" & kategori & "' " _
& ", jenis = '" & jenis & "' " _
& " where kode_buku = '" & kode_buku & " '"
conn.Execute (strsql)
End Sub
Public Function cari(kode As String) As Boolean
cari = False
strsql = "select * from perpus_buku where kode_buku='" & kode & "' "
Set rs = conn.Execute(strsql)
If Not rs.EOF Then
judul = rs!judul
pengarang = rs!pengarang
penerbit = rs!penerbit
No_ISBN = rs!No_ISBN
edisi = rs!edisi
thn_terbit = rs!thn_terbit
kategori = rs!kategori
jenis = rs!jenis
cari = True
Else
judul = ""
pengarang = ""
penerbit = ""
No_ISBN = ""
edisi = ""
thn_terbit = ""
kategori = 0
jenis = 0
cari = False
End If
End Function
Public Sub hapus(kode As String)
strsql = "delete from perpus_buku where kode_buku='" & kode & "'"
conn.Execute (strsql)
End Sub
Lalu buat untuk koneksi nya pada Modules
Public conn As New ADODB.Connection
Public strsql As String
Public Sub BukaKoneksi()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=root"
conn.CursorLocation = adUseClient
conn.Open
End Sub
Posted in: program kuliah,visual basic
1 komentar:
gan ini emang kaga bisa di download, butuh tampilan user interface-nya noh mau ane ikutin buat aplikasi pemberkasan
Posting Komentar