pulic.vb

一个报税管理系统AJAX第二版B-S.rar

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports system.configuration
Imports System.Web.Configuration
Imports System.Data
Imports System.Drawing
Public Class pulic1
    Public Function connection() As SqlConnection
        Dim conn As New SqlConnection()
        conn.ConnectionString = WebConfigurationManager.ConnectionStrings("aaConnectionString").ConnectionString
        conn.Open()
        Return conn
    End Function

    Public Function execute(ByVal str) As SqlDataReader
        Dim Sql As New SqlCommand(str, connection)
        Sql.CommandTimeout = 30
        Return Sql.ExecuteReader()
        connection.Close()

    End Function
    Public Function selectcommand(ByVal gridview As GridView, ByVal sqlds As SqlDataSource, ByVal str As String)
        sqlds.ConnectionString = WebConfigurationManager.ConnectionStrings("aaConnectionString").ConnectionString
        sqlds.SelectCommand = str
        gridview.DataSourceID = sqlds.ID
    End Function
    Public Function Scalar(ByVal str) As String
        Dim Sql As New SqlCommand(str, connection)
        Sql.CommandTimeout = 30
        Return Convert.ToString(Sql.ExecuteScalar())
        connection.Close()
    End Function

    Public Function yesquery(ByVal str)
        Dim conn = connection()
        Dim tran1 As SqlTransaction = conn.BeginTransaction()
        Dim sql As New SqlCommand(str, conn, tran1)
        Dim reply
        sql.ExecuteNonQuery()
        Try
            tran1.Commit()   '确认事务
            reply = MsgBox("操作成功!", 0, "提示：")
        Catch ex As Exception
            tran1.Rollback() '事务回复
            reply = MsgBox("操作失败!", 0, "提示：")
        Finally
            tran1.Dispose()
        End Try
        Return reply
        conn.close()
    End Function

    Public Function noquery(ByVal str)
        Dim conn = connection()
        Dim tran1 As SqlTransaction = conn.BeginTransaction()
        Dim sql As New SqlCommand(str, conn, tran1)
        sql.ExecuteNonQuery()
        Try
            tran1.Commit()   '确认事务
        Catch ex As Exception
            tran1.Rollback() '事务回复
        Finally
            tran1.Dispose()
        End Try
        conn.close()

    End Function
    Public Function xianshi(ByVal GridView)
        GridView.datasourceid = ""
        Dim dt As New DataTable
        dt.Columns.Add("选择")
        dt.Columns.Add("纳税人名称")
        GridView.DataSource = dt
        GridView.DataBind()
    End Function
End Class