Initial commit

.svn/pristine/19/190649864a49e5946a5f5d0218a07b317679fc35.svn-base

@@ -0,0 +1,99 @@
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Public Class frmKategorie
+
+    Dim Kategorie As New clsKategorie
+    Dim KategorieTree As New clsKategorieTree
+
+    Dim m_kategorienr As Integer
+    Property Kategorienr As Integer
+        Get
+            Return m_kategorienr
+        End Get
+        Set(value As Integer)
+            m_kategorienr = value
+
+        End Set
+    End Property
+
+    Dim m_parent As Integer
+    Property ParentID As Integer
+        Get
+            Return m_parent
+        End Get
+        Set(value As Integer)
+            m_parent = value
+        End Set
+    End Property
+
+    Private Sub frmKategorie_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        KategorieTree.Load_Treeview(Me.TreeKategorie)
+        If m_kategorienr <> 0 Then
+            Kategorie.Get_Data(Me.m_kategorienr)
+            Get_Data()
+        Else
+            Me.TreeKategorie.SelectedNode = KategorieTree.FindNode(Me.TreeKategorie.Nodes, Me.ParentID, Me.ParentID)
+            Me.txtStrukturNr.Text = ""
+            Me.txtKategorie.Text = ""
+            Me.txtBeschreibung.Text = ""
+
+
+        End If
+        
+
+    End Sub
+
+    Private Sub Get_Data()
+        Me.txtStrukturNr.Text = Kategorie.sBeschreibung.Value.ToString
+        If Kategorie.sBeschreibung_Lang.IsNull Then
+            Me.txtBeschreibung.Text = ""
+        Else
+            Me.txtBeschreibung.Text = Kategorie.sBeschreibung_Lang.Value.ToString
+        End If
+        Me.txtKategorie.Text = Kategorie.sBezeichnung.Value.ToString
+        Me.TreeKategorie.SelectedNode = KategorieTree.FindNode(Me.TreeKategorie.Nodes, Me.Kategorienr, Me.Kategorienr)
+        If Not IsNothing(Me.TreeKategorie.SelectedNode.Parent) Then
+            Me.TreeKategorie.SelectedNode = Me.TreeKategorie.SelectedNode.Parent
+        End If
+
+    End Sub
+
+    Private Sub Save_Data()
+        If Me.Kategorienr = 0 Then
+            Me.Kategorienr = Kategorie.Add_New
+            Kategorie.Get_Data(Me.Kategorienr)
+        End If
+        Kategorie.sBeschreibung = New SqlString(CType(Me.txtStrukturNr.Text, String))
+        Kategorie.sBeschreibung_Lang = New SqlString(CType(Me.txtBeschreibung.Text, String))
+        Kategorie.sBezeichnung = New SqlString(CType(Me.txtKategorie.Text, String))
+        If Me.Kategorienr = Me.TreeKategorie.SelectedNode.Tag Then
+            'keine Änderung
+        Else
+            Kategorie.iParentid = New SqlInt32(Me.TreeKategorie.SelectedNode.Tag)
+        End If
+        If chkroot.Checked = True Then
+            Kategorie.iParentid = New SqlInt32(CType(0, Int32))
+        End If
+        Kategorie.Save_Data()
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        Save_Data()
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        btnAbbruch_Click(sender, e)
+    End Sub
+
+    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+End Class

.svn/pristine/19/191e5ca64ac02a51c01a36fdc0037fa556f26334.svn-base

@@ -0,0 +1,39 @@
+Public Class MyGenericEventHandler
+
+
+    Public Event Set_ToolTip(ByVal formname As String, ByVal ctlname As String)
+
+    Public Event Pruefplandetail_Saved(ByVal handler As Integer, ByVal key As Integer)
+    Public Event Pruefplandetail_Closed(ByVal handler As Integer, ByVal key As Integer)
+    Public Event Pruefschrittresultat_saved(ByVal handler As Integer, ByVal key As Integer)
+    Public Event pruefschrittresultat_closed(ByVal handler As Integer, ByVal key As Integer)
+    Public Event MassnahmeplanDetail_Saveed(ByVal handler As Integer, ByVal key As Integer)
+    Public Event MassnahmeplanDetail_Closed(ByVal handler As Integer, ByVal key As Integer)
+
+    Public Function Pruefplandetails_save(ByVal handler As Integer, key As Integer)
+        RaiseEvent Pruefplandetail_Saved(handler, key)
+    End Function
+
+    Public Function Pruefplandetail_close(ByVal handler As Integer, key As Integer)
+        RaiseEvent Pruefplandetail_closed(handler, key)
+
+    End Function
+    Public Function Edit_Tooltip(ByVal formname As String, ByVal ctlname As String)
+        RaiseEvent Set_ToolTip(formname, ctlname)
+    End Function
+
+    Public Function PruefplanResultat_Save(ByVal handler As Integer, ByVal key As Integer)
+        RaiseEvent Pruefschrittresultat_saved(handler, key)
+    End Function
+
+    Public Function pruefschrittResultat_Close(ByVal handler As Integer, ByVal key As Integer)
+        RaiseEvent pruefschrittresultat_closed(handler, key)
+    End Function
+
+    Public Function massnahmeplandetail_save(ByVal handler As Integer, ByVal key As Integer)
+        RaiseEvent MassnahmeplanDetail_Saveed(handler, key)
+    End Function
+    Public Function massnahmeplandetail_close(ByVal handler As Integer, ByVal key As Integer)
+        RaiseEvent MassnahmeplanDetail_Closed(handler, key)
+    End Function
+End Class

.svn/pristine/19/19625e68b7524f548196dc1cd3b2e490faef0545.svn-base

@@ -0,0 +1,50 @@
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.dll
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.xml
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\ResolveAssemblyReference.cache
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Themenübersicht.resources
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.read.1.tlog
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.write.1.tlog
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
+E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail2.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbproj.GenerateResource.Cache
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe.config
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.pdb
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.xml
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbprojResolveAssemblyReference.cache
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDatenbankauswahl.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmAbout.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmLogin.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMsgBox.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSplash.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmThemenübersicht.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDomainEditor.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDomainEditorExtTables.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmFormSelector.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSysadminMenu.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSysadminTableSelector.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.FrmToolTipEditor.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmVerbindungEditor.resources
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.dll
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.pdb
+E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.xml

.svn/pristine/19/19fe9c70c799e506f5e9af1f33c6efba03c22b60.svn-base

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-16"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>frmMain</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>