edtsup.vb

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

Public Class EdtSup

    Dim dbObj As New SCMDB.SCMDB
    Dim appObj As New SCMApp
    Public Function Refresh() As DataTable
        Return dbObj.CreateDataTableByKey("supid as 供应商编号,supname as 供应商名称,supfax as 供应商传真,suptel as 供应商电话,supadr as 供应商地址", "supplierlist")
    End Function
    Public Function AddSup(ByVal Nam As String, ByVal Fax As String, ByVal Tel As String, ByVal Adr As String) As Boolean
        Dim InsertCmd As String
        InsertCmd = "Insert Into supplierlist(supname,supfax,suptel,supadr) Values('" & _
                        appObj.STrim(Nam) & "','" & appObj.STrim(Fax) & "','" & appObj.STrim(Tel) & "','" & appObj.STrim(Adr) & "')"
        Return appObj.InsertBySQL(InsertCmd)
    End Function
    Public Function EdtSup(ByVal Nam As String, ByVal Fax As String, ByVal Tel As String, ByVal Adr As String, ByVal ID As String) As Boolean
        Dim EdtCmd As String
        EdtCmd = "Update supplierlist  Set supname = '" & appObj.STrim(Nam) & _
                  "',supfax = '" & appObj.STrim(Fax) & "',suptel = '" & appObj.STrim(Tel) & _
                  "',supadr='" & appObj.STrim(Adr) & _
                  "'  Where supid = '" & ID & "'"
        Return appObj.InsertBySQL(EdtCmd)
    End Function
    Public Function DelSup(ByVal ID As String) As Boolean
        If appObj.DeleByKey("supplierlist", "supid", ID) = True Then
            Return True
        Else
            Return False
        End If
    End Function

End Class