Scribd
Upload
7 views19 pages

Library Management System Code

This document contains code for a library management system in Visual Basic. It includes modules and forms for connecting to a database, displaying a menu, and managing books, categories, shelves, borrowers, loans, and returns. The code allows users to view, add, edit, delete and search data in these different tables.

Uploaded by

Dukcapil Tanah Datar
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
7 views19 pages

Library Management System Code

This document contains code for a library management system in Visual Basic. It includes modules and forms for connecting to a database, displaying a menu, and managing books, categories, shelves, borrowers, loans, and returns. The code allows users to view, add, edit, delete and search data in these different tables.

Uploaded by

Dukcapil Tanah Datar
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Kode Program

Module
Imports [Link]
Imports [Link]

Module ModKoneksi
Public Database As OleDbConnection
Public Tabel As OleDbDataAdapter
Public Data As DataSet
Public Record, Record_Peminjaman As New BindingSource
Public DML As New OleDbCommand
Public Cari As OleDbDataReader

Public Sub Koneksi()


Try
Database = New OleDbConnection("Provider=[Link].12.0;Data
Source=[Link]")
[Link]()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub
End Module

Form Menu

Imports [Link]
Imports [Link]

Public Class Menu

Private Sub Menu_Load(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Call Koneksi()
End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Dim Jam, Tanggal As String
Jam = Format(Now, "HH:mm:ss")
Tanggal = Format(Now, "dddd dd MMMM yyyy")
[Link] = " " & Jam & ", " & Tanggal & ""
End Sub
Kode Program
Private Sub BtnBuku_Click(ByVal sender As [Link], ByVal e As [Link])_
Handles [Link]
[Link]()
End Sub

Private Sub BtnKategori_Click(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
[Link]()
End Sub

Private Sub BtnRak_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
[Link]()
End Sub

Private Sub BtnPeminjam_Click(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
[Link]()
End Sub

Private Sub BtnPeminjaman_Click(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
[Link]()
End Sub

Private Sub BtnPengembalian_Click(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
[Link]()
End Sub

Private Sub BtnLaporan_Click(ByVal sender As [Link],_


ByVal e As [Link]) Handles [Link]
[Link]()
End Sub
End Class

Form Datarak

Imports [Link]
Imports [Link]
Kode Program
Public Class Datarak
Sub Data_Record()
Try
Call Koneksi()
Tabel = New [Link]("select * from TblRak", Database)
Data = New DataSet
[Link](Data)
[Link] = Data
[Link] = [Link](0).ToString()
[Link] = Record
[Link](0).Width = 300
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Sub Atur()
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = ""
[Link]()
Call Koneksi()
Call Data_Record()
End Sub

Private Sub Datarak_Load(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
Call Atur()
End Sub

Private Sub BtnSimpan_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
If [Link] = "" Then [Link]() : Exit Sub
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "insert into TblRak values('" & [Link] & "')"
[Link]()
MsgBox("Data telah disimpan")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnUbah_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
If [Link] = "" Then [Link]() : Exit Sub
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "update TblRak set Rak='" & [Link] & _
"' where Rak='" & [Link](0).Value & "'"
[Link]()
MsgBox("Data telah diubah")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub
Kode Program
Private Sub BtnHapus_Click(ByVal sender As [Link], ByVal e As [Link])_
Handles [Link]
If [Link] = "" Then [Link]() : Exit Sub
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "delete from TblRak where Rak='" & [Link] & "'"
[Link]()
MsgBox("Data telah dihapus")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnBatal_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Call Atur()
End Sub

Private Sub BtnTutup_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
[Link]()
End Sub

Private Sub DGRak_CellContentClick(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Try
[Link] = [Link](0).Value
[Link] = False
[Link] = True
[Link] = True
[Link] = True
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub
End Class

Form Datakategori
Imports [Link]
Imports [Link]

Public Class Datakategori


Sub Data_Record()
Try
Call Koneksi()
Tabel = New [Link]("select * from TblKategori", Database)
Data = New DataSet
[Link](Data)
[Link] = Data
[Link] = [Link](0).ToString()
[Link] = Record
[Link](0).Width = 300
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Sub Atur()
[Link] = True
[Link] = False
[Link] = False
[Link] = False
Kode Program
[Link] = ""
[Link]()
Call Koneksi()
Call Data_Record()

End Sub

Private Sub Datakategori_Load(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Call Atur()
End Sub

Private Sub BtnSimpan_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
If [Link] = "" Then [Link]() : Exit Sub
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "insert into TblKategori values('" & [Link] & "')"
[Link]()
MsgBox("Data telah disimpan")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnUbah_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
If [Link] = "" Then [Link]() : Exit Sub
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "update TblKategori set Kategori='" & [Link] & _
"' where Kategori='" & [Link](0).Value & "'"
[Link]()
MsgBox("Data telah diubah")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnHapus_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
If [Link] = "" Then [Link]() : Exit Sub
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "delete from TblKategori where Kategori='" & KategoriTxt.Text_
& "'"
[Link]()
MsgBox("Data telah dihapus")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnBatal_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Call Atur()
Kode Program
End Sub
Private Sub BtnTutup_Click(ByVal sender As [Link], ByVal e As [Link])_
Handles [Link]
[Link]()
End Sub

Private Sub DGKategori_CellContentClick(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Try
[Link] = [Link](0).Value
[Link] = False
[Link] = True
[Link] = True
[Link] = True
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub
End Class

Form Databuku
Imports [Link]
Imports [Link]

Public Class Databuku


Sub Data_Record()
Try
'Memanggil koneksi database
Call Koneksi()
'Mengambil data dari tabel buku
Tabel = New [Link]("select * from TblBuku", Database)
'Inisialisasi DataSet
Data = New DataSet
'Memasukkan data tabel ke DataSet
[Link](Data)
[Link] = Data
[Link] = [Link](0).ToString()
Kode Program
[Link] = Record
[Link](1).Width = 300
[Link](8).Visible = True
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Sub Atur()
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = True
[Link]()
Call Koneksi()
Call Data_Record()
End Sub

Sub Data_Kategori()
Call Koneksi()

Tabel = New [Link]("select * from TblKategori", Database)


Data = New DataSet
[Link](Data)
[Link] = Data
[Link] = [Link](0).ToString()

Try
Kode Program
Dim a As DataRow
[Link]()
For Each a In [Link](0).Rows
[Link]([Link](0))
Next a
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Sub Data_Rak()
Tabel = New [Link]("select * from TblRak", Database)
Data = New DataSet
[Link](Data)
[Link] = Data
[Link] = [Link](0).ToString()

Try
Dim a As DataRow
[Link]()
For Each a In [Link](0).Rows
[Link]([Link](0))
Next a
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub Databuku_Load(ByVal sender As Object, ByVal e As [Link]) Handles_


[Link]
Call Data_Kategori()
Call Data_Rak()
Call Atur()
End Sub

Private Sub BtnSimpan_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "insert into TblBuku values('" & [Link] & "','" &_
[Link] & "','" & [Link] & "', '" & [Link] & "', '" &_
[Link] & "', '" & [Link] & "','" & [Link] & "','" & StockTxt.Text_
& "','" & [Link] & "')"
[Link]()
MsgBox("Data telah disimpan")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnUbah_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "update TblBuku set Judul_Buku='" & [Link] & _
", ISBN='" & [Link] & "', Pengarang='" & [Link] & "',
Penerbit='" & [Link] & _
", Kategori='" & [Link] & "', Rak='" & [Link] & _
", Stock='" & [Link] & "', Foto='" & [Link] & _
"' where Kode_Buku='" & [Link] & "'"
Kode Program
[Link]()
MsgBox("Data telah diubah")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnHapus_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "delete from TblBuku where Kode_Buku='" & [Link] & "'"
[Link]()
MsgBox("Data telah dihapus")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnBatal_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Call Atur()
End Sub

Private Sub DGBuku_CellContentClick(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Try
[Link] = [Link](0).Value
[Link] = [Link](1).Value
[Link] = [Link](2).Value
[Link] = [Link](3).Value
[Link] = [Link](4).Value
[Link] = [Link](5).Value
[Link] = [Link](6).Value
[Link] = [Link](7).Value
[Link] = [Link](8).Value
[Link] = False
[Link] = False
[Link] = True
[Link] = True
[Link] = True
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnAmbilFoto_Click(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
[Link] = "JPG|*.jpg|Bitmap|*.bmp"
[Link] = True
[Link]()
If [Link] = "" Then
Exit Sub
Else
'belum ada proses upload file gambar ke folder tertentu
[Link] = [Link]
On Error Resume Next
[Link] = [Link]
End If
End Sub
Kode Program
Private Sub BtnHapusFoto_Click(ByVal sender As [Link], ByVal e As_
[Link]) Handles [Link]
[Link] = Nothing
[Link] = ""
End Sub

Private Sub BtnTutup_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Close()
End Sub
End Class

Form Datapeminjam

Imports [Link]
Imports [Link]

Public Class Datapeminjam


Sub Data_Record()
Try
Call Koneksi()
Tabel = New [Link]("select * from TblPeminjam", Database)
Data = New DataSet
[Link](Data)
[Link] = Data
[Link] = [Link](0).ToString()
[Link] = Record
[Link](0).Visible = False
[Link](3).Width = 200

Catch ex As Exception
MsgBox([Link]())
End Try
End Sub
Kode Program
Sub Atur()
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = False
[Link]()
Call Kode_Peminjam()
Call Koneksi()
Call Data_Record()
End Sub

Sub Kode_Peminjam()
Tabel = New [Link]("select * from TblPeminjam order by_
No asc", Database)
Data = New DataSet
[Link](Data)
[Link] = Data
[Link] = [Link](0).ToString()

Try
Dim A As DataRow
Dim B As Integer = 0
[Link] = ""
For Each A In [Link](0).Rows
[Link] = [Link](0) + 1
B = B + 1
Next A

Select Case B
Case Is = 0
[Link] = "KanzhaPL-1"
Case Is > 0
[Link] = "KanzhaPL-" & [Link] & ""
End Select
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub Datapeminjam_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
Call Atur()
End Sub

Private Sub BtnSimpan_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "insert into_
TblPeminjam(Kode_Peminjam,No_KTP,Nama_Peminjam,Pekerjaan,Alamat,Telepon)" & _
"values('" & [Link] & "','" & [Link] & "','" &_
[Link] & "','" & [Link] & _
"','" & [Link] & "','" & [Link] & "')"
[Link]()
MsgBox("Data telah disimpan")
Call Atur()
Kode Program
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnUbah_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "update TblPeminjam set No_KTP='" & [Link] & _
"',Nama_Peminjam='" & [Link] & "',Pekerjaan='" & _
[Link] & "',Alamat='" & [Link] & _
"',Telepon='" & [Link] & "' where Kode_Peminjam='" & _
[Link] & "'"
[Link]()
MsgBox("Data telah diubah")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnHapus_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "delete from TblPeminjam where Kode_Peminjam='" &_
[Link] & "'"
[Link]()
MsgBox("Data telah dihapus")
Call Atur()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub BtnBatal_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Call Atur()
End Sub

Private Sub BtnTutup_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
[Link]()
End Sub

Private Sub DGPeminjam_CellContentClick(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Try
[Link] = [Link](1).Value
[Link] = [Link](2).Value
[Link] = [Link](3).Value
[Link] = [Link](4).Value
[Link] = [Link](5).Value
[Link] = [Link](6).Value
[Link] = False
[Link] = True
[Link] = True
[Link] = True
Catch ex As Exception
MsgBox([Link]())
Kode Program
End Try
End Sub
End Class

Form Transaksi

Imports [Link]
Imports [Link]
Public Class Datatransaksi
Sub No_Peminjaman()
Tabel = New [Link]("select * from TblPeminjaman order by No_
Asc", Database)
Data = New DataSet
[Link](Data)
[Link] = Data
[Link] = [Link](0).ToString()
Try
Dim A As DataRow
Dim B As Integer = 0
[Link] = ""
For Each A In [Link](0).Rows
[Link] = [Link](0) + 1
B = B + 1
Next A

Select Case B
Case Is = 0
[Link] = "" & Format(Now, "dd/MM/yy") & "-1"
Case Is > 0
[Link] = "" & Format(Now, "dd/MM/yy") & "-" &
[Link] & ""
End Select
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Sub Atur()
Kode Program
Call Koneksi()
If [Link] = "Ok" Then
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = Format(Now, "dd/MM/yyyy")
[Link] = Format(Now, "dd/MM/yyyy")
Call No_Peminjaman()
End If
End Sub

Sub Lama_Pinjam()
Dim SelisihHari As Long
SelisihHari = DateDiff([Link], [Link], [Link])
[Link] = "" & SelisihHari & " Hari"
End Sub

Private Sub Datatransaksi_Load(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Call Atur()
End Sub

Private Sub OkBtn_Click(ByVal sender As [Link], ByVal e As [Link])


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]

Select Case [Link]


Case "Ok"
[Link] = "insert into TblPeminjaman(No_Peminjaman, Kode_Buku,_
Kode_Peminjam," & _
"Tgl_Pinjam, Tgl_Kembali, Lama_Pinjam, Status) values('" &_
[Link] & _
"','" & [Link] & "','" & [Link] & "','" &_
[Link] & _
"','" & [Link] & "','" & [Link] & "','Pinjam')"
Case "Ubah"
[Link] = "update TblPeminjaman set Kode_Buku='" &_
[Link] & _
"', Kode_Peminjam='" & [Link] & "', Tgl_Pinjam='" &_
[Link] & _
"', Tgl_Kembali='" & [Link] & "', Lama_Pinjam='" &_
[Link] & _
"' where No_Peminjaman='" & [Link] & "'"
Case "Hapus"
[Link] = "delete from TblPeminjaman where No_Peminjaman='" &_
[Link] & "'"
End Select
[Link]()
MsgBox("data telah diproses")
Call Datapeminjaman.Data_Record()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = Nothing
[Link] = Format(Now, "dd/MM/yyyy")
[Link] = Format(Now, "dd/MM/yyyy")
Call No_Peminjaman()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub
Kode Program
Private Sub KdBukuBtn_Click(ByVal sender As [Link], ByVal e As [Link])_
Handles [Link]
Dim Kode_Buku = InputBox("Masukkan kode buku", "Input buku yang dipinjam")
[Link] = Kode_Buku
End Sub

Private Sub KdBukuTxt_TextChanged(ByVal sender As Object, ByVal e As [Link])_


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "select * from TblBuku where Kode_Buku='" & [Link] &_
"'"
Cari = [Link]
If [Link] = True Then
[Link]()
[Link] = Cari("Judul_Buku")
[Link] = Cari("Kategori")
[Link] = Cari("Rak")
[Link] = Cari("Foto")
Else
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = Nothing
End If
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub KdPeminjamBtn_Click(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Dim Kode_Peminjam = InputBox("Masukkan kode peminjam", "Input peminjam yang_
meminjam buku")
[Link] = Kode_Peminjam
End Sub

Private Sub KdPeminjam_TextChanged(ByVal sender As Object, ByVal e As [Link])_


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "select * from TblPeminjam where Kode_Peminjam='" &_
[Link] & "'"
Cari = [Link]
If [Link] = True Then
[Link]()
[Link] = Cari("No_KTP")
[Link] = Cari("Nama_Peminjam")
[Link] = Cari("Alamat")
[Link] = Cari("Telepon")
Else
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub
Kode Program
Private Sub TglPinjamDP_ValueChanged(ByVal sender As Object, ByVal e As_
[Link]) Handles [Link]
Call Lama_Pinjam()
End Sub

Private Sub TglKembaliDP_ValueChanged(ByVal sender As Object, ByVal e As_


[Link]) Handles [Link]
Call Lama_Pinjam()
End Sub

Private Sub BtnTutup_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
[Link]()
End Sub

End Class

Form Datapeminjaman

Imports [Link]
Imports [Link]

Public Class Datapeminjaman


Sub Data_Record()
Try
Call Koneksi()
Tabel = New [Link]("select * from QryPeminjaman where_
Status='Pinjam'", Database)
Data = New DataSet
[Link](Data)
Record_Peminjaman.DataSource = Data
Record_Peminjaman.DataMember = [Link](0).ToString()
[Link] = Record_Peminjaman
[Link](1).Visible = False
[Link](2).Width = 175
[Link](3).Visible = False
[Link](4).Visible = False
[Link](5).Visible = False
[Link](6).Visible = False
[Link](7).Width = 175
Kode Program
[Link](8).Visible = False
[Link](9).Visible = False
[Link](12).Width = 175
[Link](13).Visible = False
[Link](14).Visible = False
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Sub Atur()
[Link] = True
[Link] = False
[Link] = False
[Link] = False
Call Koneksi()
Call Data_Record()
End Sub

Private Sub FrmDataPeminjaman_Load(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Call Atur()
End Sub

Private Sub BtnPeminjaman_Click(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
[Link] = "Ok"
[Link]()
End Sub

Private Sub BtnUbah_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
[Link] = "Ubah"
[Link] = [Link](0).Value
[Link]()
End Sub

Private Sub BtnHapus_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
[Link] = "Hapus"
[Link] = [Link](0).Value
[Link]()
End Sub

Private Sub BtnBatal_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Call Atur()
End Sub

Private Sub BtnTutup_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
[Link]()
End Sub

Private Sub DGPeminjaman_CellContentClick(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Try
[Link] = [Link](0).Value
[Link] = [Link](1).Value
[Link] = [Link](5).Value
[Link] = [Link](10).Value
[Link] = [Link](11).Value
[Link] = [Link](12).Value
[Link] = True
[Link] = True
Kode Program
[Link] = True
[Link] = False
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub
End Class

Form Datapengembalian

Imports [Link]
Imports [Link]

Public Class Datapengembalian


Sub Hitung_Telat()
Dim TelatHari As Long
TelatHari = DateDiff([Link], [Link], [Link])
[Link] = "" & TelatHari & " Hari"
End Sub

Private Sub Datapengembalian_Load(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
[Link] = Format(Now, "dd/MM/yyyy")
End Sub

Private Sub NoPeminjamanBtn_Click(ByVal sender As [Link], ByVal e As_


[Link]) Handles [Link]
Dim No_Peminjaman = InputBox("Masukkan nomor peminjaman", "Input nomor transaksi_
peminjaman")
[Link] = No_Peminjaman
End Sub

Private Sub NoPeminjamanTxt_TextChanged(ByVal sender As Object, ByVal e As_


[Link]) Handles [Link]
Try
Kode Program
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "select * from QryPeminjaman where No_Peminjaman='" &_
[Link] & _
"' and Status='Pinjam'"
Cari = [Link]
If [Link] = True Then
[Link]()
[Link] = Cari("Kode_Buku")
[Link] = Cari("Judul_Buku")
[Link] = Cari("Foto")
[Link] = Cari("No_KTP")
[Link] = Cari("Kode_Peminjam")
[Link] = Cari("Nama_Peminjam")
[Link] = Cari("Alamat")
[Link] = Cari("Telepon")
[Link] = Cari("Tgl_Pinjam")
[Link] = Cari("Tgl_Kembali")
Call Hitung_Telat()
Else
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = Format(Now, "dd/MM/yyyy")
[Link] = ""
End If
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub OkBtn_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
Try
Call Koneksi()
[Link] = Database
[Link] = [Link]
[Link] = "update TblPeminjaman set Status='Kembali' where_
No_Peminjaman='" & [Link] & "'"
[Link]()
MsgBox("data telah diproses")
[Link]()
Catch ex As Exception
MsgBox([Link]())
End Try
End Sub

Private Sub TglPengembalianDP_ValueChanged(ByVal sender As Object, ByVal e As_


[Link]) Handles [Link]
Call Hitung_Telat()
End Sub

Private Sub BtnTutup_Click(ByVal sender As [Link], ByVal e As [Link])_


Handles [Link]
[Link]()
End Sub
End Class

You might also like