Imports System.Data.OleDb
Imports System.IO
Public Class adddoc
    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 ddId As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents txtdname As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents lnklogout As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents Label6 As System.Web.UI.WebControls.Label
    Protected WithEvents file2 As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents dgfile As System.Web.UI.WebControls.DataGrid
    Protected WithEvents cmdOK As System.Web.UI.WebControls.Button
    Protected WithEvents Label7 As System.Web.UI.WebControls.Label
    Protected WithEvents file1 As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents cmdSave As System.Web.UI.WebControls.Button
    Protected WithEvents cmdCancel As System.Web.UI.WebControls.Button
    Protected WithEvents dt As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label8 As System.Web.UI.WebControls.Label
    Protected WithEvents cmdrpt As System.Web.UI.WebControls.Button
    Protected WithEvents lblrpt As System.Web.UI.WebControls.Label
    Protected WithEvents lnkRemove As System.Web.UI.WebControls.LinkButton
    Protected WithEvents txtpname As System.Web.UI.WebControls.TextBox
    Protected WithEvents pcode As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents dd As System.Web.UI.WebControls.DropDownList
    Protected WithEvents mm As System.Web.UI.WebControls.DropDownList
    Protected WithEvents yy As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lnkhome As System.Web.UI.WebControls.LinkButton
    Protected WithEvents txtuname As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtpword As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtdcode As System.Web.UI.WebControls.TextBox

    '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

    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

    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 cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        Dim con As New OleDbConnection, cmd As New OleDbCommand
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & MapPath("db") & "\db.mdb;"
        If txtdcode.Text = "" Or txtdname.Text = "" Or txtuname.Text = "" Or txtpword.Text = "" Then
            Response.Write("<script>alert('Enter appropriate fields')</script>")
            Exit Sub
        End If
        con.Open()
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "insert into Doctor values('" & Trim(txtdcode.Text) & "','" & Trim(txtdname.Text) & "','" & Trim(txtuname.Text) & "','" & Trim(txtpword.Text) & "')"
        cmd.Connection = con
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        con.Close()
        Response.Redirect("adddoc.aspx")
    End Sub

    Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        Response.Redirect("adddoc.aspx")
    End Sub

    Private Sub txtdcode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdcode.TextChanged
        Dim con As New OleDbConnection, cmd As New OleDbCommand, Rs As OleDbDataReader
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & MapPath("db") & "\db.mdb;"
        con.Open()
        cmd.CommandText = "select * from Doctor where DoctorCode='" & txtdcode.Text & "'"
        cmd.Connection = con
        Rs = cmd.ExecuteReader
        If Rs.Read Then
            txtdcode.Text = ""
            cmd.Dispose()
            con.Close()
            Response.Write("<script>alert('Doctor Code already exists')</script>")
            Exit Sub
        End If
        cmd.Dispose()
        con.Close()
    End Sub

    Private Sub txtuname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtuname.TextChanged
        Dim con As New OleDbConnection, cmd As New OleDbCommand, Rs As OleDbDataReader
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & MapPath("db") & "\db.mdb;"
        con.Open()
        cmd.CommandText = "select * from Doctor where uname='" & txtuname.Text & "'"
        cmd.Connection = con
        Rs = cmd.ExecuteReader
        If Rs.Read Then
            txtuname.Text = ""
            cmd.Dispose()
            con.Close()
            Response.Write("<script>alert('User name already exists')</script>")
            Exit Sub
        End If
        cmd.Dispose()
        con.Close()
    End Sub

End Class