spfl.vb

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

Public Class spfl
    Inherits DBOperation
    Shared Function Loadspfl(ByVal Field As String, ByVal Value As String, ByVal DBOperator As String) As DataTable
        Dim SQLString As String
        Dim Column As String = ""
        Column += "fenleino as 商品分类号,fenleiname as 商品分类名"
        If Field = "" Then
            SQLString = "SELECT " & Column & " FROM shangpinfenlei order by fenleino"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM shangpinfenlei WHERE " & Field & "='" & Value & "' order by fenleino"
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM shangpinfenlei WHERE " & Field & "" & DBOperator & "'" & "%" & Value & "%" & "' order by fenleino"
        Else
            SQLString = "SELECT " & Column & " FROM shangpinfenlei WHERE " & Field & "" & DBOperator & Val(Value) & " order by fenleino"
        End If
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Sub Delspfl(ByVal fenleino As String)
        Dim SQLString As String
        SQLString = "DELETE FROM shangpinfenlei WHERE fenleino='" & fenleino & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
    Private _fenleino As String
    Private _fenleiname As String
    Sub New(ByVal fenleino As String, ByVal fenleiname As String)
        _fenleino = fenleino
        _fenleiname = fenleiname
    End Sub
    Function Addspfl()
        Dim SQLString As String
        SQLString = "SELECT * FROM shangpinfenlei WHERE fenleino='" & _fenleino & "'"
        Dim UserTable As DataTable = DBOperation.DBOperate(SQLString)
        If UserTable.Rows.Count >= 1 Then
            MsgBox("该商品分类号已存在，请重试", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            SQLString = "INSERT INTO shangpinfenlei VALUES('" & _fenleino & "','"
            SQLString += _fenleiname & "')"
            DBOperation.DBOperate(SQLString)
            Return True
        End If
    End Function
    Sub Updatespfl()
        Dim SQLString As String
        SQLString = "UPDATE shangpinfenlei SET fenleiname='" & _fenleiname & "',fenleino='" & _fenleino & "' Where fenleino='" & _fenleino & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
End Class