dbcontroller.vb

电子合同管理系统C#

Imports System.Data.SqlClient
Imports System.IO
Public Class DBController
    Private connectingstring As String
    Private myConn As SqlConnection
    Private ds As DataSet
    Private myAdapter As SqlDataAdapter
    Private myCmd As SqlCommand
    Public Sub New()
        connectingstring = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trim
        myConn = New SqlConnection(connectingstring)
        'Close()
    End Sub
    '打开关闭连接
    Public Sub Open()
        myConn.Open()
    End Sub
    Public Sub Close()
        myConn.Close()
    End Sub
    Public Function GetDS() As DataSet
        Return ds
    End Function
    '=============================================================
    ' 函 数 名：Fill
    ' 功能描述：填充ds
    ' 输入参数：sqlstr，SQL字符串
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub Fill(ByVal sqlstr As String)
        myAdapter = New SqlDataAdapter(sqlstr, myConn)
        ds = New DataSet()
        myAdapter.Fill(ds)
    End Sub
    '=============================================================
    ' 函 数 名：ExecNonSql
    ' 功能描述：执行无返回值的数据库操作
    ' 输入参数：sqlstr，查询的SQL字符串
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub ExecNonSql(ByVal sqlstr As String)
        If myConn.State = ConnectionState.Closed Then
            myConn.Open()
        End If
        myCmd = New SqlCommand(sqlstr, myConn)
        myCmd.ExecuteNonQuery()
        myCmd.Dispose()
        Close()
    End Sub
    '=============================================================
    ' 函 数 名：ExecReaderSql
    ' 功能描述：执行查询操作
    ' 输入参数：sqlstr，查询的SQL字符串
    ' 返 回 值：查询结果，返回SqlDataReader对象
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Function ExecReaderSql(ByVal sqlstr As String) As SqlDataReader
        If myConn.State = ConnectionState.Closed Then
            myConn.Open()
        End If
        myCmd = New SqlCommand(sqlstr, myConn)
        Dim reader As SqlDataReader
        reader = myCmd.ExecuteReader
        myCmd.Dispose()
        Return reader
    End Function
    '=============================================================
    ' 函 数 名：BindDBGrd
    ' 功能描述：对DataGrid进行数据绑定，无排序
    ' 输入参数：sqlstr，查询的SQL字符串；myDBGrd，需数据绑定的DataGrid控件
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid)
        If myConn.State = ConnectionState.Closed Then
            myConn.Open()
        End If
        Fill(sqlstr)
        myDBGrd.DataSource = ds.Tables(0).DefaultView
        myDBGrd.DataBind()
    End Sub
    '=============================================================
    ' 函 数 名：BindDBGrd
    ' 功能描述：对DataGrid进行数据绑定，排序
    ' 输入参数：sqlstr，查询的SQL字符串；myDBGrd，需数据绑定的DataGrid控件
    '           SortExp：排序方式
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid, ByVal SortExp As Object)
        If myConn.State = ConnectionState.Closed Then
            myConn.Open()
        End If
        Fill(sqlstr)
        Dim dv As DataView = ds.Tables(0).DefaultView
        dv.Sort = SortExp
        myDBGrd.DataSource = dv
        myDBGrd.DataBind()
    End Sub
    '=============================================================
    ' 函 数 名：CheckAllGrd
    ' 功能描述：对DataGrid中的CheckBox进行全选或全不选操作
    ' 输入参数：ChboxId，CheckBox的ID；SelectAll，全选还是全不选，True为全选，False为全不选
    '          myDBGrd，需操作的DataGrid控件
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub CheckAllGrd(ByVal ChboxId As String, ByVal SelectAll As Boolean, ByVal myDBGrd As DataGrid)
        Dim myCheckBox As CheckBox
        Dim i As Integer = 0
        For i = 0 To myDBGrd.Items.Count - 1
            myCheckBox = CType(myDBGrd.Items(i).FindControl(ChboxId), CheckBox)
            myCheckBox.Checked = SelectAll
        Next
    End Sub
    '=============================================================
    ' 函 数 名：CheckOpperGrd
    ' 功能描述：对DataGrid中的CheckBox进行反向选择
    ' 输入参数：ChboxId，CheckBox的ID；myDBGrd，需操作的DataGrid控件
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub CheckOpperGrd(ByVal ChboxId As String, ByVal myDBGrd As DataGrid)
        Dim myCheckBox As CheckBox
        Dim i As Integer = 0
        For i = 0 To myDBGrd.Items.Count - 1
            myCheckBox = CType(myDBGrd.Items(i).FindControl(ChboxId), CheckBox)
            If myCheckBox.Checked = True Then
                myCheckBox.Checked = False
            Else
                myCheckBox.Checked = True
            End If
        Next
    End Sub
    '=============================================================
    ' 函 数 名：BindDBList
    ' 功能描述：对DataList进行数据绑定
    ' 输入参数：sqlstr，查询的SQL字符串；myDBList，需数据绑定的DataList控件
    '           SortExp：排序方式
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub BindDBList(ByVal sqlstr As String, ByVal myDBList As DataList)
        If myConn.State = ConnectionState.Closed Then
            myConn.Open()
        End If
        Fill(sqlstr)
        myDBList.DataSource = ds.Tables(0).DefaultView
        myDBList.DataBind()
    End Sub
    '=============================================================
    ' 函 数 名：BindDrpDownList
    ' 功能描述：对DropDownList进行数据绑定
    ' 输入参数：Text_str：需要与DropDownList的Text属性进行绑定的字段
    '           Value_str：需要与DropDownList的Value属性进行绑定的字段
    '           sqlstr，查询的SQL字符串；DrpDownList：需数据绑定的DropDownList控件
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================

    Public Sub BindDrpDownList(ByVal Text_str As String, ByVal Value_str As String, ByVal sqlstr As String, ByVal DrpDownList As DropDownList)
        If myConn.State = ConnectionState.Closed Then
            myConn.Open()
        End If
        Fill(sqlstr)
        DrpDownList.DataSource = ds.Tables(0).DefaultView
        DrpDownList.DataTextField = Text_str
        DrpDownList.DataValueField = Value_str
        DrpDownList.DataBind()
        Close()
    End Sub
    '=============================================================
    ' 函 数 名：GetMemberInfo
    ' 功能描述：获取用户信息
    ' 输入参数：Userstr：用户ID
    '           Pwdstr：用户密码
    ' 返 回 值：用户信息 MemberInfo对象
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Function GetMemberInfo(ByVal Userstr As String, ByVal Pwdstr As String) As MemberInfo
        If myConn.State = ConnectionState.Closed Then
            myConn.Open()
        End If
        Dim sqlstr As String
        If Pwdstr.Trim = "" Then
            sqlstr = "select * from MemberInfo where MemberId='" + Userstr.Trim + "' and Pwd is null"
        Else
            sqlstr = "select * from MemberInfo where MemberId='" + Userstr.Trim + "' and Pwd='" + Pwdstr.Trim + "'"
        End If

        Fill(sqlstr)
        If ds.Tables(0).Rows.Count = 0 Then
            Close()
            Return Nothing
        End If
        ds.Clear()
        '读取用户信息
        sqlstr = "select MemberId,MemberName,MemberInfo.DepartmentId as DepartmentId,DepartmentName,Role from MemberInfo,DepartmentInfo where MemberInfo.DepartmentId=DepartmentInfo.DepartmentId and MemberId='" + Userstr.Trim + "'"
        Dim reader As SqlDataReader

        reader = ExecReaderSql(sqlstr)
        Dim obj As MemberInfo = New MemberInfo()
        If reader.Read Then
            obj.MemberId = reader(0)
            obj.MemberName = reader(1)
            obj.DepartmentId = reader(2)
            obj.DepartmentName = reader(3)
            obj.Role = reader(4)
        End If
        Close()
        Return obj
    End Function

End Class