fndsup.vb

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

Public Class FndSup
    Dim dbObj As New SCMDB.SCMDB
    Dim strCmd As String
    Public Function Refresh() As DataTable
        Return dbObj.CreateDataTableByKey("supid as 供应商编号,supname as 供应商名称,supadr as 供应商地址,supfax as 供应商传真,suptel as 供应商电话", "supplierlist")
    End Function
    Private Function FieldConvert(ByVal Field As String) As String
        Dim str As String
        Select Case Field
            Case "供应商编号"
                str = "supid"
            Case "供应商名称"
                str = "supname"
            Case "供应商地址"
                str = "supadr"
            Case "供应商传真"
                str = "supfax"
            Case "供应商电话"
                str = "suptel"
        End Select
        Return str
    End Function

    Public Function Fnd(ByVal Fld1 As String, ByVal Rel1 As String, ByVal Val1 As String, ByVal Rel3 As String, ByVal Fld2 As String, ByVal Rel2 As String, ByVal Val2 As String) As DataTable
        If Fld1 = "供应商编号" Then Val1 = Val(Val1)
        If Fld2 = "供应商编号" Then Val2 = Val(Val2)
        strCmd = FieldConvert(Fld1) & Rel1 & "'" & _
        SCMApp.STrim(Val1) & "'  " & Rel3 & "   " & _
        FieldConvert(Fld2) & _
        Rel2 & "'" & SCMApp.STrim(Val2) & "'"
        Return dbObj.CreateDataTableByKey("supid as 供应商编号,supname as 供应商名称,supadr as 供应商地址,supfax as 供应商传真,suptel as 供应商电话", "supplierlist", strCmd)
    End Function
    Public Sub Print()
        Dim prtObj As New Print
        prtObj.Print("SupplierList", strCmd)
    End Sub

End Class