stock.vb

本文件为进销存管理系统的代码 在VB的环境下运行 用比较简单的结构完成的

Imports System.Data.SqlClient
Public Class Stock
    '检查仓库号(同样用来检查货品，报单号)
    Public Shared Sub CheckID(ByVal id As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@ID", id)
            con.Open()
            Dim reader As SqlDataReader = cmd.ExecuteReader
            If reader.HasRows Then
                hasID = True
            Else
                hasID = False
            End If
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '显示仓库信息
    '根据存储过程，利用users.showInfo实现

    '添加仓库信息
    Public Shared Sub AddStockRoom(ByVal a() As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("insert_bssTable_StockRoom_1", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@RoomID", a(0).Trim)
            cmd.Parameters.Add("@RoomName", a(1).Trim)
            cmd.Parameters.Add("@RoomRemark", a(2).Trim)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '修改仓库信息
    Public Shared Sub ModStockRoom(ByVal a() As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("update_bssTable_StockRoom_1", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@RoomID", a(0).Trim)
            cmd.Parameters.Add("@RoomName", a(1).Trim)
            cmd.Parameters.Add("@RoomRemark", a(2).Trim)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '删除仓库信息
    Public Shared Sub DelStockRoom(ByVal ID As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("delete_bssTable_StockRoom_1", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@RoomID", ID)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub


    '添加新的入库信息
    Public Shared Sub AddStock(ByVal a() As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("insert_bssTable_StockInfo_1", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@GoodsID", a(1).Trim)
            cmd.Parameters.Add("@Counts", a(2).Trim)
            cmd.Parameters.Add("@UpdateDate", Convert.ToDateTime(a(9).Trim))
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '修改货品数量（进，销，直接修改）
    Public Shared Sub ModCount(ByVal a() As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@GoodsID", a(1).Trim)
            cmd.Parameters.Add("@Counts", a(2).Trim)
            cmd.Parameters.Add("@UpdateDate", Convert.ToDateTime(a(9).Trim))
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '删除货品库存信息
    Public Shared Sub DelStockInfo(ByVal ID As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand("delete_bssTable_StockInfo_1", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@GoodsID", ID)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '采购提醒
    Public Shared Sub ShowBuyAwoke(ByVal dg As DataGrid)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            con.Open()
            Dim da As New SqlDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds)
            dtTemp = ds.Tables(0)
            Dim dv As New DataView(ds.Tables(0), " 现存数量 IS Null or 现存数量<存储下限  ", "货品ID", DataViewRowState.CurrentRows)
            'Dim null As DBNull
            'For Each dr As DataRow In dtTemp.Rows
            '    If Convert.IsDBNull(dr.Item(3)) Then

            '    ElseIf  dr.Item(3) > dr.Item(2) Then
            '        dr.Delete()
            '    End If
            'Next
            'dg.DataSource = dtTemp
            dg.DataSource = dv
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '促销提醒
    Public Shared Sub ShowSellAwoke(ByVal dg As DataGrid)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            con.Open()
            Dim da As New SqlDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds)
            dtTemp = ds.Tables(0)
            Dim dv As New DataView(ds.Tables(0), " 现存数量 IS NOT Null and 现存数量>存储上限", "货品ID", DataViewRowState.CurrentRows)
            'Dim null As DBNull
            'For Each dr As DataRow In dtTemp.Rows
            '    '删除存货为空的行
            '    If Convert.IsDBNull(dr.Item(3)) Then
            '        dr.Delete()
            '        '删除存货量小于上限的行
            '    ElseIf dr.Item(3) < dr.Item(2) Then
            '        dr.Delete()
            '    End If
            'Next
            'dg.DataSource = dtTemp
            dg.DataSource = dv
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub


End Class