Initial commit
This commit is contained in:
@@ -0,0 +1,530 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'DokumentAblageort'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 5. Januar 2013, 10:18:05
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace DB
|
||||
''' <summary>
|
||||
''' Purpose: Data Access class for the table 'DokumentAblageort'.
|
||||
''' </summary>
|
||||
Public Class clsDokumentAblageort
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||
Private m_iMutierer, m_iMandantNr, m_iDokumentablageortNr, m_iDokumentNr, m_iDokumentablagetypNr As SqlInt32
|
||||
Private m_sBeschreibung, m_sAblageort As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Class constructor.
|
||||
''' </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||
''' </summary>
|
||||
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iDokumentablageortNr</LI>
|
||||
''' <LI>iDokumentablagetypNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>iDokumentNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sAblageort. May be SqlString.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>iMandantNr. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageort_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentablageortNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentablageortNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentablagetypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentablagetypNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sAblageort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAblageort))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_DokumentAblageort_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsDokumentAblageort::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||
''' </summary>
|
||||
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iDokumentablageortNr</LI>
|
||||
''' <LI>iDokumentablagetypNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>iDokumentNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sAblageort. May be SqlString.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||
''' <LI>iMandantNr. May be SqlInt32.Null</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageort_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentablageortNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentablageortNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentablagetypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentablagetypNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sAblageort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAblageort))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_DokumentAblageort_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsDokumentAblageort::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
''' </summary>
|
||||
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iDokumentablageortNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageort_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentablageortNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentablageortNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_DokumentAblageort_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsDokumentAblageort::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
''' </summary>
|
||||
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties needed for this method:
|
||||
''' <UL>
|
||||
''' <LI>iDokumentablageortNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iDokumentablageortNr</LI>
|
||||
''' <LI>iDokumentablagetypNr</LI>
|
||||
''' <LI>iDokumentNr</LI>
|
||||
''' <LI>sAblageort</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>iMandantNr</LI>
|
||||
'''</UL>
|
||||
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageort_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("DokumentAblageort")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iDokumentablageortNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentablageortNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_DokumentAblageort_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iDokumentablageortNr = New SqlInt32(CType(dtToReturn.Rows(0)("DokumentablageortNr"), Integer))
|
||||
If dtToReturn.Rows(0)("DokumentablagetypNr") Is System.DBNull.Value Then
|
||||
m_iDokumentablagetypNr = SqlInt32.Null
|
||||
Else
|
||||
m_iDokumentablagetypNr = New SqlInt32(CType(dtToReturn.Rows(0)("DokumentablagetypNr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("DokumentNr") Is System.DBNull.Value Then
|
||||
m_iDokumentNr = SqlInt32.Null
|
||||
Else
|
||||
m_iDokumentNr = New SqlInt32(CType(dtToReturn.Rows(0)("DokumentNr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Ablageort") Is System.DBNull.Value Then
|
||||
m_sAblageort = SqlString.Null
|
||||
Else
|
||||
m_sAblageort = New SqlString(CType(dtToReturn.Rows(0)("Ablageort"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||
m_sBeschreibung = SqlString.Null
|
||||
Else
|
||||
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("MandantNr") Is System.DBNull.Value Then
|
||||
m_iMandantNr = SqlInt32.Null
|
||||
Else
|
||||
m_iMandantNr = New SqlInt32(CType(dtToReturn.Rows(0)("MandantNr"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsDokumentAblageort::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
''' </summary>
|
||||
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
''' <remarks>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_DokumentAblageort_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("DokumentAblageort")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_DokumentAblageort_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsDokumentAblageort::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iDokumentablageortNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iDokumentablageortNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iDokumentablageortNrTmp As SqlInt32 = Value
|
||||
If iDokumentablageortNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iDokumentablageortNr", "iDokumentablageortNr can't be NULL")
|
||||
End If
|
||||
m_iDokumentablageortNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iDokumentablagetypNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iDokumentablagetypNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iDokumentablagetypNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iDokumentNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iDokumentNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iDokumentNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sAblageort]() As SqlString
|
||||
Get
|
||||
Return m_sAblageort
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sAblageort = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBeschreibung]() As SqlString
|
||||
Get
|
||||
Return m_sBeschreibung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBeschreibung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMandantNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iMandantNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMandantNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,489 @@
|
||||
Public Class frmMassnahmeplanDetail
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim m_massnahmeplanhandler As Integer
|
||||
Property massnahmeplanHandler As Integer
|
||||
Get
|
||||
Return m_massnahmeplanhandler
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_massnahmeplanhandler = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Dim m_massnahmeplannr As Integer
|
||||
Property massnahmeplannr As Integer
|
||||
Get
|
||||
Return m_massnahmeplannr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_massnahmeplannr = 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 massnahmeplan As New clsMassnahmeplan
|
||||
Dim massnahmeplanStruktur 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
|
||||
evh.massnahmeplandetail_close(Me.massnahmeplanHandler, Me.massnahmeplannr)
|
||||
massnahmeplan.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
|
||||
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 frmMassnahmeplanDetail_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 = 7
|
||||
Me.DokumenteAllgemein.ThemaNr = Me.massnahmeplannr
|
||||
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
Me.DokumenteAllgemein.Refresh()
|
||||
|
||||
Me.cbboxPrioritaet.DataSource = massnahmeplan.Prioritaet
|
||||
Me.cbboxPrioritaet.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxPrioritaet.ValueMember = "Prioritaetnr"
|
||||
|
||||
Me.cbboxPeriodizitaet.DataSource = massnahmeplan.Periodizitaet
|
||||
Me.cbboxPeriodizitaet.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxPeriodizitaet.ValueMember = "PeriodizitaetNr"
|
||||
|
||||
Me.cbboxZeitpunkt.DataSource = massnahmeplan.Zeitpunkt
|
||||
Me.cbboxZeitpunkt.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxZeitpunkt.ValueMember = "Zeitpunktnr"
|
||||
|
||||
Me.cbboxVerantwortungISI.DataSource = massnahmeplan.VerantwortungISI
|
||||
Me.cbboxVerantwortungISI.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxVerantwortungISI.ValueMember = "VerantwortungISINr"
|
||||
|
||||
Me.cbboxVerantwortlich.DataSource = massnahmeplan.Verantwortung
|
||||
Me.cbboxVerantwortlich.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxVerantwortlich.ValueMember = "Verantwortungnr"
|
||||
|
||||
Me.cbboxTerminierung.DataSource = massnahmeplan.Terminierung
|
||||
Me.cbboxTerminierung.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxTerminierung.ValueMember = "id"
|
||||
If massnahmeplannr > 0 Then
|
||||
massnahmeplan.Get_Definition_massnahmeplan(Me.massnahmeplannr, Me.TreeZuordnung)
|
||||
|
||||
get_data()
|
||||
Else
|
||||
massnahmeplan.Get_Definition_massnahmeplan(Me.massnahmeplannr, Me.TreeZuordnung)
|
||||
Me.dtGueltigBis.Value = "31.12.2099"
|
||||
End If
|
||||
Me.txtBezeichnung.SelectAll()
|
||||
Me.txtBezeichnung.Focus()
|
||||
AddChanges(Me)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub get_data()
|
||||
massnahmeplan.Get_Data(Me.massnahmeplannr)
|
||||
Me.cbboxPeriodizitaet.SelectedValue = massnahmeplan.iPeriodizitaetNr.Value
|
||||
Me.cbboxPrioritaet.SelectedValue = massnahmeplan.iPrioritaetNr.Value
|
||||
Me.cbboxZeitpunkt.SelectedValue = massnahmeplan.iZeitpunktNr.Value
|
||||
Me.dtErstmalsam.Value = massnahmeplan.daErstmals_am.Value
|
||||
Me.cbboxVerantwortlich.SelectedValue = massnahmeplan.iVerantwortlichNr.Value
|
||||
Me.cbboxVerantwortungISI.SelectedValue = massnahmeplan.iVerantwortungISINr.Value
|
||||
Me.txtBeschreibung.Text = massnahmeplan.sBeschreibung.Value
|
||||
Me.txtBezeichnung.Text = massnahmeplan.sBezeichnung.Value
|
||||
Me.txtHilfsmittel.Text = massnahmeplan.sHilfsmittel.Value
|
||||
'Me.txtBezeichnung.Text = massnahmeplan.sBezeichnung.Value
|
||||
'Me.txtBeschreibung.Text = massnahmeplan.sBezeichnung.Value
|
||||
Me.txtPruefgegenstand.Text = massnahmeplan.sPruefgegenstand.Value
|
||||
Me.txtEreignisse.Text = massnahmeplan.sErgebnisse.Value
|
||||
Me.txtMassnahmen.Text = massnahmeplan.sMassnahmen.Value
|
||||
|
||||
Me.txtErstelltam.Text = massnahmeplan.daErstellt_am.ToSqlString
|
||||
Me.txtMutiertam.Text = massnahmeplan.daMutiert_am
|
||||
Me.txtMutierer.Text = massnahmeplan.MutiererText
|
||||
Me.cbAktiv.Checked = massnahmeplan.bAktiv.Value
|
||||
Me.dtGueltigBis.Value = massnahmeplan.daGueltig_Bis.Value
|
||||
Me.cbAktiv.Checked = massnahmeplan.bAktiv.Value = True
|
||||
Me.cbboxTerminierung.SelectedValue = massnahmeplan.iTerminierungID.Value
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub Update_Data()
|
||||
massnahmeplan.iPeriodizitaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPeriodizitaet.SelectedValue, Int32))
|
||||
massnahmeplan.iPrioritaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPrioritaet.SelectedValue, Int32))
|
||||
massnahmeplan.iZeitpunktNr = New SqlTypes.SqlInt32(CType(Me.cbboxZeitpunkt.SelectedValue, Int32))
|
||||
massnahmeplan.iVerantwortlichNr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortlich.SelectedValue, Int32))
|
||||
massnahmeplan.iVerantwortungISINr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortungISI.SelectedValue, Int32))
|
||||
massnahmeplan.daErstmals_am = New SqlTypes.SqlDateTime(CType(Me.dtErstmalsam.Value, DateTime))
|
||||
|
||||
massnahmeplan.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
|
||||
massnahmeplan.sPruefgegenstand = New SqlTypes.SqlString(CType(Me.txtPruefgegenstand.Text, String))
|
||||
massnahmeplan.sMassnahmen = New SqlTypes.SqlString(CType(Me.txtMassnahmen.Text, String))
|
||||
massnahmeplan.sErgebnisse = New SqlTypes.SqlString(CType(Me.txtEreignisse.Text, String))
|
||||
massnahmeplan.sHilfsmittel = New SqlTypes.SqlString(CType(Me.txtHilfsmittel.Text, String))
|
||||
massnahmeplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
|
||||
massnahmeplan.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
|
||||
massnahmeplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
|
||||
massnahmeplan.daGueltig_Bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigBis.Value, DateTime))
|
||||
massnahmeplan.iTerminierungID = New SqlTypes.SqlInt32(CType(Me.cbboxTerminierung.SelectedValue, Int32))
|
||||
|
||||
massnahmeplan.Save_Data()
|
||||
|
||||
massnahmeplan.Save_Definition_massnahmeplan(Me.TreeZuordnung)
|
||||
massnahmeplan.Get_Definition_massnahmeplan(Me.massnahmeplannr, 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.massnahmeplannr = 0 Then
|
||||
Dim newkey As Integer = massnahmeplan.Add_New()
|
||||
Me.massnahmeplannr = newkey
|
||||
massnahmeplan.Get_Data(newkey)
|
||||
Me.cbAktiv.Checked = True
|
||||
Else
|
||||
massnahmeplan.Get_Data(Me.massnahmeplannr)
|
||||
End If
|
||||
Update_Data()
|
||||
evh.massnahmeplandetail_save(Me.massnahmeplanHandler, Me.massnahmeplannr)
|
||||
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
|
||||
massnahmeplanStruktur.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.massnahmeplannr = 0 Then Me.Save_data()
|
||||
|
||||
If Me.GrpStruktur.Visible = False Then
|
||||
Me.GrpStruktur.Visible = True
|
||||
Me.GrpStruktur.Dock = DockStyle.Fill
|
||||
massnahmeplanStruktur.Load_Treeview(TreeStruktur)
|
||||
massnahmeplanStruktur.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
|
||||
|
||||
' massnahmeplan.Add_new_Zuordnung(Me.massnahmeplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.chklbDefinitionZuordnung)
|
||||
massnahmeplan.Add_new_Zuordnung(Me.massnahmeplannr, 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
|
||||
massnahmeplan.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.massnahmeplanStruktur.Init_Search()
|
||||
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.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.massnahmeplanStruktur.Init_Search()
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
|
||||
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.FindFirst(Me.TreeStruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
|
||||
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.FindPrevNode(Me.TreeStruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
|
||||
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.FindNextNode(Me.TreeStruktur)
|
||||
End Sub
|
||||
|
||||
Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
|
||||
Me.TreeStruktur.SelectedNode = massnahmeplanStruktur.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
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,527 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDokument
|
||||
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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokument))
|
||||
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.TSBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnCopy = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnNew = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnDelete = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
|
||||
Me.lblBeschreibung = New System.Windows.Forms.Label()
|
||||
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
|
||||
Me.txtMutierer = New System.Windows.Forms.TextBox()
|
||||
Me.txtMutiert_am = New System.Windows.Forms.TextBox()
|
||||
Me.txtErstellt_am = New System.Windows.Forms.TextBox()
|
||||
Me.lblMutierer = New System.Windows.Forms.Label()
|
||||
Me.lblMutiert_am = New System.Windows.Forms.Label()
|
||||
Me.lblErstelltam = New System.Windows.Forms.Label()
|
||||
Me.cbaktiv = New System.Windows.Forms.CheckBox()
|
||||
Me.dtPickerVersionsdatum = New System.Windows.Forms.DateTimePicker()
|
||||
Me.txtVersionsdatum = New System.Windows.Forms.MaskedTextBox()
|
||||
Me.lblVersionsdatum = New System.Windows.Forms.Label()
|
||||
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
|
||||
Me.txtVersion = New System.Windows.Forms.TextBox()
|
||||
Me.lblVersion = New System.Windows.Forms.Label()
|
||||
Me.lblBezeichnung = New System.Windows.Forms.Label()
|
||||
Me.lblDokumenttyp = New System.Windows.Forms.Label()
|
||||
Me.txtFilename = New System.Windows.Forms.TextBox()
|
||||
Me.lbldatei = New System.Windows.Forms.Label()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.txtDateiname = New System.Windows.Forms.TextBox()
|
||||
Me.txtOriginalFilename_incl_path = New System.Windows.Forms.TextBox()
|
||||
Me.brnFileOpen = New System.Windows.Forms.Button()
|
||||
Me.btnDokumentAnzeigen = New System.Windows.Forms.Button()
|
||||
Me.lblEx = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.txtHyperlink = New System.Windows.Forms.TextBox()
|
||||
Me.lblHyperlink = New System.Windows.Forms.Label()
|
||||
Me.pnlDokument = New System.Windows.Forms.Panel()
|
||||
Me.pnlHyperlink = New System.Windows.Forms.Panel()
|
||||
Me.cboxDokumenttyp = New System.Windows.Forms.ComboBox()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pnlDokument.SuspendLayout()
|
||||
Me.pnlHyperlink.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'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(583, 24)
|
||||
Me.MenuStrip1.TabIndex = 5
|
||||
Me.MenuStrip1.Tag = ""
|
||||
Me.MenuStrip1.Text = "Hauptmenu"
|
||||
'
|
||||
'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.Tag = ""
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||
Me.BeendenToolStripMenuItem.Tag = ""
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave, Me.TSBtnCopy, Me.TSBtnNew, Me.TSBtnDelete, Me.TSBtnSuche})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(583, 25)
|
||||
Me.ToolStrip1.TabIndex = 6
|
||||
Me.ToolStrip1.Text = "Toolstrip Vertragspartner"
|
||||
'
|
||||
'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 = "Fenster schliessen"
|
||||
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||
'
|
||||
'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 = "Daten speichern"
|
||||
Me.TSBtnSave.ToolTipText = "Daten speichern"
|
||||
'
|
||||
'TSBtnCopy
|
||||
'
|
||||
Me.TSBtnCopy.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnCopy.Image = CType(resources.GetObject("TSBtnCopy.Image"), System.Drawing.Image)
|
||||
Me.TSBtnCopy.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnCopy.Name = "TSBtnCopy"
|
||||
Me.TSBtnCopy.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnCopy.Text = "Datensatz kopieren"
|
||||
Me.TSBtnCopy.ToolTipText = "Datensatz kopieren"
|
||||
Me.TSBtnCopy.Visible = False
|
||||
'
|
||||
'TSBtnNew
|
||||
'
|
||||
Me.TSBtnNew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnNew.Image = CType(resources.GetObject("TSBtnNew.Image"), System.Drawing.Image)
|
||||
Me.TSBtnNew.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnNew.Name = "TSBtnNew"
|
||||
Me.TSBtnNew.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnNew.Text = "Neuer Datensatz"
|
||||
Me.TSBtnNew.ToolTipText = "Neuer Datensatz"
|
||||
'
|
||||
'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 = "Datensatz inaktivieren"
|
||||
Me.TSBtnDelete.ToolTipText = "Datensatz inaktivieren"
|
||||
'
|
||||
'TSBtnSuche
|
||||
'
|
||||
Me.TSBtnSuche.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnSuche.Image = CType(resources.GetObject("TSBtnSuche.Image"), System.Drawing.Image)
|
||||
Me.TSBtnSuche.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnSuche.Name = "TSBtnSuche"
|
||||
Me.TSBtnSuche.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnSuche.Text = "ToolStripButton1"
|
||||
Me.TSBtnSuche.Visible = False
|
||||
'
|
||||
'lblBeschreibung
|
||||
'
|
||||
Me.lblBeschreibung.AccessibleDescription = "Name"
|
||||
Me.lblBeschreibung.AutoSize = True
|
||||
Me.lblBeschreibung.Location = New System.Drawing.Point(9, 33)
|
||||
Me.lblBeschreibung.Name = "lblBeschreibung"
|
||||
Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13)
|
||||
Me.lblBeschreibung.TabIndex = 155
|
||||
Me.lblBeschreibung.Text = "Beschreibung"
|
||||
'
|
||||
'txtBeschreibung
|
||||
'
|
||||
Me.txtBeschreibung.Location = New System.Drawing.Point(98, 32)
|
||||
Me.txtBeschreibung.Multiline = True
|
||||
Me.txtBeschreibung.Name = "txtBeschreibung"
|
||||
Me.txtBeschreibung.Size = New System.Drawing.Size(268, 73)
|
||||
Me.txtBeschreibung.TabIndex = 2
|
||||
'
|
||||
'txtMutierer
|
||||
'
|
||||
Me.txtMutierer.BackColor = System.Drawing.SystemColors.InactiveBorder
|
||||
Me.txtMutierer.Location = New System.Drawing.Point(463, 56)
|
||||
Me.txtMutierer.Name = "txtMutierer"
|
||||
Me.txtMutierer.ReadOnly = True
|
||||
Me.txtMutierer.Size = New System.Drawing.Size(97, 20)
|
||||
Me.txtMutierer.TabIndex = 153
|
||||
'
|
||||
'txtMutiert_am
|
||||
'
|
||||
Me.txtMutiert_am.BackColor = System.Drawing.SystemColors.InactiveBorder
|
||||
Me.txtMutiert_am.Location = New System.Drawing.Point(463, 32)
|
||||
Me.txtMutiert_am.Name = "txtMutiert_am"
|
||||
Me.txtMutiert_am.ReadOnly = True
|
||||
Me.txtMutiert_am.Size = New System.Drawing.Size(97, 20)
|
||||
Me.txtMutiert_am.TabIndex = 152
|
||||
'
|
||||
'txtErstellt_am
|
||||
'
|
||||
Me.txtErstellt_am.BackColor = System.Drawing.SystemColors.InactiveBorder
|
||||
Me.txtErstellt_am.Location = New System.Drawing.Point(463, 6)
|
||||
Me.txtErstellt_am.Name = "txtErstellt_am"
|
||||
Me.txtErstellt_am.ReadOnly = True
|
||||
Me.txtErstellt_am.Size = New System.Drawing.Size(97, 20)
|
||||
Me.txtErstellt_am.TabIndex = 151
|
||||
'
|
||||
'lblMutierer
|
||||
'
|
||||
Me.lblMutierer.AccessibleDescription = "Name"
|
||||
Me.lblMutierer.AutoSize = True
|
||||
Me.lblMutierer.Location = New System.Drawing.Point(392, 59)
|
||||
Me.lblMutierer.Name = "lblMutierer"
|
||||
Me.lblMutierer.Size = New System.Drawing.Size(72, 13)
|
||||
Me.lblMutierer.TabIndex = 150
|
||||
Me.lblMutierer.Text = "Mutiert durch:"
|
||||
'
|
||||
'lblMutiert_am
|
||||
'
|
||||
Me.lblMutiert_am.AccessibleDescription = "Name"
|
||||
Me.lblMutiert_am.AutoSize = True
|
||||
Me.lblMutiert_am.Location = New System.Drawing.Point(393, 35)
|
||||
Me.lblMutiert_am.Name = "lblMutiert_am"
|
||||
Me.lblMutiert_am.Size = New System.Drawing.Size(59, 13)
|
||||
Me.lblMutiert_am.TabIndex = 149
|
||||
Me.lblMutiert_am.Text = "Mutiert am:"
|
||||
'
|
||||
'lblErstelltam
|
||||
'
|
||||
Me.lblErstelltam.AccessibleDescription = "Name"
|
||||
Me.lblErstelltam.AutoSize = True
|
||||
Me.lblErstelltam.Location = New System.Drawing.Point(392, 9)
|
||||
Me.lblErstelltam.Name = "lblErstelltam"
|
||||
Me.lblErstelltam.Size = New System.Drawing.Size(58, 13)
|
||||
Me.lblErstelltam.TabIndex = 148
|
||||
Me.lblErstelltam.Text = "Erstellt am:"
|
||||
'
|
||||
'cbaktiv
|
||||
'
|
||||
Me.cbaktiv.Location = New System.Drawing.Point(390, 85)
|
||||
Me.cbaktiv.Name = "cbaktiv"
|
||||
Me.cbaktiv.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.cbaktiv.Size = New System.Drawing.Size(87, 17)
|
||||
Me.cbaktiv.TabIndex = 10
|
||||
Me.cbaktiv.Text = "Aktiv"
|
||||
Me.cbaktiv.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.cbaktiv.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dtPickerVersionsdatum
|
||||
'
|
||||
Me.dtPickerVersionsdatum.Location = New System.Drawing.Point(343, 3)
|
||||
Me.dtPickerVersionsdatum.Name = "dtPickerVersionsdatum"
|
||||
Me.dtPickerVersionsdatum.Size = New System.Drawing.Size(21, 20)
|
||||
Me.dtPickerVersionsdatum.TabIndex = 5
|
||||
Me.dtPickerVersionsdatum.TabStop = False
|
||||
'
|
||||
'txtVersionsdatum
|
||||
'
|
||||
Me.txtVersionsdatum.Location = New System.Drawing.Point(280, 3)
|
||||
Me.txtVersionsdatum.Mask = "00/00/0000"
|
||||
Me.txtVersionsdatum.Name = "txtVersionsdatum"
|
||||
Me.txtVersionsdatum.Size = New System.Drawing.Size(66, 20)
|
||||
Me.txtVersionsdatum.TabIndex = 4
|
||||
Me.txtVersionsdatum.ValidatingType = GetType(Date)
|
||||
'
|
||||
'lblVersionsdatum
|
||||
'
|
||||
Me.lblVersionsdatum.AutoSize = True
|
||||
Me.lblVersionsdatum.Location = New System.Drawing.Point(189, 6)
|
||||
Me.lblVersionsdatum.Name = "lblVersionsdatum"
|
||||
Me.lblVersionsdatum.Size = New System.Drawing.Size(76, 13)
|
||||
Me.lblVersionsdatum.TabIndex = 159
|
||||
Me.lblVersionsdatum.Text = "Versionsdatum"
|
||||
'
|
||||
'txtBezeichnung
|
||||
'
|
||||
Me.txtBezeichnung.Location = New System.Drawing.Point(98, 7)
|
||||
Me.txtBezeichnung.Name = "txtBezeichnung"
|
||||
Me.txtBezeichnung.Size = New System.Drawing.Size(268, 20)
|
||||
Me.txtBezeichnung.TabIndex = 0
|
||||
'
|
||||
'txtVersion
|
||||
'
|
||||
Me.txtVersion.Location = New System.Drawing.Point(98, 3)
|
||||
Me.txtVersion.Name = "txtVersion"
|
||||
Me.txtVersion.Size = New System.Drawing.Size(84, 20)
|
||||
Me.txtVersion.TabIndex = 3
|
||||
'
|
||||
'lblVersion
|
||||
'
|
||||
Me.lblVersion.AutoSize = True
|
||||
Me.lblVersion.Location = New System.Drawing.Point(9, 6)
|
||||
Me.lblVersion.Name = "lblVersion"
|
||||
Me.lblVersion.Size = New System.Drawing.Size(42, 13)
|
||||
Me.lblVersion.TabIndex = 162
|
||||
Me.lblVersion.Text = "Version"
|
||||
'
|
||||
'lblBezeichnung
|
||||
'
|
||||
Me.lblBezeichnung.AutoSize = True
|
||||
Me.lblBezeichnung.Location = New System.Drawing.Point(9, 10)
|
||||
Me.lblBezeichnung.Name = "lblBezeichnung"
|
||||
Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblBezeichnung.TabIndex = 161
|
||||
Me.lblBezeichnung.Text = "Bezeichnung"
|
||||
'
|
||||
'lblDokumenttyp
|
||||
'
|
||||
Me.lblDokumenttyp.AutoSize = True
|
||||
Me.lblDokumenttyp.Location = New System.Drawing.Point(7, 114)
|
||||
Me.lblDokumenttyp.Name = "lblDokumenttyp"
|
||||
Me.lblDokumenttyp.Size = New System.Drawing.Size(70, 13)
|
||||
Me.lblDokumenttyp.TabIndex = 166
|
||||
Me.lblDokumenttyp.Text = "Dokumenttyp"
|
||||
'
|
||||
'txtFilename
|
||||
'
|
||||
Me.txtFilename.Location = New System.Drawing.Point(98, 56)
|
||||
Me.txtFilename.Name = "txtFilename"
|
||||
Me.txtFilename.Size = New System.Drawing.Size(268, 20)
|
||||
Me.txtFilename.TabIndex = 8
|
||||
'
|
||||
'lbldatei
|
||||
'
|
||||
Me.lbldatei.AutoSize = True
|
||||
Me.lbldatei.Location = New System.Drawing.Point(9, 58)
|
||||
Me.lbldatei.Name = "lbldatei"
|
||||
Me.lbldatei.Size = New System.Drawing.Size(32, 13)
|
||||
Me.lbldatei.TabIndex = 168
|
||||
Me.lbldatei.Text = "Datei"
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'txtDateiname
|
||||
'
|
||||
Me.txtDateiname.Location = New System.Drawing.Point(98, 29)
|
||||
Me.txtDateiname.Name = "txtDateiname"
|
||||
Me.txtDateiname.Size = New System.Drawing.Size(268, 20)
|
||||
Me.txtDateiname.TabIndex = 6
|
||||
'
|
||||
'txtOriginalFilename_incl_path
|
||||
'
|
||||
Me.txtOriginalFilename_incl_path.Location = New System.Drawing.Point(393, 6)
|
||||
Me.txtOriginalFilename_incl_path.Name = "txtOriginalFilename_incl_path"
|
||||
Me.txtOriginalFilename_incl_path.Size = New System.Drawing.Size(169, 20)
|
||||
Me.txtOriginalFilename_incl_path.TabIndex = 12
|
||||
Me.txtOriginalFilename_incl_path.Visible = False
|
||||
'
|
||||
'brnFileOpen
|
||||
'
|
||||
Me.brnFileOpen.Image = CType(resources.GetObject("brnFileOpen.Image"), System.Drawing.Image)
|
||||
Me.brnFileOpen.Location = New System.Drawing.Point(363, 55)
|
||||
Me.brnFileOpen.Name = "brnFileOpen"
|
||||
Me.brnFileOpen.Size = New System.Drawing.Size(24, 24)
|
||||
Me.brnFileOpen.TabIndex = 9
|
||||
Me.brnFileOpen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnDokumentAnzeigen
|
||||
'
|
||||
Me.btnDokumentAnzeigen.Image = CType(resources.GetObject("btnDokumentAnzeigen.Image"), System.Drawing.Image)
|
||||
Me.btnDokumentAnzeigen.Location = New System.Drawing.Point(363, 26)
|
||||
Me.btnDokumentAnzeigen.Name = "btnDokumentAnzeigen"
|
||||
Me.btnDokumentAnzeigen.Size = New System.Drawing.Size(24, 24)
|
||||
Me.btnDokumentAnzeigen.TabIndex = 7
|
||||
Me.btnDokumentAnzeigen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblEx
|
||||
'
|
||||
Me.lblEx.AutoSize = True
|
||||
Me.lblEx.Location = New System.Drawing.Point(9, 32)
|
||||
Me.lblEx.Name = "lblEx"
|
||||
Me.lblEx.Size = New System.Drawing.Size(59, 13)
|
||||
Me.lblEx.TabIndex = 173
|
||||
Me.lblEx.Text = "Best. Datei"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.cboxDokumenttyp)
|
||||
Me.Panel1.Controls.Add(Me.cbaktiv)
|
||||
Me.Panel1.Controls.Add(Me.lblErstelltam)
|
||||
Me.Panel1.Controls.Add(Me.lblMutiert_am)
|
||||
Me.Panel1.Controls.Add(Me.lblMutierer)
|
||||
Me.Panel1.Controls.Add(Me.txtErstellt_am)
|
||||
Me.Panel1.Controls.Add(Me.txtMutiert_am)
|
||||
Me.Panel1.Controls.Add(Me.lblDokumenttyp)
|
||||
Me.Panel1.Controls.Add(Me.txtMutierer)
|
||||
Me.Panel1.Controls.Add(Me.txtBeschreibung)
|
||||
Me.Panel1.Controls.Add(Me.lblBeschreibung)
|
||||
Me.Panel1.Controls.Add(Me.lblBezeichnung)
|
||||
Me.Panel1.Controls.Add(Me.txtBezeichnung)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 49)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(583, 140)
|
||||
Me.Panel1.TabIndex = 175
|
||||
'
|
||||
'txtHyperlink
|
||||
'
|
||||
Me.txtHyperlink.Location = New System.Drawing.Point(96, 0)
|
||||
Me.txtHyperlink.Name = "txtHyperlink"
|
||||
Me.txtHyperlink.Size = New System.Drawing.Size(268, 20)
|
||||
Me.txtHyperlink.TabIndex = 176
|
||||
'
|
||||
'lblHyperlink
|
||||
'
|
||||
Me.lblHyperlink.AutoSize = True
|
||||
Me.lblHyperlink.Location = New System.Drawing.Point(7, 2)
|
||||
Me.lblHyperlink.Name = "lblHyperlink"
|
||||
Me.lblHyperlink.Size = New System.Drawing.Size(51, 13)
|
||||
Me.lblHyperlink.TabIndex = 177
|
||||
Me.lblHyperlink.Text = "Hyperlink"
|
||||
'
|
||||
'pnlDokument
|
||||
'
|
||||
Me.pnlDokument.Controls.Add(Me.txtOriginalFilename_incl_path)
|
||||
Me.pnlDokument.Controls.Add(Me.txtVersion)
|
||||
Me.pnlDokument.Controls.Add(Me.lblVersion)
|
||||
Me.pnlDokument.Controls.Add(Me.lblVersionsdatum)
|
||||
Me.pnlDokument.Controls.Add(Me.lblEx)
|
||||
Me.pnlDokument.Controls.Add(Me.txtVersionsdatum)
|
||||
Me.pnlDokument.Controls.Add(Me.btnDokumentAnzeigen)
|
||||
Me.pnlDokument.Controls.Add(Me.dtPickerVersionsdatum)
|
||||
Me.pnlDokument.Controls.Add(Me.lbldatei)
|
||||
Me.pnlDokument.Controls.Add(Me.txtFilename)
|
||||
Me.pnlDokument.Controls.Add(Me.txtDateiname)
|
||||
Me.pnlDokument.Controls.Add(Me.brnFileOpen)
|
||||
Me.pnlDokument.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlDokument.Location = New System.Drawing.Point(0, 189)
|
||||
Me.pnlDokument.Name = "pnlDokument"
|
||||
Me.pnlDokument.Size = New System.Drawing.Size(583, 95)
|
||||
Me.pnlDokument.TabIndex = 178
|
||||
'
|
||||
'pnlHyperlink
|
||||
'
|
||||
Me.pnlHyperlink.Controls.Add(Me.lblHyperlink)
|
||||
Me.pnlHyperlink.Controls.Add(Me.txtHyperlink)
|
||||
Me.pnlHyperlink.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlHyperlink.Location = New System.Drawing.Point(0, 284)
|
||||
Me.pnlHyperlink.Name = "pnlHyperlink"
|
||||
Me.pnlHyperlink.Size = New System.Drawing.Size(583, 46)
|
||||
Me.pnlHyperlink.TabIndex = 179
|
||||
'
|
||||
'cboxDokumenttyp
|
||||
'
|
||||
Me.cboxDokumenttyp.FormattingEnabled = True
|
||||
Me.cboxDokumenttyp.Location = New System.Drawing.Point(98, 111)
|
||||
Me.cboxDokumenttyp.Name = "cboxDokumenttyp"
|
||||
Me.cboxDokumenttyp.Size = New System.Drawing.Size(268, 21)
|
||||
Me.cboxDokumenttyp.TabIndex = 167
|
||||
'
|
||||
'frmDokument
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(583, 341)
|
||||
Me.Controls.Add(Me.pnlHyperlink)
|
||||
Me.Controls.Add(Me.pnlDokument)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmDokument"
|
||||
Me.Text = "Dokument"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.pnlDokument.ResumeLayout(False)
|
||||
Me.pnlDokument.PerformLayout()
|
||||
Me.pnlHyperlink.ResumeLayout(False)
|
||||
Me.pnlHyperlink.PerformLayout()
|
||||
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 TSBtnSave As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnCopy As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnNew As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnDelete As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnSuche As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents lblBeschreibung As System.Windows.Forms.Label
|
||||
Friend WithEvents txtBeschreibung As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtMutierer As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtMutiert_am As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtErstellt_am As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblMutierer As System.Windows.Forms.Label
|
||||
Friend WithEvents lblMutiert_am As System.Windows.Forms.Label
|
||||
Friend WithEvents lblErstelltam As System.Windows.Forms.Label
|
||||
Friend WithEvents cbaktiv As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents dtPickerVersionsdatum As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents txtVersionsdatum As System.Windows.Forms.MaskedTextBox
|
||||
Friend WithEvents lblVersionsdatum As System.Windows.Forms.Label
|
||||
Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtVersion As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblVersion As System.Windows.Forms.Label
|
||||
Friend WithEvents lblBezeichnung As System.Windows.Forms.Label
|
||||
Friend WithEvents lblDokumenttyp As System.Windows.Forms.Label
|
||||
Friend WithEvents txtFilename As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lbldatei As System.Windows.Forms.Label
|
||||
Friend WithEvents brnFileOpen As System.Windows.Forms.Button
|
||||
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents txtDateiname As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtOriginalFilename_incl_path As System.Windows.Forms.TextBox
|
||||
Friend WithEvents btnDokumentAnzeigen As System.Windows.Forms.Button
|
||||
Friend WithEvents lblEx As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents txtHyperlink As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblHyperlink As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlDokument As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlHyperlink As System.Windows.Forms.Panel
|
||||
Friend WithEvents cboxDokumenttyp As System.Windows.Forms.ComboBox
|
||||
End Class
|
||||
Reference in New Issue
Block a user