FORM PopUp BARANG

Coding PopUp Barang

Imports System.Data.OleDb
Imports System.Data
Public Class PopBrg
Public retKdBrg, retNmBrg, retSatuan As String
Dim cnn As OleDbConnection
Dim cmmd As OleDbCommand
Dim dReader As OleDbDataReader

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

Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
Call list_data()
End Sub

Public Sub list_data()
Call clear_list()

Dim sqlx As String
Dim x As Integer
sqlx = "select TKDBRG, TNMBRG, TSATUAN from BARANG where TNMBRG like '%" & Trim(Txtkey.Text) & "%' order by TKDBRG asc"

cnn = New OleDbConnection(strConn)
If cnn.State <> ConnectionState.Closed Then cnn.Close()
cnn.Open()
cmmd = New OleDbCommand(sqlx, cnn)
dReader = cmmd.ExecuteReader
Try
While dReader.Read = True
x = Val(Counter.text)
Counter.text = Str(Val(Counter.text) + 1)

With ListView1
.Items.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(ListView1.Items.Count - 1).SubItems.Add("")
.Items(x).SubItems(0).Text = dReader.GetString(0)
.Items(x).SubItems(1).Text = dReader.GetString(1)
.Items(x).SubItems(2).Text = dReader.GetValue(2)
End With
End While
Finally
dReader.Close()
End Try
cnn.Close()
End Sub

Private Sub clear_list()
While Val(counter.Text) > 0
ListView1.Items(0).Remove()
counter.Text = Val(counter.Text) - 1
End While
End Sub

Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Call pilih()
End Sub

Private Sub pilih()
Try
retKdBrg = ListView1.SelectedItems(0).SubItems(0).Text.ToString
retKdBrg = ListView1.SelectedItems(0).SubItems(1).Text.ToString
retKdBrg = ListView1.SelectedItems(0).SubItems(2).Text.ToString
Me.Close()
Catch ex As Exception
MsgBox("pilih salah satu data", MsgBoxStyle.Information)
End Try
End Sub

Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
Call pilih()
End Sub
End Class

Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO theproperty-developer