Imports System.Data.Oledb
Public Class patient_reqlist
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents cmdlogin As System.Web.UI.WebControls.Button
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents txtuname As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents txtpword As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents lnkhome As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lnklogout As System.Web.UI.WebControls.LinkButton
    Protected WithEvents ddpatient As System.Web.UI.WebControls.DropDownList
    Protected WithEvents dgreqlist As System.Web.UI.WebControls.DataGrid
    Protected WithEvents lblerr As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region
    Dim con As New ConClass

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cmd As New OleDbCommand, Rs As OleDbDataReader
        If Not IsPostBack() Then
            cmd.CommandText = "select * from Doctor"
            cmd.Connection = con.Create(Server.MapPath("db"))
            Rs = cmd.ExecuteReader
            ddpatient.Items.Add("Select")
            While Rs.Read
                ddpatient.Items.Add(Rs.GetValue(0) & " | " & Rs.GetValue(1))
            End While
            cmd.Dispose()
            con.Close()
        End If
    End Sub

    Private Sub ddpatient_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddpatient.SelectedIndexChanged
        Dim pcode() As String
        If ddpatient.SelectedIndex = -1 Or ddpatient.SelectedIndex = 0 Then
            Response.Redirect("doc_reqlist.aspx")
        Else
            pcode = Split(ddpatient.SelectedItem.Text, "|")
            Response.Redirect("doc_req.aspx?pcode=" & Trim(pcode(0)))
        End If
    End Sub

    Private Sub lnkhome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkhome.Click
        Server.Transfer("home.aspx")
    End Sub

    Private Sub lnklogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnklogout.Click
        Session.Abandon()
        Server.Transfer("default.aspx")
    End Sub
End Class