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

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

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

  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 Session("UserID") = "" Then

            Response.Redirect("Login.aspx")

        Else

            LoadUserInfo(Session("UserID"))

        End If

    End Sub

    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

    Public Sub LoadUserInfo(ByVal UserID As String)

        Dim sqlstr As String = "select * from Users where UserID='" + UserID + "'"

 

        Dim myreader As SqlDataReader = ExecReaderSql(sqlstr)

        If myreader.Read Then

            txtUserID.Text = myreader("UserID")

            txtName.Text = myreader("username")

            txtphone.Text = myreader("Phone")

            txtaddress.Text = myreader("address")

            txtEMail.Text = myreader("EMail")

 

        End If

        myConn.Close()

 

 

    End Sub

End Class

 

点击查阅信息:

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >> 

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

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