Imports System.Data.SqlClient
Imports System.Configuration.ConfigurationManager

Partial Class panel_sss
    Inherits System.Web.UI.Page

    Private Sub panel_sss_Init(sender As Object, e As EventArgs) Handles Me.Init
        Dim cookie As HttpCookie = Request.Cookies("kullanici")
        'cookie silindi ise ana sayfaya döner
        If cookie Is Nothing Then
            Response.Redirect("default.aspx")
        End If
    End Sub

    Private Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged
        'seçilen satıra ait datakeynames değerini alır
        Dim index As Integer = GridView1.SelectedIndex

        Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
        Dim COMM As New SqlCommand
        Dim rdr As SqlDataReader

        conn.Open()
        COMM = conn.CreateCommand()
        COMM.CommandText = "SELECT * FROM SORULAR WHERE id = '" & GridView1.DataKeys(index).Value & "'"
        rdr = COMM.ExecuteReader

        If rdr.Read Then
            e_id.Text = rdr.GetValue(0)
            e_baslik.Text = rdr("BASLIK")
            e_detay.Text = rdr("DETAY").ToString
        End If
        conn.Close()

        mesaj1.Text = ""
        mesaj2.Text = ""
        mesaj1.Visible = False
        mesaj2.Visible = False
    End Sub

    Private Sub kaydet_Click(sender As Object, e As EventArgs) Handles kaydet.Click
        On Error GoTo hata_kayit

        Dim cookie As HttpCookie = Request.Cookies("kullanici")
        'cookie silindi ise ana sayfaya döner
        If cookie Is Nothing Then
            Response.Redirect("default.aspx")
        End If
        '----------------------------------------------------------

        Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
        Dim COMM As New SqlCommand
        Dim sql1 As String

        mesaj1.Text = ""
        mesaj2.Text = ""
        mesaj1.Visible = False
        mesaj2.Visible = False

        If e_id.Text <= "" Then
            'yeni kayıt girişi
            conn.Open()
            sql1 = "INSERT INTO SORULAR (BASLIK, DETAY) VALUES('" & e_baslik.Text.Replace("'", Chr(180)) & "', '" & e_detay.Text.Replace("'", Chr(180)) & "')"
            COMM = conn.CreateCommand()
            COMM.CommandText = sql1
            COMM.ExecuteNonQuery()
            conn.Close()
        Else
            'eski bilgiyi günceller
            conn.Open()
            sql1 = "UPDATE SORULAR SET BASLIK = '" & e_baslik.Text.Replace("'", Chr(180)) & "', DETAY = '" & e_detay.Text.Replace("'", Chr(180)) & "' WHERE id = '" & e_id.Text & "'"
            COMM = conn.CreateCommand()
            COMM.CommandText = sql1
            COMM.ExecuteNonQuery()
            conn.Close()
        End If

        e_id.Text = ""
        e_baslik.Text = ""
        e_detay.Text = ""
        GridView1.DataSourceID = "SqlDataSource1"
        GridView1.DataBind()
        e_baslik.Focus()
        Exit Sub

hata_kayit:
        mesaj1.Text = "Kayıt işlemi sırasında bir hata oluştu, bilgi kaydedilemedi. Lütfen girişinizi kontrol ediniz!!!"
        mesaj1.Visible = "true"
    End Sub

    Private Sub sil_Click(sender As Object, e As EventArgs) Handles sil.Click
        On Error GoTo hata_kayitsil

        Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
        Dim COMM As New SqlCommand
        Dim sql1 As String
        Dim rdr As SqlDataReader

        mesaj1.Text = ""
        mesaj2.Text = ""
        mesaj1.Visible = False
        mesaj2.Visible = False

        'kayıt yoksa işlem yapmaz
        If e_id.Text <= "" Then Exit Sub

        conn.Open()
        sql1 = "DELETE FROM SORULAR WHERE id ='" & e_id.Text & "'"
        COMM = conn.CreateCommand()
        COMM.CommandText = sql1
        COMM.ExecuteNonQuery()
        conn.Close()

        e_id.Text = ""
        e_baslik.Text = ""
        e_detay.Text = ""
        GridView1.DataSourceID = "SqlDataSource1"
        GridView1.DataBind()
        e_baslik.Focus()
        Exit Sub

hata_kayitsil:
        mesaj1.Text = "Silme işlemi sırasında bir hata oluştu!!!"
        mesaj1.Visible = "true"
    End Sub
End Class