dbsp.vb

用VB开发了一个超市管理系统

Public Class DBsp
    Inherits DBOperation
    Private _shangpinno As String
    Private _shangpinname As String
    Private _sl As Single
    Private _xiaoshouprice As Single
    Private _xiaoshouriqi As String
    Private _yonghubianhao As String
    Private _zhekou As Single
    Private _xiaoji As Single
    Sub New(ByVal shangpinno As String, ByVal shangpinname As String, ByVal sl As Single, ByVal xiaoshouprice As Single, ByVal xiaoshouriqi As String, ByVal yonghubianhao As String, ByVal zhekou As Single, ByVal xiaoji As Single)
        _shangpinno = shangpinno
        _shangpinname = shangpinname
        _sl = sl
        _xiaoshouprice = xiaoshouprice
        _xiaoshouriqi = xiaoshouriqi
        _yonghubianhao = yonghubianhao
        _zhekou = zhekou
        _xiaoji = xiaoji
    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

    Function AddSp()  '由于担心增加不成功，需要返回值，故用function
        Dim SQLString As String
        SQLString = "INSERT INTO xiaoshou(shangpinno,shangpinname,sl,xiaoshouprice,xiaoshouriqi,yonghubianhao,zhekou,xiaoji) VALUES('" & _shangpinno & "','"
        SQLString += _shangpinname & "'," & _sl & "," & _xiaoshouprice & ",'" & _xiaoshouriqi & "','"
        SQLString += _yonghubianhao & "'," & _zhekou & "," & _xiaoji & ")"
        DBOperate(SQLString)
        Return True
    End Function
End Class