Initial Commit Update Telerik
This commit is contained in:
223
LPWeb20/Firmen/Firmendaten.ascx.vb
Normal file
223
LPWeb20/Firmen/Firmendaten.ascx.vb
Normal file
@@ -0,0 +1,223 @@
|
||||
Imports System.IO
|
||||
Imports System.IO.Compression
|
||||
Imports System.Web.Configuration
|
||||
Public Class Firmendaten
|
||||
Inherits System.Web.UI.UserControl
|
||||
Private rand As New System.Random
|
||||
|
||||
Dim Firmanr As Integer = 0
|
||||
|
||||
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
Try
|
||||
|
||||
If Session.Item("RegisterAsCompany") = "True" Then
|
||||
Me.txtBemerkung.Visible = False
|
||||
Me.txtAusbildungBemerkung.Visible = False
|
||||
Me.txtAusbildungsstandort.Visible = False
|
||||
Me.txtPasswort1.Visible = True
|
||||
Me.txtPasswort2.Visible = True
|
||||
Me.txtUsername.Visible = True
|
||||
Me.btnRegister.Visible = True
|
||||
Me.btnSave.Visible = False
|
||||
Me.RadCaptcha1.Visible = True
|
||||
Me.RadCaptcha1.Visible = True
|
||||
Me.lblCaptcha.Visible = True
|
||||
Me.RadCaptcha1.Visible = True
|
||||
Me.txtUserEmail.Visible = True
|
||||
Me.RV6.Enabled = True
|
||||
Me.RV7.Enabled = True
|
||||
Me.RV9.Enabled = True
|
||||
Me.txtNameZ1.Focus()
|
||||
Me.Label1.Visible = True
|
||||
Me.Label2.Visible = True
|
||||
Me.Label4.Visible = False
|
||||
Me.Label5.Visible = False
|
||||
Me.Label6.Visible = False
|
||||
Me.Label7.Visible = False
|
||||
Me.Label8.Visible = False
|
||||
Me.txtNameZ1.SelectionOnFocus = Telerik.Web.UI.SelectionOnFocus.SelectAll
|
||||
Me.cbaktiviert.Visible = False
|
||||
Exit Sub
|
||||
Else
|
||||
If Session.Item("LogedIn") = "True" Then
|
||||
Firmanr = Session.Item("Firmanr")
|
||||
End If
|
||||
Me.txtNameZ1.Focus()
|
||||
Me.txtPasswort1.Visible = False
|
||||
Me.txtPasswort2.Visible = False
|
||||
Me.txtUsername.Visible = False
|
||||
Me.btnRegister.Visible = False
|
||||
Me.btnSave.Visible = True
|
||||
Me.RadCaptcha1.Visible = False
|
||||
Me.RadCaptcha1.Visible = False
|
||||
Me.lblCaptcha.Visible = False
|
||||
Me.RadCaptcha1.Visible = False
|
||||
Me.txtUserEmail.Visible = False
|
||||
Me.RV6.Enabled = False
|
||||
Me.RV7.Enabled = False
|
||||
Me.RV9.Enabled = False
|
||||
Me.Label1.Visible = False
|
||||
Me.Label2.Visible = False
|
||||
|
||||
End If
|
||||
Dim fdaten As New DataTable
|
||||
Dim dh As New clsDatahandling
|
||||
fdaten = dh.Get_Firma(Firmanr)
|
||||
Dim dr As DataRow = fdaten.Rows(0)
|
||||
Me.txtNameZ1.Text = dr.Item("NameZ1").ToString
|
||||
Me.txtNameZ2.Text = dr.Item("NameZ2").ToString
|
||||
Me.txtAnredea.Text = dr.Item("Anrede").ToString
|
||||
Me.txtAnredea.SelectedValue = dr.Item("Anrede").ToString
|
||||
Me.txtname.Text = dr.Item("Name").ToString
|
||||
Me.txtVorname.Text = dr.Item("Vorname").ToString
|
||||
Me.txtStrasse.Text = dr.Item("Strasse").ToString
|
||||
Me.txtPLZ.Text = dr.Item("plz").ToString
|
||||
Me.txtOrt.Text = dr.Item("Ort").ToString
|
||||
Me.txtTelefon.Text = dr.Item("tel").ToString
|
||||
Me.txtNatel.Text = dr.Item("Natel").ToString
|
||||
Me.txtTelefax.Text = dr.Item("Fax").ToString
|
||||
Me.txtEmail.Text = dr.Item("email").ToString
|
||||
Me.txtInternet.Text = dr.Item("web").ToString
|
||||
Me.txtBemerkung.Text = dr.Item("Bemerkung").ToString
|
||||
Me.txtAusbildungBemerkung.Text = dr.Item("Ausbildungsbemerkung").ToString
|
||||
Me.txtAusbildungsstandort.Text = dr.Item("Ausbildungsstandort").ToString
|
||||
Me.cbaktiviert.Checked = dr.Item("Aktuell") = True
|
||||
If UCase(dh.Get_Option(10)) = "JA" And Session("Admin") <> True Then
|
||||
btnSave.Visible = False
|
||||
btnSave.Enabled = False
|
||||
End If
|
||||
If Session("Admin") = True Then
|
||||
Me.cbaktiviert.Visible = True
|
||||
Else
|
||||
Me.cbaktiviert.Visible = False
|
||||
End If
|
||||
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub btnRegister_Click(sender As Object, e As EventArgs) Handles btnRegister.Click
|
||||
If Not Page.IsValid Then Exit Sub
|
||||
Dim dh As New clsDatahandling
|
||||
Dim dbkey As Integer = dh.Get_NewDBKey("Firma")
|
||||
If dh.Insert_Firma(dbkey) = True Then
|
||||
dh.UpdateTable("Firma", "NameZ1", Me.txtNameZ1.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "NameZ2", Me.txtNameZ2.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Strasse", Me.txtStrasse.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "plz", Me.txtPLZ.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "ort", Me.txtOrt.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "tel", Me.txtTelefon.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Natel", Me.txtNatel.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "fax", Me.txtTelefax.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "web", Me.txtInternet.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "email", Me.txtEmail.Text, True, "Firmanr", dbkey)
|
||||
' dh.UpdateTable("Firma", "anrede", Me.txtAnrede.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "anrede", Me.txtAnredea.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "name", Me.txtname.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "vorname", Me.txtVorname.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "mutiert_am", Now, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Bemerkung", "", True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Ausbildungsstandort", "", True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Ausbildungsbemerkung", "", True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Aktuell", "1", False, "Firmanr", dbkey)
|
||||
End If
|
||||
|
||||
dh.Insert_Web_User(Me.txtUsername.Text, Me.txtPasswort1.Text, 2, dbkey, 0)
|
||||
Dim userkey As Integer = dh.Get_LastKey("Web_User", "Eintragnr") - 1
|
||||
|
||||
dh.Insert_Ansprechpartner(dbkey, Me.txtname.Text, Me.txtVorname.Text, Me.txtTelefon.Text, Me.txtEmail.Text, Me.txtAnredea.SelectedValue)
|
||||
|
||||
Dim KeyGen As RandomKeyGenerator
|
||||
Dim NumKeys As Integer
|
||||
Dim RandomKey As String
|
||||
NumKeys = 1
|
||||
|
||||
KeyGen = New RandomKeyGenerator
|
||||
KeyGen.KeyLetters = "abcdefghijklmnopqrstuvwxyz"
|
||||
KeyGen.KeyNumbers = "0123456789"
|
||||
KeyGen.KeyChars = 46
|
||||
RandomKey = KeyGen.Generate()
|
||||
dh.UpdateTable("Web_User", "VerifyString", RandomKey, True, "Eintragnr", userkey)
|
||||
dh.UpdateTable("Web_User", "EMail", Me.txtUserEmail.Text, True, "Eintragnr", userkey)
|
||||
Dim mds As New DataSet
|
||||
mds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=1", False, True)
|
||||
Dim inhalt As String = mds.Tables(0).Rows(0).Item("Inhalt")
|
||||
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
|
||||
inhalt = inhalt.Replace("[RegisterLink]", WebConfigurationManager.AppSettings("WebSite") + "/user/" + "RegisterBestaetigung.aspx?fnkt=Aktivierung&Code=" + RandomKey)
|
||||
|
||||
Dim mailer As New clsSendMail
|
||||
mailer.SendMailMessage("", Me.txtUserEmail.Text, "", "", mds.Tables(0).Rows(0).Item("Betreff").ToString, inhalt)
|
||||
Response.Redirect("~/user/registerbestaetigung.aspx?fnkt=Bestaetigung")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
If Page.IsValid Then
|
||||
Dim dbkey As Integer = Session.Item("Firmanr")
|
||||
Dim dh As New clsDatahandling
|
||||
dh.UpdateTable("Firma", "NameZ1", Me.txtNameZ1.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "NameZ2", Me.txtNameZ2.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Strasse", Me.txtStrasse.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "plz", Me.txtPLZ.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "ort", Me.txtOrt.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "tel", Me.txtTelefon.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Natel", Me.txtNatel.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "fax", Me.txtTelefax.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "web", Me.txtInternet.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "email", Me.txtEmail.Text, True, "Firmanr", dbkey)
|
||||
'dh.UpdateTable("Firma", "anrede", Me.txtAnrede.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "anrede", Me.txtAnredea.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "name", Me.txtname.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "vorname", Me.txtVorname.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "mutiert_am", Now, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Bemerkung", Me.txtBemerkung.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Ausbildungsstandort", Me.txtAusbildungsstandort.Text, True, "Firmanr", dbkey)
|
||||
dh.UpdateTable("Firma", "Ausbildungsbemerkung", Me.txtAusbildungBemerkung.Text, True, "Firmanr", dbkey)
|
||||
If Me.cbaktiviert.Checked = True Then
|
||||
dh.UpdateTable("Firma", "Aktuell", "1", False, "Firmanr", dbkey)
|
||||
Else
|
||||
dh.UpdateTable("Firma", "Aktuell", "0", False, "Firmanr", dbkey)
|
||||
|
||||
End If
|
||||
End If
|
||||
Response.Redirect("~/firmen/Firmendaten1.aspx?Tab=2")
|
||||
End Sub
|
||||
|
||||
Public Function Check_Userid(source As Object, args As ServerValidateEventArgs)
|
||||
Dim dh As New clsDatahandling
|
||||
Dim ds As New DataSet
|
||||
ds = dh.Get_Tabledata("Select * from web_user where Username='" + Me.txtUsername.Text + "'", False, True)
|
||||
If ds.Tables(0).Rows.Count > 0 Then
|
||||
args.IsValid = False
|
||||
Else
|
||||
args.IsValid = True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Check_Captcha(source As Object, args As ServerValidateEventArgs)
|
||||
If Me.RadCaptcha1.IsValid = False Then
|
||||
args.IsValid = False
|
||||
Else
|
||||
args.IsValid = True
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Protected Sub RadAjaxManager1_AjaxRequest(sender As Object, e As Telerik.Web.UI.AjaxRequestEventArgs) Handles RadAjaxManager1.AjaxRequest
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txtOrt_TextChanged(sender As Object, e As EventArgs) Handles txtOrt.TextChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txtNameZ3_TextChanged(sender As Object, e As EventArgs) Handles txtNameZ2.TextChanged
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user