You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
188 lines
10 KiB
188 lines
10 KiB
Imports Telerik.Web.UI
|
|
Imports System.Web.Configuration
|
|
Public Class Stammdaten
|
|
Inherits System.Web.UI.Page
|
|
Dim dh As New clsDatahandling
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
Try
|
|
Dim ds As New DataSet
|
|
ds = dh.Get_Tabledata("Select * from web_lehrer where lehrernr=" + Session("lehrer").ToString, False, True)
|
|
If dh.Get_Option(11) = "1/2" Then
|
|
Me.btnSpeichern.Visible = False
|
|
Me.btnSpeichern_Stammdaten.Visible = True
|
|
Else
|
|
Me.btnSpeichern_Stammdaten.Visible = False
|
|
Me.btnSpeichern.Visible = True
|
|
End If
|
|
Me.txtAnredea.SelectedValue = ds.Tables(0).Rows(0).Item("Anrede").ToString
|
|
Me.txtName.Text = ds.Tables(0).Rows(0).Item("name").ToString
|
|
Me.txtVorname.Text = ds.Tables(0).Rows(0).Item("Vorname").ToString
|
|
Me.RadComboBox1.SelectedValue = ds.Tables(0).Rows(0).Item("Schulhausnr")
|
|
Me.txtNatel.Text = ds.Tables(0).Rows(0).Item("Natel").ToString
|
|
Me.txtTelefon.Text = ds.Tables(0).Rows(0).Item("Telefon").ToString
|
|
Me.txtEMail.Text = ds.Tables(0).Rows(0).Item("email").ToString
|
|
'Me.txtBriefanrede.Text = ds.Tables(0).Rows(0).Item("Briefanrede").ToString
|
|
Me.txtAnredea.Focus()
|
|
Catch ex As Exception
|
|
'Me.txtBriefanrede.Text = ex.Message
|
|
Response.Redirect("~/Default.aspx")
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
|
|
dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue.ToString, False, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "Natel", Me.txtNatel.Text, True, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", Session("lehrer"))
|
|
'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", Session("lehrer"))
|
|
Dim ds As New DataSet
|
|
ds = dh.Get_Tabledata("Select * from klasse where lehrernr=" + Session("Lehrer").ToString + " and aktiv=1", False, True)
|
|
If ds.Tables(0).Rows.Count < 1 Then
|
|
Show_Message(1, "Es ist noch keine Klasse erfasst. Bitte erfassen Sie Ihre Klasse.")
|
|
Return
|
|
End If
|
|
Response.Redirect("~/lehrer/schueler.aspx")
|
|
End Sub
|
|
|
|
Private Sub RadGrid1_InsertCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.InsertCommand
|
|
Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)
|
|
Dim editMan As GridEditManager = editedItem.EditManager
|
|
Dim haserror As Boolean = False
|
|
Dim column As GridColumn
|
|
|
|
For Each column In e.Item.OwnerTableView.Columns
|
|
If TypeOf column Is IGridEditableColumn Then
|
|
Dim editableCol As IGridEditableColumn = CType(column, IGridEditableColumn)
|
|
If (editableCol.IsEditable) Then
|
|
Dim editor As IGridColumnEditor = editMan.GetColumnEditor(editableCol)
|
|
|
|
Dim editorType As String = CType(editor, Object).ToString()
|
|
Dim editorText As String = "unknown"
|
|
Dim editorValue As Object = Nothing
|
|
|
|
If (TypeOf editor Is GridTextColumnEditor) Then
|
|
editorText = CType(editor, GridTextColumnEditor).Text
|
|
editorValue = CType(editor, GridTextColumnEditor).Text
|
|
If editorText.Trim = "" Then haserror = True
|
|
End If
|
|
|
|
If (TypeOf editor Is GridBoolColumnEditor) Then
|
|
editorText = CType(editor, GridBoolColumnEditor).Value.ToString()
|
|
editorValue = CType(editor, GridBoolColumnEditor).Value
|
|
End If
|
|
|
|
If (TypeOf editor Is GridDropDownColumnEditor) Then
|
|
editorText = CType(editor, GridDropDownColumnEditor).SelectedText & "; " & CType(editor, GridDropDownColumnEditor).SelectedValue
|
|
editorValue = CType(editor, GridDropDownColumnEditor).SelectedValue
|
|
End If
|
|
If (TypeOf editor Is GridDateTimeColumnEditor) Then
|
|
editorText = CType(editor, GridDateTimeColumnEditor).Text
|
|
editorValue = CType(editor, GridDateTimeColumnEditor).Text
|
|
End If
|
|
'Try
|
|
' Dim changedRows As DataRow() = Me.EmployeesData.Tables("Employees").Select("EmployeeID = " & editedItem.OwnerTableView.DataKeyValues(editedItem.ItemIndex)("EmployeeID"))
|
|
' changedRows(0)(column.UniqueName) = editorValue
|
|
' Me.EmployeesData.Tables("Employees").AcceptChanges()
|
|
'Catch ex As Exception
|
|
' RadGrid1.Controls.Add(New LiteralControl("<strong>Unable to set value of column '" & column.UniqueName & "'</strong> - " + ex.Message))
|
|
' e.Canceled = True
|
|
'End Try
|
|
|
|
End If
|
|
End If
|
|
Next
|
|
If haserror Then
|
|
Show_Message(1, "Daten können nicht gespeichert werden. Es sind zwinged alle Felder zu befüllen.")
|
|
e.Canceled = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub RadGrid1_UpdateCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.UpdateCommand
|
|
Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)
|
|
Dim editMan As GridEditManager = editedItem.EditManager
|
|
Dim haserror As Boolean = False
|
|
Dim column As GridColumn
|
|
|
|
|
|
For Each column In e.Item.OwnerTableView.Columns
|
|
|
|
If TypeOf column Is IGridEditableColumn Then
|
|
Dim editableCol As IGridEditableColumn = CType(column, IGridEditableColumn)
|
|
If (editableCol.IsEditable) Then
|
|
Dim editor As IGridColumnEditor = editMan.GetColumnEditor(editableCol)
|
|
|
|
Dim editorType As String = CType(editor, Object).ToString()
|
|
Dim editorText As String = "unknown"
|
|
Dim editorValue As Object = Nothing
|
|
|
|
If (TypeOf editor Is GridTextColumnEditor) Then
|
|
editorText = CType(editor, GridTextColumnEditor).Text
|
|
editorValue = CType(editor, GridTextColumnEditor).Text
|
|
If editorText.Trim = "" Then haserror = True
|
|
End If
|
|
|
|
If (TypeOf editor Is GridBoolColumnEditor) Then
|
|
editorText = CType(editor, GridBoolColumnEditor).Value.ToString()
|
|
editorValue = CType(editor, GridBoolColumnEditor).Value
|
|
End If
|
|
|
|
If (TypeOf editor Is GridDropDownColumnEditor) Then
|
|
editorText = CType(editor, GridDropDownColumnEditor).SelectedText & "; " & CType(editor, GridDropDownColumnEditor).SelectedValue
|
|
editorValue = CType(editor, GridDropDownColumnEditor).SelectedValue
|
|
End If
|
|
If (TypeOf editor Is GridDateTimeColumnEditor) Then
|
|
editorText = CType(editor, GridDateTimeColumnEditor).Text
|
|
editorValue = CType(editor, GridDateTimeColumnEditor).Text
|
|
End If
|
|
'Try
|
|
' Dim changedRows As DataRow() = Me.EmployeesData.Tables("Employees").Select("EmployeeID = " & editedItem.OwnerTableView.DataKeyValues(editedItem.ItemIndex)("EmployeeID"))
|
|
' changedRows(0)(column.UniqueName) = editorValue
|
|
' Me.EmployeesData.Tables("Employees").AcceptChanges()
|
|
'Catch ex As Exception
|
|
' RadGrid1.Controls.Add(New LiteralControl("<strong>Unable to set value of column '" & column.UniqueName & "'</strong> - " + ex.Message))
|
|
' e.Canceled = True
|
|
'End Try
|
|
|
|
End If
|
|
End If
|
|
Next
|
|
If haserror Then
|
|
Show_Message(1, "Daten können nicht gespeichert werden. Es sind zwinged alle Felder zu befüllen.")
|
|
e.Canceled = True
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub Show_Message(ByVal type As Integer, ByVal meldung As String)
|
|
Dim image1 As String
|
|
Select Case type
|
|
Case 1
|
|
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Error.png"
|
|
Case 2
|
|
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
|
|
End Select
|
|
RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", "alertCallBackFnError", image1)
|
|
|
|
End Sub
|
|
|
|
Protected Sub btnSpeichern_Stammdaten_Click(sender As Object, e As EventArgs) Handles btnSpeichern_Stammdaten.Click
|
|
dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue.ToString, False, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "Natel", Me.txtNatel.Text, True, "lehrernr", Session("lehrer"))
|
|
dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", Session("lehrer"))
|
|
'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", Session("lehrer"))
|
|
Dim ds As New DataSet
|
|
ds = dh.Get_Tabledata("Select * from klasse where lehrernr=" + Session("Lehrer").ToString + " and aktiv=1", False, True)
|
|
If ds.Tables(0).Rows.Count < 1 Then
|
|
Show_Message(1, "Es ist noch keine Klasse erfasst. Bitte erfassen Sie Ihre Klasse.")
|
|
Return
|
|
End If
|
|
End Sub
|
|
End Class |