APLIKASI PERPUSTAKAAN DARI VISUAL BASIC 2010 PART 1

APLIKASI PERPUSTAKAAN DARI VISUAL BASIC 2010. 

Nama: Deby Nata Kristi Ginting(132406201)
               Sri Indah Manurung(132406089)
               Selly Ride Manik(132406091)
               Obi Chandra Aruan(132406084)


                                                PART 1

Tampilan Menu Utama




Code Program Button Buku

Public Class FrmMenuUtama

    Private Sub FrmMenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Jam, Tanggal As String
        Jam = Format(Now, "hh:mm:ss")
        Tanggal = Format(Now, "dddd dd-MM-yyyy")
        LblInfoWaktu.Text = " " & Jam & ", " & Tanggal & ""
    End Sub

    Private Sub BtnBuku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuku.Click
        FrmBuku.ShowDialog()
    End Sub

    Private Sub BtnKategori_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKategori.Click
        FrmKategori.ShowDialog()
    End Sub

    Private Sub BtnRak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRak.Click
        FrmRak.ShowDialog()
    End Sub

    Private Sub BtnPeminjam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPeminjam.Click
        FrmPeminjam.ShowDialog()
    End Sub

    Private Sub BtnPeminjaman_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPeminjaman.Click
        FrmDataPeminjaman.ShowDialog()
    End Sub

    Private Sub BtnPengembalian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPengembalian.Click
        FrmPengembalianBuku.ShowDialog()
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class


Frm buku





Frm kategori



 TUNGGU PART BERIKUTNYA YANG FULL. :D 


Comments

Post a Comment

Popular posts from this blog

Begu Ganjang dan Antinya

Image
Begu Ganjang dan Antinya Secara sederhana begu berarti roh atau hantu, sedangkan ganjang artinya tinggi. berarti secara pandangan umum, begu ganjang itu adalah hantu ,roh atau makhluk halus  yang berbentuk meninggi keatas jika dilihat. Begu Ganjang yang memang dikenal sebagai Begu ganas. Badannya setinggi pohon enau, bisa berperangai pria atau wanita, dengan gigi tajam seperti gergaji. Awalnya begu ganjang digunakan sebagai penjaga kebun atau lahan pertanian  oleh masyarakat karo,namun pada sekarang ini begu ganjang dikenal dengan sosok yang mengerikan dimana dapat mencabut nyawa seseorang secara mendadak dengan  mencekik leher mangsanya. Bila membunuh, ada bekas biru lebam pada leher si korban. ketika disuruh oleh sang Empunya. Begu ganjang sendiri,Konon katanya, berasal dari arwah bayi yang meninggal yang kemudian sebelum genap tujuh hari, organ tubuh mayat bayi tersebut dicuri oleh dukun ilmu hitam yang kemudian menempanya menjadi begu ganjang,sehingga ad...
Read more

ASAL USUL GINTING

ASAL USUL GINTING... ASAL USUL GINTING Berikut ini asal usul ginting.  Mega GINTING 1. GINTING PASE Bali ras marga Munthe, PASE lit i pak pak , Toba, ras i simalungun. GINTING PASE mempunyai Kerajaen emekap PASE. 2. GINTING MUNTHE Asalna arah Tongging, kebecih, kuta sanggar, aji nembeh, terakhir ke MUNTHE. GINTING MUNTHE pecah menjadi GINTING TAMPUNE i Kuala. 3. GINTING MANIK Ersenina ras GINTING MUNTHE. 4. GINTING SINUSINGA Langa jelas , tapi SINUSINGA pendiri kuta Singa. 5. GINTING SARAGIH Termasuk merga GINTING simetuana, menyebar ke Simalungun salih SARAGIH, si i Toba salih Seragi. 6. GINTING SINISUKA asalna arah Pak pak pindah ke Samosir, tinjo, ke guru benua. Terberita tubuh SIWAH SADA GINTING, emekap: A. GINTING BABO B. GINTING SUGIHEN C. GINTING GURU PATIH D. GINTING SUKA E. GINTING BERAS F. GINTING BUKIT G. GINTING GARAMATA (SIMARMATA adi bas Toba) H. GINTING AJAR TAMBUN I. GINTING JADI BATA. Merga SINISUKA erturang gelarna "Bembem br GIN...
Read more

UMANG

Image
            UMANG Umang adalah makhluk seperti manusia bertubuh kecil,kalau berjalan, kakinya terbalik, tumitnya menghadap ke depan sedangkan jari-jari kakinya ke arah belakang.Mahluk ini sering dikategorikan sebagai mahluk halus, mungkin karena kemunculanya yang misterius dan sampai sekarang keberadaanya pun masih menjadi tanda tanya bagi orang banyak. Cerita mengenai umang, juga dimiliki oleh aceh dimana umang dikatakan sebagai suku Mante yang telah punah. Suku itu sudah ada sebelum Islam masuk ke tanah Aceh pada abad ke-14. Mereka hidup di Gunung Seulawah dan Leuser. Rambut mereka keriting, kulit kehitam-hitaman. Tinggi tubuh maksimal 140 cm. Mereka makan keladi, buah-buahan, dan akar-akaran,dimana jari jari dan telapak kakinya berbeda dengan manusia "Mereka mirip suku Pigme, yang sampai sekarang masih ditemukan di Afrika bagian selatan," Umang sendiri bertempat tinggal di dalam sebuah batu, yang konon katanya batu tersebut tidak akan dapat dilihat ol...
Read more