reports.vb

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

Imports System.Data.SqlClient
Public Class Reports
    '显示报单
    '显示被退货的报单
    '利用users.ShowInfo实现

    '添加,修改报单
    Public Shared Sub AddModReport(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("@ReportID", a(0).Trim)
            cmd.Parameters.Add("@GoodsID", a(1).Trim)
            cmd.Parameters.Add("@Client", a(2).Trim)
            cmd.Parameters.Add("@Users", a(3).Trim)
            cmd.Parameters.Add("@Price", Convert.ToDecimal(a(4).Trim))
            cmd.Parameters.Add("@Counts", a(5).Trim)
            cmd.Parameters.Add("@SumPrice", Convert.ToDecimal(a(6).Trim))
            cmd.Parameters.Add("@RoomID", a(7).Trim)
            cmd.Parameters.Add("@ReportData", Convert.ToDateTime((a(8).Trim)))
            cmd.Parameters.Add("@Remark", a(9).Trim)
            cmd.Parameters.Add("@IsReturned", False)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '删除报单
    '删除退货报单
    '出入库单
    Public Shared Sub DelReport(ByVal i As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@ReportID", i.Trim)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '退货报单
    Public Shared Sub BackReport(ByVal i As String)
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@ReportID", i.Trim)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '添加,入，出库单
    Public Shared Sub AddModIOReport(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("@ReportID", a(0).Trim)
            cmd.Parameters.Add("@GoodsID", a(1).Trim)
            cmd.Parameters.Add("@GoodsCount", a(2).Trim)
            cmd.Parameters.Add("@GoodsPrice", Convert.ToDecimal(a(3).Trim))
            cmd.Parameters.Add("@SumPrice", Convert.ToDecimal(a(4).Trim))
            cmd.Parameters.Add("@ClientID", a(5).Trim)
            cmd.Parameters.Add("@Users", (a(6).Trim))
            cmd.Parameters.Add("@StockMan", a(7).Trim)
            cmd.Parameters.Add("@StockRoomID", (a(8).Trim))
            cmd.Parameters.Add("@ReportData", Convert.ToDateTime(a(9).Trim))
            cmd.Parameters.Add("@IsPay", pay)
            cmd.Parameters.Add("@Remark", a(10).Trim)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try

    End Sub


End Class