stadam.vb

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

'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