Program perpustakaan dibuat agar mempermudah seorang pustakawan dalam menjaga buku-buku yang terdapat dalam perpustakaan tersebut. Agar mempermudah menjaga dibuat program yang mencakup dalam beberapa form antara lain berupa form anggota, form buku, dan form transaksi peminjamannya.
FORM MENU
Untuk mempermudah dalam melakukan aktifitas dalam program maka dibuatlah menu yang merupakan kumpulan dari beberapa form yang terdapat dalam program tersebut. Menu tersebut terdapat beberapa button yang mengarahkan kita untuk melakukan sesuatu dengan program tersebut. Juga dilengkapi dengan button keluar jika proses kegiatan perpustakaan telah selesai dilakukan. Berikut merupakan tampilan dari form menu yang dibuat dengan besertakan syntax program yang akan membuat semua button berfungsi sebagaimana seharusnya yang kita inginkan.
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form5.Show()
Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form3.Show()
Hide()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Data_Transaksi_Peminjaman.Show()
Hide()
End Sub
End Class
FORM ANGGOTA PERPUSTAKAAN
Form ini dibuat untuk mencatat data identitas dari para anggota yang mendaftar pada perpustakaan tersebut, sehingga siapapun yang meminjam buku dapat diketahui siapa yang meminjam buku tersebut. Dengan kata lain form ini membantu kita untuk menambah jumlah anggota yang terdaftar dan juga dapat melihat data nama anggota perpustakaan yang sudah mendaftar. From ini hanya terdapat beberapa textbox , label, listview, button seperti yang terlihat pada gambar tersebut. Kita memasukan beberapa identitas pada textbox kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.
Public Class Form5
Dim isitex(6) As String
Dim Item As ListViewItem
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("No.Anggota", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("NIS", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Kota", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Telpon", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)
End Sub
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(TextBox4.Text)
isitex(4) = Trim(TextBox5.Text)
isitex(5) = Trim(TextBox6.Text)
isitex(6) = Trim(TextBox7.Text)
Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
FORM BUKU PERPUSTAKAAN
Pada form ini kita dapat memasukan beberapa data / identitas dari buku-buku baru yang diinput ke dalam perpustakaan sehingga dapat diketahui jumlah buku dan jenis apa saja buku yang ada di perpustakaan tersebut. Dalam form ini terdapat beberapa identitas yang cukup detail tentang buku yang masuk, sehingga mempermudah dalam menemukan buku yang dimaksud dan mudah mengetahui tentang buku tersebut. Pada form ini hampir sama dengan form anggota sebelumnya yang terdapat textbox, label, panel, listview, button. Dan juga terdapat button yang berfungsi. Kita memasukan beberapa identitas pada textbox kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.
Public Class Form3
Dim isitex(6) As String
Dim Item As ListViewItem
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("ID Buku", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Judul", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Pengarang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tahun", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Penerbit", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Halaman", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(TextBox4.Text)
isitex(4) = Trim(TextBox5.Text)
isitex(5) = Trim(TextBox6.Text)
isitex(6) = Trim(TextBox7.Text)
Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
FORM DATA TRANSAKSI PINJAMAN
Pada form transaksi ini dibuat untuk melakukan transaksi peminjaman yang terjadi dalam perpustakaan tersebut, pada form ini terdapat identitas anggota berupa no. anggota juta terdapat identitas buku berupa id. Buku, no tranksaksi dan lainnya. Form ini hampir sama dengan yang sebelumnya hanya saja ada beberapa tambahan berupa pemasukan tanggal pinjam dan tanggal kembali yang menggunakan tambahan toolbox yang berfungi dapat penggunaan tanggal tersebut. Berikut cara penggunaan pada form berikut ini Kita memasukan beberapa keterangan-keterangan yang dibutuhkan pada textbox jika terjadi peminjaman agar peminjaman itu bisa di perlihatkan di saat dibutuhkan dan pilih tanggal pinjam dan tanggal kembali kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.
Public Class Data_Transaksi_Peminjaman
Dim isitex(8) As String
Dim Item As ListViewItem
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("No.Transaksi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No. Anggota", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("ID. Buku", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tanggal Pinjam", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tanggal Kembali", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Lama Pinjam", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Buku", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)
End Sub
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Val(TextBox4.Text) < 7 Then
TextBox6.Text = Val(TextBox4.Text) * 2500
End If
isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(DateTimePicker1.Text)
isitex(4) = Trim(DateTimePicker2.Text)
isitex(5) = Trim(TextBox4.Text)
isitex(6) = Trim(TextBox5.Text)
isitex(7) = Trim(TextBox6.Text)
Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
mas ini program gak pake database ya??
BalasHapusYa Program ini masih belum pake Database, cuma tampil simpan sementara...anda bisa kembangkan lagi jadi lebih baik... >_<"
Hapuskok kesalahan trs ya sob?? ane pake vb.net 2008
BalasHapus