Imports System.Data.OleDb
Public Class TestForm
Dim str As String = "provider = microsoft.jet.oledb.4.0;data source =d:\pvss204\product.mdb"
Dim con As New OleDbConnection
Dim dt As DataTable
Dim da As OleDbDataAdapter
Private Sub TestForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = str
con.Open()
With ListView1
.Columns.Add("รหัสสินค้า", 80, HorizontalAlignment.Center)
.Columns.Add("ชื่อสินค้า", 70, HorizontalAlignment.Center)
.Columns.Add("ราคาต่อหน่วย", 80, HorizontalAlignment.Center)
.Columns.Add("จำนวน", 70, HorizontalAlignment.Center)
.Columns.Add("เป็นเงิน", 60, HorizontalAlignment.Center)
.GridLines = True
.View = View.Details
End With
End Sub
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
If TextBox1.Text = "" Then
MessageBox.Show("กรุณากรอกรหัสสินค้า")
Exit Sub
End If
Dim sql As String = "select * from product where proid='{0}'"
sql = String.Format(sql, TextBox1.Text)
da = New OleDbDataAdapter(sql, con)
dt = New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then
Label6.Text = dt.Rows(0).Item("proname").ToString
Label7.Text = dt.Rows(0).Item("proprice").ToString
Label8.Text = dt.Rows(0).Item("proqty").ToString
Label9.Text = Val(Label5.Text) * Val(Label12.Text)
Else
MessageBox.Show("ไม่พบข้อมูลสินค้า")
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strlvi() As String = {TextBox1.Text, Label4.Text, Label5.Text, Label12.Text, Label14.Text}
Dim lvi As New ListViewItem(strlvi)
ListView1.Items.Add(lvi)
TextBox1.Text = ""
TextBox1.Focus()
Label6.Text = ""
Label7.Text = ""
Label8.Text = ""
Label9.Text = ""
End Sub
End Class
ไม่มีความคิดเห็น:
แสดงความคิดเห็น