edtprd.vb

本系统利用vb.net前台开发工具sql.server做为后台数据库进行开超市进销存管理系统系统

Public Class EdtPrd
    Dim dbObj As New SCMDB.SCMDB
    Dim appObj As New SCMApp
    Public Function Refresh() As DataTable
        '刷新数据表
        Return dbObj.CreateDataTableByKey("prdid as 商品编号,prdname as 商品名称," & _
            "prdtype as 商品类型,prdsize as 商品大小,prdwet as 商品净量,prdqua" & _
            " as 库存数量,prdmemo as 商品说明", "productlist")
    End Function
    Public Function AddPrd(ByVal Nam As String, ByVal Typ As String, ByVal Siz _
        As String, ByVal Net As Integer, ByVal Mem As String) As Boolean
        '增加商品记录
        Dim InsertCmd As String
        InsertCmd = "Insert Into productlist(prdname,prdtype,prdsize," & _
             "prdwet,prdmemo,prdqua) Values('" & appObj.STrim(Nam) & _
              "','" & Typ & "','" & appObj.STrim(Siz) & _
              "','" & appObj.STrim(Net) & "','" & appObj.STrim(Mem) & "',0)"
        Return appObj.InsertBySQL(InsertCmd)
    End Function
    Public Function EdtPrd(ByVal Nam As String, ByVal Typ As String, ByVal Siz As _
        String, ByVal Net As Integer, ByVal Mem As String, ByVal ID As String) As Boolean
        '编辑商品记录
        Dim EdtCmd As String
        EdtCmd = "Update productlist  Set prdname = '" & appObj.STrim(Nam) & _
                  "',prdtype = '" & Typ & "',prdsize = '" & appObj.STrim(Siz) & _
                  "',prdwet=" & appObj.STrim(Net) & ",prdmemo='" & _
                  appObj.STrim(Mem) & "'  Where prdid = '" & ID & "'"
        Return appObj.InsertBySQL(EdtCmd)
    End Function
    Public Function DelPrd(ByVal ID As String) As Boolean
        '删除商品记录
        If appObj.DeleByKey("ProductList", "Prdid", ID) = True Then
            Return True
        Else
            Return False
        End If
    End Function
End Class