我正在创建一个带访问数据库的POS系统,无论如何这是我的代码 [英] I am creating a POS system with access database, anyway this is my code
本文介绍了我正在创建一个带访问数据库的POS系统,无论如何这是我的代码的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
Imports System.Data.OleDb
Public Class MainSeller
Dim cnn As New OleDb.OleDbConnection
Dim cmdDelete As New OleDb.OleDbCommand
Dim cnnOLEDB As New OleDb.OleDbConnection
Dim cmdInsert As New OleDb.OleDbCommand
Dim cmdUpdate As New OleDb.OleDbCommand
Dim strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
System.Environment.CurrentDirectory & "\InventSystem.accdb"
Public Sub RefreshData()
If Not cnn.State = ConnectionState.Open Then
'open connection
cnn.Open()
End If
Dim da As New OleDb.OleDbDataAdapter("SELECT Barcode, " & _
"ItemName as [Item Name], ItemDescription, Quantity, TotalPrice " & _
" FROM ReceiptDetails ORDER BY ReceiptID", cnn)
Dim dt As New DataTable
'fill data to datatable
da.Fill(dt)
'offer data in data table into datagridview
Me.DataGridView1.DataSource = dt
'close connection
cnn.Close()
'DataGridView1.DataSource = ds.Tables(0)
End Sub
我尝试了什么:
我只是想知道我将使用什么代码进行缺货,我是新手,所以请帮助
What I have tried:
I was just wondering what code i am going to use for out of stock, I am new to this so please help
推荐答案
如果使用ReceiptDetails跟踪库存,那么Quantity = 0表示缺货。
If using ReceiptDetails to keep track of stock on hand then Quantity = 0 for out of stock.
创建另一个表单并复制所有内容,但更改SQL语句并添加这样的WHERE子句。
SELECT条形码,ItemName为[Item Name],ItemDescription,Quantity,TotalPrice FROM ReceiptDetails
WHERE Quantity = 0
ORDER BY ReceiptID
Create another form and replicate everything but change the SQL statement and add a WHERE clause like this.
"SELECT Barcode, ItemName as [Item Name], ItemDescription, Quantity, TotalPrice FROM ReceiptDetails
WHERE Quantity = 0
ORDER BY ReceiptID"
这篇关于我正在创建一个带访问数据库的POS系统,无论如何这是我的代码的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文