January 15, 2009

Jawaban UAS

Posted in Jawaban UAS at 12:05 am by adteba

1. Profile Team Sistem Informasi Perpustakaan

Baktiar Karisma

Baktiar Karisma

Nama : Baktiar Karisma

NRP : 5108 100 503

Kelas : X

Anugrah Nahari

Anugrah Nahari

Nama : Anugrah Nahari

NRP : 5108 100 514

Kelas : X

Eka Mustofa

Eka Mustofa

Nama : Eka Mustofa

NRP : 5108 100 515

Kelas : X

2 . Tabel fisik

Tabel Anggota

Tabel Anggota

Tabel Anggota

Tabel Buku

Tabel Buku

Tabel Buku

Tabel Peminjaman

Tabel Peminjaman

Tabel Peminjaman

Tabel Peminjaman Detail

Tabel Peminjaman detil

Tabel Peminjaman detil

Tabel Temp Buku

Tabel Temp Buku

Tabel Temp Buku

link database perpustakaan : database perpustakaan

nb : untuk link download kami menggunakan 4share.com

3. kode program dengan menggunakan bahasa pemrograman Visual Basic

===>anggota
If KeyAscii = 13 Then
Call enable_true
ANGGOTA.Refresh
Image2.Refresh
ANGGOTA.Recordset.Filter = “NO_ANGGOTA= ‘” & txtCARI.Text & “‘ ”
flag = 1
If ANGGOTA.Recordset.EOF Then
MsgBox “Data yang anda cari tidak ada!!!”, vbCritical
Call enable_false
txtCARI.Enabled = True
End If
End If

Private Sub cmdSIMPAN_Click()
If txtNO_ANGGOTA.Text = “” Or txtNAMA.Text = “” Then
MsgBox “Sebelum disimpan masukkan data terlebih dahulu !!!”, 0 + 16, “Informasi”
txtNO_ANGGOTA.SetFocus
Else
If MsgBox(“Apakah data sudah benar?”, 4 + 0 + 32, “HIMBAUAN”) = vbYes Then
With ANGGOTA.Recordset
!NO_ANGGOTA = txtNO_ANGGOTA.Text
End With
If flag = 1 Then
ANGGOTA.Recordset.Update
DataGrid1.Refresh
ANGGOTA.Refresh
ANGGOTA.Recordset.AddNew
Else
ANGGOTA.Recordset.Update
DataGrid1.Refresh
ANGGOTA.Refresh
End If
Call kosong
‘Call enable_false
cdmBARU.Enabled = True
End If
End If
txtCARI.Enabled = True
End Sub

===>Peminjaman

Private Sub txtNO_TRANSAKSI_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtNO_TRANSAKSI.Text = “” Then
MsgBox ” Masukkan No. Transaksi dahulu bila ingin meminjam !!!”, 0 + 16, “Perhatian… ”
Else
txtNO_ANGGOTA.SetFocus
End If
End If
End Sub

If KeyAscii = 13 Then
If txtNO_ANGGOTA.Text = “” Then
MsgBox “No Anggota tidak Boleh Kosong !!!!”, vbInformation, “….Himbauan”
Else
anggota.Refresh
anggota.Recordset.Filter = “NO_ANGGOTA = ‘ ” & txtNO_ANGGOTA.Text & “‘”
If anggota.Recordset.EOF Then
MsgBox “NO Anggota yang Anda masukkan tidak ada”, 48, “Perhatian…”
txtNO_ANGGOTA.Text = “”
txtNO_ANGGOTA.SetFocus
Else
If anggota.Recordset.Fields(“STATUS”) = “Meminjam” Then
MsgBox (“No Anggota ini sudah meminjam Buku kembalikan dulu donk…!!!”), vbExclamation
txtNO_ANGGOTA.Text = “”
txtNAMA.Text = “”
Else
txtNAMA.Text = anggota.Recordset.Fields(“NAMA_ANGGOTA”)
cbNIP.SetFocus
End If
End If
End If
End If
End Sub

buku1
If KeyAscii = 13 Then
If txtNO_BUKU.Text = “” Then
txtNO_BUKU1.SetFocus
txtNO_BUKU.Text = “-”
txtJUDUL.Text = “-”
txtSTATUS.Text = “-”
txtJUMLAH.Text = “–”
Else
buku1.Refresh
buku1.Recordset.Filter = “KODE_BUKU= ‘ ” & txtNO_BUKU.Text & ” ‘ ”
If buku1.Recordset.EOF Then
MsgBox “Kode Buku ” & txtNO_BUKU.Text & ” yang Anda masukkan tidak ada”, 48, “Perhatian…”
txtNO_BUKU.Text = “”
txtNO_BUKU.SetFocus
Else
buku1.Refresh
buku1.Recordset.Filter = “KODE_BUKU= ‘ ” & txtNO_BUKU.Text & ” ‘ ”
If buku1.Recordset.Fields(“STATUS_PINJAM”) = “Dipinjam” Then
MsgBox “Buku yang anda inginkan sudah dipinjam”, 48, “Perhatian…”
txtNO_BUKU.SetFocus
txtNO_BUKU.Text = “”
txtJUDUL.Text = “-”
txtSTATUS.Text = “-”
txtJUMLAH.Text = “–”
Else
txtJUMLAH.Text = “1”
txtJUDUL.Text = buku1.Recordset.Fields(“JUDUL”)
txtSTATUS.Text = buku1.Recordset.Fields(“STATUS_PINJAM”)
txtNO_BUKU1.SetFocus
End If
End If
End If
End If
‘buku1.Refresh
End Sub

simpan
If txtNO_BUKU.Text = “-” And txtNO_BUKU1.Text = “-” And txtNO_BUKU2.Text = “-” Then
MsgBox ” Apabila tidak meminjam jangan tekan simpan donk!!!!”, 0 + 16, “….Perhatian”
txtNO_TRANSAKSI.SetFocus
Else
If txtNO_ANGGOTA.Text = “” And cbNIP.BoundText = “” And txtNO_TRANSAKSI = “” Then
MsgBox “No Anggota,No Buku,dan NIP tidak Boleh Kosong !!!!”, 0 + 32, “….Himbauan”
Call kosong
txtNO_TRANSAKSI.SetFocus
Else
If txtNO_ANGGOTA.Text = “” Or cbNIP.BoundText = “” Or txtNO_TRANSAKSI = “” Then
MsgBox “No. Transaksi, No. Anggota, No. Buku dan NIP harus diisi!!!”, 0 + 16, “PERHATIAN”

ElseIf MsgBox(“Apakah data sudah benar?”, 4 + 0 + 32, “Simpan Transaksi…”) = vbYes Then
‘ Pengisian Tabel Peminjaman
Call simpan_peminjaman

‘ Pengisian pada tabel Temp_buku
Call set_temp_buku

‘ Untuk Buku1
If txtNO_BUKU.Text = “” Or txtNO_BUKU = “-” Then
buku1.Refresh
Else
buku1.Recordset.Filter = ” KODE_BUKU = ‘” & txtNO_BUKU.Text & “‘”
buku1.Recordset.Fields(“STATUS_PINJAM”) = “Dipinjam”
buku1.Recordset.Update
buku1.Refresh
End If

‘Untuk Buku 2
If txtNO_BUKU1.Text = “” Or txtNO_BUKU1 = “-” Then
buku2.Refresh
Else
buku2.Recordset.Filter = ” KODE_BUKU = ‘” & txtNO_BUKU1.Text & “‘”
buku2.Recordset.Fields(“STATUS_PINJAM”) = “Dipinjam”
buku2.Recordset.Update
buku2.Refresh
End If

‘Untuk Buku 3
If txtNO_BUKU2.Text = “” Or txtNO_BUKU2 = “-” Then
buku3.Refresh
Else
buku3.Recordset.Filter = ” KODE_BUKU = ‘” & txtNO_BUKU2.Text & “‘”
buku3.Recordset.Fields(“STATUS_PINJAM”) = “Dipinjam”
buku3.Recordset.Update
buku3.Refresh
End If

‘Pemberian Status Anggota Yang Meminjam
anggota.Recordset.Filter = “NO_ANGGOTA='” & txtNO_ANGGOTA.Text & “‘”
anggota.Recordset.Fields(“Status”) = “Meminjam”
anggota.Recordset.Update
anggota.Refresh

‘Pencatatan Buku Pada Tabel Pinjam Detail
If txtNO_BUKU.Text = “” Or txtNO_BUKU.Text = “-” Then
pinjam_detail1.Refresh
Else
pinjam_detail1.Refresh
pinjam_detail1.Recordset.AddNew
simpan_peminjaman_detail1
End If

If txtNO_BUKU1.Text = “” Or txtNO_BUKU1.Text = “-” Then
pinjam_detail2.Refresh
Else
pinjam_detail2.Refresh
pinjam_detail2.Recordset.AddNew
simpan_peminjaman_detail2
End If

If txtNO_BUKU2.Text = “” Or txtNO_BUKU2.Text = “-” Then
pinjam_detail3.Refresh
Else
pinjam_detail3.Refresh
pinjam_detail3.Recordset.AddNew
simpan_peminjaman_detail3
End If

txtJUMLAH.Text = “”
txtJUMLAH1.Text = “”
txtJUMLAH2.Text = “”
txtNO_TRANSAKSI.SetFocus
Else
Call kosong
txtNO_TRANSAKSI.SetFocus
End If
End If
Call kosong

txtNO_TRANSAKSI.SetFocus
End If

cetak
If KeyAscii = 13 Then
DataEnvironment1.rsCommand1.Filter = ” NO_TRANSAKSI= ‘” & txtKUNCI.Text & “‘”
End If

rpt_Kwitansi.Show

===>Pengembalian

peminjaman.Refresh
peminjaman.Recordset.Filter = “NO_TRANSAKSI= ‘” & txtCARI.Text & “‘”
If peminjaman.Recordset.EOF Then
MsgBox “No Transaksi Yang Anda Masukan Tidak Ada !!!”, 0 + 16, “Perhatian….”
txtCARI.Text = “”
txtCARI.SetFocus
Else
If txtKODE_BUKU1.Text = “” Or txtKODE_BUKU1.Text = “-” Then
txtKODE_BUKU1.Text = “-”
txtJUDUL_BUKU1.Text = “-”
Else
txtKODE_BUKU1.Text = temp_buku.Recordset.Fields(“KODE_BUKU1”)
txtJUDUL_BUKU1.Text = temp_buku.Recordset.Fields(“JUDUL_BUKU1”)
End If

If txtKODE_BUKU2.Text = “” Or txtKODE_BUKU2.Text = “-” Then
txtKODE_BUKU2.Text = “-”
txtJUDUL_BUKU2.Text = “-”
Else
txtKODE_BUKU2.Text = temp_buku.Recordset.Fields(“KODE_BUKU2”)
txtJUDUL_BUKU2.Text = temp_buku.Recordset.Fields(“JUDUL_BUKU2”)
End If

If txtKODE_BUKU3.Text = “” Or txtKODE_BUKU3.Text = “-” Then
txtKODE_BUKU3.Text = “-”
txtJUDUL_BUKU3.Text = “-”
Else
txtKODE_BUKU3.Text = temp_buku.Recordset.Fields(“KODE_BUKU3”)
txtJUDUL_BUKU3.Text = temp_buku.Recordset.Fields(“JUDUL_BUKU3”)
End If

temp_buku.Refresh
txtNO_TRANSAKSI.Text = peminjaman.Recordset.Fields(“NO_TRANSAKSI”)
txtNO_ANGGOTA.Text = peminjaman.Recordset.Fields(“NO_ANGGOTA”)

pinjam_detail.Refresh
pinjam_detail.Recordset.Filter = “NO_TRANSAKSI= ‘” & txtCARI.Text & “‘”

If pinjam_detail.Recordset.RecordCount > 0 Then
selisih = Date – pinjam_detail.Recordset.Fields(“TGL_JATUH_TEMPO”)
If selisih > 1 Then
bayar = 100 * selisih
txtDENDA.Text = bayar
Else
txtDENDA.Text = “0”
End If
End If

anggota.Refresh
anggota.Recordset.Filter = ” NO_ANGGOTA='” & txtNO_ANGGOTA.Text & “‘”
If anggota.Recordset.RecordCount > 0 Then
txtNAMA.Text = anggota.Recordset.Fields(“NAMA_ANGGOTA”)
End If

txtTGL_JATUH_TEMPO.Text = pinjam_detail.Recordset.Fields(“TGL_JATUH_TEMPO”)
txtTGL_PINJAM.Text = peminjaman.Recordset.Fields(“TGL_PINJAM”)
txtNIP.Text = peminjaman.Recordset.Fields(“NIP”)
txtJUMLAH.Text = peminjaman.Recordset.Fields(“TOTAL_PINJAM”)
txtBAYAR.SetFocus
End If

tombol kembali
If txtCARI = “” Then
MsgBox “Masukkan No Transaksi Terlebih Dahulu”, 0 + 48, “Perhatian…”
Else
If MsgBox(“Apakah No Transaksi Sudah Benar !!!”, 4 + 0 + 32, “Himbauan”) = vbYes Then
‘Penghapusan Tabel Peminjaman Detail
pinjam_detail.Refresh
MsgBox “Yakin buku ini akan dikembalikan”, vbQuestion + vbOKCancel, “Perhatian…”

‘Pembersihan Tabel Buku
If txtKODE_BUKU1.Text = “” Or txtKODE_BUKU1.Text = “0” Then
buku1.Refresh
Else
buku1.Refresh
buku1.Recordset.Filter = “KODE_BUKU= ‘” & txtKODE_BUKU1.Text & “‘”
buku1.Recordset.Fields(“STATUS_PINJAM”) = “Ada”
buku1.Recordset.Update
buku1.Refresh
End If

If txtKODE_BUKU2.Text = “” Or txtKODE_BUKU2.Text = “0” Then
buku2.Refresh
Else
buku2.Refresh
buku2.Recordset.Filter = “KODE_BUKU= ‘” & txtKODE_BUKU2.Text & “‘”
buku2.Recordset.Fields(“STATUS_PINJAM”) = “Ada”
buku2.Recordset.Update
buku2.Refresh
End If

If txtKODE_BUKU3.Text = “” Or txtKODE_BUKU3.Text = “0” Then
buku3.Refresh
Else
buku3.Refresh
buku3.Recordset.Filter = “KODE_BUKU= ‘” & txtKODE_BUKU3.Text & “‘”
buku3.Recordset.Fields(“STATUS_PINJAM”) = “Ada”
buku3.Recordset.Update
buku3.Refresh
End If

‘ Pembersihan Tabel Pinjam Detail
pinjam_detail.Refresh
pinjam_detail.Recordset.Filter = “NO_TRANSAKSI= ‘” & txtCARI.Text & “‘”
If pinjam_detail.Recordset.RecordCount > 0 Then
pinjam_detail.Recordset.Delete
pinjam_detail.Refresh
End If

‘ Pembersihan Tabel Anggota
anggota.Recordset.Filter = ” NO_ANGGOTA='” & txtNO_ANGGOTA & “‘”
‘anggota.Refresh
anggota.Recordset.Fields(“Status”) = “”
anggota.Recordset.Update
anggota.Refresh

‘ Penghapusan Tabel Peminjaman
peminjaman.Recordset.Filter = “NO_TRANSAKSI= ‘” & txtCARI.Text & “‘”
peminjaman.Recordset.Delete
peminjaman.Refresh
DataGrid1.Refresh

End If
buku1.Refresh
peminjaman.Refresh
pinjam_detail.Refresh
anggota.Refresh
DataGrid1.Refresh
Call kosong
End If

===> Permohonan buku
If KeyAscii = 13 Then
Call enable_true
BOOK.Refresh
BOOK.Recordset.Filter = “KODE_BUKU = ‘” & txtCARI.Text & “‘”
If BOOK.Recordset.EOF Then
MsgBox “Kode Buku yang anda cari tidak ada”, vbInformation
Call enable_false
End If
End If

==>Penyetoran buku
If txtNOMOR.Text = “” And txtKODE_BUKU = “” Then
MsgBox “Sebelum disimpan masukkan data terlebih dahulu”, 0 + 48, “Himbauan !!!”
Else
If MsgBox(“Apakah data sudah benar?”, 4 + 0 + 32, “Himbauan !!!”) = vbYes Then
If flag = 1 Then
BOOK.Recordset.Update
DataGrid1.Refresh
BOOK.Refresh
Call cmdBARU_Click
BOOK.Refresh
BOOK.Recordset.AddNew
Else
BOOK.Recordset.Update
DataGrid1.Refresh
BOOK.Refresh
End If
End If
End If
Call kosong
cmdBARU.Enabled = True
txtCARI.Enabled = True

4. Integrasikan tabel dan modul program dengan interface input/output yang dibuat.

link Aplikasi beserta database : Program + Database (ready to use)

5. Kesimpulan

Tabel yang dirancang akan disesuaikan dengan perancangan program karena berkaitan dengan bisnis problem sehingga diperlukan penyesuaian untuk pengaplikasiannya di perangkat lunak.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: