stapur.vb

进销荐系统,用ASP做的,适合初学者拿来理解.

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