Assalamu'alaikum wr wb
Setelah membahas gimana caranya agar DataGridView hanya dapat di input dengan angka (tidak dapat di input dengan Huruf)
maka sekarang kita akan membuat DataGridView agar terlihat cantik (Enak dilihat),
oke langsung aja gan siapkan DataGridView nya yang tersedia di ToolBox sebelah kiri,
Setelah itu panggil kita coba panggil Data Barangnya yang ada pada DataBase buat percobaan disini saya menggunakan SQL Server R2 2008,
Imports System.Data.SqlClient
Public Class FrmPenjualan
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Rd As SqlDataReader
Dim Cmd As SqlCommand
Private Sub GridLoad()
Da = New SqlDataAdapter("Select * from barang ", Conn)
Ds = New DataSet
Da.Fill(Ds, "Barang")
DGV.DataSource = Ds.Tables("Barang")
DGV.ReadOnly = True
DGV.GridColor = Color.ButtonHighLight
DGV.DefaultCellStyle.ForeColor = Color.White
DGV.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
DGV.RowsDefaultCellStyle.BackColor = Color.DarkBlue
End Sub
ini adalah contoh tampilannya DataGridView nya gan
Okee Sekian dulu dari ane gan ditunggu komennya
=========================================================================
Setelah membahas gimana caranya agar DataGridView hanya dapat di input dengan angka (tidak dapat di input dengan Huruf)
maka sekarang kita akan membuat DataGridView agar terlihat cantik (Enak dilihat),
oke langsung aja gan siapkan DataGridView nya yang tersedia di ToolBox sebelah kiri,
Setelah itu panggil kita coba panggil Data Barangnya yang ada pada DataBase buat percobaan disini saya menggunakan SQL Server R2 2008,
Imports System.Data.SqlClient
Public Class FrmPenjualan
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Rd As SqlDataReader
Dim Cmd As SqlCommand
Private Sub GridLoad()
Da = New SqlDataAdapter("Select * from barang ", Conn)
Ds = New DataSet
Da.Fill(Ds, "Barang")
DGV.DataSource = Ds.Tables("Barang")
DGV.ReadOnly = True
DGV.GridColor = Color.ButtonHighLight
DGV.DefaultCellStyle.ForeColor = Color.White
DGV.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
DGV.RowsDefaultCellStyle.BackColor = Color.DarkBlue
End Sub
ini adalah contoh tampilannya DataGridView nya gan
Okee Sekian dulu dari ane gan ditunggu komennya
=========================================================================
Tidak ada komentar :
Posting Komentar