我正在创建一个带访问数据库的POS系统，无论如何这是我的代码 [英] I am creating a POS system with access database, anyway this is my code

问题描述

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屋！