Tugas IV Sistem Manajemen Basis Data


TUGAS IV KELOMPOK
SISTEM MANAJEMEN BASIS DATA
APLIKASI PERPUSTAKAAN




Disusun Oleh:
Zainal Abidin              (121051066)
Asri Respati                (121051070)
Jefrianto Tafonao        (121051089)
Tamam Achmad H.     (121051102)
Idni Nuzulul F.            (121051107)


FAKULTAS TEKNOLOGI INDUSTRI
JURUSAN TEKNIK INFORMATIKA
INSTITUT SAINS & TEKNOLOGI AKPRIND
YOGYAKARTA
2013/2014




Ø   Disini Kita Membuat Aplikasi Tentang Perpustakaan Menggunakan Visual Basic, dan Terdapat 21 Form yang terdiri dari :
1.         Form Login
2.         Form Menu Utama, Didalam Form Menu Utama Terdapat 3 Menu yang Terdiri Dari :
v  Master, dan Didalam Menu Master Terdapat :
·           Form Data User
·           Form Data Anggota
·           Form Data Buku
·           Form Data Jenis
·           Form Data Bidang
·           Form Data Penerbit
·           Form Data Penulis
·           Form Data Propinsi
·           Form Data Kabupaten
·           Form Data Kecamatan
·           Form Data Tanggal Libur
·           Form Data Tarif Denda
·           Form Data Tarif Hilang
·           Form Data Tarif Rusak
v  Transaksi, dan Didalam Menu Transaksi Terdapat :
·           Form Peminjaman
·           Form Pengembalian
·           Form Bayar Denda
·           Form Bayar Hilang
·           Form Bayar Rusak
v  Laporan, Dan Didalam Menu Laporan Terdapat :
·           Laporan Peminjaman
·           Laporan Pengembalian
v  Keluar

Untuk Aplikasinya Download Disini ==> aplikasi

1.              Sebelum Masuk Ke Menu Utama, Pertama Kita Harus Login Terlebih Dahulu.
Didalam Menu Login Terdapat 5 User Yaitu : Admin, Kepala Sekolah, Kepala Perpustakaan, Anggota dan Pengunjung.

                              





Source Code :

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    LoginSucceeded = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "admin" Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        MsgBox "Selamat Datang Selamat Datang", vbInformation, "login"
        MDIForm1.Show
        Unload Me
        Me.Hide
    Else
        MsgBox "Password salah, ulangi!!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "admin"
Combo1.AddItem "kepala sekolah"
Combo1.AddItem "kepala perpustakaan"
Combo1.AddItem "anggota"
Combo1.AddItem "pengunjung"
Skin1.ApplySkin Me.hWnd
End Sub

2.              Menu Utama



Source Code :

Private Sub anggal_libur_Click()
Form2.Show
Unload Me
End Sub

Private Sub anggota_Click()
Form6.Show
Unload Me
End Sub

Private Sub bayar_denda_Click()
Form16.Show
Unload Me
End Sub

Private Sub bayar_hilang_Click()
Form17.Show
Unload Me
End Sub

Private Sub bayar_rusak_Click()
Form18.Show
Unload Me
End Sub

Private Sub bidang_Click()
Form8.Show
Unload Me
End Sub

Private Sub buku_Click()
Form19.Show
Unload Me
End Sub

Private Sub jenis_Click()
Form7.Show
Unload Me
End Sub

Private Sub kabupaten_Click()
Form12.Show
Unload Me
End Sub

Private Sub kecamatan_Click()
Form13.Show
Unload Me
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub kembali_Click()
Form15.Show
Unload Me
End Sub

Private Sub lap_kembali_Click()
DataReport2.Show
Unload Me
End Sub

Private Sub lap_pinjam_Click()
DataReport1.Show
Unload Me
End Sub

Private Sub lapkem_Click()
DataReport2.Show
Unload Me
End Sub

Private Sub lappin_Click()
DataReport1.Show
Unload Me
End Sub

Private Sub MDIForm_Load()
Skin1.ApplySkin Me.hWnd
End Sub

Private Sub penerbit_Click()
Form9.Show
Unload Me
End Sub

Private Sub penulis_Click()
Form10.Show
Unload Me
End Sub

Private Sub pinjam_Click()
Form14.Show
Unload Me
End Sub

Private Sub propinsi_Click()
Form11.Show
Unload Me
End Sub

Private Sub tarif_denda_Click()
Form3.Show
Unload Me
End Sub

Private Sub tarif_hilang_Click()
Form4.Show
Unload Me
End Sub

Private Sub tarif_rusak_Click()
Form5.Show
Unload Me
End Sub

Private Sub user_Click()
Form1.Show
Unload Me
End Sub

3.              Form Data User


Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "admin"
Combo1.AddItem "kepala sekolah"
Combo1.AddItem "kepala perpustakaan"
Combo1.AddItem "anggota"
Combo1.AddItem "pengunjung"
Skin1.ApplySkin Me.hWnd
End Sub

4.              Form Data Anggota



Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command6_Click()
Dim datacari As String
datacari = "kode_anggota = '" & Text1.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh
End Sub

Private Sub Form_Load()
Combo2.AddItem "guru"
Combo2.AddItem "karyawan"
Combo2.AddItem "siswa"
Combo3.AddItem "aktif"
Combo3.AddItem "tidak aktif"
Skin1.ApplySkin Me.hWnd
End Sub

5.              Form Data Buku



Source Code:

Private Sub Command2_Click()
Dim datacari As String
datacari = "kode_buku = '" & Text1.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh
End Sub

Private Sub Command4_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command5_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command7_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Form_Load()
Combo2.AddItem "indonesia"
Combo2.AddItem "asing"
Combo1.AddItem "baik"
Combo1.AddItem "rusak"
Skin1.ApplySkin Me.hWnd
End Sub

6.              Form Data Jenis Buku



Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

7.              Form Data Bidang




Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

8.              Form Data Penerbit



Source Code :

Private Sub Command2_Click()
Dim datacari As String
datacari = "kode_penerbit = '" & Text1.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh

End Sub

Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command7_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

9.              Form Data Penulis



Source Code :

Private Sub Command2_Click()
Dim datacari As String
datacari = "kode_penulis = '" & Text1.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command7_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

10.          Form Data Propinsi



Source Code :

Private Sub Command2_Click()
Dim datacari As String
datacari = "nama_propinsi = '" & Text2.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command7_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

11.          Form Data Kabupaten



Source Code :

Private Sub Command2_Click()
Dim datacari As String
datacari = "nama_kabupaten = '" & Text2.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command7_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

12.          Form Data Kecamatan



Source Code :

Private Sub Command2_Click()
Dim datacari As String
datacari = "nama_kecamatan = '" & Text2.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command7_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

13.          Form Data Tanggal Libur



Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

14.          Form Data Tarif Denda




Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

15.          Form Data Tarif Hilang



Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

16.          Form Data Tarif Rusak



Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

17.          Form Transaksi Peminjaman



Source Code :

Private Sub Command2_Click()
Dim datacari As String
datacari = "kode_pinjam = '" & Text1.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command7_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

18.          Form Transaksi Pengembalian



Source Code :

Private Sub Command2_Click()
Dim datacari As String
datacari = "kode_kembali = '" & Text2.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh

End Sub

Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command7_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

19.          Form Bayar Denda



Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

20.          Form Bayar Hilang



Source Code :

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

21.          Form Bayar Rusak



Souce Code:

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

v   Berikut Adalah Hasil Dari Laporan Peminjaman dan Laporan Pengembalian, Disini Kami Menggunakan Database Microsoft Acces, dan Untuk Hasil Laporan Disini Menggunakan Data Report.




v   Berikut Contoh Dari Hasil Cari :

   
                













Source Code Cari :

Private Sub Command2_Click()
Dim datacari As String
datacari = "nama_propinsi = '" & Text2.Text & " '"
Adodc1.Recordset.Find datacari
If Adodc1.Recordset.EOF Then
MsgBox "data tidak ditemukan"
Else
MsgBox "data di temukan pada record ke : " & Adodc1.Recordset.AbsolutePosition
End If
Adodc1.Refresh
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Makalah Sistem Operasi Terdistribusi

Gambar
KATA  PENGANTAR Puji syukur kita panjatkan atas kehadiran Tuhan Yang Maha Esa yang telah memberikan segala rahmat serta hidayah-Nya kepada kita, sehingga penulis dapat menyelesaikan tugas ini untuk melengkapi tugas-tugas Sistem Operasi. Makalah ini disusun melalui beberapa tahapan, yakni dari browsing, dan juga menggunakan jasa layanan Internet sampai makalah ini selesai dibuat, makalah ini dapat terselesaikan oleh penulis berkat bantuan dari teman-teman yang tidak henti-hentinya memberikan motivasi. Dalam menyusun Tugas Kelompok ini penulis merasa masih banyak kekurangan-kekurangan baik pada teknis penulisan maupun  materi, mengingat akan kemampuan yang dimiliki penulis. Untuk itu kritik dan saran dari semua pihak sangat penulis harapkan demi penyempurnaan pembuatan Tugas Kelompok  ini. Dari permasalahan yang telah kita bahas, semoga kita lebih mengetahui dan mempermudah kita dalam menjalankan program browsing tersebut sehingga kita semua dapat mengambil hi...
Baca selengkapnya

Program Mencari Hari Lahir Menggunakan C++

Gambar
Syntax : #include <iostream.h> main() { int tgl,bln,thn,k,f,h,sisa; cout<<"==============================================="<<endl; cout<<" -- ** -- Program Pencarian Hari Lahir -- ** --"<<endl; cout<<"==============================================="<<endl; cout<<endl; cout<<"Masukkan Tanggal Lahir Anda      --> ";cin>>tgl; cout<<"Masukkan Bulan Lahir Anda (1-12) --> ";cin>>bln; cout<<"Masukkan Tahun Lahir Anda        --> ";cin>>thn; cout<<endl; { if (bln == 1) cout<<"Anda Lahir Pada Tanggal ' "<<tgl<<" Januari "<<thn<<" '"<<endl; else if (bln == 2) cout<<"Anda Lahir Pada Tanggal ' "<<tgl<<" Februari "<<thn<<" '"<<endl; else if (bln == 3) cou...
Baca selengkapnya

Program Bank Sederhana Menggunakan C++

Gambar
Syntax : #include<iostream> #include<stdlib.h> #include<iomanip> using namespace std; struct nasabah {                 char nama[30];                 long int norek;                 double saldo; }; int main() {               int n=0;                 nasabah nas[50];                 int i,pil,x,pos;                 long int no;                 doub...
Baca selengkapnya