son kopyaladığımızı yapıştırıyoruz buraya

Imports sftb
Imports sftb. Genel
Imports System. Data
Imports sftb.web
Imports sftb. Genel.PublicLib
Imports sftb.bs.data
Imports sftb. Exceptions
Imports System.IO
Imports System. Drawing

Partial Class AnketIslem
Inherits sftb.web. BaseWebPage
Protected SorularListesi As String = ""

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System. EventArgs) Handles Me.Load
If Not YetkiKontrolu(sftb. Enum_Fonksiyonlar. Portal_Page_Design) Then Return

txtAd. TabloAdi = "damEgitimFaaliyet"
txtAd. AlanAdi = "Adi"
txtAd. DilDegerleriniGetir()

Dim dt As DataTable = Nothing
Dim bs As sftb.bs.GenelAnket = Nothing

If Not IsPostBack Then
txtTblName. Value = "Anket"
txtFldName. Value = "Ad"
txtId. Value = Val(Request. QueryString("Id"))
AnketYukle()
LogaYaz(Enum_LogIslem. PageLoad)
End If
AnketSoruListeOlustur()
'VersiyonlarListesi = Session("SorularListesi")

If Val(txtDeleteId. Value) > 0 Then
AnketSil()
End If
End Sub

Protected Sub btnKaydet_Click(ByVal sender As Object, ByVal e As System. EventArgs) Handles btnKaydet. Click
Anketkaydet()
End Sub

Protected Sub btnEkle_Click(ByVal sender As Object, ByVal e As System. EventArgs) Handles btnEkle. Click
txtId. Value = -1
IlkDegerler()
End Sub

Private Sub IlkDegerler()
txtAd. Text = ""
trhUygBasTrh. SetEmpty()
trhUygBitTrh. SetEmpty()
SorularListesi = ""
chkHerkeseAcikMi. Checked = False
End Sub

Private Sub AnketYukle()
Dim bs As sftb.bs.GenelAnket = Nothing
Dim dt As DataTable = Nothing

Try
bs = New sftb.bs.GenelAnket
dt = bs.AnketGetir(Val(txtId. Value), "U")
IlkDegerler()
For Each dr As DataRow In dt.Rows
txtAd. Text = NoNull(dr, "Ad")
trhUygBasTrh. SecilenTarih = NoNullDate(dr, "UygBasTrh")
trhUygBitTrh. SecilenTarih = NoNullDate(dr, "UygBitTrh")
chkHerkeseAcikMi. Checked = CType(NoNullint(dr, "HerkeseAcikMi"), Enum_EvetHayir) = Enum_EvetHayir. Evet
chkAktifMi. Checked = (CType(NoNullint(dr, "AktifMi"), Enum_AktifPasif) = Enum_AktifPasif. Aktif)
Next

Catch ex As Exception
ReportEx(ex)
Finally
If dt IsNot Nothing Then dt.Dispose()
dt = Nothing
bs = Nothing
End Try
End Sub

Protected Sub AnketSoruListeOlustur()
Dim bs As sftb.bs.GenelAnket = Nothing
Dim dt As DataTable = Nothing
Dim gg As GridGen = Nothing
Dim dr As DataRow = Nothing

Try
If Val(txtId. Value) <= 0 Then
SorularListesi = ""
Return
End If
bs = New sftb.bs.GenelAnket
dt = bs.AnketSoruListesiDoldur(Val(txtId. Value))

gg = New GridGen("Grid", -1, -1)
gg.addDTCol("", "<img style=""cursor:hand"" src=""../images/Duzelt.gif"" onclick=""javascript:KayitGuncellemeSoru({@Id},{@AnketRef});"">", 25, "center", GetLocalResourceObject("grd_Soru_C0_Tooltip"))
gg.addDTCol(GetLocalResourceObject("grd_Soru_C1_Baslik"), "SoruNo", GridGen. enumFldType.fldString, 25, "left", GetLocalResourceObject("grd_Soru_C1_Tooltip"), True)
gg.addDTCol(GetLocalResourceObject("grd_Soru_C2_Baslik"), "SoruTip", sftb. genel.PublicLib. EnumToSortedList(New Enum_AnketSoruTipi), 100, "left", GetLocalResourceObject("grd_Soru_C2_Tooltip"), True)
gg.addDTCol(GetLocalResourceObject("grd_Soru_C3_Baslik"), "SoruMetin", GridGen. enumFldType.fldString, 250, "left", GetLocalResourceObject("grd_Soru_C3_Tooltip"), True)

gg.Selection = "void(0);"
gg.RowColor = Drawing. Color.White
gg.RowForeColor = Drawing. Color.Black
gg.SelectionBackColor = Drawing. Color.LemonChiffon
gg.SelectionForeColor = Drawing. Color.Blue

gg.AddRow(dt)

gg.ExcludeNextRowFromFiltering = True
dr = dt.NewRow
dr("Id") = -1
dr("AnketRef") = Val(txtId. Value)
gg.AddRow(dr)

SorularListesi = gg.RenderedData
Session("SorularListesi") = SorularListesi

Catch ex As Exception
ReportEx(ex)
Finally
bs = Nothing
If dt IsNot Nothing Then dt.Dispose()
dt = Nothing
End Try

End Sub

Private Sub AnketSil()
Dim dt As DataTable = Nothing
Dim bs As sftb.bs.GenelAnket = Nothing
Dim sonuc As Integer
Try
bs = New sftb.bs.GenelAnket
sonuc = bs.AnketSil(Val(txtDeleteId. Value))
If sonuc = 1 Then
setmessage(sftb. Mesajlar.GAnket_AnketSilindi)
closeWindow()
ElseIf sonuc = -1 Then
setmessage(sftb. Mesajlar.GAnket_AnketSilinemez)
End If
Catch ex As Exception
ReportEx(ex)
Finally
If dt IsNot Nothing Then dt.Dispose()
dt = Nothing
bs = Nothing
End Try
End Sub

Private Sub Anketkaydet()
Dim bs As sftb.bs.GenelAnket = Nothing
If Val(txtAd. Text) Then
setmessage(sftb. Mesajlar.GAnket_AnketBaslikGirin)
Exit Sub
End If
Try
bs = New sftb.bs.GenelAnket
txtId. Value = bs.AnketGuncelle(Val(txtId. Value), XSSControl(txtAd. Text), trhUygBasTrh. SecilenTarih, trhUygBitTrh. SecilenTarih, chkHerkeseAcikMi. Checked, chkAktifMi. Checked)
setmessage(sftb. Mesajlar.GAnket_AnketKaydedildi)
AnketYukle()
AnketSoruListeOlustur()
Catch ex As Exception
ReportEx(ex)
Finally
bs = Nothing
End Try
End Sub

End Class