dbkc.vb

来自「用VB开发了一个超市管理系统」· VB 代码 · 共 34 行

Public Class DBkc
    Inherits DBOperation
    Private _shangpinno As String
    Private _sl As Single
    Sub New(ByVal shangpinno As String, ByVal sl As Single)
        _shangpinno = shangpinno
        _sl = sl
    End Sub
    Shared Function Loadsp(ByVal Field As String, ByVal Value As String, ByVal DBOperator As String) As DataTable
        Dim SQLString As String
        Dim Column As String = ""
        Column += "shangpinno AS 商品编号, shangpinname AS 商品名称,gongyingno AS 供应商名称,gongyingshangname as 供应商名,shuoming as 商品说明"
        Column += "fenleino as 商品分类号,fenleiname as 商品分类名称,shuoming as 商品说明,jinhuoprice AS 进货单价, xiaoshouprice AS 销售单价,kucunyue as 库存余额"
        If Field = "" Then
            SQLString = "SELECT " & Column & " FROM shangpinxinxi"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM shangpinxinxi WHERE " & Field & _
            "= '" & Value & "'  "
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM shangpinxinxi WHERE " & Field & _
            " " & DBOperator & "'" & "%" & Value & "%" & "'  "
        Else
            SQLString = "SELECT " & Column & " FROM shangpinxinxi WHERE " & Field & _
            " " & DBOperator & Val(Value) & "  "
        End If
        Return DBOperate(SQLString)
    End Function
    Sub updateshangpinxinxi()
        Dim SQLString As String
        SQLString = "UPDATE shangpinxinxi SET kucunyue=kucunyue-" & _sl & " Where shangpinno='" & _shangpinno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
End Class