stapur.vb

超市进销存管理系统的源码。基于.NET平台

Public Class StaPur
    Dim dbObj As New SCMDB.SCMDB
    Dim strCmd As String
    Public Function Refresh() As DataTable
        '刷新数据表
        Return dbObj.CreateDataTableByKey("purlistid as 采购单编号,prdid" & _
        " as 商品编号,supid as 供应商编号,purdat as 采购日期,puremp " & _
        " as 经手人, purqua as 采购数量,purprc as 采购价格,purmemo" & _
        " as 采购说明", "purchaseproduct")
    End Function
    Public Function Fnd(ByVal Dat1 As DateTime, ByVal Dat2 As DateTime, _
            ByVal Nam As String, ByVal SupNam As String) As DataTable
        '依次判断各条件是否生效
        strCmd = " 1 = 1 "
        If Dat1.Ticks < Dat2.Ticks Then
            strCmd &= " and purdat between  '" & Dat1 & "' and   '" & Dat2 & "' "
        End If
        If Nam <> "" Then
            strCmd &= " and prdid=" & Val(PrdNamToPrdId(SCMApp.STrim(Nam)))
        End If
        If SupNam <> "" Then
            strCmd &= " and supid='" & SupNamToId(SCMApp.STrim(SupNam)) & "'"
        End If

        Return dbObj.CreateDataTableByKey("purlistid as 采购单编号,prdid" & _
        " as 商品编号,supid as 供应商编号,purdat as 采购日期,puremp " & _
        " as 经手人, purqua as 采购数量,purprc as 采购价格,purmemo" & _
        " as 采购说明", "purchaseproduct", strCmd)
    End Function
    Public Sub Print()
        Dim prtObj As New Print
        prtObj.Print("PurchaseProduct", strCmd)
    End Sub
    Private Function PrdNamToPrdId(ByVal PrdName As String) As String
        '将商品名称转换为商品编号
        Dim dt As DataTable = New DataTable
        dt = dbObj.CreateDataTableBySQL("select prdid from productlist " & _
            "  where prdname='" & PrdName & "'")
        Return dt.Rows(0).Item(0)
    End Function
    Private Function SupNamToId(ByVal PurName As String) As String
        '将供应商名称转换为供应商编号
        Dim dt As DataTable = New DataTable
        dt = dbObj.CreateDataTableBySQL("select supid from supplierlist " & _
            "  where supname='" & PurName & "'", "ScmSys")
        Return dt.Rows(0).Item(0)
    End Function
End Class