dbshujuku.vb

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

Public Class DBshujuku
    Private _rukuno As String
    Private _shangpinno As String
    Private _jinhuoprice As Double
    Private _xiaoshouprice As Double
    Private _count As Double
    Private _rukudate As Date
    Private _userno As String
    Public Sub New(ByVal rukuno As String, ByVal shangpinno As String, ByVal jinhuoprice As Double, ByVal xiaoshouprice As Double, ByVal count As Double, ByVal rukudate As Date, ByVal userno As String)
        _rukuno = rukuno
        _shangpinno = shangpinno
        _jinhuoprice = jinhuoprice
        _xiaoshouprice = xiaoshouprice
        _count = count
        _rukudate = rukudate
        _userno = userno

    End Sub
    Function Addshujuku()  '由于担心增加不成功，需要返回值，故用function
        Dim SQLString As String
        SQLString = "SELECT * FROM ruku 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 ruku VALUES('" & _rukuno & "','"
            SQLString += _shangpinno & "'," & _jinhuoprice & ","
            SQLString += _xiaoshouprice & "," & _count & ",'" & _rukudate & "','" & _userno & "')"
            DBOperation.DBOperate(SQLString)
            Return True
        End If

    End Function
    Sub Updateshujuku()
        Dim SQLString As String
        SQLString = "UPDATE ruku set rukuno='" & _rukuno & "',jinhuoprice=" & _jinhuoprice & ",xiaoshouprice=" & _xiaoshouprice & ",[count]=" & _count & ",rukudate='" & _rukudate & "',userno='" & _userno & "' where shangpinno='" & _shangpinno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub

    Shared Function Loadshujuku(ByVal Field As String, ByVal Value As String, ByVal DBOperator As String) As DataTable
        Dim SQLString As String
        Dim Column As String = ""
        Column += "rukuno,shangpinno,jinhuoprice,xiaoshouprice,"
        Column += "[count],rukudate,userno"
        If Field = "" Then
            SQLString = "SELECT " & Column & " FROM ruku order by shangpinno"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM ruku WHERE " & Field & "= '" & Value & "' order by shangpinno"
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM ruku WHERE " & Field & " " & DBOperator & "'" & "%" & Value & "%" & "' order by shangpinno"
        Else
            SQLString = "SELECT " & Column & " FROM ruku WHERE " & Field & " " & DBOperator & Val(Value) & " order by shangpinno"
        End If
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Function loadshujuku() As DataTable
        Dim SQLString As String
        SQLString = "SELECT * FROM DBshujuku order by shangpinno"
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Sub Delshujuku(ByVal shangpinno As String)
        Dim SQLString As String
        SQLString = "DELETE FROM ruku WHERE shangpinno='" & shangpinno & "'"
        DBOperation.DBOperate(SQLString)

    End Sub
End Class