Program Aplikasi Perpustakaan

Program Aplikasi Perpustakaan

12

Makalah Tugas Visual Basic 2005

AMIK HASS BANDUNG TINI SAADAH (10260173) MI

TiniSaadah (10260173) | Makalah Program Aplikasi Perpustakaan

Kata Pengantar Assalamu’alaikum Wr. Wb Alhamdulillah, akhirnya berkat Rahmat dan Izin – Nya, penulis dapat menyelesaikan makalah Tugas Akhir ini. Shalawat serta salam semoga tercurah untuk pimpinan umat, Nabi Besar Muhammad SAW, yang selalu memberikan teladan, yang menerangi langkah menuju kebenaran, meninggalkan kebodohan, serta bagi para sahabat, keluarga, dan para mujahid yang selalu membantu perjuangan Beliau. Penyusunan Laporan Tugas Akhir ini pada hakiktanya menguraikan judullaporan yang penulis susun, yaitu “Sistem Informasi Perpustakaan ” dengan menggunakan bahasa pemrograman Visual Basic . Penulis menyadari pada Laporan Tugas Akhir ini masih terdapat banyak kekurangan, namun penulis mencoba untuk menyelesaikan laporan ini dengan sebaik – baiknya. Harapan penulis, laporan ini dapat bermanfaat bagi yang membutuhkan. Dalam penyusunan laporan Tugas Akhir ini, tidak lepas dari bimbingan serta bantuan dari berbagai pihak, baik moril maupun materil. Oleh karena itu, pada kesempatan ini, penulis ingin menyampaikan ucapan terima kasih terutama kepada Ibu Sri Kuswayati,S.Si selaku Dosen yang telah meluangkan waktu ,mengajar, bantuan, dukungan serta kesabarannya membimbing . Penyusun menyadari, bahwa dalam penyusunan laporan Tugas Akhir ini masih banyak kekurangan dan jauh dari sempurna. Hal ini disebabkan oleh keterbatasan pengetahuan dan kemampuan penulis. Oleh sebab itu, penulis harapkan kritik dan saran dari semua pembaca akan senantiasa diterima penulis sebagai masukkan yang berarti. Akhir kata penulis berharap semoga laporan Tugas Akhir ini dapat bermanfaat bagi yang membutuhkan. Mohon maaf atas segala kekurangan. Semoga Allah SWTsenantiasamelimpahkan segala Rahmat – Nya kepada kita semua. Penulis doakan semoga segala bantuan yang diberikan kepada penulis hingga laporan Tugas Akhir ini selesai di balas oleh Allah SWT.Aamiin. Wassalamualaikum warahmatullahi wabarakatuh


Bandung, Januari 2012

Tini Saadah 10260173


Daftar Isi Kata Pengantar...................................................................................................2 BAB IPENDAHULUAN...........................................................................................4 A.

Latarbelakang...........................................................................................4

B.

Tujuan.......................................................................................................4

BAB IIPERANCANGAN PROGRAM........................................................................5 A.

Konsep Sistem Informasi..........................................................................5 1) Definisi Sistem Informasi.......................................................................5 2) Visual Basic 2005...................................................................................5 3) Microsoft Access 2003...........................................................................5

B.

Rancangan Database................................................................................6 1) Struktur Tabel........................................................................................7 2) Relationship Diagram............................................................................8

C. Rancangan Interface dengan koding......................................................12 1.

Menu Utama........................................................................................12

2.

LogIn....................................................................................................16

3.

Form Transaksi....................................................................................17

4.

Form Anggota......................................................................................21

5.

Form LogOut........................................................................................26

6.

Form Laporan......................................................................................27

BAB IIIPENUTUP................................................................................................32 A.

Kesimpulan.............................................................................................32

B.

Saran......................................................................................................32


BAB I PENDAHULUAN A. Latarbelakang Perpustakaan berkembang dengan pesat dan dinamis, sistem manualnya dirasakan tidak lagi memadai untuk penaganan beban kerja, khususnya kegiatan rutin dalam bidang pengadaan, pengatalogan, dan pengawasan sirkulasi.Keadaan demikian menuntut penggunaan sistem informasi berbasis teknologi komputer atau CBIS (Computer Base Information System). Perpustakaan sebagai salah satu sumber informasi telah memanfaatkan sistem informasi walaupun belum terintegrasi dengan baik. Berbagai masalah ditemukan dalam sistem yang masih manual, misalnya penyimpanan data kepustakaan yang tidak terstruktur, pelayanan sirkulasi, dan sulitnya manajemen dalam mengambil keputusan karena minimnya informasi yang didapat dalam mengetahui perkembangan perpustakaan sehingga dibutuhkan sistem yang lebih baik. Penelitian ini bertujuan untuk meningkatkan efisiensi kerja perpustakaan ,Kemudahan pengunjung dalam mendapatkan informasi yang dibutuhkan. Sistem informasi perpustakaan ini dibangun dengan menggunakan bahasa pemrograman visual basic 2005 dengan didukung basis data Microsoft Access 2007.Untuk membuat sistem kerjaperpustakaan yang tertib, teratur dan akurat, makaharus dipunyai sistem pencatatan dan pengarsipan data yang sistematis, aman danakurat. Hal ini hanya dapat dilakukan dengan memanfaatkan sistem informasiyang cocok sesuai dengan yang diperlukan.Sistem lama yang masih manual menemui berbagai kendala dan permasalahan, penelitian ini diharapkan dapat membantu dalam melakukan kegiatan perpustakaan.

B. Tujuan Adapun tujuan dari penelitian ini adalah untuk merancang suatu Sistem Informasi Perpustakaan.Sehingga dengan adanya Sistem informasi ini diharapkan tertib,teratur dan akurat dapat tercapai serta informasi yang diperlukan dapat disajikan dengan cepat, tepat, akurat dan handal.Dengan adanya penelitian ini diharapkan dapat digunakan untuk membantu dalam penyusunan laporan, perhitungan secara cepat, mendapatkan hasil perhitungan yang akurat dan benar serta Data terorganisasi dengan baik, tersimpan dengan aman dan mudah ditelusuri.


BAB II

PERANCANGAN PROGRAM A. Konsep Sistem Informasi 1) Definisi Sistem Informasi

Sistem Informasi adalah sekumpulan hardware, software, brainware, prosedur atau aturan yang diorganisasikan secara integral untuk mengolah data menjadi informasi yang bermanfaat guna memecahkan masalah dan pengambilan keputusan. 2) Visual Basic 2005 Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM), Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat, Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda. Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan. Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas.Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.  Program berbasis GUI (graphical user interface)  Memakai bahasa basic  Mudah dalam membuat program, karena bahasa-nya mendekati bahasa manusia (instant programming)


 Kode-kode program biasanya dijalankan pada prosedur event 1) Microsoft Access 2007

Microsoft Access adalah suatu aplikasi yang dapat membantu kita membuat sebuah aplikasi.Database dalam waktu yang relatif singkat. Biasanya digunakan untuk pembuatan aplikasi-aplikasi yang kecil.

B. Rancangan Database 1.Perangkat lunak dan keras yang digunakan Perangkat keras yang digunakan 1. komputer processor 1,6 Ghz 2. RAM min 256 MB 3. hardisk 40 GB Perangkat lunak yang digunakan: Perangkat lunak yang dibutuhkan dalam merancang dan mengembangkan system yang bersangkutan, misalnya untuk basis data, sistem operasi, bahasa pemrograman, dsb.Beberapa perangkat lunak yang diperlukan adalah Microsoft Access 2007 untuk basis data, Windows XC User 2011 , sedangkan bahasa pemrograman yang digunakan adalah Microsoft Visual Studio 2005 . Entitas-entitas yang terlibat dalam system ini 1 . b u k u 2 . p e t u g a s 3 . P e n e r b i t 4 . A n g g o t a Tabel-tabel dari entitas tersebut dibagi menjadi dua yakni tabel induk dan tabel anak. Tabel induk: 1 . B u k u 2 . P e n u l i s 3 . P e n e r b i t


4 . A n g g o t a

Tabel relasi(tabel anak): 1.Buku-Penulis (hub:menulis) 2.buku-penerbit(hub:menerbitkan) 3.buku-anggota(hub:meminjam)

Deskripsi dari tabel-tabel diatas adalah 1) Struktur Tabel

1. Tabel Buku Tabel buku di simpan dengan nama tabel_buku NO 1. 2. 3. 4. 5.

Nama Field No Buku Judul Buku Pengarang Tahun Terbit Jenis Buku Status

Type Teks Teks Teks Date/Time Teks Teks

Panjang 15 35 35

Null

Ket Primary Key

Null

Ket Primary Key

30 15

2. Tabel Anggota Tabel anggota di simpan dengan nama tabel_anggota

NO 1. 2. 3. 4. 5. 6. 7. 8.

Nama Field ID_Anggota Nama Alamat Jenis_Kelamin Tanggal_Lahir No Telpon Kota Jurusan

Type Teks Teks Teks Teks Date/Time Teks Teks Teks

Panjang 15 35 35 8 15 20 30


3. Tabel Petugas

Tabel petugas di simpan dengan nama tabel_petugas

NO 1. 2. 3. 4. 5.

Nama Field ID_Petugas Nama Alamat No Telpon Email

Type Teks Teks Teks Teks Teks

Panjang 15 35 35 15 30

Null

Ket Primary Key

Null

Ket Primary Key

Null

Ket Primary Key FK

4. Tabel Pinjam Tabel pinjam di simpan dengan nama tabel_pinjam NO 1. 2. 3. 4. 5. 6. 7.

Nama Field No Pinjam Tgl_Pinjam Banyak_Pinjam ID_Anggota No_Buku Keterlambatan Denda

Type Teks Date/Time Teks Teks Teks Teks Teks

Panjang 15

Type Teks Teks

Panjang 15 15

35 8 10 15 30

1. Tabel Relasi NO 1. 2.

Nama Field No Buku ID Anggota

Dalam hal ini tidak membahas secara seluruh relasi yang terjadi tapi contoh relasi table buku dan petugas saja. RELASI TABLE: TiniSaadah (10260173) | Makalah Program Aplikasi Perpustakaan

Tabel Buku_petuga s

Buku 1

N

1

Ditulis N

Diterbitkan

1

Dipinjam

Petugas 1

1Penerbit

1 Anggot a

Langkah-langkah yang dilakukan untuk membuat basis data relasional dalam sistem informasi perpustakaan sederhana: Database Pada Microsoft Access 2007 1. Membuat Database pada Microsoft Access 2007 Pilih Menu StartAll ProgramMicrosoft OfficeMicrosoft Access 2007


Lalu masukkan rancangan database yang akan di buat di Microsoft Access Seperti gambar berikut:

Kemudian isi Data pada table- table yang kita telah buat, cara nya klik dua kali table yang ingin kita isi, kemudian isi data-datan ya (cara isinya sama seperti Excell).


1) Relationship Diagram

Berikut ini adalah bentuk relationship diagram dari DBPerpustakaan:


A. Rancangan Interface dan Koding Program Berikut ini adalah Rancangan interface dari “Program Aplikasi Perpustakaan“ yang terdiri dari berbagai aplikasi : 1. Menu Utama

Koding untuk MDI Parent 1. masukan nama form yang akan ditampilkan pada MDI Parent PublicClass MDIParent1 PrivateSub ShowNewForm(ByVal sender AsObject, ByVal e As EventArgs) ' Create a new instance of the child form. Dim ChildForm AsNew System.Windows.Forms.Form ' Make it a child of this MDI form before showing it. ChildForm.MdiParent = Me m_ChildFormNumber += 1 ChildForm.Text = "Window "& m_ChildFormNumber ChildForm.Show() EndSub PrivateSub OpenFile(ByVal sender AsObject, ByVal e As EventArgs) Dim OpenFileDialog AsNew OpenFileDialog OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"


If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then Dim FileName AsString = OpenFileDialog.FileName ' TODO: Add code here to open the file. EndIf EndSub PrivateSub SaveAsToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) Dim SaveFileDialog AsNew SaveFileDialog SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then Dim FileName AsString = SaveFileDialog.FileName ' TODO: Add code here to save the current contents of the form to a file. EndIf EndSub PrivateSub ExitToolsStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) Global.System.Windows.Forms.Application.Exit() EndSub PrivateSub CutToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard EndSub PrivateSub CopyToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard EndSub PrivateSub PasteToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) 'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard. EndSub PrivateSub CascadeToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.Cascade) EndSub PrivateSub TileVerticleToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.TileVertical) EndSub PrivateSub TileHorizontalToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs)


Me.LayoutMdi(MdiLayout.TileHorizontal) EndSub PrivateSub ArrangeIconsToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.ArrangeIcons) EndSub PrivateSub CloseAllToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As EventArgs) ' Close all child forms of the parent. ForEach ChildForm As Form InMe.MdiChildren ChildForm.Close() Next EndSub Private m_ChildFormNumber AsInteger = 0 PrivateSub AnggotaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnggotaToolStripMenuItem.Click Dim form AsNew Form1() form.Show() EndSub PrivateSub BukuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukuToolStripMenuItem.Click Dim form AsNew Form2() form.Show() EndSub PrivateSub PetugasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PetugasToolStripMenuItem.Click Dim form AsNew Form5() form.Show() EndSub PrivateSub PinjamToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PinjamToolStripMenuItem.Click Dim form AsNew Form3() form.Show() EndSub PrivateSub LoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginToolStripMenuItem.Click Dim form AsNew Form4() form.Show() EndSub PrivateSub DataPembuatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPembuatToolStripMenuItem.Click Dim form AsNew Form6() form.Show() EndSub


PrivateSub BantuanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BantuanToolStripMenuItem.Click Dim form AsNew Form7() form.Show() EndSub PrivateSub AnggotaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnggotaToolStripMenuItem1.Click Form8.Show() EndSub PrivateSub BukuToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukuToolStripMenuItem1.Click Form12.Show() EndSub PrivateSub LogOutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogOutToolStripMenuItem.Click FrLogOut.Show() EndSub PrivateSub PinjamanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PinjamanToolStripMenuItem.Click LapPinjam.Show() EndSub PrivateSub PetugasToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PetugasToolStripMenuItem1.Click Form9.Show() EndSub EndClass


1. Login Form

digunakan untuk membuat akses masuk bagi pengguna aplikasi perpustakaan dengan terlebih dahulu memasukkan nama user dan password pengguna sesuai dengan ketentuan. Dengan koding sebagai berikut: PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (TextBox1.Text = "tini") And (TextBox2.Text = "Neez") Then MDIParent1.MasukToolStripMenuItem.Enabled = True MDIParent1.TransaksiToolStripMenuItem.Enabled = True MDIParent1.TentangToolStripMenuItem.Enabled = True MessageBox.Show("Login Lancar") Close() Else MessageBox.Show("Maaf Password Salah") EndIf EndSub


2. Form Transaksi Peminjaman Buku

From transaksi peminjaman digunakan untuk melakukan transaksi peminjaman dan pengembalian buku di perpustakaan.Dengan ketentuan jika buku yang dipinjam terlambat dikembalikan maka akan dikenakan biaya denda yaitu sebesar Rp 500/buku.Apabila buku yang dipinjam sudah dikembalikkan maka di hapus daftar peminjamannya.

Dengan koding sebagai berikut: PublicClass Form3 Dim daanggota As OleDb.OleDbDataAdapter Dim dabuku As OleDb.OleDbDataAdapter Dim con AsNew OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Materi Mata Kuliah\pra.visual basic\latdatabase\database perpustakaan\database perpustakaan\Database6.mdb")) Dim dtanggota AsNew DataTable() Dim dtbuku AsNew DataTable() Dim drbuku As DataRow Dim dranggota As DataRow Function Koneksi(ByVal strDatabase AsString) AsString Dim kalimat AsString kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source="& strDatabase &"" Return kalimat EndFunction PrivateSub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load


Dim dc(1) As DataColumn Try daanggota = New OleDb.OleDbDataAdapter("select * from anggota", con) daanggota.Fill(dtanggota) dc(0) = dtanggota.Columns("ID_Anggota") dtanggota.PrimaryKey = dc With LstIDAnggota .DataSource = dtanggota .DisplayMember = "ID_Anggota" .ValueMember = "ID_Anggota" EndWith

dabuku = New OleDb.OleDbDataAdapter("select * from buku", con)

dabuku.Fill(dtbuku) dc(0) = dtbuku.Columns("No_Buku") dtbuku.PrimaryKey = dc

With lstbuku

EndWith

.DataSource = dtbuku .DisplayMember = "No_Buku" .ValueMember = "No_Buku"

Catch errConn As OleDb.OleDbException 'MsgBox(errConn.Message) EndTry EndSub PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKosong.Click kosong() EndSub PrivateSub kosong() txtNoPinjam.Text = "" txtBnykPinjam.Text = "" txtKetrlambatan.Text = "" txtjd.Text = "" txtNoPinjam.Focus() EndSub PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click Try drbuku = dtbuku.Rows.Find(txtNoPinjam.Text) txtNoPinjam.Text = drbuku("No_Pinjam").ToString txtBnykPinjam.Text = drbuku("Tgl_Kembali").ToString LstIDAnggota.Text = drbuku("ID_Anggota").ToString


Catch errCari As Exception MsgBox(errCari.Message) EndTry EndSub PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dabuku) drbuku.Delete() dabuku.DeleteCommand = cbhapus.GetDeleteCommand dabuku.Update(dtbuku) dtbuku.AcceptChanges() dabuku.DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) EndTry

kosong()

EndSub PrivateSub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click Try Dim cbbuku As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dabuku) drbuku = dtbuku.NewRow drbuku("No_Pinjam") = txtNoPinjam.Text drbuku("Banyak_Pinjam") = txtBnykPinjam.Text drbuku("Keterlambatan") = txtKetrlambatan.Text drbuku("Denda") = txtDenda.Text drbuku("jumlah_denda") = txtjd.Text

dtbuku.Rows.Add(drbuku) con.Open() dabuku.Update(dtbuku) dtbuku.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) EndTry EndSub

kosong()


PrivateSub LstIDAnggota_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstIDAnggota.SelectedIndexChanged Try Dim dranggota As DataRow dranggota = dtanggota.Rows.Find(LstIDAnggota.Text) txtNama.Text = dranggota("Nama").ToString txtAlamat.Text = dranggota("Alamat").ToString txtNoTlpn.Text = dranggota("NoTelpon").ToString txtEmail.Text = dranggota("Jurusan").ToString Catch errTampil As Exception EndTry EndSub PrivateSub lstbuku_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstbuku.SelectedIndexChanged Try Dim drbuku As DataRow drbuku = dtbuku.Rows.Find(lstbuku.Text) txtJudulBuku.Text = drbuku("Judul_Buku").ToString txtPengarang.Text = drbuku("Pengarang").ToString txtThnTerbit.Text = drbuku("Tahun_Terbit").ToString txtJnsBuku.Text = drbuku("Jenis_Buku").ToString txtStatus.Text = drbuku("Status").ToString Catch errTampil As Exception EndTry EndSub PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Close() EndSub PrivateSub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpjt.ValueChanged EndSub PrivateSub dtptk_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtptk.ValueChanged Dim tj, tk, tel AsInteger tj = Val(dtpjt.Text) tk = Val(dtptk.Text) tel = tk - tj txtKetrlambatan.Text = tel


EndSub PrivateSub txtBnykPinjam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBnykPinjam.TextChanged Dim denda, jd, tel, banyak AsInteger denda = Val(txtDenda.Text) banyak = Val(txtBnykPinjam.Text) tel = Val(txtKetrlambatan.Text) jd = (tel * denda) * banyak txtKetrlambatan.Text = tel txtjd.Text = jd EndSub EndClass

3. Form Anggota

PublicClass Form1 Dim daanggota As OleDb.OleDbDataAdapter Dim con AsNew OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Materi Mata Kuliah\pra.visual basic\latdatabase\database perpustakaan\database perpustakaan\Database6.mdb")) Dim dtanggota AsNew DataTable() Dim dbanggota As OleDb.OleDbConnection Dim comanggota As OleDb.OleDbCommand


Dim readeranggota As OleDb.OleDbDataReader Dim dranggota As DataRow Function Koneksi(ByVal strDatabase AsString) AsString Dim kalimat AsString kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source="& strDatabase &"" Return kalimat EndFunction PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load dbanggota = New OleDb.OleDbConnection dbanggota.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Materi Mata Kuliah\pra.visual basic\latdatabase\database perpustakaan\database perpustakaan\Database6.mdb" dbanggota.Open() Dim dc(1) As DataColumn Try 'daanggota = New OleDb.OleDbDataAdapter("select * from anggota", con) daanggota = New OleDb.OleDbDataAdapter("select * from anggota", con) daanggota.Fill(dtanggota) dc(0) = dtanggota.Columns("ID_Anggota") dtanggota.PrimaryKey = dc DgAnggota.DataSource = dtanggota Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) EndTry EndSub PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKosong.Click kosong() EndSub PrivateSub kosong() txtIdAnggota.Text = "" txtNama.Text = "" txtAlamat.Text = "" rbLaki.Select() txtNoTelpon.Text = "" txtTglLahir.Text = "" txtKota.Text = "" txtJurusan.Text = "" txtIdAnggota.Focus() EndSub PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click Try dranggota = dtanggota.Rows.Find(txtIdAnggota.Text) txtIdAnggota.Text = dranggota("ID_Anggota").ToString txtNama.Text = dranggota("Nama").ToString


txtAlamat.Text = dranggota("Alamat").ToString If dranggota("Jenis_Kelamin").ToString = "Laki - Laki"Then rbLaki.Select() Else rbPerempuan.Select() EndIf txtNoTelpon.Text = dranggota("NoTelpon").ToString txtTglLahir.Text = dranggota("Tanggal_Lahir").ToString txtKota.Text = dranggota("Kota").ToString txtJurusan.Text = dranggota("Jurusan").ToString Catch errCari As Exception MsgBox(errCari.Message) EndTry EndSub PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click If dbanggota.State = ConnectionState.Closed Then dbanggota.Open() comanggota = New OleDb.OleDbCommand comanggota.CommandType = CommandType.Text comanggota.CommandText = "delete from anggota where ID_Anggota = '"& txtIdAnggota.Text &"'" comanggota.Connection = dbanggota comanggota.ExecuteNonQuery() Ledit.Visible = False txtIdAnggota.Text = "" txtNama.Text = "" txtAlamat.Text = "" rbLaki.Select() txtNoTelpon.Text = "" txtTglLahir.Text = "" txtKota.Text = "" txtJurusan.Text = "" txtIdAnggota.Focus() comanggota.Dispose() dbanggota.Close() EndSub PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click Try Dim cbanggota As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daanggota) dranggota = dtanggota.NewRow dranggota("ID_Anggota") = txtIdAnggota.Text dranggota("Nama") = txtNama.Text dranggota("Alamat") = txtAlamat.Text If rbLaki.Checked Then dranggota("Jenis_Kelamin") = "Laki - Laki" Else dranggota("Jenis_Kelamin") = "Perempuan" EndIf


dranggota("NoTelpon") = txtNoTelpon.Text dranggota("Tanggal_Lahir") = txtTglLahir.Text dranggota("Kota") = txtKota.Text dranggota("Jurusan") = txtJurusan.Text dtanggota.Rows.Add(dranggota) con.Open() daanggota.Update(dtanggota) dtanggota.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) EndTry kosong() EndSub PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelesai.Click Me.Close() EndSub PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click If dbanggota.State = ConnectionState.Closed Then dbanggota.Open() comanggota = New OleDb.OleDbCommand() comanggota.CommandType = CommandType.Text If Ledit.Visible = FalseThen comanggota.CommandText = "insert into anggota values('"& txtIdAnggota.Text &"','"& txtNama.Text &"','" _ & txtAlamat.Text &"','"& txtNoTelpon.Text &"','"& txtTglLahir.Text &"','"& txtKota.Text &"','"& txtJurusan.Text &"')" Else comanggota.CommandText = "update anggota set nama='"& txtNama.Text &"',alamat = '"& txtAlamat.Text &"',telpon= '" _ & txtNoTelpon.Text &"',Tanggal_Lahir='"& txtTglLahir.Text &"',kota='"& txtKota.Text &"',jurusan='"& txtJurusan.Text &"' where ID_Anggota= '"& txtIdAnggota.Text &"'" EndIf comanggota.Connection = dbanggota comanggota.ExecuteNonQuery() txtIdAnggota.Text = "" txtNama.Text = "" txtAlamat.Text = "" rbLaki.Select() txtNoTelpon.Text = "" txtTglLahir.Text = "" txtKota.Text = "" txtJurusan.Text = "" txtIdAnggota.Focus() dbanggota.Close()


EndSub PrivateSub txtId_Anggota_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtIdAnggota.LostFocus If dbanggota.State = ConnectionState.Closed Then dbanggota.Open() comanggota = New OleDb.OleDbCommand() comanggota.CommandType = CommandType.Text comanggota.CommandText = "select * from anggota where ID_Anggota= '"& txtIdAnggota.Text &"'" comanggota.Connection = dbanggota readeranggota = comanggota.ExecuteReader If readeranggota.Read Then txtNama.Text = readeranggota("Nama") txtAlamat.Text = readeranggota("Alamat") txtNoTelpon.Text = readeranggota("NoTelpon") txtTglLahir.Text = readeranggota("Tanggal_Lahir") txtKota.Text = readeranggota("Kota") txtJurusan.Text = readeranggota("Jurusan") Ledit.Visible = True Else Ledit.Visible = False txtNama.Text = "" txtAlamat.Text = "" rbLaki.Select() txtNoTelpon.Text = "" txtTglLahir.Text = "" txtKota.Text = "" txtJurusan.Text = "" EndIf readeranggota.Close() comanggota.Dispose() dbanggota.Close() EndSub PrivateSub txtNoBuku_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNoBuku.TextChanged Try drperpustakaan = dtperpustakaan.Rows.Find(txtNoBuku.Text) If (txtNoBuku.Text = drperpustakaan("No_Buku")) Then MsgBox("No Buku Sudah terdaftar", MsgBoxStyle.Information) txtNoBuku.Text = "" txtNoBuku.Focus() Else txtJudulBuku.Focus() EndIf Catch errCari As Exception txtJudulBuku.Focus() EndTry EndClass


4. Form Log-Out

Jika anda ingin keluar maka akan tampil peringatan seperti pada gambar. Berikut koding Log-out: PublicClass FrLogOut PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLogOut.Click Dim ask AsString ask = MsgBox("Apakah Anda yakin ingin keluar dari aplikasi ini ?", MsgBoxStyle.OkCancel, "WARNING") If ask = vbOK Then Application.Exit() EndIf EndSub EndClass


5. Form Laporan

Membuat Report Klik kanan pilih add new item pilih cristal report

Pilih yang standar lalu klik Ok


Klik Create New Connecction pilih database files lalu pilih next

Masukkan database yang akan di buat laporan setelah itu klik Open


Setelah itu select table ke sebelah kanan Setelah itu klik next sehabis nya anda pilih report style yang anda inginkan misalkan:


Setah itu anda klik Finish maka akan muncul seperti ini:

Buat Form Baru untuk menampilkan hasil laporan nanti akan muncul gambar ini lalu anda pilih di properties Report Source pilih cristal Report yang akan anda buat

Apabila di run maka program akan muncul seperti berikut ini:


Laporan digunakan untuk mencetak informasi yang di inginkan, apakah semua informasi atau berdasarkan jenis atau juga pertanggal. Semua laporan menggunakan Crystal Report . a. Laporan Data Buku b. Laporan Data Anggota c. Laporan Transaksi d. Laporan Petugas


BAB III PENUTUP A. Kesimpulan Dengan adanya Sistem yang penulis rancang dapat diambil kesimpulan sebagai berikut : a) Pengelolaan data dapat dilakukan dengan cepat, hal ini dirasakan lebihmenguntungkan jika dibandingkan dengan sistem manual. b) Penyimpanan data di dalam media komputer akan lebih hemat dan amanserta dapat digunakan berkali-kali dan dapat diperbaharui isinya. c) Akan diperoleh informasi yang cepat, tepat, akurat dan handal, sehingga d) Akan memberikan pelayanan yang baik kepada konsumen maupun dalam e) pengambilan keputusan bagi pihak manajemen. f) Data mudah diakses dan disimpan serta mudah untuk dipertanggungjawabkan. g) Kebutuhan proses pengolahan data yang segera dan terus menerus. h) Efektif dan efisien A. Saran Untuk mendapatkan hasil yang optimal, beberapa hal yang perlu diperhatikan :  Disiplin dari pengelola masing-masing usaha untuk selalu melakukanpencatatan melalui pemakaian program dan prosedur yang telah disusun.  Peningkatan kualitas perangkat keras dengan menambah memory akan  meningkatkan kecepatan dan kemudahan dalam melakukan implementasi rancangan.  “Back Up” data sangat diperlukan untuk menghindari kehilangan data  karena kerusakan media penyimpanan yang dapat timbul.


Program Aplikasi Perpustakaan

Recommend Documents