FORM INPUT BARANG VB.NET 2008 WITH SQL SERVER 2005

KODINGNYA :

Imports System.Data.SqlClient
Public Class Barang
Dim xkoneksi As New SqlConnection
Dim xcommand As New SqlCommand
Dim xAdapter As New SqlDataAdapter
Dim xDataset As New DataSet
Dim XReader As SqlDataReader
Dim xDataset1 As New DataSet
Dim dtbarang As New DataTable
Dim NoUrutListviewsupplier As Integer
Dim JumlahRecord As Integer
Dim listtt(3) As String
Dim listitem As ListViewItem
Dim wew As Integer = 0
Sub Tampilbarang()
ListView1.Items.Clear()

JumlahRecord = dtbarang.Rows.Count
With ListView1
For A As Integer = 0 To (JumlahRecord - 1)
.Items.Add(dtbarang.Rows(A).Item(0))
.Items(A).SubItems.Add(dtbarang.Rows(A).Item(1))
.Items(A).SubItems.Add(dtbarang.Rows(A).Item(2))
Next
End With
End Sub
Sub KosongIsiItem()
Me.txtkodeb.Clear()
Me.txtnamab.Clear()
Me.txtsatuan.Clear()
End Sub
Sub Isibarang()
If ListView1.SelectedItems.Count = 1 Then
With ListView1.SelectedItems(0)
Me.txtkodeb.Text = .SubItems(1).Text
Me.txtnamab.Text = .SubItems(2).Text
Me.txtsatuan.Text = .SubItems(3).Text
End With
End If
End Sub
Private Sub aktif()
KosongIsiItem()
Me.txtkodeb.Enabled = True
Me.txtnamab.Enabled = True
Me.txtsatuan.Enabled = True
Tampilbarang()
End Sub
Private Sub tampil()
txtkodeb.DataBindings.Add("text", Me.ListView1, "kode_Barang")
txtnamab.DataBindings.Add("text", Me.ListView1, "nama_Barang")
txtsatuan.DataBindings.Add("text", Me.ListView1, "satuan")
End Sub
Private Sub mati()
KosongIsiItem()
Me.txtnamab.Enabled = False
Me.txtsatuan.Enabled = False
End Sub

Private Sub txtkodeb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtkodeb.GotFocus
Call KosongIsiItem()
End Sub


Private Sub Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'KONEKSI DAN AMBIL RECORD FIELD TABEL Supplier
xkoneksi.ConnectionString = My.Settings.AgroKusumuaConnectionString
xkoneksi.Open()
xAdapter = New SqlDataAdapter("SELECT * FROM MASTER_Barang", xkoneksi)
dtbarang.TableName = "Master_Barang"
xAdapter.Fill(dtbarang)
Tampilbarang()
xkoneksi.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try

With ListView1
.FullRowSelect = True
.Columns.Add("Kode barang", 85, HorizontalAlignment.Left)
.Columns.Add("Nama barang", 150, HorizontalAlignment.Left)
.Columns.Add("satuan", 50, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
End With
Me.txtkodeb.Focus()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtkodeb.Text = "" Then
MsgBox("Data Belum Diisi", MsgBoxStyle.Critical, "Agro Kusuma")
Me.txtkodeb.Focus()
Else
Dim sql As String = String.Empty
sql = "insert into MASTER_Barang (kode_barang,nama_barang,satuan) values ('" & Me.txtkodeb.Text & "','" & Me.txtnamab.Text & "','" & Me.txtsatuan.Text & "')"
Dim command As New SqlCommand(sql, Module1.koneksi)
command.ExecuteNonQuery()
Module1.koneksi.Close()
MsgBox("Sukses!", MsgBoxStyle.Information, "Kusuma Agro")
xAdapter = New SqlDataAdapter("SELECT * FROM MASTER_Barang", xkoneksi)
dtbarang.TableName = "MASTER_Barang"
xAdapter.Fill(dtbarang)
wew = wew + 1
listtt(0) = txtkodeb.Text
listtt(1) = txtnamab.Text
listtt(2) = txtsatuan.Text
With ListView1
.Items.Add(listtt(0))
.Items(wew).SubItems.Add(listtt(1))
.Items(wew).SubItems.Add(listtt(2))
End With
KosongIsiItem()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim reply
reply = MsgBox("Apakah anda yakin ingin keluar?")
Me.Close()
End Sub
End Class



Tidak ada komentar:

Posting Komentar