Scribd
Upload
16 views

Command

This document contains code for a library management system in Visual Basic. It defines a form with controls to add, view, and delete book borrowing records in a datagrid. It also includes code to export the records to a PDF file and allows selecting an image file to display in a picture box. The data is stored in a datatable that is bound to the datagrid to display the records.

Uploaded by

IzuddIn amrulloh
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
16 views

Command

This document contains code for a library management system in Visual Basic. It defines a form with controls to add, view, and delete book borrowing records in a datagrid. It also includes code to export the records to a PDF file and allows selecting an image file to display in a picture box. The data is stored in a datatable that is bound to the datagrid to display the records.

Uploaded by

IzuddIn amrulloh
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

Imports PdfSharp

Imports PdfSharp.Drawing
Imports PdfSharp.Pdf

Public Class Form1


Dim dt As New DataTable

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'membuat colom pada data table


dt.Columns.Add("Kode Anggota", GetType(String))
dt.Columns.Add("Nama Anggota", GetType(String))
dt.Columns.Add("Judul Buku", GetType(String))
dt.Columns.Add("Tanggal Peminjaman", GetType(String))
dt.Columns.Add("Tanggal Pengembalian", GetType(String))
dt.Columns.Add("Denda", GetType(String))

'pindahkan kolom yang dibuat dari data table untuk dimunculkan pada data
grid
DataGridView1.DataSource = dt

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
dt.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text,
DateTimePicker1.Text, DateTimePicker2.Text, ComboBox1.Text)

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
DateTimePicker1.Text = ""
DateTimePicker2.Text = ""
ComboBox1.Text = ""

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles


Button4.Click
Dim pdf As PdfDocument = New PdfDocument
pdf.Info.Title = "PERPUSTAKAAN TUGU"
Dim pdfpage As PdfPage = pdf.AddPage
Dim graph As XGraphics = XGraphics.FromPdfPage(pdfpage)
Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Bold)
graph.DrawString("PERPUSTAKAAN TUGU", font, XBrushes.Black,
New XRect(0, 0, pdfpage.Width.Point, pdfpage.Height.Point),
XStringFormats.TopCenter)
Dim pdffilename As String = "tugu.pdf"
pdf.Save(pdffilename)
Process.Start(pdffilename)
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles


Button5.Click
If DataGridView1.SelectedRows.Count > 0 Then
DataGridView1.Rows.Remove(DataGridView1.SelectedRows(0))
Else
MessageBox.Show("Select 1 row before you hit Delete")
End If
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles


Button6.Click
For Each row As DataGridViewRow In DataGridView1.SelectedRows
DataGridView1.Rows.Remove(row)
Next
End Sub

Dim paraf As String


Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
With Me.OpenFileDialog1 'untuk mengatur properti pada picture Box

.Filter = "All File(*.*)|*.*|JPEG(*.jpeg)|*.jpeg" ' jenis file yang


‘ditampilkan

.FilterIndex = 2 'mengatur jenis file default

.InitialDirectory = "D:\" ' inisial direktori

.Multiselect = True ' untuk mengatur boleh tidaknya pengambilan ‘lebih


dari 1 file

.DefaultExt = "jpeg" ' ekstensi default

If .ShowDialog = Windows.Forms.DialogResult.OK Then

paraf = .FileName

End If

If Not (paraf Is Nothing) Then

'mengatur mode tampilan picturebox

Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

Me.PictureBox1.Image = Bitmap.FromFile(paraf) 'pengambilan gambar


untuk ditampilkan

End If

End With
End Sub

End Class

You might also like