sal.vb

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

Imports System.Data.SqlClient
Public Class Sal
    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 Refresh() As DataTable
        Return dbObj.CreateDataTableByKey("Sallistid as 销售单编号,prdid as 商品编号,Saldat as 销售日期,Salemp as 经手人, Salqua as 销售数量,Salprc as 销售价格,Salmemo as 销售说明", "Saleproduct")
    End Function
    Public Function AddSal(ByVal PrdId As String, ByVal SalDat As DateTime, ByVal SalEmp As String, ByVal SalQua As String, ByVal SalPrc As String, ByVal SalMemo As String) As Boolean
        If SalQua = "" Then
            MsgBox("商品数量不能为空！", MsgBoxStyle.Exclamation)
            Exit Function
        Else
            If SalDat > Today Then
                MsgBox("销售日期有误！", MsgBoxStyle.Exclamation)
                Exit Function
            Else
                If SalPrc = "" Then
                    MsgBox("商品价格不能为空！", MsgBoxStyle.Exclamation)
                    Exit Function
                Else
                    Try
                        Dim mypar(5) As SqlParameter
                        myconn = New SqlConnection(myconstr)
                        myconn.Open()
                        mycmd = New SqlCommand("spAddSal", myconn)
                        mycmd.CommandType = CommandType.StoredProcedure
                        mypar(0) = mycmd.Parameters.Add("@prdid", SqlDbType.Int)
                        mypar(0).Value = Val(PrdId)
                        mypar(1) = mycmd.Parameters.Add("@Saldat", SqlDbType.SmallDateTime)
                        mypar(1).Value = SalDat
                        mypar(2) = mycmd.Parameters.Add("@Salemp", SqlDbType.VarChar)
                        mypar(2).Value = SalEmp
                        mypar(3) = mycmd.Parameters.Add("@Salqua", SqlDbType.SmallInt)
                        mypar(3).Value = Val(SalQua)
                        mypar(4) = mycmd.Parameters.Add("@Salprc", SqlDbType.SmallMoney)
                        mypar(4).Value = Val(SalPrc)
                        mypar(5) = mycmd.Parameters.Add("@Salmemo", SqlDbType.VarChar)
                        mypar(5).Value = SalMemo
                        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 DelSal(ByVal ListId As String) As Boolean
        Try
            Dim mypar As SqlParameter
            myconn = New SqlConnection(myconstr)
            myconn.Open()
            mycmd = New SqlCommand("spDelSal", myconn)
            mycmd.CommandType = CommandType.StoredProcedure
            mypar = mycmd.Parameters.Add("@sallistid", SqlDbType.Int)
            mypar.Value = Val(ListId)
            myread = mycmd.ExecuteReader
            Return True
        Catch ee As Exception
            MsgBox("数据删除失败！失败原因：" & ee.Message, MsgBoxStyle.Exclamation)
            Return False
        End Try
    End Function
    Public Function EdtSal(ByVal ListId As String, ByVal PrdId As String, ByVal SalDat As DateTime, ByVal SalEmp As String, ByVal SalQua As String, ByVal SalPrc As String, ByVal SalMemo As String) As Boolean
        If SalQua = "" Then
            MsgBox("商品数量不能为空！", MsgBoxStyle.Exclamation)
            Exit Function
        Else
            If SalDat > Today Then
                MsgBox("销售日期有误！", MsgBoxStyle.Exclamation)
                Exit Function
            Else
                If SalPrc = "" Then
                    MsgBox("商品价格不能为空！", MsgBoxStyle.Exclamation)
                    Exit Function
                Else
                    Try
                        Dim mypar(6) As SqlParameter
                        myconn = New SqlConnection(myconstr)
                        myconn.Open()
                        mycmd = New SqlCommand("spEdtSal", myconn)
                        mycmd.CommandType = CommandType.StoredProcedure
                        mypar(0) = mycmd.Parameters.Add("@Sallistid", SqlDbType.Int)
                        mypar(0).Value = Val(ListId)
                        mypar(1) = mycmd.Parameters.Add("@prdid", SqlDbType.Int)
                        mypar(1).Value = Val(PrdId)
                        mypar(2) = mycmd.Parameters.Add("@Saldat", SqlDbType.SmallDateTime)
                        mypar(2).Value = SalDat
                        mypar(3) = mycmd.Parameters.Add("@Salemp", SqlDbType.VarChar)
                        mypar(3).Value = SalEmp
                        mypar(4) = mycmd.Parameters.Add("@Salqua", SqlDbType.SmallInt)
                        mypar(4).Value = Val(SalQua)
                        mypar(5) = mycmd.Parameters.Add("@Salprc", SqlDbType.SmallMoney)
                        mypar(5).Value = Val(SalPrc)
                        mypar(6) = mycmd.Parameters.Add("@Salmemo", SqlDbType.VarChar)
                        mypar(6).Value = SalMemo
                        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 PrdIdToNam(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
    Private 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