dam.vb

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

Imports System.Data.SqlClient
Public Class Dam
    Dim myconstr As String = SCMDB.SCMDB.connStr
    Dim myconn As SqlConnection
    Dim mycmd As SqlCommand
    Dim myread As SqlDataReader
    Dim dbObj As New SCMDB.SCMDB
    Public Function RefreshDam() As DataTable
        Return dbObj.CreateDataTableByKey("Damlistid as 报损单编号,prdid as 商品编号,Damdat as 报损日期,Damemp as 经手人, Damqua as 报损数量,Dammemo as 报损说明", "damlist")
    End Function
    Public Function AddDam(ByVal PrdId As String, ByVal DamDat As DateTime, ByVal DamEmp As String, ByVal PrdQua As String, ByVal DamMemo As String) As Boolean
        Dim mypar(4) As SqlParameter
        If PrdId = "" Then
            MsgBox("商品名称不能为空！", MsgBoxStyle.Exclamation)
            Return False
        Else
            If DamDat > Today Then
                MsgBox("报损日期有误！", MsgBoxStyle.Exclamation)
                Return False
            Else
                If Not (Val(PrdQua)) > 0 And Int(Val(PrdQua)) = Val(PrdQua) Then
                    MsgBox("报损数量必须为自然数！", MsgBoxStyle.Exclamation)
                    Return False
                Else
                    Try
                        myconn = New SqlConnection(myconstr)
                        myconn.Open()
                        mycmd = New SqlCommand("spAddDam", myconn)
                        mycmd.CommandType = CommandType.StoredProcedure
                        mypar(0) = mycmd.Parameters.Add("@prdid", SqlDbType.Int)
                        mypar(0).Value = Val(PrdId)
                        mypar(1) = mycmd.Parameters.Add("@Damdat", SqlDbType.SmallDateTime)
                        mypar(1).Value = DamDat
                        mypar(2) = mycmd.Parameters.Add("@Damemp", SqlDbType.VarChar)
                        mypar(2).Value = DamEmp
                        mypar(3) = mycmd.Parameters.Add("@Damqua", SqlDbType.SmallInt)
                        mypar(3).Value = Val(PrdQua)
                        mypar(4) = mycmd.Parameters.Add("@Dammemo", SqlDbType.VarChar)
                        mypar(4).Value = DamMemo
                        myread = mycmd.ExecuteReader
                        Return True
                    Catch ex As Exception
                        MsgBox(ex.Message, MsgBoxStyle.Exclamation)
                        Return False
                    End Try
                End If
            End If
        End If
    End Function
    Public Function DelDam(ByVal DamListId As String) As Boolean
        Try
            Dim mypar As SqlParameter
            myconn = New SqlConnection(myconstr)
            myconn.Open()
            mycmd = New SqlCommand("spDelDam", myconn)
            mycmd.CommandType = CommandType.StoredProcedure
            mypar = mycmd.Parameters.Add("@Damlistid", SqlDbType.Int)
            mypar.Value = Val(DamListId)
            myread = mycmd.ExecuteReader
            Return True
        Catch ee As Exception
            MsgBox("数据删除失败！失败原因：" & ee.Message, MsgBoxStyle.Exclamation)
            Return False
        End Try
    End Function
    Public Function EdtDam(ByVal DamListId As String, ByVal PrdId As String, ByVal DamDat As DateTime, ByVal DamEmp As String, ByVal DamQua As String, ByVal DamMemo As String) As Boolean

        If PrdId = "" Then
            MsgBox("商品名称不能为空！", MsgBoxStyle.Exclamation)
            Return False
        Else
            If DamDat > Today Then
                MsgBox("报损日期有误！", MsgBoxStyle.Exclamation)
                Return False
            Else
                If Not (Val(DamQua)) > 0 And Int(Val(DamQua)) = Val(DamQua) Then
                    MsgBox("报损数量不能为空！", MsgBoxStyle.Exclamation)
                    Return False
                Else
                    Try
                        Dim mypar(5) As SqlParameter
                        myconn = New SqlConnection(myconstr)
                        myconn.Open()
                        mycmd = New SqlCommand("spEdtDam", myconn)
                        mycmd.CommandType = CommandType.StoredProcedure
                        mypar(0) = mycmd.Parameters.Add("@Damlistid", SqlDbType.Int)
                        mypar(0).Value = Val(DamListId)
                        mypar(1) = mycmd.Parameters.Add("@prdid", SqlDbType.Int)
                        mypar(1).Value = Val(PrdId)
                        mypar(2) = mycmd.Parameters.Add("@Damdat", SqlDbType.SmallDateTime)
                        mypar(2).Value = DamDat
                        mypar(3) = mycmd.Parameters.Add("@Damemp", SqlDbType.VarChar)
                        mypar(3).Value = DamEmp
                        mypar(4) = mycmd.Parameters.Add("@Damqua", SqlDbType.SmallInt)
                        mypar(4).Value = Val(DamQua)
                        mypar(5) = mycmd.Parameters.Add("@Dammemo", SqlDbType.VarChar)
                        mypar(5).Value = DamMemo
                        myread = mycmd.ExecuteReader
                        Return True
                    Catch ee As Exception
                        MsgBox("数据更新失败！失败原因：" & ee.Message, MsgBoxStyle.Exclamation)
                        Return False
                    End Try
                End If
            End If
        End If

    End Function

    Public Function IdToNam(ByVal ID As String) As String
        Dim dt As DataTable = New DataTable
        dt = dbObj.CreateDataTableByKey("prdname", "productlist", "prdid=" & ID)
        Return dt.Rows(0).Item(0)
    End Function

    'Public Function GetPrdQua(ByVal Prdid As String) As Integer
    '    Dim dt As DataTable = New DataTable
    '    dt = dbObj.CreateDataTableByKey("prdqua", "productlist", "prdid=" & Prdid)
    '    Return dt.Rows(0).Item(0)
    'End Function
End Class