dbxs.vb

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

Public Class DBxs
    Inherits DBOperation
    Private _shangpinno As String
    Private _shangpinname As String
    Private _sl As Single
    Private _xiaoshouprice As Single
    Private _xiaoshouriqi As String
    Private _yonghubianhao As String
    Private _xiaoji As Single
    Sub New(ByVal shangpinno As String, ByVal shangpinname As String, ByVal sl As Single, ByVal xiaoshouprice As Single, ByVal xiaoshouriqi As String, ByVal yonghubianhao As String, ByVal xiaoji As Single)
        _shangpinno = shangpinno
        _shangpinname = shangpinname
        _sl = sl
        _xiaoshouprice = xiaoshouprice
        _xiaoshouriqi = xiaoshouriqi
        _yonghubianhao = yonghubianhao
        _xiaoji = xiaoji
    End Sub
    Shared Function Loadxs(ByVal Field As String, ByVal Value As String, ByVal DBOperator As String) As DataTable
        Dim SQLString As String
        Dim Column As String = ""
        Column += "shangpinno AS 商品编号, shangpinname AS 商品名称,sl as 数量,xiaoshouprice as 销售单价,"
        Column += "xiaoshouriqi as 销售日期,yonghubianhao as 用户编号,xiaoji as 小计"
        If Field = "" Then
            SQLString = "SELECT " & Column & " FROM xiaoshou"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM xiaoshou WHERE " & Field & _
            "= '" & Value & "'  "
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM xiaoshou WHERE " & Field & _
            " " & DBOperator & "'" & "%" & Value & "%" & "'  "
        Else
            SQLString = "SELECT " & Column & " FROM xiaoshou WHERE " & Field & _
            " " & DBOperator & Val(Value) & "  "
        End If
        Return DBOperate(SQLString)
    End Function
End Class