58 lines
2.3 KiB
VB.net
58 lines
2.3 KiB
VB.net
Imports System.IO
|
|
Public Class Dokumente
|
|
Inherits System.Web.UI.Page
|
|
|
|
Dim doknr As Integer
|
|
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
|
|
Update_Dokument()
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
|
|
doknr = dh.Insert_Dokument(Me.txtBezeichnung.Text)
|
|
Me.RadComboBox1.DataBind()
|
|
|
|
End Sub
|
|
|
|
Private Sub RadComboBox1_DataBound(sender As Object, e As System.EventArgs) Handles RadComboBox1.DataBound
|
|
'Me.RadComboBox1.SelectedIndex = 0
|
|
Update_Dokument()
|
|
End Sub
|
|
|
|
Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox1.SelectedIndexChanged
|
|
Update_Dokument()
|
|
End Sub
|
|
Sub Update_Dokument()
|
|
Dim filename As String = Me.RadComboBox1.SelectedValue.ToString + ".rtf"
|
|
Dim ds As New DataSet
|
|
ds = dh.Get_Tabledata("select * from Web_Dokumenttexte where eintragnr=" + Me.RadComboBox1.SelectedValue.ToString, False, True)
|
|
Me.txtDokumenttitel.Text = ds.Tables(0).Rows(0).Item("Beschreibung")
|
|
Dim path As String = Server.MapPath("~/temp/")
|
|
filename = path + filename
|
|
If Not File.Exists(filename) Then
|
|
Try
|
|
File.Copy(path + "empty.rtf", filename, True)
|
|
Catch ex As Exception
|
|
Exit Sub
|
|
End Try
|
|
End If
|
|
Me.Editor1.LoadRTF(filename)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
|
|
Dim filename As String = Me.RadComboBox1.SelectedValue.ToString + ".rtf"
|
|
Dim path As String = Server.MapPath("~/temp/")
|
|
filename = path + filename
|
|
Me.Editor1.SaveRTF(filename)
|
|
' Me.Editor1.LoadRTF(filename)
|
|
dh.Save_rtf(Me.RadComboBox1.SelectedValue, filename, "")
|
|
dh.UpdateTable("Web_Dokumenttexte", "Beschreibung", Me.txtDokumenttitel.Text, True, "Eintragnr", Me.RadComboBox1.SelectedValue.ToString)
|
|
End Sub
|
|
End Class |