stadam.vb

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

'Imports System.Data.SqlClient
Public Class StaDam
    Dim dbObj As New SCMDB.SCMDB
    Dim strCmd As String
    Public Function Refresh() As DataTable
        Return dbObj.CreateDataTableByKey("Damlistid as 报损单编号,prdid as 商品编号,Damdat as 报损日期,Damemp as 经手人, Damqua as 报损数量,Dammemo as 报损说明", "DamList")
    End Function
    Public Function Fnd(ByVal Dat1 As DateTime, ByVal Dat2 As DateTime, ByVal Nam As String, ByVal DamEmp As String) As DataTable
        '依次判断各条件是否生效
        strCmd = " 1 = 1 "
        If Dat1.Ticks < Dat2.Ticks Then
            strCmd &= " and Damdat between  '" & Dat1 & "' and   '" & Dat2 & "' "
        End If
        If Nam <> "" Then
            strCmd &= " and prdid=" & Val(PrdNamToPrdId(Nam))
        End If
        If DamEmp <> "" Then
            strCmd &= " and Damemp='" & SCMApp.STrim(DamEmp) & "'"
        End If
        Return dbObj.CreateDataTableByKey("Damlistid as 报损单编号,prdid as 商品编号,Damdat as 报损日期,Damemp as 经手人, Damqua as 报损数量,Dammemo as 报损说明", "DamList", strCmd)
    End Function
    Public Sub Print()
        Dim prtObj As New Print
        prtObj.Print("DamList", 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
End Class