bill.vb

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

Imports System.Data.SqlClient
Public Class Bill

    '收付款
    Public Shared Sub Pay(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("@ReportID", ID)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

    '填充报表
    Public Shared Function FillReport() As DataSet
        Try
            Dim con As New SqlConnection(ConString)
            Dim cmd As New SqlCommand(storename, con)
            cmd.CommandType = CommandType.StoredProcedure
            Dim da As New SqlDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds)
            Return ds
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Function
End Class