dbwxs.vb

来自「用VB开发了一个超市管理系统」· VB 代码 · 共 40 行

Public Class DBwxs
    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
    Shared Function Loadwxs(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
End Class