supermarket.vb

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

Public Class supermarket
    Inherits DBOperation
    Shared Function loadmain(ByVal Field As String, ByVal Value As String, ByVal DBOperator As String) As DataTable
        Dim SQLString As String
        Dim Column As String = ""
        Column += "userno as 用户编号,username as 用户姓名,userpassword as 用户密码,xitongright as 系统管理权限,xiaoshouright as 销售管理权限,kucunright as 库存管理权限,shangpinright as 商品管理权限"
        If Field = "" Then
            SQLString = "SELECT " & Column & " FROM tbuser order by userno"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM tbuser WHERE " & Field & "='" & Value & "' order by userno"
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM tbuser WHERE " & Field & "" & DBOperator & "'" & "%" & Value & "%" & "' order by userno"
        Else
            SQLString = "SELECT " & Column & " FROM tbuser WHERE " & Field & "" & DBOperator & Val(Value) & " order by userno"
        End If
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Function loadmain() As DataTable
        Dim SQLString As String
        SQLString = "SELECT * FROM tbuser order by userno"
        Return DBOperation.DBOperate(SQLString)
    End Function
    Private _userno As String
    Private _username As String
    Private _userpassword As String
    Private _xitongright As String
    Private _xiaoshouright As String
    Private _kucunright As String
    Private _shangpinright As String
    Sub New(ByVal userno As String, ByVal username As String, ByVal userpassword As String, ByVal xiaoshouright As String, ByVal xitongright As String, ByVal kucunright As String, ByVal shangpinright As String)
        _userno = userno
        _username = username
        _userpassword = userpassword
        _xitongright = xitongright
        _xiaoshouright = xiaoshouright
        _kucunright = kucunright
        _shangpinright = shangpinright
    End Sub
    Shared Sub delmain(ByVal userno As String)
        Dim SQLString As String
        SQLString = "DELETE FROM tbuser where userno='" & userno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
    Function Adduser()
        Dim SQLString As String
        SQLString = "SELECT * FROM tbuser WHERE userno='" & _userno & "'"
        Dim UserTable As DataTable = DBOperation.DBOperate(SQLString)
        If UserTable.Rows.Count >= 1 Then
            MsgBox("该用户编号已存在，请重试", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            SQLString = "INSERT INTO tbuser VALUES('" & _userno & "','"
            SQLString += _username & "','" & _userpassword & "','"
            SQLString += _xiaoshouright & "','" & _xitongright & "','" & _kucunright & "','" & _shangpinright & "')"
            DBOperation.DBOperate(SQLString)
            Return True
        End If
    End Function
    Sub Updatemarket()
        Dim SQLString As String
        SQLString = "UPDATE tbuser SET username='" & _username & "',userno='" & _userno & "',userpassword='" & _userpassword & "',xitongright='" & _xitongright & "',xiaoshouright='" & _xiaoshouright & "',kucunright='" & _kucunright & "',shangpinright='" & _shangpinright & "'Where userno='" & _userno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
End Class