Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/SW/AssessmentMgmt/Sysadmin/FrmToolTipEditor.vb
+++ b/SW/AssessmentMgmt/Sysadmin/FrmToolTipEditor.vb
@@ -0,0 +1,95 @@
+Imports C1.Win.C1TrueDBGrid
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Public Class FrmToolTipEditor
+    Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
+
+    Private Sub FrmToolTipEditor_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
+        Globals.Set_ToolTips = False
+        Globals.ToolTipDaten.Tables.Clear()
+    End Sub
+
+    Private Sub FrmToolTipEditor_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+        Globals.Set_ToolTips = False
+        Globals.ToolTipDaten.Tables.Clear()
+    End Sub
+
+    Private Sub FrmToolTipEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Globals.Set_ToolTips = True
+    End Sub
+
+    Private Sub evh_Set_ToolTip(ByVal formname As String, ByVal ctlname As String) Handles evh.Set_ToolTip
+        Me.txtFormularname.Text = formname
+        Me.txtControlname.Text = ctlname
+        Me.txtToolTip.Text = ""
+        Get_Data()
+    End Sub
+
+    Private Function Get_Data()
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        scmCmdToExecute.CommandText = "dbo.sp_tooltips"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        scmCmdToExecute.Connection = conn.scoDBConnection
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 1))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@formname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.txtFormularname.Text))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@controlname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.txtControlname.Text))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Tooltip", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@outToolTipNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@outformname", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@outcontrolname", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@outtooltip", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Connection.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+
+            If scmCmdToExecute.Parameters("@outtooltip").Value <> "" Then
+                Me.txtToolTip.Text = scmCmdToExecute.Parameters("@outtooltip").Value
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+        Finally
+            scmCmdToExecute.Connection.Close()
+        End Try
+    End Function
+    Private Function Save_Data()
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        scmCmdToExecute.CommandText = "dbo.sp_tooltips"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        scmCmdToExecute.Connection = conn.scoDBConnection
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 2))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@formname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.txtFormularname.Text))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@controlname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.txtControlname.Text))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Tooltip", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.txtToolTip.Text))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@outToolTipNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@outformname", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@outcontrolname", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@outtooltip", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Connection.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+            Return True
+        Catch ex As Exception
+        Finally
+            scmCmdToExecute.Connection.Close()
+        End Try
+    End Function
+
+
+    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
+        Me.Save_Data()
+    End Sub
+End Class