TUGAS AKHIR PEMROGRAMAN BASIS DATA APLIKASI PERPUSTAKAAN

					TUGAS AKHIR PEMROGRAMAN BASIS DATA
       APLIKASI PERPUSTAKAAN
          VISUAL BASIC 6.0




                   Oleh :
              Kelompok ( SL 3 )
         Ahmad Buhari ( 091051037 )




  FAKULTAS TEKNOLOGI INDUSTRI
   JURUSAN TEKNIK INFORMATIKA
INSTITUT SAINS & TEKNOLOGI AKPRIND
           YOGYAKARTA
                   2011
                            KATA PENGANTAR


     Puji syukur saya panjatkan kehadirat Tuhan Yang Maha Esa, karena atas
rahmat dan kehendak-Nya, sehingga LAPORAN DAN APLIKASI sederhana ini
dapat saya selesaikan tepat pada waktunya.
     Penulisan dan pembuatan laporan ini bertujuan untuk memenuhi tugas
Praktikum Basis Data yang diberikan oleh Dosen pengajar.
       Dalam penulisan Laporan ini saya menemui berbagai hambatan yang
dikarenakan terbatasnya Ilmu Pengetahuan penulis mengenai hal yang berkenan
dengan penulisan laporan ini, Serta banyaknya Tugas dari matakuliah lain
sehingga penulis tidak dapat maksimal merancang aplikasi ini dengan sempurna.
       Saya menyadari akan kemampuan saya yang masih sedikit. Dalam laporan
ini saya sudah berusaha semaksimal mungkin. Tapi saya yakin laporan ini masih
banyak kekurangan. Oleh karena itu saya mengharapkan saran dan juga kritik
yang membangun agar lebih maju di masa yang akan datang.




                                              Yogyakarta, 27 September 2011




                                                 Ahmad Buhari (091051037)
                                     BAB I

                          Dasar - Dasar Aplikasi



   A. Pengertian Visual Basic

       Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan
sebuah bahasa pemrograman yang menawarkan Integrated Development
Environment (IDE) visual untuk membuat program perangkat lunak berbasis
sistem operasi Microsoft Windows dengan menggunakan model pemrograman
(COM), Visual Basic merupakan turunan bahasa pemrograman BASIC dan
menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan
cepat, Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan
Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic,
tetapi cara kerjanya yang berbeda. Para programmer dapat membangun aplikasi
dengan menggunakan komponen-komponen yang disediakan oleh Microsoft
Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat
menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.

   B. Pengertian Database

       Database merupakan sekumpulan informasi yang saling berkaitan pada
suatu subjek tertentu pada tujuan tertentu pula. Di dalam database terdapat
susunan record data operasional lengkap dari suatu organisasi atau perusahaan,
yang diorganisir dan disimpan secara terintegrasi dengan menggunakan metode
tertentu dalam komputer sehingga mampu memenuhi informasi yang optimal
yang dibutuhkan oleh para pengguna

       Banyak sekali kegiatan manusia yang menggunakan komputer sebagai
sarana pengolahan data, sehingga diperlukan suatu perangkat lunak database. Jika
dikaji lebih mendasar tentang batasan suatu database, maka dapat disebutkan
bahwa segala bentuk koleksi data adalah suatu database. Mulai dari kelompok
data pegawai, sampai dengan kelompok file, merupakan database.
   C. Form Induk (MDIForm)

        MDI yang biasa dibaca Multiple Document Interface.APlikasi bentuk
MDI pada dasarnya aplikasi dengan banyak windows yang terdapat pada satu
windows induk,salah satu contohnya asalah Microsoft Word,Excel,Power Point
dan lain-lain.Dengan kata lain MDI dirancang untuk program aplikasi yang
membutuhkan banyak form,dan sebagai pengaturan form-form yang lain. MDI
Form biasanya disebut juga dengan form induk karena dapat menampilkan form
lain di dalamnya. Untuk menambahkan sebuah form MDI ke dalam project,dapat
dilakukan dengan memilih Add MDI form dari menu project.
                                       BAB II

                                 PEMBAHAN APLIKASI

A.    Desain dan Source Code Program

     1. Desain Form Menu Utama




        Frame menu utama merupakan suatu index sebagai tampilan awal masuk
login yang menghubungkan ke form lainnya, bisa dilihat diatas bahwa terdapat
beberapa menu pilihan yang dicantumkan pada tampilan awal ini seperti menu
Home, menu Entry, menu Transaksi, menu Laporan & menu Exit.

      1.1       Source Code Program Form Menu Utama
Private Sub mnuanggota_Click()
anggota.Show
                                         Memanggil form
End Sub
                                         anggota
Private Sub mnubuku_Click()
                                           Memanggil Form
buku.Show
                                           Buku
End Sub



Private Sub mnuexit_Click()
Dim MB As Byte
MB = MsgBox("Anda Yakin Keluar...?", vbYesNo + vbInformation, "Pesan")
If MB = vbYes Then
End                                     Mengkonfirmasi kalu mau
End If
End Sub                                 keluar dari program

Private Sub mnuhome_Click()
Unload anggota
Unload buku                              Jika mnuhome diklik maka
Unload frm_kembali                       semua form akan keluar
Unload lappinjam
Unload lapkembali
Unload pegawai
Unload pinjam
End Sub

Private Sub mnukembali_Click()
frm_kembali.Show
End Sub                               Memanggil form kembali

Private Sub mnulapanggota_Click()
DataReport2.Show
End Sub
                                          Memanggil DataReport2

Private Sub mnulapbuku_Click()
DataReport3.Show                          Memanggil DataReport3
End Sub

Private Sub mnulappinjam_Click()
DataReport1.Show                            Memanggil DataReport1
End Sub

Private Sub mnupegawai_Click()
pegawai.Show
                                              Memanggil form pegawai
End Sub

Private Sub mnupinjam_Click()
pinjam.Show
End Sub                                       Memanggil form pinjam
    2. DESAIN FORM INPUT ANGGOTA




       Frame Input Data Anggota ini merupakan frame input untuk memasukan
data-data anggota yang akan disimpan di database akses dan ditampilkan dengan
Data Grid, Inputan Data yang disediakan antara lain adalah nis, nama, alamat,
jenis kelamin, kelas dan telp. Disitu juga disediakan tombol-tombol
commandbutton seperti Tambah untuk mmemasukan inputan data baru, Simpan
untuk menyimpan ,Batal untuk membatalkan input data, edit untuk mengubah
data, Hapus untuk menghapus data dan Keluar untuk keluar dari Form Input Data
Anggota.

       2.1 SOURCE CODE PROGRAM FORM INPUT ANGGOTA
Public Baru As Boolean
Private Sub cmdbatal_Click()
Tombol True, True, False, False, True
dtanggota.Recordset.Cancel
Kosong
End Sub

Private Sub cmdberikut_Click()
'Menuju ke record berikutnya
dtanggota.Recordset.MoveNext
'Jika berada di record terakhir menuju ke record terakhir
If dtanggota.Recordset.EOF Then
dtanggota.Recordset.MoveLast
End If
End Sub

Private Sub CmdEdit_Click()
Tombol False, False, True, True, False
With dtanggota.Recordset
nis.Text = !nis
nama.Text = !nama
alamat.Text = !alamat
kelas.Text = !kelas
jekel.Text = !jekel
telp.Text = !telp
End With
nis.SetFocus
Baru = False
End Sub

Private Sub cmdhapus_Click()
Dim hapus
hapus = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data")
If hapus = vbYes Then
dtanggota.Recordset.Delete
dtanggota.Recordset.MoveLast
Else
MsgBox "Data tidak jadi dihapus!", vbOKOnly + vbInformation, "Batal", Menghapus
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdpertama_Click()
'Menuju ke record pertama
dtanggota.Recordset.MoveFirst
End Sub

Private Sub cmdsebelum_Click()
'Menuju ke record sebelumnya
dtanggota.Recordset.MovePrevious
'Jika berada di record pertama menuju ke record pertama
If dtanggota.Recordset.BOF Then
dtanggota.Recordset.MoveFirst
End If
End Sub

Private Sub cmdsimpan_Click()
Tombol True, True, False, False, True
With dtanggota.Recordset
If Baru Then .AddNew
!nis = nis.Text
!nama = nama.Text
!alamat = alamat.Text
!jekel = jekel.Text
!kelas = kelas.Text
!telp = telp.Text
.Update
.Sort = "nis"
End With
Kosong
End Sub

Private Sub cmdtambah_Click()
Tombol False, False, True, True, False
Baru = True
Kosong
nis.SetFocus
End Sub

Private Sub cmdterakhir_Click()
dtanggota.Recordset.MoveLast
End Sub

Public Sub Tombol(tambah, edit, simpan, batal, hapus As Boolean)
cmdtambah.Enabled = tambah
cmdedit.Enabled = edit
cmdsimpan.Enabled = simpan
cmdbatal.Enabled = batal
cmdhapus.Enabled = hapus
End Sub

Public Sub Kosong()
nis.Text = ""
nama.Text = ""
alamat.Text = ""
jekel.Text = ""
kelas.Text = ""
telp.Text = ""
End Sub
    3. DESAIN FORM INPUT PEGAWAI




        Form Input Data Pegawai ini merupakan form input untuk memasukan
data-data pegawai yang akan disimpan di database akses dan ditampilkan dengan
Data Grid, Inputan Data yang disediakan antara lain adalah nip, nama, alamat dan
telp. Disitu juga disediakan tombol-tombol commandbutton seperti Tambah untuk
mmemasukan inputan data baru, Simpan untuk menyimpan ,Batal untuk
membatalkan input data, edit untuk mengubah data, Hapus untuk menghapus data
dan Keluar untuk keluar dari Form Input Data Pegawai.

       3.1 SOURCE CODE INPUT PEGAWAI
Public Baru As Boolean
Private Sub cmdbatal_Click()
Tombol True, True, False, False, True
dtpegawai.Recordset.Cancel
Kosong
End Sub

Private Sub cmdberikut_Click()
'Menuju ke record berikutnya
dtpegawai.Recordset.MoveNext
'Jika berada di record terakhir menuju ke record terakhir
If dtpegawai.Recordset.EOF Then
dtpegawai.Recordset.MoveLast
End If
End Sub

Private Sub CmdEdit_Click()
Tombol False, False, True, True, False
With dtpegawai.Recordset
nip.Text = !nis
nama.Text = !nama
alamat.Text = !alamat
telp.Text = !telp
End With
nip.SetFocus
Baru = False
End Sub

Private Sub cmdhapus_Click()
Dim hapus
hapus = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data")
If hapus = vbYes Then
dtpegawai.Recordset.Delete
dtpegawai.Recordset.MoveLast
Else
MsgBox "Data tidak jadi dihapus!", vbOKOnly + vbInformation, "Batal", Menghapus
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdpertama_Click()
'Menuju ke record pertama
dtpegawai.Recordset.MoveFirst
End Sub

Private Sub cmdsebelum_Click()
'Menuju ke record sebelumnya
dtpegawai.Recordset.MovePrevious
'Jika berada di record pertama menuju ke record pertama
If dtpegawai.Recordset.BOF Then
dtpegawai.Recordset.MoveFirst
End If
End Sub

Private Sub cmdsimpan_Click()
Tombol True, True, False, False, True
With dtpegawai.Recordset
If Baru Then .AddNew
!nip = nip.Text
!nama = nama.Text
!alamat = alamat.Text
!telp = telp.Text
.Update
.Sort = "nip"
End With
Kosong
End Sub

Private Sub cmdtambah_Click()
Tombol False, False, True, True, False
Baru = True
Kosong
nip.SetFocus
End Sub

Private Sub cmdterakhir_Click()
dtpegawai.Recordset.MoveLast
End Sub
Public Sub Tombol(tambah, edit, simpan, batal, hapus As Boolean)
cmdtambah.Enabled = tambah
cmdedit.Enabled = edit
cmdsimpan.Enabled = simpan
cmdbatal.Enabled = batal
cmdhapus.Enabled = hapus
End Sub

Public Sub Kosong()
nip.Text = ""
nama.Text = ""
alamat.Text = ""
telp.Text = ""
End Sub

Private Sub cmdtutup_Click()
Unload Me End Sub

    4. DESAIN FORM INPUT DATA BUKU




       Form Input Data Buku ini merupakan form input untuk memasukan data-
data buku yang akan disimpan di database akses dan ditampilkan dengan Data
Grid, Inputan Data yang disediakan antara lain adalah kodebuku, judul,
pengarang, penerbit, bahasa, edisi dan Jumlah Eksemplar. Disitu juga disediakan
tombol-tombol commandbutton seperti Tambah untuk mmemasukan inputan data
baru, Simpan untuk menyimpan ,Batal untuk membatalkan input data, edit untuk
mengubah data, Hapus untuk menghapus data dan Keluar untuk keluar dari Form
Input Data Buku.

      4.1 SOURCE CODE INPUT DATA BUKU
Public Baru As Boolean
Private Sub cmdbatal_Click()
Tombol True, True, False, False, True
dtbuku.Recordset.Cancel
Kosong
End Sub

Private Sub cmdberikut_Click()
'Menuju ke record berikutnya
dtbuku.Recordset.MoveNext
'Jika berada di record terakhir menuju ke record terakhir
If dtbuku.Recordset.EOF Then
dtbuku.Recordset.MoveLast
End If
End Sub

Private Sub CmdEdit_Click()
Tombol False, False, True, True, False
With dtbuku.Recordset
txtkode.Text = !kodebuku
txtjudul.Text = !judul
txtpengarang.Text = !pengarang
txtpenerbit.Text = !penerbit
cbobahasa.Text = !bahasa
txtedisi.Text = !edisi
txtstok.Text = !stok
End With
txtkode.SetFocus
Baru = False
End Sub

Private Sub cmdhapus_Click()
Dim hapus
hapus = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data")
If hapus = vbYes Then
dtbuku.Recordset.Delete
dtbuku.Recordset.MoveLast
Else
MsgBox "Data tidak jadi dihapus!", vbOKOnly + vbInformation, "Batal", Menghapus
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdpertama_Click()
'Menuju ke record pertama
dtbuku.Recordset.MoveFirst
End Sub
Private Sub cmdsebelum_Click()
'Menuju ke record sebelumnya
dtbuku.Recordset.MovePrevious
'Jika berada di record pertama menuju ke record pertama
If dtbuku.Recordset.BOF Then
dtbuku.Recordset.MoveFirst
End If
End Sub
Private Sub cmdsimpan_Click()
Tombol True, True, False, False, True
With dtbuku.Recordset
If Baru Then .AddNew
!kodebuku = txtkode.Text
!judul = txtjudul.Text
!pengarang = txtpengarang.Text
!penerbit = txtpenerbit.Text
!bahasa = cbobahasa.Text
!edisi = txtedisi.Text
!stok = txtstok.Text
.Update
.Sort = "kodebuku"
End With
Kosong
End Sub

Private Sub cmdtambah_Click()
Tombol False, False, True, True, False
Baru = True
Kosong
txtkode.SetFocus
End Sub

Private Sub cmdterakhir_Click()
dtbuku.Recordset.MoveLast
End Sub

Public Sub Tombol(tambah, edit, simpan, batal, hapus As Boolean)
cmdtambah.Enabled = tambah
cmdedit.Enabled = edit
cmdsimpan.Enabled = simpan
cmdbatal.Enabled = batal
cmdhapus.Enabled = hapus
End Sub

Public Sub Kosong()
txtkode.Text = ""
txtjudul.Text = ""
txtpengarang.Text = ""
txtpenerbit.Text = ""
cbobahasa.Text = ""
txtedisi.Text = ""
txtstok.Text = ""
End Sub

Private Sub cmdtutup_Click()
Unload Me
End Sub

    5. DESAIN FORM PEMINJAMAN
       Pada Form Peminjaman ini yang hanya bisa melakukan peminjaman
adalah anggota dimana pada Combo Anggota apabila diklik akan menampilkan
nama anggota dan pada Combo Buku akan menampilkan Judul. Kemudian kita
mengimputkan berapa banyak buku yang akan ditambahkan pada data base,
Kemudian disimpan.
      5.1 SOURCE CODE PEMINJAMAN
Private Sub cbokode_Change()
cbokode_Click
End Sub

Private Sub cbokode_Click()
Dim DBbuku As Database
Dim rsbuku As Recordset
Set DBbuku = OpenDatabase(App.Path & "\PERPUS.mdb")
Set rsbuku = DBbuku.OpenRecordset("tbbuku")
rsbuku.Index = "idxbuku"
rsbuku.Seek "=", cbokode.Text
If rsbuku.NoMatch Then
txtjudul.Text = ""
Else
txtjudul.Text = rsbuku!judul
Set rsbuku = DBbuku.OpenRecordset("select count(tbpinjam.kodebuku) from tbbuku,tbpinjam
group by tbbuku.kodebuku,tbpinjam.kodebuku,judul,tgl_kembali having
tbbuku.kodebuku=tbpinjam.kodebuku and tbbuku.kodebuku='" & cbokode.Text & "' and
isnull(tgl_kembali)")
If Not rsbuku.EOF Then
    MsgBox "Buku ini sedang dipinjam, silahkan pilih buku yang lain", vbCritical, "M a a f"
    Else
    MsgBox " Buku tersedia, anda beruntung sekali", vbCritical, "L U C K Y"
End If
Set rsbuku = DBbuku.OpenRecordset("select count(kodebuku) from tbbuku where judul='" &
txtjudul.Text & "'")
Text1.Text = rsbuku(0)
Set rsbuku = DBbuku.OpenRecordset("select count(tbpinjam.kodebuku) from tbbuku,tbpinjam
group by tbbuku.kodebuku,tbpinjam.kodebuku,judul,tgl_kembali having
tbbuku.kodebuku=tbpinjam.kodebuku and judul='" & txtjudul.Text & "' and isnull(tgl_kembali)")
'If rsbuku.EOF Then
   ' Text2.Text = 0
'Else
    'Text2.Text = rsbuku(0)
End If

'End If
End Sub

Private Sub cbonis_Change()
cbonis_Click
End Sub

Private Sub cbonis_Click()
Dim dbanggota As Database
Dim rsanggota As Recordset
Set dbanggota = OpenDatabase(App.Path & "\PERPUS.mdb")
Set rsanggota = dbanggota.OpenRecordset("tbanggota")
rsanggota.Index = "idxanggota"
rsanggota.Seek "=", cbonis.Text
If rsanggota.NoMatch Then
txtnama.Text = ""
Else
txtnama.Text = rsanggota!nama
End If
End Sub

Private Sub CmdEdit_Click()
Dim dbpinjam As Database
Dim rspinjam As Recordset
Dim rsbuku As Recordset
Dim i As Integer
Set dbpinjam = OpenDatabase(App.Path & "\PERPUS.mdb")
Set rspinjam = dbpinjam.OpenRecordset("tbpinjam")
Set rsbuku = dbpinjam.OpenRecordset("tbbuku")
rspinjam.Index = "idxpinjam"
rsbuku.Index = "idxbuku"
rspinjam.Seek "=", cbokode.Text
If Not rspinjam.NoMatch Then
rspinjam.Delete
Do While Not rspinjam.EOF
rsbuku.Seek "=", rspinjam!kodebuku
rsbuku.edit
rsbuku.Update
rspinjam.MoveNext
Loop
cmdsimpan_Click
Else
MsgBox "Kode Buku tersebut tidak ditemukan", vbCritical
End If
End Sub

Private Sub cmdhapus_Click()
Dim dbpinjam As Database
Dim rspinjam As Recordset
Set dbpinjam = OpenDatabase(App.Path & "\PERPUS.mdb")
Set rspinjam = dbpinjam.OpenRecordset("tbpinjam")
rspinjam.Index = "idxpinjam"
Set rsbuku = dbpinjam.OpenRecordset("tbbuku")
rsbuku.Index = "idxbuku"
If MsgBox("apakah anda yakin u/ dihapus", vbQuestion + vbYesNo) = vbYes Then
rspinjam.Seek "=", cbokode.Text
If Not rspinjam.NoMatch Then
Do While Not rspinjam.EOF
If rspinjam!kodebuku = rspinjam!kodebuku Then
rsbuku.Seek "=", rspinjam!kodebuku
If Not rsbuku.NoMatch Then
rsbuku.edit
rsbuku.Update
End If
rspinjam.Delete
End If
rspinjam.MoveNext
Loop
cbokode.Text = ""
Else
MsgBox "Kode buku tersebut tidak ditemukan!", vbCritical
End If
End If
End Sub

Private Sub cmdrefresh_Click()
dtpeminjaman.Refresh
DataGrid1.Refresh
End Sub

Private Sub cmdsimpan_Click()
Dim dbpinjam As Database
Dim rspinjam As Recordset
Dim rsbuku As Recordset
Set dbpinjam = OpenDatabase(App.Path & "\PERPUS.mdb")
Set rspinjam = dbpinjam.OpenRecordset("tbpinjam")
   rspinjam.Index = "idxpinjam"
   rspinjam.Seek "=", cbokode.Text
If rspinjam.NoMatch Then
   If validasitransaksi = True Then
      rspinjam.AddNew
      rspinjam!kodebuku = cbokode.Text
      rspinjam!nis = cbonis.Text
      rspinjam!tgl_pinjam = dtpinjam.Value
      rspinjam!tgl_kembali = dtkembali.Value
      rspinjam!jlhpinjam = Text2.Text
      rspinjam.Update
      DataGrid1.Refresh
   End If
Else
   MsgBox "Maaf, transaksi peminjaman tersebut sudah ada", vbCritical, "Errrooor"
   cbokode.SetFocus
End If
End Sub

Private Sub cmdtutup_Click()
Dim MB As Byte
MB = MsgBox("Anda Yakin Keluar.?????", vbYesNo + vbInformation, "Pesan")
If MB = vbYes Then
Unload Me
End If
End Sub
Private Sub isikombo()
   Dim dbpinjam As Database
   Dim rsbuku As Recordset
   Dim rsangota As Recordset
   Set dbpinjam = OpenDatabase(App.Path & "\PERPUS.mdb")
   Set rsbuku = dbpinjam.OpenRecordset("tbbuku")
   Do While Not rsbuku.EOF
   cbokode.AddItem rsbuku!kodebuku
   rsbuku.MoveNext
   Loop
   Set rsanggota = dbpinjam.OpenRecordset("tbanggota")
   Do While Not rsanggota.EOF
   cbonis.AddItem rsanggota!nis
   rsanggota.MoveNext
   Loop
End Sub

Private Sub bersih()
dtpinjam.Value = Date
dtkembali.Value = DateAdd("d", 6, Date)
cbonis.Text = ""
txtnama.Text = ""
cbokode.Text = ""
txtnama.Text = ""
Text1.Text = ""
'Text2.Text = ""
End Sub

Private Sub Form_Load()
cbokode.Text = ""
bersih
isikombo
End Sub

Private Sub cmdkurang_Click()
Dim j As Integer
Dim i As Integer
Dim ketemu As Boolean
ketemu = False
If lvpinjam.ListItems.Count > 0 Then
For i = 1 To lvpinjam.ListItems.Count
If lvpinjam.ListItems.Item(i).Text = cbokode.Text Then
ketemu = True
Exit For
End If
Next
If ketemu = True Then
lvpinjam.ListItems.Remove i
End If
End If
End Sub

Private Sub cmdtambah_Click()
Dim mitem
If validasibuku = True Then
Set mitem = lvpinjam.ListItems.Add(, , cbokode.Text)
mitem.SubItems(1) = txtjudul.Text
mitem.SubItems(2) = dtpinjam.Value
mitem.SubItems(3) = dtkembali.Value
End If
End Sub

Private Function validasibuku() As Boolean
validasibuku = False
If txtjudul.Text = "" Then
   MsgBox "Maaf, Judul buku belum ada", vbCritical, "Errooooo"
   cbokode.SetFocus
ElseIf txtnama.Text = "" Then
   MsgBox "Maaf, Nama Anggota belum benar", vbCritical, "Errrrrooor"
   cbonis.SetFocus
Else
validasibuku = True
End If
End Function

Private Function validasitransaksi() As Boolean
validasitransaksi = False
If cbokode.Text = "" Then
MsgBox "Maaf, kode buku belum diisi", vbCritical, "Erooor"
cbokode.SetFocus
ElseIf lvpinjam.ListItems.Count = 0 Then
MsgBox "Maaf Nomor anggota belum diisi", vbCritical, "Errroooor"
cbonis.SetFocus
Else
validasitransaksi = True
End If
End Function
    6. DESAIN FORM PENGEMBALIAN




        Pada Form Pengembalian ini kita hanyamemilih tanggal berapa buku akan
dikembalikan kemudian mengimputkan kode buku yang dipinjam, apabila sudah
di isi lalu menampilkan judul buku yang telah dipinjam, kemdian klik Prosses
maka akan Diproses pengembalian buku. Apabila pengembalian buku telat n-hari
maka akan dikenakan denda.

       6.1 SOURCE CODE PENGEMBALIAN
Private Sub cmdCancel_Click()
Dim MB As Byte
MB = MsgBox("Anda Yakin Keluar.?????", vbYesNo + vbInformation, "Pesan")
If MB = vbYes Then
Unload Me
End If
End Sub

Private Sub cmdproses_Click()
Dim dbpinjam As Database
Dim rspinjam As Recordset
Dim rsbuku As Recordset
Dim hari As Integer
Dim denda As Integer
Set dbpinjam = OpenDatabase(App.Path & "\PERPUS.mdb")
Set rspinjam = dbpinjam.OpenRecordset("tbpinjam")
Set rsbuku = dbpinjam.OpenRecordset("tbbuku")
   rspinjam.Index = "idxpinjam"
   rspinjam.Seek "=", txtkode.Text
   rsbuku.Index = "idxbuku"
   rsbuku.Seek "=", txtkode.Text
If rsbuku.NoMatch Then
txtjudul.Text = ""
MsgBox "Data buku tersebut tidak ditemukan, silahkan cek pada data buku!!!!!!", vbCritical, "E r
rooo rrr"
Else
  If MsgBox("anda yakin mengembalikan buku ini?", vbQuestion + vbYesNo) = vbYes Then
Set rsbuku = dbpinjam.OpenRecordset("select count(tbpinjam.kodebuku) from tbbuku,tbpinjam
group by tbbuku.kodebuku,tbpinjam.kodebuku,judul,tgl_kembali having
tbbuku.kodebuku=tbpinjam.kodebuku and tbbuku.kodebuku='" & txtkode.Text & "' and
isnull(tgl_kembali)")
  If Not rspinjam.EOF Then
  hari = DateDiff("d", rspinjam!tgl_pinjam, Date)
  If hari > 6 Then
  denda = (hari - 6) * 100
    Else
  denda = 0
    MsgBox " Waktu peminjaman adalah " & hari & " hari" & ", anda dikenai denda sebesar :" &
denda
    rspinjam.Seek "=", txtkode.Text
    rspinjam.edit
    rspinjam!tgl_kembali = dttanggal.Value
    rspinjam.Update
MsgBox " Buku ini sudah dikembalikan, silahkan pinjam kembali", vbCritical, "MESSAGES"
txtkode.SetFocus
    End If
End If
End If
End If
         End Sub
Private Sub Form_Activate()
dttanggal.Value = Date
   End Sub
Private Sub Form_Load()
dttanggal.Value = Date
End Sub

Private Sub txtkode_Change()
txtkode_Click
End Sub

Private Sub txtkode_Click()
Dim DBbuku As Database
Dim rsbuku As Recordset
Set DBbuku = OpenDatabase(App.Path & "\PERPUS.mdb")
Set rsbuku = DBbuku.OpenRecordset("tbbuku")
   rsbuku.Index = "idxbuku"
   rsbuku.Seek "=", txtkode.Text
If rsbuku.NoMatch Then
   txtjudul.Text = ""
Else
txtjudul.Text = rsbuku!judul
End If End Sub
                                    BAB III
                 DATA BASE & CRISTAL REPORT
1. Pembuatan Data Base Menggunakan Menu Add-In  Visual Data
   Manager.
      Untuk membuat data base menggunakan menu Add-In Visual Data
Manager caranya sebagai berikut :
     Klik Add-In pada menu editor kemudian pilih Visual Data Manager.
     Kemudian Buat Data Base baru caranya sbb :
       Klik File pada VisData  New  Version 2.0MDB / Version 7.0
          MDB  Kemudian Pilih Lokasi Penyimpanan.
       Kemudian akan muncul window seperti berikut :




       Kemudian klik kanan pada propertise lalu pilih New Table. Lalu isikan
          nama tabel anda pada Table Name, kemudian Klik Add Field untuk
          menambah Field di inginkan. Lalu Membuat Sebuah index caranya
          Klik Add Index, Lalu pilih Field yang akan di jadikan primary key,
          kemudian Klik Build Table untuk membuat Tabel. Seperti contoh
          berikut :
       Setelah selesai membuat data base maka tambahkan komponen ADODC
pada form, lalu pada property Connection String pilih data base yang tadi kita
buat. Kemudian pada recordsource pilih tabel yang tadi kita buat. Nah sekarang
sudah terhubung data basenya.

   2. Membuat Data Report
        Sebelum Membuat Data Report kita harus membuat Data Environtment
untuk menghubungkan database acces dengan Data Report.
Cara untuk menghubungkannya sebagai berikut :
        Klik menu Project kemudian pilih Add Data Environtment Kemudian
          akan muncul tampilan seperti berikut :




        Klik kanan Connection1 kemudian pilih propertise lalu pilih database
         yang kita buat tadi. Kemudian klik Ok.
        Kemudian buat sebuah command caranya klik kanan pada connection
         lalu pilih Add Command , kemudian klik kanan pilih propertise akan
         muncul seperti berikut :
                                 Setelah Database dan Field terhubung
                                 selanjutnya kita akan membuat data
                                 report.




 Untuk membuat Data Report caranya Klik Project  pilih Add Data
  Report Kemudian pada propertise data sourcenya dihubungkan pada
  Data Environtment yang di buat tadi dan pada data member kita pilih
  command yang kita buat tadi.
 Selanjutnya kita mengisertkan textbox yang dihubungkan dengan data
  base dan field-field yang kita buat tadi.Setelah selesai kita bisa
  memanggil DataReport. Dan Hasilnya Seperti berikut :
                                   BAB IV
                                  PENUTUP

       A.     Kesimpulan

        Dengan menggunakan Visual Basic kita dapat merancang suatu interface
aplikasi dan mengisi koding di dalamnya apalagi dengan disediakannya beberapa
fitur-fitur di dalamnya semakin mempermudah dalam pengerjaan suatu tampilan
aplikasi , disamping itu Visual Basic juga menyediakan sarana untuk berhubungan
dengan soft lainnya dengna VB environmentnya sehingga lebih banyak dan
beranekaragam fitur dalam pembuatan interfacenya.

       B.     Kendala

       Dalam mengerjakan aplikasi ini saya mendapatkan beberapa kendala di
antaranya yaitu dalam pengoneksian tampilan vb dengan database acces yang
saya bangun,sehingga menghambat kinerja saya dalam menyusun aplikasi ini
serta beberapa kendala koding seperti syntak-syntak yang baru dan asing bagi
saya membuat saya cukup memutar otak untuk memahaminya

       C.     Saran

       Saya berharap agar prasarana di lab multimedia lebih di perhatikan dan di
pertimbangkan ulang untuk selebihnya saya rasa sudah cukup baik.

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:316
posted:3/31/2012
language:
pages:26