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....