Imports System.Data
Imports System.Data.SqlClient

Partial Class userinfor2
    Inherits System.Web.UI.Page

#Region " Web 窗體設(shè)計(jì)器生成的代碼 "

    '該調(diào)用是 Web 窗體設(shè)計(jì)器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    '注意: 以下占位符聲明是 Web 窗體設(shè)計(jì)器所必需的。
    '不要?jiǎng)h除或移動(dòng)它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法調(diào)用是 Web 窗體設(shè)計(jì)器所必需的
        '不要使用代碼編輯器修改它。
        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