毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

.NET+SQL SERVER 2000图书管理系统流程图+功能图+ER+全套设计论文 第8页

更新时间:2007-9-25:  来源:毕业论文

 myConn.Close()

    End Sub

    Public Sub Fill(ByVal sqlstr As String)

        myAdapter = New SqlDataAdapter(sqlstr, myConn)

        ds = New DataSet

        myAdapter.Fill(ds)

    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '在此处放置初始化页的用户代码

        connectingstring = "data source=(local);Database=library;uid=sa;pwd=123456;"

        myConn = New SqlConnection(connectingstring)

        If Not IsPostBack Then

 

 

            If Not Session("UserID") Is Nothing Then

                If AllowBooking(Session("UserID")) = True Then

 

                End If

            End If

        End If

    End Sub

    'private bind

    Public Function GetRowsNum(ByVal sqlstr As String) As Integer

        If myConn.State = ConnectionState.Closed Then

            myConn.Open()

        End If

 

        Fill(sqlstr)

        Close()

        Return ds.Tables(0).Rows.Count

    End Function

 

 

    Public Function AllowBooking(ByVal UserID As String) As Boolean

        Dim sqlstr As String = "select * from UserInfo,RoleInfo where UserInfo.RoleID=RoleInfo.RoleID and AllowBooking=1  and UserID='" + UserID + "'"

        If GetRowsNum(sqlstr) = 0 Then

            Return False

        Else

            Return True

        End If

    End Function

    Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid)

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

.NET+SQL SERVER 2000图书管理系统流程图+功能图+ER+全套设计论文 第8页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。