Program Perpustakaan

SALAM HANGAT BUAT ANDA PENCINTA PROGRAM
salam dr sya @dian_roses



Cara membuat program perpustakaan..
seblm kita buat program, maka hal yang pertama dilakukan ialah membuat database nya terlebih dahulu dengan database access 2007
berikut susunan table :

 1. tbleBuku

2. tablePeminjam

3. table Peminjaman

4. table Rak

5. table Kategori

Setelah data semua table di masukan, skrng tinggal anda mengcreat Query Design

maka hasilnya sepereti dibawah ini

Setelah database sudah disave maka kita akan membuat program dengan menggunakan visual basic 2010

pada kesempatan kali ini saya akan membuat form table buku Pada VISUAL BASIC 2010
langsung aja kita create new project.
kurang lebih tampilan atau design nya seperti dibawah ini..

kurang lebih Codingannya seperti ini.

Silahkan anda pahami..(KHUSUS YANG SUDAH PAHAM COD)

Imports System.Data

Imports System.Data.OleDb

Public Class FrmBuku

    Sub Data_record()

        Try

            Call coneksi()

            tabel = New Data.OleDb.OleDbDataAdapter("select*from Table_buku", database)

            Data = New dataDataSet

            tabel.Fill(Data)

            Record.DataSource = Data

            Record.DataMember = Data.Table_buku(0).ToString()

            DGBuku.DataSource = Record

            DGBuku.Columns(1).Width = 300

            DGBuku.Columns(5).Visible = False

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

    Sub Atur()

        BtnSimpan.Enabled = True

        BtnUbah.Enabled = False

        BtnHapus.Enabled = False

        BtnBatal.Enabled = False

        KdBukuTxt.Text = ""

        JdBukuTxt.Text = ""

        KategoriCmb.Text = ""

        RakCmb.Text = ""

        StockTxt.Text = ""

        KdBukuTxt.Enabled = True

        KdBukuTxt.Focus()

        Call coneksi()

        Call Data_record()

    End Sub

    Sub Data_Kategori()

        tabel = New Data.OleDb.OleDbDataAdapter("select * from tableKategri", database)

        Data = New dataDataSet

        tabel.Fill(Data)

        Record.DataSource = Data

        Record.DataMember = Data.Table_buku(0).ToString()

        Try

            Dim A As DataRow

            KategoriCmb.Items.Clear()

            For Each A In Data.Tables(0).Rows

                KategoriCmb.Items.Add(A.Item(0))

            Next A

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

    Sub Data_Rak()

        tabel = New Data.OleDb.OleDbDataAdapter("select * from tableRak", database)

        Data = New dataDataSet

        tabel.Fill(Data)

        Record.DataSource = Data

        Record.DataMember = Data.Table_buku(0).ToString()

        Try

            Dim A As DataRow

            RakCmb.Items.Clear()

            For Each A In Data.Tables(0).Rows

                RakCmb.Items.Add(A.Item(0))

            Next A

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

    Private Sub FrmBuku_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'DataDataSet.Table_buku' table. You can move, or remove it, as needed.

        Me.Table_bukuTableAdapter.Fill(Me.Data.Table_buku)

        Call Data_Kategori()

        Call Data_Rak()

        Call Atur()

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        Try

            Call coneksi()

            DML.Connection = database

            DML.CommandType = CommandType.Text

            DML.CommandText = "insert into table_buku values('" & KdBukuTxt.Text & "','" & JdBukuTxt.Text & "','" &

                KategoriCmb.Text & "','" & RakCmb.Text & "','" & StockTxt.Text & "','" & FotoTxt.Text & "')"

            DML.ExecuteNonQuery()

            MsgBox("data telah disimpan")

            Call Atur()

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

    Private Sub BtnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUbah.Click

        Try

            Call coneksi()

            DML.Connection = database

            DML.CommandType = CommandType.Text

            DML.CommandText = "update table_buku set judul_buku = '" & JdBukuTxt.Text & "', kategori = '" & KategoriCmb.Text & "', Rak='" & RakCmb.Text & "', Stock = '" & StockTxt.Text & "', Foto = '" & FotoTxt.Text & "', where Kode_buku = '" & KdBukuTxt.Text & "'"

            DML.ExecuteNonQuery()

            MsgBox("Date Telah di Ubah")

            Call Atur()

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        Try

            Call coneksi()

            DML.Connection = database

            DML.CommandType = CommandType.Text

            DML.CommandText = "Delete from TblBuku where kode_buku = '" & KdBukuTxt.Text & "'"

            DML.ExecuteNonQuery()

            MsgBox("Data Telah di Hapus")

            Call Atur()

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

    Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click

        Call Atur()

    End Sub

    Private Sub DGBuku_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGBuku.CellContentClick

        Try

            KdBukuTxt.Text = DGBuku.SelectedCells(0).Value

            JdBukuTxt.Text = DGBuku.SelectedCells(1).Value

            KategoriCmb.Text = DGBuku.SelectedCells(2).Value

            RakCmb.Text = DGBuku.SelectedCells(3).Value

            StockTxt.Text = DGBuku.SelectedCells(4).Value

            FotoTxt.Text = DGBuku.SelectedCells(5).Value

            KdBukuTxt.Enabled = False

            BtnSimpan.Enabled = False

            BtnUbah.Enabled = True

            BtnHapus.Enabled = True

            BtnBatal.Enabled = True

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

Butoon Pic dan Button delete Pic kali ini sya blm menunjukan codinganya...

silahkan anda coba sndri dan plajari...

kurang lebihnya sya mohon maaf..semogga bermanfaat.

salam @DIAN_ROSES....