spxx.vb

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

Public Class spxx
    Inherits DBOperation
    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 供应商号,gongyingname as 供应商名称,fenleino as 商品分类号,fenleiname as 商品分类名称,shuoming as 商品说明,jinhuoprice as 进货单价,xiaoshouprice as 销售单价,kucunyue as 库存余额"

If Field = "" Then
            SQLString = "SELECT " & Column & " FROM shangpinxinxi order by shangpinno"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM shangpinxinxi WHERE " & Field & "='" & Value & "' order by shangpinno"
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM shangpinxinxi WHERE " & Field & "" & DBOperator & "'" & "%" & Value & "%" & "' order by shangpinno"
        Else
            SQLString = "SELECT " & Column & " FROM shangpinxinxi WHERE " & Field & "" & DBOperator & Val(Value) & " order by shangpinno"
        End If
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Sub Delsp(ByVal shangpinno As String)
        Dim SQLString As String
        SQLString = "DELETE FROM shangpinxinxi WHERE shangpinno='" & shangpinno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
    Shared Function loadsp() As DataTable
        Dim SQLString As String
        SQLString = "SELECT * FROM shangpinxinxi order by shangpinno"
        Return DBOperation.DBOperate(SQLString)
    End Function
    Private _shangpinno As String
    Private _shangpinname As String
    Private _gongyingno As String
    Private _gongyingname As String
    Private _fenleino As String
    Private _fenleiname As String
    Private _shuoming As String
    Private _jinhuoprice As Double
    Private _xiaoshouprice As Double
    Private _kucunyue As Double
    Sub New(ByVal shangpinno As String, ByVal shangpinname As String, ByVal gongyingno As String, ByVal gongyingname As String, ByVal fenleino As String, ByVal fenleiname As String, ByVal shuoming As String, ByVal jinhuoprice As Double, ByVal xiaoshouprice As Double, ByVal kucunyue As Double)
        _shangpinno = shangpinno
        _shangpinname = shangpinname
        _gongyingno = gongyingno
        _gongyingname = gongyingname
        _fenleino = fenleino
        _fenleiname = fenleiname
        _shuoming = shuoming
        _jinhuoprice = jinhuoprice
        _xiaoshouprice = xiaoshouprice
        _kucunyue = kucunyue
    End Sub
    Function Addsp()
        Dim SQLString As String
        SQLString = "SELECT * FROM shangpinxinxi WHERE shangpinno='" & _shangpinno & "'"
        Dim UserTable As DataTable = DBOperation.DBOperate(SQLString)
        If UserTable.Rows.Count >= 1 Then
            MsgBox("该商品编号已存在，请重试", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            SQLString = "INSERT INTO shangpinxinxi VALUES('" & _shangpinno & "','"
            SQLString += _shangpinname & "','" & _gongyingno & "','"
            SQLString += _gongyingname & "','" & _fenleino & "','" & _fenleiname & "','" & _shuoming & "','" & _jinhuoprice & "','" & _xiaoshouprice & "','" & _kucunyue & "')"
            DBOperation.DBOperate(SQLString)
            Return True
        End If
    End Function
    Sub Updatesp()
        Dim SQLString As String
        SQLString = "UPDATE shangpinxinxi SET shangpinname='" & _shangpinname & "',gongyingno='" & _gongyingno & "',gongyingname='" & _gongyingname & "',fenleino='" & _fenleino & "',fenleiname='" & _fenleiname & "',shuoming='" & _shuoming & "',jinhuoprice='" & _jinhuoprice & "',xiaoshouprice='" & _xiaoshouprice & "',kucunyue='" & _kucunyue & "'Where shangpinno='" & _shangpinno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
End Class