userinfor.aspx.vb

来自「基于.net科研管理信息系统 毕业设计参考代码」· VB 代码 · 共 67 行

Imports System.Data
Imports System.Data.SqlClient

Partial Class userinfor2
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Dim conn As SqlConnection
    Dim connectionstring As String
    Dim sql, uid, sqlstr As String
    Dim mycmd As SqlCommand
    Dim getdata As SqlDataReader
    Dim da As SqlDataAdapter



    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New SqlConnection(connectionstring)
        conn.ConnectionString = "server=HP-PC;Database=SRM;uid=sa;pwd=sa;"

        If Session("user_id") = "" Then
            Response.Redirect("login.aspx")
        Else
            uid = Session("user_id")
        End If
        sqlstr = "select sci_group.dep_id from sci_user,sci_group where (sci_user.group_id=sci_group.group_id and sci_user.user_id='" + Session("user_id") + "')"
        da = New SqlDataAdapter(sqlstr, conn)
        Dim ds As DataSet = New DataSet
        conn.Open()
        da.Fill(ds)
        If Not IsPostBack Then
            BindGrid()
        End If
    End Sub

    Sub BindGrid()
        Dim ds As DataSet = New DataSet
        sql = "select * from sci_user where user_id='" + uid.Trim + "'"
        Dim adapter As SqlDataAdapter = New SqlDataAdapter(sql, conn)
        adapter.Fill(ds)
        MyDataGrid.DataSource = ds.Tables(0).DefaultView
        MyDataGrid.DataBind()
    End Sub
   
End Class