shu/AssesmentMgmt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

99
SW/AssessmentMgmt/Pruefplan/FrmDefinition_Pruefplan.Designer.vb generated Normal file
View File

@@ -0,0 +1,99 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmDefinition_Pruefplan
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.dtGueltigBis = New System.Windows.Forms.DateTimePicker()
Me.lblGueltigBis = New System.Windows.Forms.Label()
Me.cbAktiv = New System.Windows.Forms.CheckBox()
Me.lblAktiv = New System.Windows.Forms.Label()
Me.btnOK = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'dtGueltigBis
'
Me.dtGueltigBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtGueltigBis.Location = New System.Drawing.Point(85, 20)
Me.dtGueltigBis.Name = "dtGueltigBis"
Me.dtGueltigBis.Size = New System.Drawing.Size(108, 20)
Me.dtGueltigBis.TabIndex = 38
'
'lblGueltigBis
'
Me.lblGueltigBis.AutoSize = True
Me.lblGueltigBis.Location = New System.Drawing.Point(12, 23)
Me.lblGueltigBis.Name = "lblGueltigBis"
Me.lblGueltigBis.Size = New System.Drawing.Size(50, 13)
Me.lblGueltigBis.TabIndex = 37
Me.lblGueltigBis.Text = "Gültig bis"
'
'cbAktiv
'
Me.cbAktiv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbAktiv.AutoSize = True
Me.cbAktiv.Location = New System.Drawing.Point(87, 51)
Me.cbAktiv.Name = "cbAktiv"
Me.cbAktiv.Size = New System.Drawing.Size(15, 14)
Me.cbAktiv.TabIndex = 48
Me.cbAktiv.UseVisualStyleBackColor = True
'
'lblAktiv
'
Me.lblAktiv.AutoSize = True
Me.lblAktiv.Location = New System.Drawing.Point(12, 52)
Me.lblAktiv.Name = "lblAktiv"
Me.lblAktiv.Size = New System.Drawing.Size(31, 13)
Me.lblAktiv.TabIndex = 47
Me.lblAktiv.Text = "Aktiv"
'
'btnOK
'
Me.btnOK.Location = New System.Drawing.Point(98, 99)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 49
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'FrmDefinition_Pruefplan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(293, 134)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.cbAktiv)
Me.Controls.Add(Me.lblAktiv)
Me.Controls.Add(Me.dtGueltigBis)
Me.Controls.Add(Me.lblGueltigBis)
Me.Name = "FrmDefinition_Pruefplan"
Me.Text = "Details Definition - Prüfplan"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dtGueltigBis As DateTimePicker
Friend WithEvents lblGueltigBis As Label
Friend WithEvents cbAktiv As CheckBox
Friend WithEvents lblAktiv As Label
Friend WithEvents btnOK As Button
End Class

120
SW/AssessmentMgmt/Pruefplan/FrmDefinition_Pruefplan.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

32
SW/AssessmentMgmt/Pruefplan/FrmDefinition_Pruefplan.vb Normal file
View File

@@ -0,0 +1,32 @@
Public Class FrmDefinition_Pruefplan
Dim m_aktiv As Boolean
Property Aktiv As Boolean
Get
Return m_aktiv
End Get
Set(value As Boolean)
m_aktiv = value
End Set
End Property
Dim m_gueltig_bis As DateTime
Property Gueltig_Bis As DateTime
Get
Return m_gueltig_bis
End Get
Set(value As DateTime)
m_gueltig_bis = value
End Set
End Property
Private Sub FrmDefinition_Pruefplan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.dtGueltigBis.Value = Me.Gueltig_Bis
Me.cbAktiv.Checked = Me.Aktiv = True
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Me.Gueltig_Bis = Me.dtGueltigBis.Value
Me.Aktiv = Me.cbAktiv.Checked
Me.Close()
End Sub
End Class

762
SW/AssessmentMgmt/Pruefplan/clspruefplan.vb Normal file
View File

@@ -0,0 +1,762 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports DevComponents
Imports DropDownControls
Public Class clspruefplan
Inherits DB.clsPruefplan
#Region "Deklarationen"
Public daten As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Mitarbeiterdaten As New DataTable
Public Zeitpunkt As New DataTable
Public Periodizitaet As New DataTable
Public Prioritaet As New DataTable
Public VerantwortungISI As New DataTable
Public VerantwortungPlan As New DataTable
Public Verantwortung As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Dim Definition_Pruefplan As New DataTable
Dim clsDefinition_Pruefplan As New DB.clsDefinition_Pruefplan
Public Terminierung As New DataTable
Dim mMutierer As String
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
#End Region
Sub New()
MyBase.New()
Zeitpunkt = stammdaten.Get_Stammdaten("Zeitpunkt", "Beschreibung")
Periodizitaet = stammdaten.Get_Stammdaten("Periodizitaet", "Bezeichnung")
Prioritaet = stammdaten.Get_Stammdaten("Prioritaet", "Bezeichnung")
VerantwortungISI = stammdaten.Get_Stammdaten("VerantwortungIsi", "Bezeichnung")
Verantwortung = stammdaten.Get_Stammdaten("Verantwortung", "Bezeichnung")
Terminierung = stammdaten.Get_Stammdaten("Terminierung", "Bezeichnung")
VerantwortungPlan = stammdaten.Get_Stammdaten("VerantwortungIsi", "Bezeichnung")
End Sub
Public Overloads Sub dispose()
MyBase.Dispose()
Try
Me.Zeitpunkt.Dispose()
Me.Periodizitaet.Dispose()
Me.Prioritaet.Dispose()
Me.VerantwortungISI.Dispose()
Me.Verantwortung.Dispose()
Me.stammdaten = Nothing
Me.Definition_Pruefplan.Dispose()
Me.VerantwortungPlan.Dispose()
Catch
End Try
End Sub
''' <summary>
''' Mutierer auslesen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Mutierer(ByVal nr As Integer) As String
Try
Dim ma As New DB.clsMitarbeiter
Dim dt As New DataTable
Dim Retvalue As String
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
dt = ma.SelectOne()
If dt.Rows.Count = 0 Then
Retvalue = ("{" + nr.ToString + "}")
Else
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
End If
ma.Dispose()
dt.Dispose()
Return Retvalue
Catch
Return ""
End Try
End Function
Public Function Get_Data(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefplanNr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.daten = Me.SelectOne()
Globals.conn.CloseConnection(True)
Try
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
Catch ex As Exception
Me.MutiererText = ""
End Try
End Function
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Pruefplan")
db.Dispose()
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefplanNr = New SqlInt32(CType(newkey, Int32))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = True
Return newkey
End Function
''' <summary>
''' Löschen eines Datensatzes erstellen.
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
If bAktiv.Value = False Then Exit Function
Me.cpMainConnectionProvider = Globals.conn
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
MyBase.Delete()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Neue Person einfügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New() As Integer
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Pruefplan")
db.Dispose()
Me.iPruefplanNr = New SqlInt32(CType(newkey, Int32))
Me.daGueltig_Bis = New SqlDateTime(CType("31.12.2099", DateTime))
Me.iPrioritaetNr = New SqlInt32(CType(0, Int32))
Me.iPeriodizitaetNr = New SqlInt32(CType(0, Int32))
Me.iZeitpunktNr = New SqlInt32(CType(0, Int32))
Me.sBeschreibung = New SqlString(CType("", String))
Me.sPruefgegenstand = New SqlString(CType("", String))
Me.sHilfsmittel = New SqlString(CType("", String))
Me.sMassnahmen = New SqlString(CType("", String))
Me.iVerantwortungISINr = New SqlInt32(CType(0, Int32))
Me.sBeschreibung = New SqlString(CType("", String))
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daErstmals_am = New SqlDateTime(CType(DateAdd(DateInterval.Day, 1, Now), DateTime))
Me.iTerminierungID = New SqlInt32(CType(0, Int32))
Me.cpMainConnectionProvider = Globals.conn
Try
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Neuer_Datensatz = True
Return Me.iPruefplanNr.Value
End Function
Public Function Get_Pruefplan(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_pruefplan"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefplan", ds.Tables(0))
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer, Optional Searchstring As String = "")
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_pruefplan"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.Parameters.Add(New SqlParameter("@Searchstring", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Searchstring))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefplan", ds.Tables(0))
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Get_Definition_Pruefplan(ByVal Key As Integer, ByRef cb As CheckedListBox)
Me.Definition_Pruefplan.Rows.Clear()
Try
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_definition_pruefplan"
sqlcmd.Parameters.Add(New SqlParameter("@pruefplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(Me.Definition_Pruefplan)
For Each r As DataRow In Definition_Pruefplan.Rows
cb.Items.Add(r.Item("Bezeichnung"), True)
Next
'cb.DataSource = Definition_Pruefplan
'cb.ValueMember = "Definition_PruefplanNr"
'cb.DisplayMember = "Bezeichnung"
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Add_new_Zuordnung(ByVal Pruefplannr As Integer, DefinitionNr As Integer, nodetext As String, ByRef chkcb As CheckedListBox)
For Each r As DataRow In Me.Definition_Pruefplan.Rows
If r.Item(1) = DefinitionNr Then
MsgBox("Die Beziehung zu '" + nodetext + "' ist bereits vorhanden", vbExclamation)
Exit Function
End If
Next
Dim dr As DataRow = Me.Definition_Pruefplan.NewRow
dr.Item(1) = DefinitionNr
dr.Item(2) = Pruefplannr
dr.Item(3) = "31.12.2099"
dr.Item(4) = True
dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.clsmitarbeiter.iMitarbeiternr.Value
dr.Item(8) = nodetext
Me.Definition_Pruefplan.Rows.Add(dr)
chkcb.Items.Add(nodetext + " | " + dr.Item(3).ToString, True)
End Function
Public Function Get_Definition_Pruefplan(ByVal Key As Integer, ByRef tree As AdvTree.AdvTree)
Me.Definition_Pruefplan.Rows.Clear()
Try
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_definition_pruefplan"
sqlcmd.Parameters.Add(New SqlParameter("@pruefplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(Me.Definition_Pruefplan)
Set_Zuordnungnodes(Definition_Pruefplan, tree)
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Add_new_Zuordnung(ByVal Pruefplannr As Integer, DefinitionNr As Integer, nodetext As String, ByRef tree As AdvTree.AdvTree)
For Each r As DataRow In Me.Definition_Pruefplan.Rows
If r.Item(1) = DefinitionNr And (r(4) = True Or r(3) < Now) Then
MsgBox("Die Beziehung zu '" + nodetext + "' ist bereits vorhanden", vbExclamation)
Exit Function
End If
Next
Dim dr As DataRow = Me.Definition_Pruefplan.NewRow
dr.Item(0) = Format(Now, "ddhhmmss")
dr.Item(1) = DefinitionNr
dr.Item(2) = Pruefplannr
dr.Item(3) = "31.12.2099"
dr.Item(4) = True
dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.clsmitarbeiter.iMitarbeiternr.Value
dr.Item(8) = nodetext
Me.Definition_Pruefplan.Rows.Add(dr)
Set_Zuordnungnodes(Definition_Pruefplan, tree)
End Function
Sub Set_Zuordnungnodes(data As DataTable, ByRef tree As AdvTree.AdvTree)
tree.Nodes.Clear()
For Each r As DataRow In data.Rows
Dim tn As New AdvTree.Node
tn.Tag = r(0)
tn.Text = r(8)
tree.Nodes.Add(tn)
Dim tn1 As New AdvTree.Node
tn1.Text = r(3)
tn1.Tag = r(4)
tn.Nodes.Add(tn1)
tn.ImageIndex = 0
If r(3) < "31.12.2099" And r(3) > Now Then tn.ImageIndex = 3
If r(3) < Now Then tn.ImageIndex = 2
If r(4) = False Then tn.ImageIndex = 1
Next
End Sub
Public Sub Update_Zuordnung(ByVal ID As Integer, Aktiv As Boolean, gueltig As DateTime)
For Each r As DataRow In Me.Definition_Pruefplan.Rows
If r.Item(0) = ID Then
r(4) = Aktiv
r(3) = gueltig
End If
Next
End Sub
Public Function Save_Definition_Pruefplan(ByRef tree As AdvTree.AdvTree)
clsDefinition_Pruefplan.sConnectionString = Globals.sConnectionString
For Each n As AdvTree.Node In tree.Nodes
For Each r As DataRow In Definition_Pruefplan.Rows
If r(0) = n.Tag Then
If r(0) > 100000 Then
clsDefinition_Pruefplan.iDefinitionNr = New SqlInt32(CType(r(1), Int32))
clsDefinition_Pruefplan.iPruefplanNr = New SqlInt32(CType(r(2), Int32))
clsDefinition_Pruefplan.daGueltig_Bis = New SqlDateTime(CType(r(3), DateTime))
clsDefinition_Pruefplan.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Pruefplan.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Pruefplan.bAktiv = New SqlBoolean(CType(True, Boolean))
clsDefinition_Pruefplan.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
conn.OpenConnection()
clsDefinition_Pruefplan.Insert()
conn.CloseConnection(True)
Else
clsDefinition_Pruefplan.iDefinition_PruefplanNr = New SqlInt32(CType(r(0), Int32))
clsDefinition_Pruefplan.cpMainConnectionProvider = Globals.conn
clsDefinition_Pruefplan.SelectOne()
Dim tn1 As New AdvTree.Node
tn1 = n.Nodes(0)
If tn1.Tag <> clsDefinition_Pruefplan.bAktiv.Value Or tn1.Text <> clsDefinition_Pruefplan.daGueltig_Bis.Value Then
clsDefinition_Pruefplan.iDefinition_PruefplanNr = New SqlInt32(CType(r(0), Int32))
clsDefinition_Pruefplan.cpMainConnectionProvider = Globals.conn
clsDefinition_Pruefplan.SelectOne()
clsDefinition_Pruefplan.iDefinitionNr = New SqlInt32(CType(r(1), Int32))
clsDefinition_Pruefplan.iPruefplanNr = New SqlInt32(CType(r(2), Int32))
clsDefinition_Pruefplan.daGueltig_Bis = New SqlDateTime(CType(r(3), DateTime))
clsDefinition_Pruefplan.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Pruefplan.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
clsDefinition_Pruefplan.bAktiv = New SqlBoolean(CType(tn1.Tag, Boolean))
clsDefinition_Pruefplan.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
conn.OpenConnection()
clsDefinition_Pruefplan.Update()
conn.CloseConnection(True)
End If
End If
End If
Next
Next
End Function
End Class
Public Class clsPlanTree
#Region "Deklarationen"
Dim treedata As New DataSet
Dim TreeaufbauSuche As Boolean = False
Dim TreeaufbauNr As Integer = 0
Dim FoundNode As Integer = 0
Dim Searchstring As String = ""
Public Treesearch As New AdvTree.AdvTree
#End Region
#Region "Tree"
Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
tree.Nodes.Clear()
TreeaufbauNr = -1
Load_Treedata("")
If Not (treedata Is Nothing) Then
Dim oView As DataView = treedata.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("id"),
oDS.Tables(0).Columns("Parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
tree.ExpandAll()
End If
End Sub
Public Function Load_Treedata(ByVal datatype As String) As DataTable
treedata.Tables.Clear()
Dim selectcommand As New SqlCommand
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
selectcommand.CommandText = "sp_get_PruefplanStruktur"
selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
selectcommand.Parameters(0).Value = datatype
selectcommand.CommandType = CommandType.StoredProcedure
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = selectcommand
da.Fill(treedata, "Tree")
If treedata_for_search.Rows.Count < 1 Then
For Each c As DataColumn In treedata.Tables(0).Columns
If c.ColumnName = "ErweiterteSuche" Then
Dim dc As New DataColumn
dc.ColumnName = "ErweiterteSuche"
dc.DataType = System.Type.GetType("System.String")
dc.DefaultValue = " "
Try
Globals.treedata_for_search.Columns.Add(dc)
Catch
End Try
Else
Try
Globals.treedata_for_search.Columns.Add(c.ColumnName)
Catch
End Try
End If
Next
End If
For Each row As DataRow In treedata.Tables(0).Rows
Globals.treedata_for_search.ImportRow(row)
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
selectcommand.Dispose()
End Try
End Function
Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
' start recursion for each root node of the treeview
For i As Integer = 0 To treestruktur.Nodes.Count - 1
GetAllNodes(treestruktur.Nodes(i), allNodes)
Next
Return allNodes
End Function
Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
' check for null (this can be removed since within th
If (subRoot Is Nothing) Then
Exit Sub
End If
' add subroot
Dim r As DataRow
r = treedata_for_search.NewRow
r.Item(0) = subRoot.Tag
Try
r.Item(1) = subRoot.Parent.Tag
Catch
r.Item(1) = 0
End Try
r.Item(2) = subRoot.Text
r.Item(3) = subRoot.ImageIndex
treedata_for_search.Rows.Add(r)
'allNodes.Add(subRoot)
' add all it's children
For i As Integer = 0 To subRoot.Nodes.Count - 1
GetAllNodes(subRoot.Nodes(i), allNodes)
Next
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
'If oDataRow.IsNull("Parentid") Then
Dim oNode As New DevComponents.AdvTree.Node
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
Try
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
Catch
End Try
oNode.Tag = oDataRow("id").ToString
oNode.ImageIndex = oDataRow("ImageIndex")
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New DevComponents.AdvTree.Node
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
oChildNode.Tag = oChildRow("id").ToString()
oChildNode.ImageIndex = oChildRow("ImageIndex")
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
Dim tmpNode As AdvTree.Node
For Each _child As AdvTree.Node In _nodeCollection
If _child.Tag = SearchVal Then
Return _child
End If
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
' Return _child
' End If
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
If Not tmpNode Is Nothing Then
Return tmpNode
End If
Next
Return Nothing
End Function
Public Function Init_Search()
FoundNode = 0
Searchstring = ""
Me.Treesearch.Nodes.Clear()
End Function
Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
'Return tree.FindNodeByCellText(SearchString)
Me.Treesearch.Nodes.Clear()
For Each dr As DataRow In treedata_for_search.Rows
'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
Dim tn As New AdvTree.Node
tn.Text = dr.Item("Bezeichnung")
tn.Tag = dr.Item("id")
Treesearch.Nodes.Add(tn)
End If
Next
Return FindFirst(tree)
End Function
Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
Try
If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch
End Try
End Function
Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
If Treesearch.SelectedNode Is Nothing Then
Return FindFirst(tree)
End If
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
If Treesearch.SelectedNode Is Nothing Then
Return FindLastNode(tree)
End If
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
Try
Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
Catch ex As Exception
End Try
End Function
#End Region
#Region "ComboboxFilter"
Public Sub Refresh_Filter(ByRef cbx As ToolStripComboBox)
Dim s As String
s = cbx.SelectedText.ToString
cbx.Items.Clear()
cbx.Items.Add("-- Alle --")
For Each r As DataRow In treedata.Tables(0).Rows
Try
If r("Parentid") = 0 Then
cbx.Items.Add(r("bezeichnung"))
End If
Catch
End Try
Next
If s <> "" Then cbx.Text = s
End Sub
#End Region
End Class

771
SW/AssessmentMgmt/Pruefplan/frmPPlan.Designer.vb generated Normal file
View File

@@ -0,0 +1,771 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPPlan
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPPlan))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.lblSearchStruktur_Definition = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.tsTxtSearch = New System.Windows.Forms.ToolStripTextBox()
Me.tsBtnSearchStruktur_Definition = New System.Windows.Forms.ToolStripButton()
Me.tsbtnFilterAufheben = New System.Windows.Forms.ToolStripButton()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ctxMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DetailsAnzeigenBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NeueDefinitionErfassenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.VorgabeAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PrüfschrittGenerierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
Me.TSBtnAddNew = New System.Windows.Forms.ToolStripButton()
Me.TSBtnDelete = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSetSecurityObject = New System.Windows.Forms.ToolStripButton()
Me.tsbtnReport = New System.Windows.Forms.ToolStripButton()
Me.tsbtncopy1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnCopy2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.GrpDokumente = New System.Windows.Forms.GroupBox()
Me.DokumenteAllgemein = New ThemenDokumente.Dokumente()
Me.grpDetails = New System.Windows.Forms.GroupBox()
Me.cbSelbstkontrolle = New System.Windows.Forms.CheckBox()
Me.cbKeinMail = New System.Windows.Forms.CheckBox()
Me.lblSelbstkontrolle = New System.Windows.Forms.Label()
Me.lblKeinMail = New System.Windows.Forms.Label()
Me.txtVerantwortlichPlan = New System.Windows.Forms.TextBox()
Me.lblVerantwortlichPlan = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtGueltigbis = New System.Windows.Forms.TextBox()
Me.lblGueltigbis = New System.Windows.Forms.Label()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.lblBezeichnung = New System.Windows.Forms.Label()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.lblKontrollaktivität = New System.Windows.Forms.Label()
Me.txtVerantwortungISI = New System.Windows.Forms.TextBox()
Me.txtVerantwortlich = New System.Windows.Forms.TextBox()
Me.lblVerantwortlichISI = New System.Windows.Forms.Label()
Me.lblVerantwortlichDurchführung = New System.Windows.Forms.Label()
Me.txtZeitpunkt = New System.Windows.Forms.TextBox()
Me.lblZeitpunkt = New System.Windows.Forms.Label()
Me.txtPeriodizitaet = New System.Windows.Forms.TextBox()
Me.lblPeriodizitaet = New System.Windows.Forms.Label()
Me.txtPrioritaet = New System.Windows.Forms.TextBox()
Me.lblPrioritaet = New System.Windows.Forms.Label()
Me.lblPruefgegenstand = New System.Windows.Forms.Label()
Me.txtPruefgegenstand = New System.Windows.Forms.TextBox()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DefinitionAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ctxMenuDetails.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.GrpDokumente.SuspendLayout()
Me.grpDetails.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(32, 32)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(958, 24)
Me.MenuStrip1.TabIndex = 4
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
Me.BeendenToolStripMenuItem.Text = "&Schliessen"
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1, Me.lblSearchStruktur_Definition, Me.ToolStripButton3, Me.tsTxtSearch, Me.tsBtnSearchStruktur_Definition, Me.tsbtnFilterAufheben})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(958, 25)
Me.ToolStrip1.TabIndex = 5
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "ToolStripButton1"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.Visible = False
'
'lblSearchStruktur_Definition
'
Me.lblSearchStruktur_Definition.Name = "lblSearchStruktur_Definition"
Me.lblSearchStruktur_Definition.Size = New System.Drawing.Size(46, 22)
Me.lblSearchStruktur_Definition.Text = "Suchen"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "ToolStripButton1"
Me.ToolStripButton3.Visible = False
'
'tsTxtSearch
'
Me.tsTxtSearch.Name = "tsTxtSearch"
Me.tsTxtSearch.Size = New System.Drawing.Size(100, 25)
'
'tsBtnSearchStruktur_Definition
'
Me.tsBtnSearchStruktur_Definition.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsBtnSearchStruktur_Definition.Image = CType(resources.GetObject("tsBtnSearchStruktur_Definition.Image"), System.Drawing.Image)
Me.tsBtnSearchStruktur_Definition.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsBtnSearchStruktur_Definition.Name = "tsBtnSearchStruktur_Definition"
Me.tsBtnSearchStruktur_Definition.Size = New System.Drawing.Size(23, 22)
Me.tsBtnSearchStruktur_Definition.Text = "Suchen"
'
'tsbtnFilterAufheben
'
Me.tsbtnFilterAufheben.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnFilterAufheben.Image = CType(resources.GetObject("tsbtnFilterAufheben.Image"), System.Drawing.Image)
Me.tsbtnFilterAufheben.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnFilterAufheben.Name = "tsbtnFilterAufheben"
Me.tsbtnFilterAufheben.Size = New System.Drawing.Size(23, 22)
Me.tsbtnFilterAufheben.Text = "Filter aufheben"
'
'SplitContainer1
'
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 49)
Me.SplitContainer1.Name = "SplitContainer1"
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.C1Daten)
Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStrip2)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1)
Me.SplitContainer1.Size = New System.Drawing.Size(958, 623)
Me.SplitContainer1.SplitterDistance = 316
Me.SplitContainer1.TabIndex = 6
'
'C1Daten
'
Me.C1Daten.AllowUpdate = False
Me.C1Daten.AlternatingRows = True
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Daten.ContextMenuStrip = Me.ctxMenuDetails
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Daten.FilterBar = True
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
Me.C1Daten.Location = New System.Drawing.Point(0, 25)
Me.C1Daten.Name = "C1Daten"
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Daten.Size = New System.Drawing.Size(958, 291)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 9
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'ctxMenuDetails
'
Me.ctxMenuDetails.ImageScalingSize = New System.Drawing.Size(32, 32)
Me.ctxMenuDetails.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenBearbeitenToolStripMenuItem, Me.NeueDefinitionErfassenToolStripMenuItem, Me.ToolStripMenuItem1, Me.VorgabeAnzeigenToolStripMenuItem, Me.PrüfschrittGenerierenToolStripMenuItem})
Me.ctxMenuDetails.Name = "ctxMenuDetails"
Me.ctxMenuDetails.Size = New System.Drawing.Size(246, 98)
'
'DetailsAnzeigenBearbeitenToolStripMenuItem
'
Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Name = "DetailsAnzeigenBearbeitenToolStripMenuItem"
Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
Me.DetailsAnzeigenBearbeitenToolStripMenuItem.Text = "Details anzeigen / bearbeiten"
'
'NeueDefinitionErfassenToolStripMenuItem
'
Me.NeueDefinitionErfassenToolStripMenuItem.Name = "NeueDefinitionErfassenToolStripMenuItem"
Me.NeueDefinitionErfassenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
Me.NeueDefinitionErfassenToolStripMenuItem.Text = "Neuer Assessment-Plan erfassen"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(242, 6)
'
'VorgabeAnzeigenToolStripMenuItem
'
Me.VorgabeAnzeigenToolStripMenuItem.Name = "VorgabeAnzeigenToolStripMenuItem"
Me.VorgabeAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
Me.VorgabeAnzeigenToolStripMenuItem.Text = "Vorgabe anzeigen"
'
'PrüfschrittGenerierenToolStripMenuItem
'
Me.PrüfschrittGenerierenToolStripMenuItem.Name = "PrüfschrittGenerierenToolStripMenuItem"
Me.PrüfschrittGenerierenToolStripMenuItem.Size = New System.Drawing.Size(245, 22)
Me.PrüfschrittGenerierenToolStripMenuItem.Text = "Assessment generieren"
'
'ToolStrip2
'
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnSave, Me.TSBtnAddNew, Me.TSBtnDelete, Me.TSBtnSetSecurityObject, Me.tsbtnReport, Me.tsbtncopy1, Me.tsbtnCopy2, Me.ToolStripButton2})
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(958, 25)
Me.ToolStrip2.TabIndex = 10
Me.ToolStrip2.Text = "ToolStrip2"
'
'TSBtnSave
'
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnSave.Name = "TSBtnSave"
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
Me.TSBtnSave.Text = "Speichern"
Me.TSBtnSave.Visible = False
'
'TSBtnAddNew
'
Me.TSBtnAddNew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnAddNew.Image = CType(resources.GetObject("TSBtnAddNew.Image"), System.Drawing.Image)
Me.TSBtnAddNew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnAddNew.Name = "TSBtnAddNew"
Me.TSBtnAddNew.Size = New System.Drawing.Size(23, 22)
Me.TSBtnAddNew.Text = "Neu"
'
'TSBtnDelete
'
Me.TSBtnDelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnDelete.Image = CType(resources.GetObject("TSBtnDelete.Image"), System.Drawing.Image)
Me.TSBtnDelete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnDelete.Name = "TSBtnDelete"
Me.TSBtnDelete.Size = New System.Drawing.Size(23, 22)
Me.TSBtnDelete.Text = "Löschen"
'
'TSBtnSetSecurityObject
'
Me.TSBtnSetSecurityObject.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnSetSecurityObject.Image = CType(resources.GetObject("TSBtnSetSecurityObject.Image"), System.Drawing.Image)
Me.TSBtnSetSecurityObject.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnSetSecurityObject.Name = "TSBtnSetSecurityObject"
Me.TSBtnSetSecurityObject.Size = New System.Drawing.Size(23, 22)
Me.TSBtnSetSecurityObject.Text = "SecurityObjekte generieren"
Me.TSBtnSetSecurityObject.Visible = False
'
'tsbtnReport
'
Me.tsbtnReport.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnReport.Image = CType(resources.GetObject("tsbtnReport.Image"), System.Drawing.Image)
Me.tsbtnReport.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnReport.Name = "tsbtnReport"
Me.tsbtnReport.Size = New System.Drawing.Size(23, 22)
Me.tsbtnReport.Text = "Auswertung"
Me.tsbtnReport.Visible = False
'
'tsbtncopy1
'
Me.tsbtncopy1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtncopy1.Image = CType(resources.GetObject("tsbtncopy1.Image"), System.Drawing.Image)
Me.tsbtncopy1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtncopy1.Name = "tsbtncopy1"
Me.tsbtncopy1.Size = New System.Drawing.Size(23, 22)
Me.tsbtncopy1.Text = "In Zwischenablage kopieren"
Me.tsbtncopy1.Visible = False
'
'tsbtnCopy2
'
Me.tsbtnCopy2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnCopy2.Image = CType(resources.GetObject("tsbtnCopy2.Image"), System.Drawing.Image)
Me.tsbtnCopy2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnCopy2.Name = "tsbtnCopy2"
Me.tsbtnCopy2.Size = New System.Drawing.Size(23, 22)
Me.tsbtnCopy2.Text = "In Zwischenablage kopieren"
Me.tsbtnCopy2.Visible = False
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Bearbeiten"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.GrpDokumente)
Me.Panel1.Controls.Add(Me.grpDetails)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(958, 404)
Me.Panel1.TabIndex = 0
'
'GrpDokumente
'
Me.GrpDokumente.Controls.Add(Me.DokumenteAllgemein)
Me.GrpDokumente.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpDokumente.Location = New System.Drawing.Point(484, 0)
Me.GrpDokumente.Name = "GrpDokumente"
Me.GrpDokumente.Size = New System.Drawing.Size(474, 404)
Me.GrpDokumente.TabIndex = 69
Me.GrpDokumente.TabStop = False
Me.GrpDokumente.Text = "Dokumente"
'
'DokumenteAllgemein
'
Me.DokumenteAllgemein.ConnectionString = Nothing
Me.DokumenteAllgemein.Dock = System.Windows.Forms.DockStyle.Fill
Me.DokumenteAllgemein.Doktype = 0
Me.DokumenteAllgemein.Location = New System.Drawing.Point(3, 16)
Me.DokumenteAllgemein.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.DokumenteAllgemein.Mitarbeiternr = 0
Me.DokumenteAllgemein.Name = "DokumenteAllgemein"
Me.DokumenteAllgemein.Pruefschrittnr = 0
Me.DokumenteAllgemein.Size = New System.Drawing.Size(468, 385)
Me.DokumenteAllgemein.TabIndex = 32
Me.DokumenteAllgemein.TempFilePath = Nothing
Me.DokumenteAllgemein.ThemaNr = 0
'
'grpDetails
'
Me.grpDetails.Controls.Add(Me.cbSelbstkontrolle)
Me.grpDetails.Controls.Add(Me.cbKeinMail)
Me.grpDetails.Controls.Add(Me.lblSelbstkontrolle)
Me.grpDetails.Controls.Add(Me.lblKeinMail)
Me.grpDetails.Controls.Add(Me.txtVerantwortlichPlan)
Me.grpDetails.Controls.Add(Me.lblVerantwortlichPlan)
Me.grpDetails.Controls.Add(Me.Label2)
Me.grpDetails.Controls.Add(Me.txtGueltigbis)
Me.grpDetails.Controls.Add(Me.lblGueltigbis)
Me.grpDetails.Controls.Add(Me.txtBezeichnung)
Me.grpDetails.Controls.Add(Me.lblBezeichnung)
Me.grpDetails.Controls.Add(Me.txtBeschreibung)
Me.grpDetails.Controls.Add(Me.lblKontrollaktivität)
Me.grpDetails.Controls.Add(Me.txtVerantwortungISI)
Me.grpDetails.Controls.Add(Me.txtVerantwortlich)
Me.grpDetails.Controls.Add(Me.lblVerantwortlichISI)
Me.grpDetails.Controls.Add(Me.lblVerantwortlichDurchführung)
Me.grpDetails.Controls.Add(Me.txtZeitpunkt)
Me.grpDetails.Controls.Add(Me.lblZeitpunkt)
Me.grpDetails.Controls.Add(Me.txtPeriodizitaet)
Me.grpDetails.Controls.Add(Me.lblPeriodizitaet)
Me.grpDetails.Controls.Add(Me.txtPrioritaet)
Me.grpDetails.Controls.Add(Me.lblPrioritaet)
Me.grpDetails.Controls.Add(Me.lblPruefgegenstand)
Me.grpDetails.Controls.Add(Me.txtPruefgegenstand)
Me.grpDetails.Dock = System.Windows.Forms.DockStyle.Left
Me.grpDetails.Location = New System.Drawing.Point(0, 0)
Me.grpDetails.Name = "grpDetails"
Me.grpDetails.Size = New System.Drawing.Size(484, 404)
Me.grpDetails.TabIndex = 68
Me.grpDetails.TabStop = False
Me.grpDetails.Text = "Details"
'
'cbSelbstkontrolle
'
Me.cbSelbstkontrolle.AutoSize = True
Me.cbSelbstkontrolle.Enabled = False
Me.cbSelbstkontrolle.Location = New System.Drawing.Point(316, 281)
Me.cbSelbstkontrolle.Name = "cbSelbstkontrolle"
Me.cbSelbstkontrolle.Size = New System.Drawing.Size(15, 14)
Me.cbSelbstkontrolle.TabIndex = 91
Me.cbSelbstkontrolle.UseVisualStyleBackColor = True
'
'cbKeinMail
'
Me.cbKeinMail.AutoSize = True
Me.cbKeinMail.Enabled = False
Me.cbKeinMail.Location = New System.Drawing.Point(106, 280)
Me.cbKeinMail.Name = "cbKeinMail"
Me.cbKeinMail.Size = New System.Drawing.Size(15, 14)
Me.cbKeinMail.TabIndex = 90
Me.cbKeinMail.UseVisualStyleBackColor = True
'
'lblSelbstkontrolle
'
Me.lblSelbstkontrolle.AutoSize = True
Me.lblSelbstkontrolle.Location = New System.Drawing.Point(229, 281)
Me.lblSelbstkontrolle.Name = "lblSelbstkontrolle"
Me.lblSelbstkontrolle.Size = New System.Drawing.Size(76, 13)
Me.lblSelbstkontrolle.TabIndex = 89
Me.lblSelbstkontrolle.Text = "Selbstkontrolle"
'
'lblKeinMail
'
Me.lblKeinMail.AutoSize = True
Me.lblKeinMail.Location = New System.Drawing.Point(7, 281)
Me.lblKeinMail.Name = "lblKeinMail"
Me.lblKeinMail.Size = New System.Drawing.Size(50, 13)
Me.lblKeinMail.TabIndex = 88
Me.lblKeinMail.Text = "Kein Mail"
'
'txtVerantwortlichPlan
'
Me.txtVerantwortlichPlan.Location = New System.Drawing.Point(316, 204)
Me.txtVerantwortlichPlan.Name = "txtVerantwortlichPlan"
Me.txtVerantwortlichPlan.ReadOnly = True
Me.txtVerantwortlichPlan.Size = New System.Drawing.Size(125, 20)
Me.txtVerantwortlichPlan.TabIndex = 87
'
'lblVerantwortlichPlan
'
Me.lblVerantwortlichPlan.AutoSize = True
Me.lblVerantwortlichPlan.Location = New System.Drawing.Point(229, 207)
Me.lblVerantwortlichPlan.Name = "lblVerantwortlichPlan"
Me.lblVerantwortlichPlan.Size = New System.Drawing.Size(28, 13)
Me.lblVerantwortlichPlan.TabIndex = 86
Me.lblVerantwortlichPlan.Text = "Plan"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(229, 181)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(74, 13)
Me.Label2.TabIndex = 85
Me.Label2.Text = "Verantwortlich"
'
'txtGueltigbis
'
Me.txtGueltigbis.Location = New System.Drawing.Point(106, 253)
Me.txtGueltigbis.Name = "txtGueltigbis"
Me.txtGueltigbis.ReadOnly = True
Me.txtGueltigbis.Size = New System.Drawing.Size(103, 20)
Me.txtGueltigbis.TabIndex = 84
'
'lblGueltigbis
'
Me.lblGueltigbis.AutoSize = True
Me.lblGueltigbis.Location = New System.Drawing.Point(9, 256)
Me.lblGueltigbis.Name = "lblGueltigbis"
Me.lblGueltigbis.Size = New System.Drawing.Size(50, 13)
Me.lblGueltigbis.TabIndex = 83
Me.lblGueltigbis.Text = "Gültig bis"
'
'txtBezeichnung
'
Me.txtBezeichnung.Location = New System.Drawing.Point(106, 13)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.ReadOnly = True
Me.txtBezeichnung.Size = New System.Drawing.Size(354, 20)
Me.txtBezeichnung.TabIndex = 82
'
'lblBezeichnung
'
Me.lblBezeichnung.AutoSize = True
Me.lblBezeichnung.Location = New System.Drawing.Point(7, 16)
Me.lblBezeichnung.Name = "lblBezeichnung"
Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblBezeichnung.TabIndex = 81
Me.lblBezeichnung.Text = "Bezeichnung"
'
'txtBeschreibung
'
Me.txtBeschreibung.Location = New System.Drawing.Point(106, 45)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.ReadOnly = True
Me.txtBeschreibung.Size = New System.Drawing.Size(355, 59)
Me.txtBeschreibung.TabIndex = 80
'
'lblKontrollaktivität
'
Me.lblKontrollaktivität.AutoSize = True
Me.lblKontrollaktivität.Location = New System.Drawing.Point(7, 45)
Me.lblKontrollaktivität.Name = "lblKontrollaktivität"
Me.lblKontrollaktivität.Size = New System.Drawing.Size(72, 13)
Me.lblKontrollaktivität.TabIndex = 79
Me.lblKontrollaktivität.Text = "Beschreibung"
'
'txtVerantwortungISI
'
Me.txtVerantwortungISI.Location = New System.Drawing.Point(316, 253)
Me.txtVerantwortungISI.Name = "txtVerantwortungISI"
Me.txtVerantwortungISI.ReadOnly = True
Me.txtVerantwortungISI.Size = New System.Drawing.Size(125, 20)
Me.txtVerantwortungISI.TabIndex = 78
'
'txtVerantwortlich
'
Me.txtVerantwortlich.Location = New System.Drawing.Point(316, 228)
Me.txtVerantwortlich.Name = "txtVerantwortlich"
Me.txtVerantwortlich.ReadOnly = True
Me.txtVerantwortlich.Size = New System.Drawing.Size(125, 20)
Me.txtVerantwortlich.TabIndex = 77
'
'lblVerantwortlichISI
'
Me.lblVerantwortlichISI.AutoSize = True
Me.lblVerantwortlichISI.Location = New System.Drawing.Point(229, 256)
Me.lblVerantwortlichISI.Name = "lblVerantwortlichISI"
Me.lblVerantwortlichISI.Size = New System.Drawing.Size(48, 13)
Me.lblVerantwortlichISI.TabIndex = 76
Me.lblVerantwortlichISI.Text = "Kontrolle"
'
'lblVerantwortlichDurchführung
'
Me.lblVerantwortlichDurchführung.AutoSize = True
Me.lblVerantwortlichDurchführung.Location = New System.Drawing.Point(229, 231)
Me.lblVerantwortlichDurchführung.Name = "lblVerantwortlichDurchführung"
Me.lblVerantwortlichDurchführung.Size = New System.Drawing.Size(72, 13)
Me.lblVerantwortlichDurchführung.TabIndex = 75
Me.lblVerantwortlichDurchführung.Text = "Durchführung"
'
'txtZeitpunkt
'
Me.txtZeitpunkt.Location = New System.Drawing.Point(106, 178)
Me.txtZeitpunkt.Name = "txtZeitpunkt"
Me.txtZeitpunkt.ReadOnly = True
Me.txtZeitpunkt.Size = New System.Drawing.Size(103, 20)
Me.txtZeitpunkt.TabIndex = 74
'
'lblZeitpunkt
'
Me.lblZeitpunkt.AutoSize = True
Me.lblZeitpunkt.Location = New System.Drawing.Point(7, 181)
Me.lblZeitpunkt.Name = "lblZeitpunkt"
Me.lblZeitpunkt.Size = New System.Drawing.Size(52, 13)
Me.lblZeitpunkt.TabIndex = 73
Me.lblZeitpunkt.Text = "Zeitpunkt"
'
'txtPeriodizitaet
'
Me.txtPeriodizitaet.Location = New System.Drawing.Point(106, 228)
Me.txtPeriodizitaet.Name = "txtPeriodizitaet"
Me.txtPeriodizitaet.ReadOnly = True
Me.txtPeriodizitaet.Size = New System.Drawing.Size(103, 20)
Me.txtPeriodizitaet.TabIndex = 72
'
'lblPeriodizitaet
'
Me.lblPeriodizitaet.AutoSize = True
Me.lblPeriodizitaet.Location = New System.Drawing.Point(8, 231)
Me.lblPeriodizitaet.Name = "lblPeriodizitaet"
Me.lblPeriodizitaet.Size = New System.Drawing.Size(58, 13)
Me.lblPeriodizitaet.TabIndex = 71
Me.lblPeriodizitaet.Text = "Periodizität"
'
'txtPrioritaet
'
Me.txtPrioritaet.Location = New System.Drawing.Point(106, 204)
Me.txtPrioritaet.Name = "txtPrioritaet"
Me.txtPrioritaet.ReadOnly = True
Me.txtPrioritaet.Size = New System.Drawing.Size(103, 20)
Me.txtPrioritaet.TabIndex = 70
'
'lblPrioritaet
'
Me.lblPrioritaet.AutoSize = True
Me.lblPrioritaet.Location = New System.Drawing.Point(7, 207)
Me.lblPrioritaet.Name = "lblPrioritaet"
Me.lblPrioritaet.Size = New System.Drawing.Size(42, 13)
Me.lblPrioritaet.TabIndex = 69
Me.lblPrioritaet.Text = "Priorität"
'
'lblPruefgegenstand
'
Me.lblPruefgegenstand.AutoSize = True
Me.lblPruefgegenstand.Location = New System.Drawing.Point(7, 110)
Me.lblPruefgegenstand.Name = "lblPruefgegenstand"
Me.lblPruefgegenstand.Size = New System.Drawing.Size(82, 13)
Me.lblPruefgegenstand.TabIndex = 68
Me.lblPruefgegenstand.Text = "Prüfgegenstand"
'
'txtPruefgegenstand
'
Me.txtPruefgegenstand.Location = New System.Drawing.Point(106, 110)
Me.txtPruefgegenstand.Multiline = True
Me.txtPruefgegenstand.Name = "txtPruefgegenstand"
Me.txtPruefgegenstand.ReadOnly = True
Me.txtPruefgegenstand.Size = New System.Drawing.Size(355, 59)
Me.txtPruefgegenstand.TabIndex = 66
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "No Title #6.png")
Me.ImageList1.Images.SetKeyName(1, "Abort.png")
Me.ImageList1.Images.SetKeyName(2, "Stop.png")
Me.ImageList1.Images.SetKeyName(3, "Restore.png")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(32, 32)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DefinitionAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(177, 26)
'
'DefinitionAnzeigenToolStripMenuItem
'
Me.DefinitionAnzeigenToolStripMenuItem.Name = "DefinitionAnzeigenToolStripMenuItem"
Me.DefinitionAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.DefinitionAnzeigenToolStripMenuItem.Text = "Definition anzeigen"
'
'frmPPlan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(958, 672)
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPPlan"
Me.Text = "Assessment-Plan"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel1.PerformLayout()
Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ctxMenuDetails.ResumeLayout(False)
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.GrpDokumente.ResumeLayout(False)
Me.grpDetails.ResumeLayout(False)
Me.grpDetails.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents ctxMenuDetails As System.Windows.Forms.ContextMenuStrip
Friend WithEvents DetailsAnzeigenBearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NeueDefinitionErfassenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents txtPruefgegenstand As TextBox
Friend WithEvents lblPruefgegenstand As Label
Friend WithEvents lblPrioritaet As Label
Friend WithEvents txtPrioritaet As TextBox
Friend WithEvents lblPeriodizitaet As Label
Friend WithEvents txtPeriodizitaet As TextBox
Friend WithEvents lblZeitpunkt As Label
Friend WithEvents txtZeitpunkt As TextBox
Friend WithEvents lblVerantwortlichDurchführung As Label
Friend WithEvents lblVerantwortlichISI As Label
Friend WithEvents txtVerantwortlich As TextBox
Friend WithEvents txtVerantwortungISI As TextBox
Friend WithEvents lblKontrollaktivität As Label
Friend WithEvents txtBeschreibung As TextBox
Friend WithEvents grpDetails As GroupBox
Friend WithEvents DokumenteAllgemein As ThemenDokumente.Dokumente
Friend WithEvents GrpDokumente As GroupBox
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents tsbtnCopy2 As ToolStripButton
Friend WithEvents tsbtncopy1 As ToolStripButton
Friend WithEvents tsbtnReport As ToolStripButton
Friend WithEvents TSBtnSetSecurityObject As ToolStripButton
Friend WithEvents TSBtnDelete As ToolStripButton
Friend WithEvents TSBtnAddNew As ToolStripButton
Friend WithEvents TSBtnSave As ToolStripButton
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents ImageList1 As ImageList
Friend WithEvents lblSearchStruktur_Definition As ToolStripLabel
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents tsTxtSearch As ToolStripTextBox
Friend WithEvents tsBtnSearchStruktur_Definition As ToolStripButton
Friend WithEvents tsbtnFilterAufheben As ToolStripButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents DefinitionAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
Friend WithEvents VorgabeAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents txtBezeichnung As TextBox
Friend WithEvents lblBezeichnung As Label
Friend WithEvents txtGueltigbis As TextBox
Friend WithEvents lblGueltigbis As Label
Friend WithEvents PrüfschrittGenerierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Label2 As Label
Friend WithEvents txtVerantwortlichPlan As TextBox
Friend WithEvents lblVerantwortlichPlan As Label
Friend WithEvents cbSelbstkontrolle As CheckBox
Friend WithEvents cbKeinMail As CheckBox
Friend WithEvents lblSelbstkontrolle As Label
Friend WithEvents lblKeinMail As Label
End Class

3949
SW/AssessmentMgmt/Pruefplan/frmPPlan.resx Normal file
View File

File diff suppressed because it is too large Load Diff

434
SW/AssessmentMgmt/Pruefplan/frmPPlan.vb Normal file
View File

@@ -0,0 +1,434 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class frmPPlan
#Region "Deklarationen"
Dim sec As New Utils.MySecurity
Dim msg As New Utils.MyMessage
Dim FormReadonly As Boolean = False
Dim FormDataChanged As Boolean = False
Private Anzeige As Boolean = False
Dim OnGetData As Boolean
Dim c1bookmark
Dim c2bookmark
Dim pruefplan As New clspruefplan
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Schliessen des Formulars
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.FormReadonly = True
If Me.FormReadonly = True Then Exit Sub
If Check_Changes() = False Then
e.Cancel = True
Else
pruefplan.dispose()
Me.Dispose()
End If
End Sub
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.FormDataChanged Then
msgres = msg.Show_MessageYesNoCancel(3)
Select Case msgres
Case MsgBoxResult.Yes
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.FormDataChanged = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.FormDataChanged = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.FormDataChanged = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Form"
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.ImageList1 = Globals.GueltigImages
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmPPlan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_List()
End Sub
Sub Refresh_List(Optional searchstring As String = "")
Me.pruefplan.Get_Eintraege(Me.C1Daten, 0, Me.tsTxtSearch.Text)
Dim bmp0 As New Bitmap(Me.ImageList1.Images(0))
Dim bmp1 As New Bitmap(Me.ImageList1.Images(1))
Dim bmp2 As New Bitmap(Me.ImageList1.Images(2))
Dim bmp3 As New Bitmap(Me.ImageList1.Images(3))
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
v0.DisplayValue = bmp0
v0.Value = 0
v1.DisplayValue = bmp1
v1.Value = 1
v2.DisplayValue = bmp2
v2.Value = 2
v3.DisplayValue = bmp3
v3.Value = 3
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v0)
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v1)
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v2)
Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v3)
Me.C1Daten.Columns("Icon").ValueItems.Translate = True
Me.C1Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
End Sub
#End Region
#Region "C1Daten"
Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
End Sub
Private Sub C1Daten_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Daten.RowColChange
Refresh_Details()
End Sub
#End Region
Sub Refresh_Details()
Try
Me.txtPruefgegenstand.Text = ""
Me.txtPrioritaet.Text = ""
Me.txtPeriodizitaet.Text = ""
Me.txtZeitpunkt.Text = ""
Me.txtVerantwortlich.Text = ""
Me.txtVerantwortungISI.Text = ""
Me.txtBeschreibung.Text = ""
Me.txtBezeichnung.Text = ""
Me.txtGueltigbis.Text = ""
Me.txtPruefgegenstand.Text = C1Daten.Columns("Pruefgegenstand").Value
Me.txtPeriodizitaet.Text = C1Daten.Columns("Periodizitaet").Value
Me.txtPrioritaet.Text = C1Daten.Columns("Prioritaet").Value
Me.txtZeitpunkt.Text = C1Daten.Columns("Zeitpunkt").Value
Me.txtVerantwortlich.Text = C1Daten.Columns("Verantwortung").Value
Me.txtVerantwortungISI.Text = C1Daten.Columns("Verantwortung_ISI").Value
Me.txtVerantwortlichPlan.Text = C1Daten.Columns("VerantwortungPlan").Value
Me.txtBeschreibung.Text = C1Daten.Columns("Beschreibung").Value
Me.txtBezeichnung.Text = C1Daten.Columns("Bezeichnung").Value
Me.txtGueltigbis.Text = C1Daten.Columns("Gueltig_bis").Value
Me.DokumenteAllgemein.Show_Toolbar = False
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Doktype = 3
Me.DokumenteAllgemein.ThemaNr = C1Daten.Columns("PruefplanNr").Value
Me.DokumenteAllgemein.Refresh()
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Me.cbKeinMail.Checked = C1Daten.Columns("Kein_Mailversand").Value = True
Me.cbSelbstkontrolle.Checked = C1Daten.Columns("Selbstkontrolle").Value = True
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
Private Sub TSBtnAddNew_Click(sender As Object, e As EventArgs) Handles TSBtnAddNew.Click
Dim f As New frmPruefplanDetail
f.MdiParent = Me.MdiParent
f.PruefplanHandler = Me.Handle
f.Show()
End Sub
Private Sub DetailsAnzeigenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailsAnzeigenBearbeitenToolStripMenuItem.Click
Try
c1bookmark = C1Daten.Bookmark
Dim f As New frmPruefplanDetail
f.Pruefplannr = Me.C1Daten.Columns("pruefplannr").Value
f.MdiParent = Me.MdiParent
f.PruefplanHandler = Me.Handle
f.Show()
Catch ex As Exception
End Try
End Sub
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
Try
DetailsAnzeigenBearbeitenToolStripMenuItem_Click(sender, e)
Catch ex As Exception
End Try
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub evh_Pruefplandetail_Saved(handler As Integer, key As Integer) Handles evh.Pruefplandetail_Saved, evh.Pruefplandetail_Closed
Try
If handler = Me.Handle Then
Me.Refresh_List()
For i = 0 To Me.C1Daten.Splits(0).Rows.Count - 1
If C1Daten.Columns("PruefplanNr").CellValue(i) = key Then
Me.C1Daten.Bookmark = i
Refresh_Details()
End If
Next
End If
Catch
End Try
End Sub
Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click
Refresh_List(Me.tsTxtSearch.Text)
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles tsbtnFilterAufheben.Click
Me.tsTxtSearch.Text = ""
Refresh_List(Me.tsTxtSearch.Text)
End Sub
Private Sub tsTxtSearch_KeyDown(sender As Object, e As KeyEventArgs) Handles tsTxtSearch.KeyDown
If e.KeyCode = Keys.Enter Then
tsBtnSearchStruktur_Definition_Click(sender, e)
End If
End Sub
Private Sub DefinitionAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DefinitionAnzeigenToolStripMenuItem.Click
Dim f As New frmVorgabeDefinition
f.Key = Me.C1Daten.Columns("VorgabeDefinitionNr").Value
f.ShowDialog()
End Sub
Private Sub NeueDefinitionErfassenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueDefinitionErfassenToolStripMenuItem.Click
TSBtnAddNew_Click(sender, e)
End Sub
Private Sub VorgabeAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorgabeAnzeigenToolStripMenuItem.Click
Dim f As New frmVorgabe(Me.C1Daten.Columns("Pruefplannr").Value)
f.MdiParent = Me.MdiParent
f.Show()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
DetailsAnzeigenBearbeitenToolStripMenuItem_Click(sender, e)
End Sub
Private Sub TSBtnDelete_Click(sender As Object, e As EventArgs) Handles TSBtnDelete.Click
Try
Dim i As Integer = Me.pruefplan.Get_Data(Me.C1Daten.Columns("Pruefplannr").Value)
If MsgBox("Prüfplaneintrag wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Me.pruefplan.Get_Data(Me.C1Daten.Columns("Pruefplannr").Value)
Me.pruefplan.Delete_Data()
Me.Refresh_List()
End If
Catch ex As Exception
End Try
End Sub
Private Sub PrüfschrittGenerierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrüfschrittGenerierenToolStripMenuItem.Click
Generate_Action()
End Sub
Public Function Generate_Action()
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
'sqlcmd.CommandText = "generate_massnahme"
sqlcmd.CommandText = "generate_pruefschritt"
sqlcmd.Parameters.Add(New SqlParameter("@pruefplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.C1Daten.Columns("Pruefplannr").Value))
sqlcmd.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
sqlcmd.ExecuteNonQuery()
MsgBox("Generierung abgeschlossen")
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
#Region "Toolbar"
#End Region
End Class

476
SW/AssessmentMgmt/Pruefplan/frmPruefplan.Designer.vb generated Normal file
View File

@@ -0,0 +1,476 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPruefplan
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPruefplan))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeStammdaten = New DevComponents.AdvTree.AdvTree()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Node1 = New DevComponents.AdvTree.Node()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.grpPruefgegenstand = New System.Windows.Forms.GroupBox()
Me.lblEreignisse2 = New System.Windows.Forms.Label()
Me.lblMassnahmen2 = New System.Windows.Forms.Label()
Me.txtEreignisse = New System.Windows.Forms.TextBox()
Me.lblEreignisse = New System.Windows.Forms.Label()
Me.txtMassnahmen = New System.Windows.Forms.TextBox()
Me.lblMassnahmen1 = New System.Windows.Forms.Label()
Me.txtPruefgegenstand = New System.Windows.Forms.TextBox()
Me.lblPruefgegenstand = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.grpPlanung = New System.Windows.Forms.GroupBox()
Me.cbboxZeitpunkt = New System.Windows.Forms.ComboBox()
Me.lblZeitpunkt = New System.Windows.Forms.Label()
Me.cbboxPeriodizitaet = New System.Windows.Forms.ComboBox()
Me.lblPeriodizitaet = New System.Windows.Forms.Label()
Me.cbboxPrioritaet = New System.Windows.Forms.ComboBox()
Me.lblPrioritaet = New System.Windows.Forms.Label()
Me.GrpVerantwortung = New System.Windows.Forms.GroupBox()
Me.cbboxVerantwortungISI = New System.Windows.Forms.ComboBox()
Me.cbboxVerantwortlich = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblVerantwortlich = New System.Windows.Forms.Label()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
CType(Me.TreeStammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.grpPruefgegenstand.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.grpPlanung.SuspendLayout()
Me.GrpVerantwortung.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1017, 25)
Me.ToolStrip1.TabIndex = 4
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "ToolStripButton1"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "Neu"
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1017, 24)
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
Me.BeendenToolStripMenuItem.Text = "&Schliessen"
'
'TreeStammdaten
'
Me.TreeStammdaten.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.TreeStammdaten.AllowDrop = True
Me.TreeStammdaten.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.TreeStammdaten.BackgroundStyle.Class = "TreeBorderKey"
Me.TreeStammdaten.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.TreeStammdaten.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeStammdaten.ImageList = Me.ImageList1
Me.TreeStammdaten.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.TreeStammdaten.Location = New System.Drawing.Point(0, 49)
Me.TreeStammdaten.Name = "TreeStammdaten"
Me.TreeStammdaten.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
Me.TreeStammdaten.NodesConnector = Me.NodeConnector1
Me.TreeStammdaten.NodeStyle = Me.ElementStyle1
Me.TreeStammdaten.PathSeparator = ";"
Me.TreeStammdaten.Size = New System.Drawing.Size(323, 596)
Me.TreeStammdaten.Styles.Add(Me.ElementStyle1)
Me.TreeStammdaten.TabIndex = 5
Me.TreeStammdaten.Text = "AdvTree1"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "Finma.jpg")
'
'Node1
'
Me.Node1.Expanded = True
Me.Node1.Name = "Node1"
Me.Node1.Text = "Node1"
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.ToolStrip2)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(323, 49)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(694, 596)
Me.Panel1.TabIndex = 6
'
'Panel2
'
Me.Panel2.Controls.Add(Me.grpPruefgegenstand)
Me.Panel2.Controls.Add(Me.Panel3)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel2.Location = New System.Drawing.Point(0, 25)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(682, 571)
Me.Panel2.TabIndex = 2
'
'grpPruefgegenstand
'
Me.grpPruefgegenstand.Controls.Add(Me.lblEreignisse2)
Me.grpPruefgegenstand.Controls.Add(Me.lblMassnahmen2)
Me.grpPruefgegenstand.Controls.Add(Me.txtEreignisse)
Me.grpPruefgegenstand.Controls.Add(Me.lblEreignisse)
Me.grpPruefgegenstand.Controls.Add(Me.txtMassnahmen)
Me.grpPruefgegenstand.Controls.Add(Me.lblMassnahmen1)
Me.grpPruefgegenstand.Controls.Add(Me.txtPruefgegenstand)
Me.grpPruefgegenstand.Controls.Add(Me.lblPruefgegenstand)
Me.grpPruefgegenstand.Dock = System.Windows.Forms.DockStyle.Fill
Me.grpPruefgegenstand.Location = New System.Drawing.Point(0, 118)
Me.grpPruefgegenstand.Name = "grpPruefgegenstand"
Me.grpPruefgegenstand.Size = New System.Drawing.Size(682, 453)
Me.grpPruefgegenstand.TabIndex = 1
Me.grpPruefgegenstand.TabStop = False
Me.grpPruefgegenstand.Text = "Prüfgegenstand"
'
'lblEreignisse2
'
Me.lblEreignisse2.AutoSize = True
Me.lblEreignisse2.Location = New System.Drawing.Point(8, 178)
Me.lblEreignisse2.Name = "lblEreignisse2"
Me.lblEreignisse2.Size = New System.Drawing.Size(74, 13)
Me.lblEreignisse2.TabIndex = 34
Me.lblEreignisse2.Text = "Info / Rapport"
'
'lblMassnahmen2
'
Me.lblMassnahmen2.AutoSize = True
Me.lblMassnahmen2.Location = New System.Drawing.Point(9, 110)
Me.lblMassnahmen2.Name = "lblMassnahmen2"
Me.lblMassnahmen2.Size = New System.Drawing.Size(83, 13)
Me.lblMassnahmen2.TabIndex = 33
Me.lblMassnahmen2.Text = "bei Abweichung"
'
'txtEreignisse
'
Me.txtEreignisse.Location = New System.Drawing.Point(96, 165)
Me.txtEreignisse.Multiline = True
Me.txtEreignisse.Name = "txtEreignisse"
Me.txtEreignisse.Size = New System.Drawing.Size(275, 62)
Me.txtEreignisse.TabIndex = 32
'
'lblEreignisse
'
Me.lblEreignisse.AutoSize = True
Me.lblEreignisse.Location = New System.Drawing.Point(8, 165)
Me.lblEreignisse.Name = "lblEreignisse"
Me.lblEreignisse.Size = New System.Drawing.Size(55, 13)
Me.lblEreignisse.TabIndex = 31
Me.lblEreignisse.Text = "Ereignisse"
'
'txtMassnahmen
'
Me.txtMassnahmen.Location = New System.Drawing.Point(96, 97)
Me.txtMassnahmen.Multiline = True
Me.txtMassnahmen.Name = "txtMassnahmen"
Me.txtMassnahmen.Size = New System.Drawing.Size(275, 62)
Me.txtMassnahmen.TabIndex = 30
'
'lblMassnahmen1
'
Me.lblMassnahmen1.AutoSize = True
Me.lblMassnahmen1.Location = New System.Drawing.Point(8, 97)
Me.lblMassnahmen1.Name = "lblMassnahmen1"
Me.lblMassnahmen1.Size = New System.Drawing.Size(70, 13)
Me.lblMassnahmen1.TabIndex = 29
Me.lblMassnahmen1.Text = "Massnahmen"
'
'txtPruefgegenstand
'
Me.txtPruefgegenstand.Location = New System.Drawing.Point(98, 29)
Me.txtPruefgegenstand.Multiline = True
Me.txtPruefgegenstand.Name = "txtPruefgegenstand"
Me.txtPruefgegenstand.Size = New System.Drawing.Size(275, 62)
Me.txtPruefgegenstand.TabIndex = 28
'
'lblPruefgegenstand
'
Me.lblPruefgegenstand.AutoSize = True
Me.lblPruefgegenstand.Location = New System.Drawing.Point(10, 29)
Me.lblPruefgegenstand.Name = "lblPruefgegenstand"
Me.lblPruefgegenstand.Size = New System.Drawing.Size(82, 13)
Me.lblPruefgegenstand.TabIndex = 27
Me.lblPruefgegenstand.Text = "Prüfgegenstand"
'
'Panel3
'
Me.Panel3.Controls.Add(Me.grpPlanung)
Me.Panel3.Controls.Add(Me.GrpVerantwortung)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(682, 118)
Me.Panel3.TabIndex = 0
'
'grpPlanung
'
Me.grpPlanung.Controls.Add(Me.cbboxZeitpunkt)
Me.grpPlanung.Controls.Add(Me.lblZeitpunkt)
Me.grpPlanung.Controls.Add(Me.cbboxPeriodizitaet)
Me.grpPlanung.Controls.Add(Me.lblPeriodizitaet)
Me.grpPlanung.Controls.Add(Me.cbboxPrioritaet)
Me.grpPlanung.Controls.Add(Me.lblPrioritaet)
Me.grpPlanung.Dock = System.Windows.Forms.DockStyle.Left
Me.grpPlanung.Location = New System.Drawing.Point(0, 0)
Me.grpPlanung.Name = "grpPlanung"
Me.grpPlanung.Size = New System.Drawing.Size(175, 118)
Me.grpPlanung.TabIndex = 0
Me.grpPlanung.TabStop = False
Me.grpPlanung.Text = "Planung"
'
'cbboxZeitpunkt
'
Me.cbboxZeitpunkt.FormattingEnabled = True
Me.cbboxZeitpunkt.Location = New System.Drawing.Point(70, 78)
Me.cbboxZeitpunkt.Name = "cbboxZeitpunkt"
Me.cbboxZeitpunkt.Size = New System.Drawing.Size(94, 21)
Me.cbboxZeitpunkt.TabIndex = 32
'
'lblZeitpunkt
'
Me.lblZeitpunkt.AutoSize = True
Me.lblZeitpunkt.Location = New System.Drawing.Point(6, 81)
Me.lblZeitpunkt.Name = "lblZeitpunkt"
Me.lblZeitpunkt.Size = New System.Drawing.Size(52, 13)
Me.lblZeitpunkt.TabIndex = 31
Me.lblZeitpunkt.Text = "Zeitpunkt"
'
'cbboxPeriodizitaet
'
Me.cbboxPeriodizitaet.FormattingEnabled = True
Me.cbboxPeriodizitaet.Location = New System.Drawing.Point(70, 50)
Me.cbboxPeriodizitaet.Name = "cbboxPeriodizitaet"
Me.cbboxPeriodizitaet.Size = New System.Drawing.Size(94, 21)
Me.cbboxPeriodizitaet.TabIndex = 30
'
'lblPeriodizitaet
'
Me.lblPeriodizitaet.AutoSize = True
Me.lblPeriodizitaet.Location = New System.Drawing.Point(7, 53)
Me.lblPeriodizitaet.Name = "lblPeriodizitaet"
Me.lblPeriodizitaet.Size = New System.Drawing.Size(58, 13)
Me.lblPeriodizitaet.TabIndex = 29
Me.lblPeriodizitaet.Text = "Periodizität"
'
'cbboxPrioritaet
'
Me.cbboxPrioritaet.FormattingEnabled = True
Me.cbboxPrioritaet.Location = New System.Drawing.Point(70, 22)
Me.cbboxPrioritaet.Name = "cbboxPrioritaet"
Me.cbboxPrioritaet.Size = New System.Drawing.Size(94, 21)
Me.cbboxPrioritaet.TabIndex = 28
'
'lblPrioritaet
'
Me.lblPrioritaet.AutoSize = True
Me.lblPrioritaet.Location = New System.Drawing.Point(7, 25)
Me.lblPrioritaet.Name = "lblPrioritaet"
Me.lblPrioritaet.Size = New System.Drawing.Size(42, 13)
Me.lblPrioritaet.TabIndex = 27
Me.lblPrioritaet.Text = "Priorität"
'
'GrpVerantwortung
'
Me.GrpVerantwortung.Controls.Add(Me.cbboxVerantwortungISI)
Me.GrpVerantwortung.Controls.Add(Me.cbboxVerantwortlich)
Me.GrpVerantwortung.Controls.Add(Me.Label1)
Me.GrpVerantwortung.Controls.Add(Me.lblVerantwortlich)
Me.GrpVerantwortung.Location = New System.Drawing.Point(177, 6)
Me.GrpVerantwortung.Name = "GrpVerantwortung"
Me.GrpVerantwortung.Size = New System.Drawing.Size(202, 109)
Me.GrpVerantwortung.TabIndex = 1
Me.GrpVerantwortung.TabStop = False
Me.GrpVerantwortung.Text = "Verantwortung"
'
'cbboxVerantwortungISI
'
Me.cbboxVerantwortungISI.FormattingEnabled = True
Me.cbboxVerantwortungISI.Location = New System.Drawing.Point(102, 47)
Me.cbboxVerantwortungISI.Name = "cbboxVerantwortungISI"
Me.cbboxVerantwortungISI.Size = New System.Drawing.Size(94, 21)
Me.cbboxVerantwortungISI.TabIndex = 35
'
'cbboxVerantwortlich
'
Me.cbboxVerantwortlich.FormattingEnabled = True
Me.cbboxVerantwortlich.Location = New System.Drawing.Point(102, 14)
Me.cbboxVerantwortlich.Name = "cbboxVerantwortlich"
Me.cbboxVerantwortlich.Size = New System.Drawing.Size(94, 21)
Me.cbboxVerantwortlich.TabIndex = 33
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(6, 50)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(92, 13)
Me.Label1.TabIndex = 34
Me.Label1.Text = "Verantwortung ISI"
'
'lblVerantwortlich
'
Me.lblVerantwortlich.AutoSize = True
Me.lblVerantwortlich.Location = New System.Drawing.Point(6, 22)
Me.lblVerantwortlich.Name = "lblVerantwortlich"
Me.lblVerantwortlich.Size = New System.Drawing.Size(74, 13)
Me.lblVerantwortlich.TabIndex = 33
Me.lblVerantwortlich.Text = "Verantwortlich"
'
'ToolStrip2
'
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(694, 25)
Me.ToolStrip2.TabIndex = 0
Me.ToolStrip2.Text = "ToolStrip2"
'
'frmPruefplan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1017, 645)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.TreeStammdaten)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "frmPruefplan"
Me.Text = "frmFinmaStammdaten"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.TreeStammdaten, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.grpPruefgegenstand.ResumeLayout(False)
Me.grpPruefgegenstand.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.grpPlanung.ResumeLayout(False)
Me.grpPlanung.PerformLayout()
Me.GrpVerantwortung.ResumeLayout(False)
Me.GrpVerantwortung.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TreeStammdaten As DevComponents.AdvTree.AdvTree
Friend WithEvents Node1 As DevComponents.AdvTree.Node
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents grpPruefgegenstand As System.Windows.Forms.GroupBox
Friend WithEvents lblEreignisse2 As System.Windows.Forms.Label
Friend WithEvents lblMassnahmen2 As System.Windows.Forms.Label
Friend WithEvents txtEreignisse As System.Windows.Forms.TextBox
Friend WithEvents lblEreignisse As System.Windows.Forms.Label
Friend WithEvents txtMassnahmen As System.Windows.Forms.TextBox
Friend WithEvents lblMassnahmen1 As System.Windows.Forms.Label
Friend WithEvents txtPruefgegenstand As System.Windows.Forms.TextBox
Friend WithEvents lblPruefgegenstand As System.Windows.Forms.Label
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents grpPlanung As System.Windows.Forms.GroupBox
Friend WithEvents cbboxZeitpunkt As System.Windows.Forms.ComboBox
Friend WithEvents lblZeitpunkt As System.Windows.Forms.Label
Friend WithEvents cbboxPeriodizitaet As System.Windows.Forms.ComboBox
Friend WithEvents lblPeriodizitaet As System.Windows.Forms.Label
Friend WithEvents cbboxPrioritaet As System.Windows.Forms.ComboBox
Friend WithEvents lblPrioritaet As System.Windows.Forms.Label
Friend WithEvents GrpVerantwortung As System.Windows.Forms.GroupBox
Friend WithEvents cbboxVerantwortungISI As System.Windows.Forms.ComboBox
Friend WithEvents cbboxVerantwortlich As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblVerantwortlich As System.Windows.Forms.Label
Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
End Class

208
SW/AssessmentMgmt/Pruefplan/frmPruefplan.resx Normal file
View File

@@ -0,0 +1,208 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLdS1NhHMcfCPoDuummi+i6KwcWlYjb3Obx
7MzN1eY5Z9tJV86Mit5AS3v3rUwtrchhKhVFpVZGWfaiaKQoZiHWiuoivCiiCKSLgk9HjcUu6wcfeH4P
PB+e7+95xP/Ul9eDwZn34z879mTyZ2uhrlTm9nQdyqXnyBxSku7DElcr7DyO7+DzVB+fJm/z/c0Al8qs
qYLuSpm01XZWrbWxOuMv6WutrLSsYzbRR6LnAGMtfr4mnnBlvyNV0FUuk2l1YrNL2B2uJNZsJ+nrbLzq
iDB2XmfkTJDPL+9x/WBOqsDRKJCqF5Fj9yG5FKQcN5Ik43LJZFglptoNRs6FeNocZGasez7qn6NC2GoE
iZlOnKYkN0vD7QygSH4U2Yvs9pDlcPMiHma4RWegsYD3Q5e5U6UsCGzVgskPrbQPCDKrBPZ6gfOUQC5f
ilcJ4snzk53rY/y8xkCTzuzd5Uz3t3Gv1otw1QmevasiPixoHTLXb4sYfRdh4mN4XrLeEyY/P4jkCTB6
RuVRg8aPvhW8vNNCf71/QfAwsZv4uCA+Jmh7IWifEjz/FsHRJAjmF7EhEMKdrzHcHKD/ZJDW3U4mumt4
0hiYj2CxmxF6pzfRmRBkzUU4LnA0CPIqlqGrUVTdwBc0GGz0c//Eem4cUnh2uZKhZjU5REt2raDnrQ/n
SYER2ImhlWKEizGMKBGjkEAoyqN6L3frfPRWexm8sIuRs6GUZ7Q4zSsrdYuJGtuIFpVQFC2ep9BE2xjj
QZ2H3qo8bh710NcSY7w1kiIQHaVr2FxSSklsOyVbtiaJmRQWb+N+rcytYwpdR9zcOhFisq0Qoes6uhZC
08Ko6hzmWtXMXk2imv2GAp29sQAXKxXzB8pcO5zHVOemhSH+K+V6etnpfWt+vb4YS43wD7XEJE0IYfkN
WuDCfcAVxNMAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIPSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKgAV4rbN70Xmn5332lEWiA
ER4D6hmYzBdq2fiss7EPgGLLPjUn302WH7qulv/vuFLy33me3m37+doOPuss7D2A2GWdib3BImUrsH7h
Ak6T3BPJ//uuNv2feL3h/6Sbdf+n3Kr5330j73/H9cz/rdfS/3dez/3ffb3of9uVgv8NF/P+V57L/h+w
1/U/Xxy7MoNYLqdFFVCg/3otUHPV/ym3K/5PvVP6v/1m3P+2m9H/W25G/O+6lfy/52bW//br6f8bLqf+
rzyf/D/soPN/3hA2dQahDBaLiB2C/9MOCf/PPSn0v/CM0P+CM4L/a66Z/W+/4/O/9Y7n//LLOv/zT/P/
zwPirOP8/5MO8P333coFNIBBnYHTiUFaMp5hs2wywzbFNIZtyulAGojTjkj87Hxg+7/9gdX/sM3iH0Bi
MAxSKx7PsIHPgkEIHA5AwIiC7RlYwg8xval7zPG/7jHXf/flTKBYQFUDwTgAMBoTzzG86XjF8B+EfdYw
kJ4Oci8IvFnwSf7//I/y/8M28pJuQNJe3TdzHnr8B+GAReokGsDAwCSVy7DDsI3hBgiLxTPMg4qTBFgY
VBjYwZiBgRkihA4YGADF/vNbfFD3FAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>234, 17</value>
</metadata>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAG
CAAAAk1TRnQBSQFMAwEBAAEwAQABMAEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ
AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm
AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz
AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm
AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm
AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA
ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm
AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm
ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm
AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA
AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ
AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz
AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/
AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA
AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM
AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm
ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ
AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/
ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM
ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm
AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM
AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA
AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA
ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7
Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/8BAAHjARcE4wYWApMBGgH/
MAAGRgFpA28CFgGOApMB9jAAARcERgEXBG8DFgKTAfYwAAVGARcEbwMWApMB9jAABkYEbwQWAZMB/zAA
BUYBTAEXA28DFgKTAf8wAARGAWkBRgFMA28DFgKTAf8wAAJGAW8BvQEWBG8EFgFvAZMB/zAAAkYBbwHz
AZQFbwMWAW8BkwH2MAABbwK9AfQCvQEWBG8CFgFvAZMB9jAAAW8BlAG9AfQCvQEWBG8BFgFvARYBkwH2
MAACRgFvAb0BlAZvAxYBkwH2MAADRgGUARYCRgNvAeMBbwEWAY4BkwH/MAAGRgEXAWkCbwEWAW8BFgFv
AZMB/zAACEYEbwEWAW8BkwH0MAABFwZGAm8CFgFvAhYBkwH0MAABQgFNAT4HAAE+AwABKAMAAUADAAEQ
AwABAQEAAQEFAAGAFwAD/4EACw==
</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>349, 17</value>
</metadata>
</root>

20
SW/AssessmentMgmt/Pruefplan/frmPruefplan.vb Normal file
View File

@@ -0,0 +1,20 @@
Public Class frmPruefplan
Private Sub frmFinmaStammdaten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim KategorieTree As New clsKategorieTree
KategorieTree.Load_Treeview(Me.TreeStammdaten)
End Sub
Private Sub TreeStammdaten_Click(sender As Object, e As EventArgs) Handles TreeStammdaten.Click
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
End Class

1154
SW/AssessmentMgmt/Pruefplan/frmPruefplanDetail.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

3860
SW/AssessmentMgmt/Pruefplan/frmPruefplanDetail.resx Normal file
View File

File diff suppressed because it is too large Load Diff

548
SW/AssessmentMgmt/Pruefplan/frmPruefplanDetail.vb Normal file
View File

@@ -0,0 +1,548 @@
Public Class frmPruefplanDetail
#Region "Deklarationen"
Dim m_pruefplanhandler As Integer
Property PruefplanHandler As Integer
Get
Return m_pruefplanhandler
End Get
Set(value As Integer)
m_pruefplanhandler = value
End Set
End Property
Dim m_Pruefplannr As Integer
Property Pruefplannr As Integer
Get
Return m_Pruefplannr
End Get
Set(value As Integer)
m_Pruefplannr = value
End Set
End Property
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
Dim sec As New Utils.MySecurity
Dim msg As New Utils.MyMessage
Dim FormReadonly As Boolean = False
Dim FormDataChanged As Boolean = False
Dim Pruefplan As New clspruefplan
Dim PruefPlanStruktur As New clsPlanTree
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Schliessen des Formulars
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Me.FormReadonly = True Then Exit Sub
If Check_Changes() = False Then
e.Cancel = True
Else
Pruefplan.dispose()
evh.Pruefplandetail_close(Me.PruefplanHandler, Me.Pruefplannr)
Me.Dispose()
End If
End Sub
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.FormDataChanged Then
msgres = msg.Show_MessageYesNoCancel(3)
Select Case msgres
Case MsgBoxResult.Yes
Save_data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.FormDataChanged = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
Me.FormDataChanged = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.FormDataChanged = True
End Sub
Private Sub generalhandler()
Me.FormDataChanged = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Formular"
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.ImageList1 = Globals.GueltigImages
Me.TreeStruktur.ImageList = Globals.GueltigImages
Me.TreeZuordnung.ImageList = Globals.GueltigImages
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmPruefplanDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Doktype = 3
Me.DokumenteAllgemein.ThemaNr = Me.Pruefplannr
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Me.DokumenteAllgemein.Refresh()
Me.cbboxPrioritaet.DataSource = Pruefplan.Prioritaet
Me.cbboxPrioritaet.DisplayMember = "Bezeichnung"
Me.cbboxPrioritaet.ValueMember = "Prioritaetnr"
Me.cbboxPeriodizitaet.DataSource = Pruefplan.Periodizitaet
Me.cbboxPeriodizitaet.DisplayMember = "Bezeichnung"
Me.cbboxPeriodizitaet.ValueMember = "PeriodizitaetNr"
Me.cbboxZeitpunkt.DataSource = Pruefplan.Zeitpunkt
Me.cbboxZeitpunkt.DisplayMember = "Bezeichnung"
Me.cbboxZeitpunkt.ValueMember = "Zeitpunktnr"
Me.cbboxVerantwortungKontrolle.DataSource = Pruefplan.VerantwortungISI
Me.cbboxVerantwortungKontrolle.DisplayMember = "Bezeichnung"
Me.cbboxVerantwortungKontrolle.ValueMember = "VerantwortungISINr"
Me.cbboxVerantwortungPlan.DataSource = Pruefplan.VerantwortungPlan
Me.cbboxVerantwortungPlan.DisplayMember = "Bezeichnung"
Me.cbboxVerantwortungPlan.ValueMember = "VerantwortungISINr"
Me.cbboxVerantwortungDurchführung.DataSource = Pruefplan.Verantwortung
Me.cbboxVerantwortungDurchführung.DisplayMember = "Bezeichnung"
Me.cbboxVerantwortungDurchführung.ValueMember = "Verantwortungnr"
Me.cbboxTerminierung.DataSource = Pruefplan.Terminierung
Me.cbboxTerminierung.DisplayMember = "Bezeichnung"
Me.cbboxTerminierung.ValueMember = "id"
If Pruefplannr > 0 Then
Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
get_data()
Else
Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
Me.dtGueltigBis.Value = "31.12.2099"
End If
Me.txtBezeichnung.SelectAll()
Me.txtBezeichnung.Focus()
AddChanges(Me)
End Sub
Private Sub get_data()
Pruefplan.Get_Data(Me.Pruefplannr)
Me.cbboxPeriodizitaet.SelectedValue = Pruefplan.iPeriodizitaetNr.Value
Me.cbboxPrioritaet.SelectedValue = Pruefplan.iPrioritaetNr.Value
Me.cbboxZeitpunkt.SelectedValue = Pruefplan.iZeitpunktNr.Value
Me.dtErstmalsam.Value = Pruefplan.daErstmals_am.Value
Me.cbboxVerantwortungDurchführung.SelectedValue = Pruefplan.iVerantwortlichNr.Value
Me.cbboxVerantwortungKontrolle.SelectedValue = Pruefplan.iVerantwortungISINr.Value
Me.cbboxVerantwortungPlan.SelectedValue = Pruefplan.iverantwortungplannr.value
Me.txtBeschreibung.Text = Pruefplan.sBeschreibung.Value
Me.txtBezeichnung.Text = Pruefplan.sBezeichnung.Value
Me.txtHilfsmittel.Text = Pruefplan.sHilfsmittel.Value
'Me.txtBezeichnung.Text = Pruefplan.sBezeichnung.Value
'Me.txtBeschreibung.Text = Pruefplan.sBezeichnung.Value
Me.txtPruefgegenstand.Text = Pruefplan.sPruefgegenstand.Value
Me.txtEreignisse.Text = Pruefplan.sErgebnisse.Value
Me.txtMassnahmen.Text = Pruefplan.sMassnahmen.Value
Me.txtErstelltam.Text = Pruefplan.daErstellt_am.ToSqlString
Me.txtMutiertam.Text = Pruefplan.daMutiert_am
Me.txtMutierer.Text = Pruefplan.MutiererText
Me.cbAktiv.Checked = Pruefplan.bAktiv.Value
Me.dtGueltigBis.Value = Pruefplan.daGueltig_Bis.Value
Me.cbAktiv.Checked = Pruefplan.bAktiv.Value = True
Me.cbboxTerminierung.SelectedValue = Pruefplan.iTerminierungID.Value
Me.cbSelbstkontrolle.Checked = Pruefplan.bSelbstkontrolle.Value = True
Me.cbKeinEMail.Checked = Pruefplan.bKein_Mailversand.Value = True
Me.rbAssessmentTyp_Anzahl.Checked = False
Me.rbAssessmentTyp_Massen.Checked = False
Me.rbAssessmenttyp_Normal.Checked = False
Select Case Pruefplan.iAssessmentType.Value
Case 1
Me.rbAssessmenttyp_Normal.Checked = True
Case 2
Me.rbAssessmentTyp_Anzahl.Checked = True
Case 3
Me.rbAssessmentTyp_Massen.Checked = True
End Select
Me.cbDurchfuerhung_ISI.Checked = Pruefplan.bDurchfuehrung_ISI.Value = True
End Sub
Private Sub Update_Data()
Pruefplan.iPeriodizitaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPeriodizitaet.SelectedValue, Int32))
Pruefplan.iPrioritaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPrioritaet.SelectedValue, Int32))
Pruefplan.iZeitpunktNr = New SqlTypes.SqlInt32(CType(Me.cbboxZeitpunkt.SelectedValue, Int32))
Pruefplan.iVerantwortlichNr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortungDurchführung.SelectedValue, Int32))
Pruefplan.iVerantwortungISINr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortungKontrolle.SelectedValue, Int32))
Pruefplan.iverantwortungplannr = New SqlTypes.SqlInt64(CType(Me.cbboxVerantwortungPlan.SelectedValue, Int32))
Pruefplan.daErstmals_am = New SqlTypes.SqlDateTime(CType(Me.dtErstmalsam.Value, DateTime))
Pruefplan.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
Pruefplan.sPruefgegenstand = New SqlTypes.SqlString(CType(Me.txtPruefgegenstand.Text, String))
Pruefplan.sMassnahmen = New SqlTypes.SqlString(CType(Me.txtMassnahmen.Text, String))
Pruefplan.sErgebnisse = New SqlTypes.SqlString(CType(Me.txtEreignisse.Text, String))
Pruefplan.sHilfsmittel = New SqlTypes.SqlString(CType(Me.txtHilfsmittel.Text, String))
Pruefplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
Pruefplan.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
Pruefplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
Pruefplan.daGueltig_Bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigBis.Value, DateTime))
Pruefplan.iTerminierungID = New SqlTypes.SqlInt32(CType(Me.cbboxTerminierung.SelectedValue, Int32))
Pruefplan.bSelbstkontrolle = New SqlTypes.SqlBoolean(CType(Me.cbSelbstkontrolle.Checked, Boolean))
Pruefplan.bKein_Mailversand = New SqlTypes.SqlBoolean(CType(Me.cbKeinEMail.Checked, Boolean))
If rbAssessmenttyp_Normal.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(1, Int32))
If rbAssessmentTyp_Anzahl.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(2, Int32))
If rbAssessmentTyp_Massen.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(3, Int32))
Pruefplan.bDurchfuehrung_ISI = New SqlTypes.SqlBoolean(CType(Me.cbDurchfuerhung_ISI.Checked, Boolean))
Pruefplan.Save_Data()
Pruefplan.Save_Definition_Pruefplan(Me.TreeZuordnung)
Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
End Sub
#End Region
#Region "Toolbar"
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
Save_data()
End Sub
Sub Save_data()
DialogResult = Windows.Forms.DialogResult.OK
If Me.Pruefplannr = 0 Then
Dim newkey As Integer = Pruefplan.Add_New()
Me.Pruefplannr = newkey
Pruefplan.Get_Data(newkey)
Me.cbAktiv.Checked = True
Else
Pruefplan.Get_Data(Me.Pruefplannr)
End If
Update_Data()
evh.Pruefplandetails_save(Me.PruefplanHandler, Me.Pruefplannr)
FormDataChanged = False
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub tsCbxFilter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tsCbxFilter.SelectedIndexChanged
PruefPlanStruktur.Load_Treeview(Me.TreeStruktur)
If tsCbxFilter.Text = "-- Alle --" Then Exit Sub
Try
For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.Nodes
If Trim(n.Text) <> Trim(tsCbxFilter.Text) Then
n.Remove()
End If
Next
Catch
End Try
End Sub
#End Region
#Region "Zuordnung"
Private Sub btnNeueZuordnung_Click(sender As Object, e As EventArgs) Handles btnNeueZuordnung.Click
If Me.FormDataChanged = True Then Me.Save_data()
If Me.Pruefplannr = 0 Then Me.Save_data()
If Me.GrpStruktur.Visible = False Then
Me.GrpStruktur.Visible = True
Me.GrpStruktur.Dock = DockStyle.Fill
PruefPlanStruktur.Load_Treeview(TreeStruktur)
PruefPlanStruktur.Refresh_Filter(Me.tsCbxFilter)
Me.btnNeueZuordnung.Text = "Struktur verbergen"
Else
Me.GrpStruktur.Visible = False
End If
End Sub
#End Region
#Region "Tree"
Private Sub TreeStruktur_DoubleClick(sender As Object, e As EventArgs) Handles TreeStruktur.DoubleClick
Try
If TreeStruktur.SelectedNode.Nodes.Count > 0 Then
MsgBox("Für die Zuordnung können nur Elemente der untersten Stufe (Definitionen) verwendet werden.", vbExclamation)
Exit Sub
End If
Dim key As Integer = Me.TreeStruktur.SelectedNode.Tag / 1000000
' Pruefplan.Add_new_Zuordnung(Me.Pruefplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.chklbDefinitionZuordnung)
Pruefplan.Add_new_Zuordnung(Me.Pruefplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.TreeZuordnung)
Me.FormDataChanged = True
Catch
End Try
End Sub
Private Sub TreeZuordnung_DoubleClick(sender As Object, e As EventArgs) Handles TreeZuordnung.DoubleClick
If IsDate(Me.TreeZuordnung.SelectedNode.Text) Then
TreeZuordnung.SelectedNode = Me.TreeZuordnung.SelectedNode.Parent
End If
Dim f As New FrmDefinition_Pruefplan
f.Aktiv = TreeZuordnung.SelectedNode.Nodes(0).Tag
f.Gueltig_Bis = TreeZuordnung.SelectedNode.Nodes(0).Text
f.ShowDialog()
Dim save_date As String = TreeZuordnung.SelectedNode.Nodes(0).Text
Dim save_aktiv As String = TreeZuordnung.SelectedNode.Nodes(0).Tag
Dim TN As New DevComponents.AdvTree.Node
Dim DoSave As Boolean = True
TN = Me.TreeZuordnung.SelectedNode
TreeZuordnung.SelectedNode.Nodes(0).Tag = f.Aktiv
TreeZuordnung.SelectedNode.Nodes(0).Text = f.Gueltig_Bis
TreeZuordnung.SelectedNode.ImageIndex = 0
For Each n As DevComponents.AdvTree.Node In Me.TreeZuordnung.Nodes
If n.Tag <> Me.TreeZuordnung.SelectedNode.Tag Then
If n.Text = Me.TreeZuordnung.SelectedNode.Text Then
If (TreeZuordnung.SelectedNode.ImageIndex = 0 Or TreeZuordnung.SelectedNode.ImageIndex = 3) And n.ImageIndex <> 2 And n.ImageIndex <> 1 Then
MsgBox("Es können nicht 2 aktive Verbindungen hergestellt werden")
TreeZuordnung.SelectedNode.Nodes(0).Text = save_date
TreeZuordnung.SelectedNode.Nodes(0).Tag = save_aktiv
DoSave = False
Exit For
End If
End If
End If
Next
If TreeZuordnung.SelectedNode.Nodes(0).Text < "31.12.2099" And TreeZuordnung.SelectedNode.Text > Now.ToString Then TreeZuordnung.SelectedNode.ImageIndex = 3
If TreeZuordnung.SelectedNode.Nodes(0).Text < Now Then TreeZuordnung.SelectedNode.ImageIndex = 2
If TreeZuordnung.SelectedNode.Nodes(0).Tag = False Then TreeZuordnung.SelectedNode.ImageIndex = 1
If DoSave Then
Pruefplan.Update_Zuordnung(Me.TreeZuordnung.SelectedNode.Tag, f.Aktiv, f.Gueltig_Bis)
Me.FormDataChanged = True
End If
End Sub
Private Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
Me.PruefPlanStruktur.Init_Search()
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.SearchNode(Me.TreeStruktur, Trim(Me.tstxtSuche.Text))
Me.TreeStruktur.SelectedNode.EnsureVisible()
End Sub
Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
Me.tstxtSuche.Text = ""
Me.PruefPlanStruktur.Init_Search()
End Sub
Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindFirst(Me.TreeStruktur)
End Sub
Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindPrevNode(Me.TreeStruktur)
End Sub
Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindNextNode(Me.TreeStruktur)
End Sub
Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindLastNode(Me.TreeStruktur)
End Sub
Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
Try
Me.TreeZuordnung_DoubleClick(sender, e)
Catch ex As Exception
End Try
End Sub
Private Sub NeuerEintragHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragHinzufügenToolStripMenuItem.Click
If btnNeueZuordnung.Text <> "Struktur verbergen" Then Me.btnNeueZuordnung_Click(sender, e)
End Sub
Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub cbSelbstkontrolle_CheckedChanged(sender As Object, e As EventArgs) Handles cbSelbstkontrolle.CheckedChanged
Dim SaveKontrolle As Integer
If Me.cbSelbstkontrolle.Checked Then
SaveKontrolle = Me.cbboxVerantwortungKontrolle.SelectedValue
End If
Select Case Me.cbSelbstkontrolle.CheckState
Case CheckState.Checked
Me.cbboxVerantwortungKontrolle.SelectedValue = Me.cbboxVerantwortungDurchführung.SelectedValue
Me.cbboxVerantwortungKontrolle.Enabled = False
Try
If Me.cbboxVerantwortungKontrolle.SelectedValue Is Nothing Then
MsgBox("Selbstkontrolle kann nur gewählt werden, sofern Verantworung-Durchführung ein ISI-Mitarbeiter ist.", vbExclamation)
Me.cbboxVerantwortungKontrolle.SelectedValue = SaveKontrolle
Me.cbSelbstkontrolle.Checked = False
End If
Catch ex As Exception
End Try
Case CheckState.Unchecked
Me.cbboxVerantwortungKontrolle.Enabled = True
End Select
End Sub
#End Region
End Class