fndprd.vb

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

Public Class FndPrd
    Dim dbObj As New SCMDB.SCMDB
    Dim strCmd As String
    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
    Private Function FieldConvert(ByVal Field As String) As String
        '将中文字段名转换为英文字段名
        Dim str As String
        Select Case Field
            Case "商品编号"
                str = "prdid"
            Case "商品名称"
                str = "prdname"
            Case "商品类型"
                str = "prdtype"
            Case "商品大小"
                str = "prdsize"
            Case "商品净重"
                str = "prdwet"
            Case "库存数量"
                str = "prdqua"
            Case "商品说明"
                str = "prdmemo"
        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("prdid as 商品编号,prdname as 商品名称," & _
            "prdtype as 商品类型,prdsize as 商品大小,prdwet as 商品净重,prdqua as " & _
            "库存数量,prdmemo as 商品说明", "productlist", strCmd)
    End Function
    Public Sub Print()
        '生成数据报表
        Dim prtObj As New Print
        prtObj.Print("ProductList", strCmd)
    End Sub

End Class