dbtuohuo.vb

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

Public Class DBtuihuo

    Private _chukuno As String
    Private _tuihuono As String
    Private _shangpinno As String
    Private _reason As String
    Private _gongyingno As String
    Private _count As Double
    Private _jinhuoprice As Double
    Private _tuihuodate As Date
    Private _userno As String



    Public Sub New(ByVal chukuno As String, ByVal tuihuono As String, ByVal shangpinno As String, ByVal reason As String, ByVal gongyingno As String, ByVal count As Double, ByVal jinhuoprice As Double, ByVal tuihuodate As Date, ByVal userno As String)
        _chukuno = chukuno
        _tuihuono = tuihuono
        _shangpinno = shangpinno
        _reason = reason
        _gongyingno = gongyingno
        _count = count
        _jinhuoprice = jinhuoprice
        _tuihuodate = tuihuodate
        _userno = userno


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

    End Function
    Sub Updatetuihuo()
        Dim SQLString As String
        SQLString = "UPDATE tuihuo set chukuno='" & _chukuno & "',tuihuono='" & _tuihuono & "',reason='" & _reason & "',gongyingno='" & _gongyingno & "',[count]=" & _count & ",jinhuoprice=" & _jinhuoprice & ",tuihuodate='" & _tuihuodate & "',userno='" & _userno & "' where shangpinno='" & _shangpinno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub

    Shared Function Loadtuihuo(ByVal Field As String, ByVal Value As String, ByVal DBOperator As String) As DataTable
        Dim SQLString As String
        Dim Column As String = ""
        Column += "chukuno,tuihuono,shangpinno,reason,gongyingno,[count],jinhuoprice,tuihuodate,userno"
        If Field = "" Then
            SQLString = "SELECT " & Column & " FROM tuihuo order by shangpinno"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM tuihuo WHERE " & Field & "= '" & Value & "' order by shangpinno"
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM tuihuo WHERE " & Field & " " & DBOperator & "'" & "%" & Value & "%" & "' order by shangpinno"
        Else
            SQLString = "SELECT " & Column & " FROM tuihuo WHERE " & Field & " " & DBOperator & Val(Value) & " order by shangpinno"
        End If
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Function loadtuihuo() As DataTable
        Dim SQLString As String
        SQLString = "SELECT * FROM DBtuihuo order by shangpinno"
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Sub Deltuihuo(ByVal shangpinno As String)
        Dim SQLString As String
        SQLString = "DELETE FROM tuihuo WHERE shangpinno='" & shangpinno & "'"
        DBOperation.DBOperate(SQLString)

    End Sub

End Class