Initial commit
This commit is contained in:
@@ -0,0 +1,289 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Connection Provider class for Database connection sharing
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||
' // This class implements IDisposable.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Collections
|
||||
|
||||
Namespace DB
|
||||
' /// <summary>
|
||||
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
|
||||
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
|
||||
' /// on a high level.
|
||||
' /// </summary>
|
||||
Public Class clsConnectionProvider
|
||||
Implements IDisposable
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_scoDBConnection As SqlConnection
|
||||
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
|
||||
Private m_stCurrentTransaction As SqlTransaction
|
||||
Private m_alSavePoints As ArrayList
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub New()
|
||||
' // Init the class
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If Not (m_stCurrentTransaction Is Nothing) Then
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
End If
|
||||
If Not (m_scoDBConnection Is Nothing) Then
|
||||
' // closing the connection will abort (rollback) any pending transactions
|
||||
m_scoDBConnection.Close()
|
||||
m_scoDBConnection.Dispose()
|
||||
m_scoDBConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // Create all the objects and initialize other members.
|
||||
m_scoDBConnection = new SqlConnection()
|
||||
m_bIsDisposed = False
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints = new ArrayList()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Opens the connection object.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
|
||||
Public Function OpenConnection() As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
|
||||
' // It's already open.
|
||||
Throw New Exception("OpenConnection::Connection is already open.")
|
||||
End If
|
||||
m_scoDBConnection.Open()
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionName">Name of the transaction to start</param>
|
||||
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
|
||||
Public Function BeginTransaction(sTransactionName As String) As Boolean
|
||||
Try
|
||||
If m_bIsTransactionPending Then
|
||||
' // no nested transactions allowed.
|
||||
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("BeginTransaction::Connection is not open.")
|
||||
End If
|
||||
' // begin the transaction and store the transaction object.
|
||||
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
|
||||
m_bIsTransactionPending = True
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Commits a pending transaction on the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function CommitTransaction() As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("CommitTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("CommitTransaction::Connection is not open.")
|
||||
End if
|
||||
' // commit the transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
|
||||
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
|
||||
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("RollbackTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("RollbackTransaction::Connection is not open.")
|
||||
End If
|
||||
' // rollback the transaction
|
||||
m_stCurrentTransaction.Rollback(sTransactionToRollback)
|
||||
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
|
||||
' // can clean it up.
|
||||
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
|
||||
' // it's not a savepoint
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
|
||||
' /// with the given name.
|
||||
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
|
||||
' /// </summary>
|
||||
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
|
||||
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function SaveTransaction(sSavePointName As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("SaveTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("SaveTransaction::Connection is not open.")
|
||||
End If
|
||||
' // save the transaction
|
||||
m_stCurrentTransaction.Save(sSavePointName)
|
||||
' // Store the savepoint in the list.
|
||||
m_alSavePoints.Add(sSavePointName)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
|
||||
' /// transaction is commited, or aborted.
|
||||
' /// </summary>
|
||||
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
|
||||
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
|
||||
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
|
||||
' /// an error occurs</returns>
|
||||
Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // No open connection
|
||||
Return False
|
||||
End If
|
||||
If m_bIsTransactionPending Then
|
||||
If bCommitPendingTransaction Then
|
||||
' // Commit the pending transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
Else
|
||||
' // Rollback the pending transaction
|
||||
m_stCurrentTransaction.Rollback()
|
||||
End If
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
' // close the connection
|
||||
m_scoDBConnection.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
|
||||
Get
|
||||
Return m_stCurrentTransaction
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property bIsTransactionPending() As Boolean
|
||||
Get
|
||||
Return m_bIsTransactionPending
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property scoDBConnection() As SqlConnection
|
||||
Get
|
||||
Return m_scoDBConnection
|
||||
End Get
|
||||
End Property
|
||||
Public WriteOnly Property sConnectionString() As String
|
||||
Set (ByVal Value As String)
|
||||
m_scoDBConnection.ConnectionString = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,208 @@
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Base class for Database Interaction.
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||
' // Because this class implements IDisposable, derived classes shouldn't do so.
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Namespace DB
|
||||
' /// <summary>
|
||||
' /// Purpose: Error Enums used by this LLBL library.
|
||||
' /// </summary>
|
||||
Public Enum LLBLError
|
||||
AllOk
|
||||
' // Add more here (check the comma's!)
|
||||
End Enum
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
|
||||
' /// </summary>
|
||||
Public Interface ICommonDBAccess
|
||||
Function Insert() As Boolean
|
||||
Function Update() As Boolean
|
||||
Function Delete() As Boolean
|
||||
Function SelectOne() As DataTable
|
||||
Function SelectAll() As DataTable
|
||||
End Interface
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Abstract base class for Database Interaction classes.
|
||||
' /// </summary>
|
||||
Public MustInherit Class clsDBInteractionBase
|
||||
Implements IDisposable
|
||||
Implements ICommonDBAccess
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Protected m_scoMainConnection As SqlConnection
|
||||
Protected m_iRowsAffected As Integer
|
||||
Protected m_iErrorCode As SqlInt32
|
||||
Protected m_bMainConnectionIsCreatedLocal As Boolean
|
||||
Protected m_cpMainConnectionProvider As clsConnectionProvider
|
||||
Private m_sConnectionString As String
|
||||
Private m_bIsDisposed As Boolean
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Initialize the class' members.
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // create all the objects and initialize other members.
|
||||
m_scoMainConnection = new SqlConnection()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
|
||||
m_bIsDisposed = False
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Object is created in this class, so destroy it here.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
End If
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Update() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
|
||||
Set(ByVal Value As clsConnectionProvider)
|
||||
If Value Is Nothing Then
|
||||
' // Invalid value
|
||||
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
|
||||
End If
|
||||
|
||||
' // A connection provider object is passed to this class.
|
||||
' // Retrieve the SqlConnection object, if present and create a
|
||||
' // reference to it. If there is already a MainConnection object
|
||||
' // referenced by the membervar, destroy that one or simply
|
||||
' // remove the reference, based on the flag.
|
||||
If Not (m_scoMainConnection Is Nothing) Then
|
||||
' // First get rid of current connection object. Caller is responsible
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Is local created object, close it and dispose it.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
End If
|
||||
' // Remove reference.
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
|
||||
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
|
||||
m_bMainConnectionIsCreatedLocal = False
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property iErrorCode() As SqlInt32
|
||||
Get
|
||||
Return m_iErrorCode
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Property sConnectionString() As String
|
||||
Get
|
||||
Return m_sConnectionString
|
||||
End Get
|
||||
Set (ByVal Value As String)
|
||||
m_sConnectionString = Value
|
||||
m_scoMainConnection.ConnectionString = m_sConnectionString
|
||||
End Set
|
||||
End Property
|
||||
Public Readonly Property iRowsAffected() As Integer
|
||||
Get
|
||||
Return m_iRowsAffected
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,679 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Dokument'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 5. Januar 2013, 14:57:33
|
||||
' // 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 'Dokument'.
|
||||
''' </summary>
|
||||
Public Class clsDokument
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daVersionsdatum, m_daMutiert_am As SqlDateTime
|
||||
Private m_blobDocImage As SqlBinary
|
||||
Private m_iSpeichertypNr, m_iMutierer, m_iDokumenttypNr, m_iDokType, m_iKeyValue, m_iDokumentNr As SqlInt32
|
||||
Private m_sVersion, m_sFilename, m_sOriginalFilename_incl_Path, m_sVersionsNr, m_sBezeichnung, m_sBeschreibung 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>iDokumentNr</LI>
|
||||
''' <LI>iKeyValue. May be SqlInt32.Null</LI>
|
||||
''' <LI>iDokType. May be SqlInt32.Null</LI>
|
||||
''' <LI>iDokumenttypNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>sFilename. May be SqlString.Null</LI>
|
||||
''' <LI>sOriginalFilename_incl_Path. May be SqlString.Null</LI>
|
||||
''' <LI>sVersion. May be SqlString.Null</LI>
|
||||
''' <LI>sVersionsNr. May be SqlString.Null</LI>
|
||||
''' <LI>daVersionsdatum. May be SqlDateTime.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>blobDocImage. May be SqlBinary.Null</LI>
|
||||
''' <LI>iSpeichertypNr. 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_Dokument_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKeyValue", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKeyValue))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokType", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumenttypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOriginalFilename_incl_Path", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOriginalFilename_incl_Path))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVersion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVersionsNr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersionsNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daVersionsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daVersionsdatum))
|
||||
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))
|
||||
Dim iLength As Integer = 0
|
||||
If Not m_blobDocImage.IsNull Then
|
||||
iLength = m_blobDocImage.Length
|
||||
End If
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobDocImage", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDocImage))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSpeichertypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSpeichertypNr))
|
||||
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_Dokument_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("clsDokument::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>iDokumentNr</LI>
|
||||
''' <LI>iKeyValue. May be SqlInt32.Null</LI>
|
||||
''' <LI>iDokType. May be SqlInt32.Null</LI>
|
||||
''' <LI>iDokumenttypNr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>sFilename. May be SqlString.Null</LI>
|
||||
''' <LI>sOriginalFilename_incl_Path. May be SqlString.Null</LI>
|
||||
''' <LI>sVersion. May be SqlString.Null</LI>
|
||||
''' <LI>sVersionsNr. May be SqlString.Null</LI>
|
||||
''' <LI>daVersionsdatum. May be SqlDateTime.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>blobDocImage. May be SqlBinary.Null</LI>
|
||||
''' <LI>iSpeichertypNr. 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_Dokument_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKeyValue", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKeyValue))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokType", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokType))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumenttypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFilename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFilename))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sOriginalFilename_incl_Path", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOriginalFilename_incl_Path))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVersion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVersionsNr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersionsNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daVersionsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daVersionsdatum))
|
||||
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))
|
||||
Dim iLength As Integer = 0
|
||||
If Not m_blobDocImage.IsNull Then
|
||||
iLength = m_blobDocImage.Length
|
||||
End If
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@blobDocImage", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobDocImage))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSpeichertypNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSpeichertypNr))
|
||||
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_Dokument_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("clsDokument::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>iDokumentNr</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_Dokument_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentNr))
|
||||
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_Dokument_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("clsDokument::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>iDokumentNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iDokumentNr</LI>
|
||||
''' <LI>iKeyValue</LI>
|
||||
''' <LI>iDokType</LI>
|
||||
''' <LI>iDokumenttypNr</LI>
|
||||
''' <LI>sBezeichnung</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>sFilename</LI>
|
||||
''' <LI>sOriginalFilename_incl_Path</LI>
|
||||
''' <LI>sVersion</LI>
|
||||
''' <LI>sVersionsNr</LI>
|
||||
''' <LI>daVersionsdatum</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>blobDocImage</LI>
|
||||
''' <LI>iSpeichertypNr</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_Dokument_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Dokument")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iDokumentNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentNr))
|
||||
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_Dokument_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iDokumentNr = New SqlInt32(CType(dtToReturn.Rows(0)("DokumentNr"), Integer))
|
||||
If dtToReturn.Rows(0)("KeyValue") Is System.DBNull.Value Then
|
||||
m_iKeyValue = SqlInt32.Null
|
||||
Else
|
||||
m_iKeyValue = New SqlInt32(CType(dtToReturn.Rows(0)("KeyValue"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("DokType") Is System.DBNull.Value Then
|
||||
m_iDokType = SqlInt32.Null
|
||||
Else
|
||||
m_iDokType = New SqlInt32(CType(dtToReturn.Rows(0)("DokType"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("DokumenttypNr") Is System.DBNull.Value Then
|
||||
m_iDokumenttypNr = SqlInt32.Null
|
||||
Else
|
||||
m_iDokumenttypNr = New SqlInt32(CType(dtToReturn.Rows(0)("DokumenttypNr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), 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)("Filename") Is System.DBNull.Value Then
|
||||
m_sFilename = SqlString.Null
|
||||
Else
|
||||
m_sFilename = New SqlString(CType(dtToReturn.Rows(0)("Filename"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("OriginalFilename_incl_Path") Is System.DBNull.Value Then
|
||||
m_sOriginalFilename_incl_Path = SqlString.Null
|
||||
Else
|
||||
m_sOriginalFilename_incl_Path = New SqlString(CType(dtToReturn.Rows(0)("OriginalFilename_incl_Path"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Version") Is System.DBNull.Value Then
|
||||
m_sVersion = SqlString.Null
|
||||
Else
|
||||
m_sVersion = New SqlString(CType(dtToReturn.Rows(0)("Version"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("VersionsNr") Is System.DBNull.Value Then
|
||||
m_sVersionsNr = SqlString.Null
|
||||
Else
|
||||
m_sVersionsNr = New SqlString(CType(dtToReturn.Rows(0)("VersionsNr"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Versionsdatum") Is System.DBNull.Value Then
|
||||
m_daVersionsdatum = SqlDateTime.Null
|
||||
Else
|
||||
m_daVersionsdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("Versionsdatum"), Date))
|
||||
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)("DocImage") Is System.DBNull.Value Then
|
||||
m_blobDocImage = SqlBinary.Null
|
||||
Else
|
||||
m_blobDocImage = New SqlBinary(CType(dtToReturn.Rows(0)("DocImage"), Byte()))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("SpeichertypNr") Is System.DBNull.Value Then
|
||||
m_iSpeichertypNr = SqlInt32.Null
|
||||
Else
|
||||
m_iSpeichertypNr = New SqlInt32(CType(dtToReturn.Rows(0)("SpeichertypNr"), 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("clsDokument::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_Dokument_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Dokument")
|
||||
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_Dokument_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("clsDokument::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 [iDokumentNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iDokumentNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iDokumentNrTmp As SqlInt32 = Value
|
||||
If iDokumentNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iDokumentNr", "iDokumentNr can't be NULL")
|
||||
End If
|
||||
m_iDokumentNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iKeyValue]() As SqlInt32
|
||||
Get
|
||||
Return m_iKeyValue
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iKeyValue = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iDokType]() As SqlInt32
|
||||
Get
|
||||
Return m_iDokType
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iDokType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iDokumenttypNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iDokumenttypNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iDokumenttypNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = 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 [sFilename]() As SqlString
|
||||
Get
|
||||
Return m_sFilename
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sFilename = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sOriginalFilename_incl_Path]() As SqlString
|
||||
Get
|
||||
Return m_sOriginalFilename_incl_Path
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOriginalFilename_incl_Path = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVersion]() As SqlString
|
||||
Get
|
||||
Return m_sVersion
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVersion = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sVersionsNr]() As SqlString
|
||||
Get
|
||||
Return m_sVersionsNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sVersionsNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daVersionsdatum]() As SqlDateTime
|
||||
Get
|
||||
Return m_daVersionsdatum
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daVersionsdatum = 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 [blobDocImage]() As SqlBinary
|
||||
Get
|
||||
Return m_blobDocImage
|
||||
End Get
|
||||
Set(ByVal Value As SqlBinary)
|
||||
m_blobDocImage = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iSpeichertypNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iSpeichertypNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iSpeichertypNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,470 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'DokumentAblageTyp'
|
||||
' // 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 'DokumentAblageTyp'.
|
||||
''' </summary>
|
||||
Public Class clsDokumentAblageTyp
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMandantNr, m_iMutierer, m_iDokumentAblageTypNr As SqlInt32
|
||||
Private m_sBezeichnung 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>iDokumentAblageTypNr</LI>
|
||||
''' <LI>sBezeichnung. 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_DokumentAblageTyp_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentAblageTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentAblageTypNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
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_DokumentAblageTyp_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("clsDokumentAblageTyp::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>iDokumentAblageTypNr</LI>
|
||||
''' <LI>sBezeichnung. 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_DokumentAblageTyp_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentAblageTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentAblageTypNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
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_DokumentAblageTyp_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("clsDokumentAblageTyp::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>iDokumentAblageTypNr</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_DokumentAblageTyp_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumentAblageTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentAblageTypNr))
|
||||
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_DokumentAblageTyp_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("clsDokumentAblageTyp::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>iDokumentAblageTypNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iDokumentAblageTypNr</LI>
|
||||
''' <LI>sBezeichnung</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_DokumentAblageTyp_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("DokumentAblageTyp")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iDokumentAblageTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentAblageTypNr))
|
||||
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_DokumentAblageTyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iDokumentAblageTypNr = New SqlInt32(CType(dtToReturn.Rows(0)("DokumentAblageTypNr"), Integer))
|
||||
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), 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("clsDokumentAblageTyp::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_DokumentAblageTyp_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("DokumentAblageTyp")
|
||||
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_DokumentAblageTyp_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("clsDokumentAblageTyp::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 [iDokumentAblageTypNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iDokumentAblageTypNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iDokumentAblageTypNrTmp As SqlInt32 = Value
|
||||
If iDokumentAblageTypNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iDokumentAblageTypNr", "iDokumentAblageTypNr can't be NULL")
|
||||
End If
|
||||
m_iDokumentAblageTypNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = 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,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,450 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Dokumenttyp'
|
||||
' // 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 'Dokumenttyp'.
|
||||
''' </summary>
|
||||
Public Class clsDokumenttyp
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||
Private m_iDokumenttypnr, m_iMutierer As SqlInt32
|
||||
Private m_sBezeichnung 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>iDokumenttypnr</LI>
|
||||
''' <LI>sBezeichnung. 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>
|
||||
''' </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_Dokumenttyp_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
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("@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_Dokumenttyp_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("clsDokumenttyp::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>iDokumenttypnr</LI>
|
||||
''' <LI>sBezeichnung. 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>
|
||||
''' </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_Dokumenttyp_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
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("@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_Dokumenttyp_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("clsDokumenttyp::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>iDokumenttypnr</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_Dokumenttyp_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
|
||||
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_Dokumenttyp_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("clsDokumenttyp::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>iDokumenttypnr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iDokumenttypnr</LI>
|
||||
''' <LI>sBezeichnung</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
''' <LI>bAktiv</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_Dokumenttyp_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Dokumenttyp")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iDokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
|
||||
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_Dokumenttyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("Dokumenttypnr"), Integer))
|
||||
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), 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
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsDokumenttyp::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_Dokumenttyp_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("Dokumenttyp")
|
||||
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_Dokumenttyp_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("clsDokumenttyp::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 [iDokumenttypnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iDokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iDokumenttypnrTmp As SqlInt32 = Value
|
||||
If iDokumenttypnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iDokumenttypnr", "iDokumenttypnr can't be NULL")
|
||||
End If
|
||||
m_iDokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = 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
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,491 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'key_tabelle'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 4. Januar 2013, 17:02:51
|
||||
' // 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 'key_tabelle'.
|
||||
''' </summary>
|
||||
Public Class clsKey_tabelle
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
|
||||
Private m_sBeschreibung 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>sBeschreibung</LI>
|
||||
''' <LI>iKey_wert</LI>
|
||||
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.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>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iKeynr</LI>
|
||||
''' <LI>iErrorCode</LI>
|
||||
'''</UL>
|
||||
''' </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
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("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
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_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
|
||||
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_key_tabelle_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("clsKey_tabelle::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>iKeynr</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>iKey_wert</LI>
|
||||
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.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>
|
||||
''' </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_key_tabelle_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
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("@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_key_tabelle_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("clsKey_tabelle::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>iKeynr</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_key_tabelle_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
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_key_tabelle_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("clsKey_tabelle::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>iKeynr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iKeynr</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>iKey_wert</LI>
|
||||
''' <LI>iMandantnr</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</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_key_tabelle_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||
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_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
|
||||
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
|
||||
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
|
||||
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)("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
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsKey_tabelle::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_key_tabelle_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||
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_key_tabelle_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("clsKey_tabelle::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 [iKeynr]() As SqlInt32
|
||||
Get
|
||||
Return m_iKeynr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iKeynrTmp As SqlInt32 = Value
|
||||
If iKeynrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
|
||||
End If
|
||||
m_iKeynr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBeschreibung]() As SqlString
|
||||
Get
|
||||
Return m_sBeschreibung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
Dim sBeschreibungTmp As SqlString = Value
|
||||
If sBeschreibungTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
|
||||
End If
|
||||
m_sBeschreibung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iKey_wert]() As SqlInt32
|
||||
Get
|
||||
Return m_iKey_wert
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iKey_wertTmp As SqlInt32 = Value
|
||||
If iKey_wertTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
|
||||
End If
|
||||
m_iKey_wert = 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
|
||||
|
||||
|
||||
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 [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
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,61 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Namespace DB
|
||||
Public Class clsMyKey_Tabelle
|
||||
Inherits db.clsKey_tabelle
|
||||
|
||||
Public Function get_dbkey(ByVal Tablename As String) As Long
|
||||
Dim m_dbkey As Long
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey))
|
||||
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.
|
||||
Try
|
||||
scmCmdToExecute.Connection.Open()
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
End Try
|
||||
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
scmCmdToExecute.Connection.Close()
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return m_dbkey
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,470 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'SpeicherTyp'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Samstag, 5. Januar 2013, 14:57:33
|
||||
' // 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 'SpeicherTyp'.
|
||||
''' </summary>
|
||||
Public Class clsSpeicherTyp
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||
Private m_iMutierer, m_iSpeicherTypNr As SqlInt32
|
||||
Private m_sBezeichnung, m_sBeschreibung 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>iSpeicherTypNr</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.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>
|
||||
''' </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_SpeicherTyp_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSpeicherTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSpeicherTypNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
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("@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_SpeicherTyp_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("clsSpeicherTyp::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>iSpeicherTypNr</LI>
|
||||
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv. May be SqlBoolean.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>
|
||||
''' </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_SpeicherTyp_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSpeicherTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSpeicherTypNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
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("@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_SpeicherTyp_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("clsSpeicherTyp::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>iSpeicherTypNr</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_SpeicherTyp_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSpeicherTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSpeicherTypNr))
|
||||
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_SpeicherTyp_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("clsSpeicherTyp::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>iSpeicherTypNr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iSpeicherTypNr</LI>
|
||||
''' <LI>sBezeichnung</LI>
|
||||
''' <LI>sBeschreibung</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</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_SpeicherTyp_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("SpeicherTyp")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iSpeicherTypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSpeicherTypNr))
|
||||
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_SpeicherTyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iSpeicherTypNr = New SqlInt32(CType(dtToReturn.Rows(0)("SpeicherTypNr"), Integer))
|
||||
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), 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)("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)("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
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpeicherTyp::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_SpeicherTyp_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("SpeicherTyp")
|
||||
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_SpeicherTyp_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("clsSpeicherTyp::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 [iSpeicherTypNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iSpeicherTypNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iSpeicherTypNrTmp As SqlInt32 = Value
|
||||
If iSpeicherTypNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iSpeicherTypNr", "iSpeicherTypNr can't be NULL")
|
||||
End If
|
||||
m_iSpeicherTypNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = 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 [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = 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
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,431 @@
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Imports System
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Diagnostics
|
||||
|
||||
'
|
||||
Namespace Utils
|
||||
''' <summary>
|
||||
''' Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank
|
||||
''' </summary>
|
||||
''' <remarks>
|
||||
''' Es werden folgende Datebanktabellen berücksichtigt:
|
||||
''' <list type="bullet">
|
||||
''' <item>
|
||||
''' <description>Dokument Attribut DocImage</description></item>
|
||||
''' <item>
|
||||
''' <description>Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der
|
||||
''' Vertragsübersicht|Vertragselemente</description></item></list>
|
||||
''' </remarks>
|
||||
''' <includesource>yes</includesource>
|
||||
Public Class MyDocMgmt
|
||||
''' <summary>
|
||||
''' Grid-Layoutfile speichern
|
||||
''' </summary>
|
||||
''' <param name="c1data">C1Truedbgrind, von welchem das Layout gespeichert werden soll</param>
|
||||
''' <param name="GriddNo">Nummer des Grids: 1=Vertragsübersicht...</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Save_LayoutFile(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||
Dim filename As String = Globals.TmpFilepath(+Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt")
|
||||
c1data.SaveLayout(filename)
|
||||
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from profil where profilnr = " & Str(Profilnr), Connection)
|
||||
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "profil")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
' Neues Profil sepeichern
|
||||
myRow = ds.Tables(0).NewRow
|
||||
myRow.Item(1) = Globals.Mitarbeiternr
|
||||
myRow.Item(2) = ""
|
||||
Select Case GridNo
|
||||
Case 1
|
||||
myRow.Item(3) = mydata
|
||||
End Select
|
||||
ds.Tables(0).Rows.Add(myRow)
|
||||
DA.Update(ds, "profil")
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Select Case GridNo
|
||||
Case 1
|
||||
myRow.Item(3) = mydata
|
||||
End Select
|
||||
DA.Update(ds, "profil")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
Private Function Get_Layoutfile_from_db(ByVal filename As String, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||
'Exit Function
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From profil where profilnr=" & Str(Profilnr), connection)
|
||||
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "docs")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
Select Case GridNo
|
||||
Case 1
|
||||
MyData = myRow.Item(3)
|
||||
|
||||
End Select
|
||||
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function Get_Layout(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||
Dim filename As String = Globals.TmpFilepath + Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt"
|
||||
If File.Exists(filename) Then
|
||||
c1data.LoadLayout(filename)
|
||||
Return True
|
||||
End If
|
||||
If Get_Layoutfile_from_db(filename, GridNo, Profilnr) Then
|
||||
c1data.LoadLayout(filename)
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Dokument in der Tabelle Dokument speichern
|
||||
''' </summary>
|
||||
''' <param name="Dokumentnr">Nummer des Dokument-Datensatzes</param>
|
||||
''' <param name="Filename">Zu speichender Dateiname</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
|
||||
Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from dokument where dokumentnr =" + Str(Dokumentnr), Connection)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "Dokument")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
Return False
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
myRow.Item(16) = mydata
|
||||
DA.Update(ds, "Dokument")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
Return True
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab
|
||||
''' </summary>
|
||||
''' <param name="DokumentNr"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
|
||||
Dim Filename As String = Globals.TmpFilepath
|
||||
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From Dokument where DokumentNr=" + Str(DokumentNr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "Dokument")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Select Case myRow.Item("Speichertypnr")
|
||||
Case 1
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(16)
|
||||
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Filename = Filename + myRow.Item(6)
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Case 2
|
||||
Filename = myRow.Item("OriginalFilename_incl_Path")
|
||||
Case 3
|
||||
Filename = myRow.Item("OriginalFilename_incl_Path")
|
||||
Case Else
|
||||
Filename = myRow.Item("OriginalFilename_incl_Path")
|
||||
End Select
|
||||
|
||||
Catch ex As Exception
|
||||
''MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||
Return ""
|
||||
Finally
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
Return Filename
|
||||
End Function
|
||||
|
||||
Public Function Show_Document(ByVal Dokumentnr As Integer) As Boolean
|
||||
Dim tmpfilename As String = ""
|
||||
Try
|
||||
tmpfilename = Me.Get_Dokument(Dokumentnr)
|
||||
Catch
|
||||
Return False
|
||||
End Try
|
||||
|
||||
If tmpfilename <> "" Then
|
||||
OpenSystemFile(tmpfilename)
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function OpenSystemFile(ByVal sFileName As String) As Boolean
|
||||
If Len(sFileName) > 0 Then
|
||||
System.Diagnostics.Process.Start(sFileName)
|
||||
'
|
||||
' ShellExecute(GetDesktopWindow(), vbNullString, sFileName, vbNullString, vbNullString, vbNormalFocus)
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal AuswertungName As String) As String
|
||||
Dim filename As String = AuswertungName
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), Connection)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
' Neues Datei speichern
|
||||
myRow = ds.Tables(0).NewRow
|
||||
myRow.Item(0) = Auswertungnr
|
||||
myRow.Item(1) = AuswertungName
|
||||
myRow.Item(2) = RptName(AuswertungName)
|
||||
myRow.Item(3) = mydata
|
||||
myRow.Item(4) = Now
|
||||
myRow.Item(5) = Now
|
||||
myRow.Item(6) = Globals.Mitarbeiternr
|
||||
ds.Tables(0).Rows.Add(myRow)
|
||||
DA.Update(ds, "RptFile")
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
myRow.Item(1) = AuswertungName
|
||||
myRow.Item(2) = RptName(AuswertungName)
|
||||
myRow.Item(3) = mydata
|
||||
myRow.Item(5) = Now
|
||||
myRow.Item(6) = Globals.Mitarbeiternr
|
||||
DA.Update(ds, "RptFile")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
Return RptName(AuswertungName)
|
||||
End Function
|
||||
|
||||
Public Function RptName(ByVal path As String) As String
|
||||
Dim i As Integer
|
||||
Dim file As String = path
|
||||
i = InStrRev(file.Trim, "\")
|
||||
If i = 0 Then
|
||||
Return file.Trim
|
||||
Else
|
||||
Return Right(file.Trim, Len(file.Trim) - i)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Get_RptDatei(ByVal Auswertungnr As String, Optional ByVal fname As String = "") As String
|
||||
Dim connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim Filename As String = ""
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
Filename = Globals.TmpFilepath + "\" + myRow.Item(2).ToString
|
||||
If fname <> "" Then
|
||||
Filename = fname
|
||||
End If
|
||||
MyData = myRow.Item(3)
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
Return ""
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return Filename
|
||||
End Function
|
||||
|
||||
Public Function Save_Architekturfile(ByVal Applikationnr As Integer, ByVal iFilename As String)
|
||||
Dim filename As String = iFilename
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), Connection)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Try
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
' Neues Datei speichern
|
||||
myRow = ds.Tables(0).NewRow
|
||||
myRow.Item(0) = Applikationnr
|
||||
myRow.Item(1) = mydata
|
||||
' myRow.Item(4) = Now
|
||||
' myRow.Item(5) = Now
|
||||
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
ds.Tables(0).Rows.Add(myRow)
|
||||
DA.Update(ds, "RptFile")
|
||||
Else
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
myRow.Item(1) = mydata
|
||||
' myRow.Item(2) = RptName(AuswertungName)
|
||||
' myRow.Item(3) = mydata
|
||||
' myRow.Item(5) = Now
|
||||
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
DA.Update(ds, "RptFile")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
End Function
|
||||
|
||||
Public Function Get_Architekturfile(ByVal Applikationnr As String, Optional ByVal fname As String = "") As String
|
||||
Dim connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim Filename As String = ""
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
DA.Fill(ds, "RptFile")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
Filename = Globals.TmpFilepath + "\architekturfile.xml"
|
||||
If fname <> "" Then
|
||||
Filename = fname
|
||||
End If
|
||||
MyData = myRow.Item(1)
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
Return ""
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return Filename
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
@@ -0,0 +1,252 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Namespace DMS
|
||||
|
||||
Public Class clsDok
|
||||
Inherits DB.clsDokument
|
||||
|
||||
#Region "Deklarationen"
|
||||
Private Dokumenttyp As New DB.clsDokumenttyp
|
||||
Private Speichertyp As New DB.clsSpeicherTyp
|
||||
Public Dokumenttypdaten As DataTable
|
||||
Public Speichertypdaten As New DataTable
|
||||
Private DocMgmt As New Utils.MyDocMgmt
|
||||
Public Dokumente As New DataTable
|
||||
Public Neuer_Datensatz As Boolean = False
|
||||
Public Stammdaten As New DB.clsStammdaten
|
||||
#End Region
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Dokument laden
|
||||
''' </summary>
|
||||
''' <param name="Nr">PersonNr</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
|
||||
Public Function Get_Dokument(ByVal Nr As Integer)
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.iDokumentNr = New SqlInt32(CType(Nr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.SelectOne()
|
||||
Globals.conn.CloseConnection(True)
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Person sichern
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Save_Data() As Integer
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Update()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = False
|
||||
Return Me.iDokumentNr.Value
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Kopie 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 Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Dokument(Basenr)
|
||||
End If
|
||||
Dim db As New DB.clsMyKey_Tabelle
|
||||
db.cpMainConnectionProvider = Globals.conn
|
||||
Dim newkey = db.get_dbkey("Dokument")
|
||||
db.Dispose()
|
||||
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Me.iDokumentNr = 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.Mitarbeiternr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Insert()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = True
|
||||
Return newkey
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Datensatz inaktivieren
|
||||
''' </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_Dokument(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Dokument(Basenr)
|
||||
End If
|
||||
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.Mitarbeiternr, Int32))
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Update()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = False
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Datensatz physisch löschen
|
||||
''' </summary>
|
||||
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
||||
If Basenr <> 0 Then
|
||||
Get_Dokument(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(ByVal Elementnr As Integer, ByVal doktype As Integer) As Integer
|
||||
Dim db As New DB.clsMyKey_Tabelle
|
||||
db.cpMainConnectionProvider = Globals.conn
|
||||
Dim newkey = db.get_dbkey("Dokument")
|
||||
db.Dispose()
|
||||
Me.iDokumentNr = New SqlInt32(CType(newkey, Int32))
|
||||
Me.iKeyValue = New SqlInt32(CType(Elementnr, Int32))
|
||||
Me.iDokType = New SqlInt32(CType(doktype, Int32))
|
||||
Me.iDokumenttypNr = New SqlInt32(CType(2, Int32))
|
||||
Me.sBezeichnung = New SqlString(CType("", String))
|
||||
Me.sBeschreibung = New SqlString(CType("", String))
|
||||
Me.sFilename = New SqlString(CType("", String))
|
||||
Me.sOriginalFilename_incl_Path = New SqlString(CType("", String))
|
||||
Me.sVersion = New SqlString(CType("", String))
|
||||
Me.daVersionsdatum = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
|
||||
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.Mitarbeiternr, Int32))
|
||||
Me.iSpeichertypNr = New SqlInt32(CType(1, Int32))
|
||||
Me.cpMainConnectionProvider = Globals.conn
|
||||
Globals.conn.OpenConnection()
|
||||
Me.Insert()
|
||||
Globals.conn.CloseConnection(True)
|
||||
Me.Neuer_Datensatz = True
|
||||
Return newkey
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Dokumenttypen laden und in der Datatable Dokumenttypdaten bereit stellen
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Get_Dokumenttypen() As DataTable
|
||||
Me.Dokumenttyp.cpMainConnectionProvider = Globals.conn
|
||||
Me.Dokumenttypdaten = Stammdaten.Get_Stammdaten("Dokumenttyp", "Bezeichnung")
|
||||
End Function
|
||||
|
||||
Public Function Get_Speichertypen() As DataTable
|
||||
Me.speichertyp.cpMainConnectionProvider = Globals.conn
|
||||
Me.Speichertypdaten = Stammdaten.Get_Stammdaten("Speichertyp", "Bezeichnung")
|
||||
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Datei im Dokument speichern
|
||||
''' </summary>
|
||||
''' <param name="DokumentNr"></param>
|
||||
''' <param name="Filename"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Save_File(ByVal DokumentNr As Integer, ByVal Filename As String) As Boolean
|
||||
If Filename = "" Then Return True
|
||||
If Me.DocMgmt.Save_Document(DokumentNr, Filename) = False Then
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Show_Doc(ByVal dokumentnr As Integer) As Boolean
|
||||
Return Me.DocMgmt.Show_Document(dokumentnr)
|
||||
End Function
|
||||
|
||||
Public Function Get_Dokumente(ByVal Keyvalue As Integer, ByVal Doktype As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_get_dokumente"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@keyvalue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Keyvalue))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@doktype", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Doktype))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
Throw New Exception("clsDok::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_Dokumente_pruefschritt(ByVal Keyvalue As Integer, ByVal Doktype As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_get_dokumente_Pruefschritt"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@keyvalue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Keyvalue))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@doktype", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
Throw New Exception("clsDok::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Exists_Testdrehbuch(ByVal Applikationnr As Integer) As Integer
|
||||
Dim tmpdata As New DataTable
|
||||
tmpdata = Get_Dokumente(Applikationnr, 2)
|
||||
If tmpdata.Rows.Count = 0 Then
|
||||
tmpdata.Dispose()
|
||||
Return -1
|
||||
Else
|
||||
Return tmpdata.Rows(0).Item("Dokumentnr")
|
||||
tmpdata.Dispose()
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
#Region "Dokumentablageorte"
|
||||
Public Dokumentablageort As TKB.VV.Sysadmin.DomainTable
|
||||
|
||||
Public Function Get_Ablageorte(ByVal c1data As C1TrueDBGrid, ByVal Dokumentnr As Integer)
|
||||
Dokumentablageort = New TKB.VV.Sysadmin.DomainTable("Dokumentablageort", Str(Dokumentnr), Globals.Mitarbeiternr)
|
||||
c1data.DataSource = Dokumentablageort.Tabledata
|
||||
c1data.DataMember = Dokumentablageort.Tabledata.Tables(0).TableName
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
|
||||
@@ -0,0 +1,70 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace db
|
||||
|
||||
Public Class clsStammdaten
|
||||
Public Function Get_Stammdaten(ByVal Tabelle As String, ByVal orderby As String) As DataTable
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
Dim ds As New DataSet
|
||||
selectcommand.CommandText = "sp_get_stammdaten"
|
||||
selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
|
||||
selectcommand.Parameters.Add("@Tabelle", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@Orderby", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters(0).Value = Globals.Mitarbeiternr
|
||||
selectcommand.Parameters(1).Value = Tabelle
|
||||
selectcommand.Parameters(2).Value = orderby
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
da.Fill(ds)
|
||||
Return ds.Tables(0)
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
ds.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Get_Gremium(ByVal type As Integer, ByVal subtype As Integer) As DataTable
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
Dim ds As New DataSet
|
||||
selectcommand.CommandText = "dbo.sp_get_gremium"
|
||||
selectcommand.Parameters.Add("@type", SqlDbType.Int, 4)
|
||||
selectcommand.Parameters.Add("@subtype", SqlDbType.Int, 4)
|
||||
selectcommand.Parameters(0).Value = type
|
||||
selectcommand.Parameters(1).Value = subtype
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
da.Fill(ds)
|
||||
Return ds.Tables(0)
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
ds.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Generated
+206
@@ -0,0 +1,206 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Dokumente
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl1 ü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(Dokumente))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ImageListeDocIcon = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.C1Dokumente = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeuesDokumentToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentanzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ImageListPruefschritt = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.C1CommandHolder1 = New C1.Win.C1Command.C1CommandHolder()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
CType(Me.C1CommandHolder1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.AllowDrop = True
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(625, 25)
|
||||
Me.ToolStrip1.TabIndex = 0
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'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 = "Neues Dokument"
|
||||
'
|
||||
'ToolStripButton4
|
||||
'
|
||||
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton4.Name = "ToolStripButton4"
|
||||
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
|
||||
'
|
||||
'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 = "Dokument löschen"
|
||||
'
|
||||
'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 = "Dokument anzeigen"
|
||||
'
|
||||
'ImageListeDocIcon
|
||||
'
|
||||
Me.ImageListeDocIcon.ImageStream = CType(resources.GetObject("ImageListeDocIcon.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageListeDocIcon.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageListeDocIcon.Images.SetKeyName(0, "PDF.ico")
|
||||
Me.ImageListeDocIcon.Images.SetKeyName(1, "Microsoft-Office-Word-icon.png")
|
||||
Me.ImageListeDocIcon.Images.SetKeyName(2, "Microsoft-Office-Excel-icon.png")
|
||||
Me.ImageListeDocIcon.Images.SetKeyName(3, "MS-Office-2003-PowerPoint-icon.png")
|
||||
Me.ImageListeDocIcon.Images.SetKeyName(4, "Network-icon.png")
|
||||
Me.ImageListeDocIcon.Images.SetKeyName(5, "Mail.ico")
|
||||
Me.ImageListeDocIcon.Images.SetKeyName(6, "Document-Blank-icon.png")
|
||||
Me.ImageListeDocIcon.Images.SetKeyName(7, "photos-icon.png")
|
||||
'
|
||||
'C1Dokumente
|
||||
'
|
||||
Me.C1Dokumente.AllowDrop = True
|
||||
Me.C1Dokumente.AlternatingRows = True
|
||||
Me.C1Dokumente.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.C1Dokumente.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1Dokumente.FetchRowStyles = True
|
||||
Me.C1Dokumente.FilterBar = True
|
||||
Me.C1Dokumente.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Dokumente.Images.Add(CType(resources.GetObject("C1Dokumente.Images"), System.Drawing.Image))
|
||||
Me.C1Dokumente.Location = New System.Drawing.Point(0, 25)
|
||||
Me.C1Dokumente.Name = "C1Dokumente"
|
||||
Me.C1Dokumente.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Dokumente.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Dokumente.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C1Dokumente.PrintInfo.PageSettings = CType(resources.GetObject("C1Dokumente.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Dokumente.Size = New System.Drawing.Size(625, 294)
|
||||
Me.C1Dokumente.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C1Dokumente.TabIndex = 9
|
||||
Me.C1Dokumente.Text = "C1TrueDBGrid1"
|
||||
Me.C1Dokumente.PropBag = resources.GetString("C1Dokumente.PropBag")
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuesDokumentToolStripMenuItem, Me.DokumentInformationenBearbeitenToolStripMenuItem, Me.DokumentLöschenToolStripMenuItem, Me.DokumentanzeigenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(279, 124)
|
||||
'
|
||||
'NeuesDokumentToolStripMenuItem
|
||||
'
|
||||
Me.NeuesDokumentToolStripMenuItem.Image = CType(resources.GetObject("NeuesDokumentToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
Me.NeuesDokumentToolStripMenuItem.Name = "NeuesDokumentToolStripMenuItem"
|
||||
Me.NeuesDokumentToolStripMenuItem.Size = New System.Drawing.Size(278, 30)
|
||||
Me.NeuesDokumentToolStripMenuItem.Text = "&Neues Dokument"
|
||||
'
|
||||
'DokumentInformationenBearbeitenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem.Image = CType(resources.GetObject("DokumentInformationenBearbeitenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem.Name = "DokumentInformationenBearbeitenToolStripMenuItem"
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(278, 30)
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem.Text = "Dokument-Informationen bearbeiten"
|
||||
'
|
||||
'DokumentLöschenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentLöschenToolStripMenuItem.Image = CType(resources.GetObject("DokumentLöschenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
Me.DokumentLöschenToolStripMenuItem.Name = "DokumentLöschenToolStripMenuItem"
|
||||
Me.DokumentLöschenToolStripMenuItem.Size = New System.Drawing.Size(278, 30)
|
||||
Me.DokumentLöschenToolStripMenuItem.Text = "Dokument löschen"
|
||||
'
|
||||
'DokumentanzeigenToolStripMenuItem
|
||||
'
|
||||
Me.DokumentanzeigenToolStripMenuItem.Image = CType(resources.GetObject("DokumentanzeigenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
Me.DokumentanzeigenToolStripMenuItem.Name = "DokumentanzeigenToolStripMenuItem"
|
||||
Me.DokumentanzeigenToolStripMenuItem.Size = New System.Drawing.Size(278, 30)
|
||||
Me.DokumentanzeigenToolStripMenuItem.Text = "Dokument &anzeigen"
|
||||
'
|
||||
'ImageListPruefschritt
|
||||
'
|
||||
Me.ImageListPruefschritt.ImageStream = CType(resources.GetObject("ImageListPruefschritt.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageListPruefschritt.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageListPruefschritt.Images.SetKeyName(0, "Vorgabe_Dokumente.png")
|
||||
Me.ImageListPruefschritt.Images.SetKeyName(1, "Definition_Dokument.png")
|
||||
Me.ImageListPruefschritt.Images.SetKeyName(2, "Pruefplan_Dokument.png")
|
||||
'
|
||||
'C1CommandHolder1
|
||||
'
|
||||
Me.C1CommandHolder1.Owner = Me
|
||||
'
|
||||
'Dokumente
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.C1Dokumente)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "Dokumente"
|
||||
Me.Size = New System.Drawing.Size(625, 319)
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
CType(Me.C1CommandHolder1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ImageListeDocIcon As System.Windows.Forms.ImageList
|
||||
Friend WithEvents C1Dokumente As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents NeuesDokumentToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents DokumentInformationenBearbeitenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents DokumentLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents DokumentanzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ImageListPruefschritt As ImageList
|
||||
Friend WithEvents C1CommandHolder1 As C1.Win.C1Command.C1CommandHolder
|
||||
End Class
|
||||
@@ -0,0 +1,427 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
|
||||
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
|
||||
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
|
||||
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
|
||||
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
|
||||
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
|
||||
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
|
||||
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
|
||||
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
|
||||
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIWSURBVDhPlY9dSJNhFMffCylqduHIEk2pdyuFRWVeJF1Z
|
||||
0AeGKckIIpBGdzaU8KIomKN1ZRdBH2AXo/btZu2zOd1qWzG7CUELybc1ymntbVtucxdt5PvvGTyXbbMf
|
||||
/DnPc87/nPM8zGbws6zzbVvbTXr9P2Z6eh7eZxho6+oQkEg+vJFK62mpOsLi486FGAf37bu4R4aMi0R4
|
||||
3tiIOZbtppbK/J6/kcxMdSDBPUF0icf4XhYPamrgEotvUUt5NqIa3S//WSScrVgxMlj1nwL3I4mXyqGv
|
||||
1FIeIaY5kwnJkXDLyAAJVibFSHrb8d26BbH5iVZq+zecV7k1Hbxa4Mnm1PQJxG07kJ7uIoOk+OMXKamt
|
||||
PBsLwwHeI0N65jR5wUGyuQNJ33HkvLsi1FIegbuuSHk78dNzBGtBOXjyhbXXffg2cUD4aK2vpbbyFBcf
|
||||
xXlPO/LvriE5dQzZ0CWkyHYhtP8CtVSm8OkpMksOZObuIPuql2w/j2Lo6CQtV2Zs7LIIvAO5zy+wvhxE
|
||||
Ph5APtK9TsvVaW7eLbvY14XsFzcKfAQoRq251fc7abk6TS0t57Ztr8WehgZXanm2iaY3Rzgc3qdSqUbV
|
||||
arVGZzTKtdpnAyaTadBut4+U5HA4BokURFdcLle/0+k86fP5pLSdYWw22yGz2dxLmgb0ev2QwWAYIXGU
|
||||
RFVJ9FzKDRMpdDpdv8ViOcwwDPMXw2okhLGDTtQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
|
||||
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
|
||||
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
|
||||
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
|
||||
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
|
||||
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
|
||||
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
|
||||
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
|
||||
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
|
||||
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
|
||||
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
|
||||
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
|
||||
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
|
||||
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
|
||||
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
|
||||
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
|
||||
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
|
||||
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
|
||||
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
|
||||
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
|
||||
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ImageListeDocIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>202, 13</value>
|
||||
</metadata>
|
||||
<data name="ImageListeDocIcon.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACs
|
||||
EAAAAk1TRnQBSQFMAgEBCAEAATwBAQE8AQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ACwAB/wLz
|
||||
Af8YAAH0Ae8I9wHvAfQKAAH0Af8KAAG8AbMD0wHaAbQBvBUAAf8BbQHzCPQB8wFtAf8HAAH/AbwB6wHw
|
||||
Av8HAAG0AtMDsgGsARsBCQG0AwABBwbsBgMBAQEDAgAB8wH3Cv8B9wHzBQAB/wHzAe8BBwGSAe8B8gH0
|
||||
Av8EAAG0AdME1AHTAfIB9gHzAfEBswIABwcI+wIAAfMB9wr/AfcB8wQAAfQB8QHsAesB7AHtAUMBvAL0
|
||||
Av8CAAEZBtQBswEZAv8B9gEHARkBAA4HAfsCAAHzAfcK/wH3AfMCAAH/AfIBvAEHAfcC7wH3AW0B7AH0
|
||||
Av8DAALUAdUD2wG7ARkB2wEJAdwB1AGyAdMBAA0HAvsCAAHzAe8K/wHvAfMBAAH0AbwB7AH3AbwFBwEU
|
||||
AfEEAAHzAdQB1QPbAfYBCQHbAbsBugHUAdMBsgHNAfMHBwHsAQMDBwP7AgAB8wHvCv8B7wHzAQAB/wHx
|
||||
Au0BvAEHA+8BBwL3Af8DAAEZAdUB2wLcAfMB/wLyAtsC1AHTAc0BCQEHA/8FBwEDBAcB+wIAAfMB7wr/
|
||||
Ae8B8wIAAfQBkgESAfcB7wFtAfcB7wEHAe8B6wHzAwABCQHbAtwBCQT/AfMC2wHUAdMBrAHzAQcD/wYH
|
||||
AQMDBwH7AgAB8wHvCvQB9wHzAgAB/wG8AQcB8AJKAXIB7QEcAZIB6gHrAf8CAAHyAdsB3AEJARkD/wHz
|
||||
Af8B3AHbAtQBswHzAQcC/wIHA/8DBwEDAgcB+wIAAfMB7wn0AfMBkgHzAwAB9AG8AfQBmQJzAe8BvAHw
|
||||
Ae0BQwHxAgAB9AHbAdwCGQP/ARkB/wH0AdsB1QHUAdUB9AEHAf8CBwb/AgcBAwEHAfsCAAHzAe8H9AHz
|
||||
AfIBvAHsAfMDAAH/AbwBBwHxAbwBBwG8AvAB7wEVAeoB/wIAAdsB3AIZA/8BCQH0AdwB2wHVAdMB8wEA
|
||||
AwcI/wIHAQMB+wIAAfMB7wfzAfEC8gFtAf8EAAHzAe8BkgEHAfEB8AGSAewBkgFtAUMB8QIAAfQB3AEZ
|
||||
Av8B9AHyAfMBCQH/AQkB1AEJAfMBAAIHCv8CBwEDAgAB8wHvBvMB8AHzAfIB7AHzBQAB/wEHAewB7wG8
|
||||
AfcC6wHsAfcB7QHxAf8CAAEZAdwB8wIZAQkBGQL/AdsBtAH0AgABBw3/AQcCAAHzAe8F8gHwAbwB8wHs
|
||||
AfQHAAHxAe8B7QH3Ae0C6wFtAewB9AUAAfQB/wTcAdsB1QEJAfQUAAH/AesB8wL0AfMB8gG8Ae8B7AH0
|
||||
CAAB9AHvAQcB7wEHAbwB8QHzAfQB/wYAAf8B8wIJAdwBCQHyAf8WAAH0Ae8F9wGSAfQJAAH/AvQB/xgA
|
||||
ARAODgEQAwAK/wYACv8IAAP/AgcD7AH/AQcBAAERAbQICQG7AQkCtQG0AREBAAH0ARIEKAFJBUgBEgH0
|
||||
AgAB9AHqCiQB6gH0BgAB/wH5AgcC7AEHAewBAgHsAQABEQG1Bv8D8wH/AbwCtAERAQAB6wJWB1UBTwJO
|
||||
AW0CAAHrDCwB6wYAAv8BBwH/AQcB7AH/AewC/wEAAUMBtQHzCP8B8wH/AbQBtQFDAQABSQFWAfEI/wHx
|
||||
AU4BSQIAAUQBMgEaCP8BGgEsAUQGAAP/AvkC/wHsAQcB/wEAAUMBtQEJAf8CCQHzAf8CCQP/AbsBtQFD
|
||||
AQABSQFWBf8B9gGfAX4BGwH/AU8BSQIAAUQBMgH2CMMB9gEsAUQGAAX/AgcD/wEAAUMBtQEJAf8BrQGs
|
||||
AQkBGQKsAfMC/wHdAbUBQwEAAUkBNQH/ARsCVwEbAX4BNgFXAv8BVQFJAgABSgEyAfYBegFZAZoBegM4
|
||||
AXoB9gEsAUQGAAT/AewBBwT/AQABQwG7AQkBGQKsAbQBCQKsAQkC/wHwAbsBQwEAAUkBNgL/AZ8BNgFX
|
||||
ATUBVwEbAv8BVQFJAgABSgEyAfYBegHDAfYBwwJZAnoB9gEsAUQGAAT/AQcF/wEAAUMBuwEJAbsBsgKz
|
||||
AbQBswGsAbQDCQG7AUMBAAFKATYB9gL/AX0CVgGfAv8B9gFVAUkCAAFKATIB9gJ6AcMBMgE4AVkCegH2
|
||||
ASwBRAYABP8B+QX/AQABQwG7Ad0BtAGyAQkBsgGzAbQBrQG0AwkBuwFDAQABSgE6AfYC/wNWAXgC/wH2
|
||||
AVUBSQIAAUoBMgH2AXoEMgFZAnoB9gEsAUQGAAQHAfkBBwT/AQABQwEJARkBswGyARkBsgGsAbsBswGt
|
||||
AwkBuwFDAQABSgE6AfYB/wGXAVUBlwFWAVUBmAH/AfYBVQFJAgABSgEyAfYBegb2AZoB9gEsAUQBAAsB
|
||||
Af8DBwEAAUMBCQHzArMB8wGyAawBCQGtAawC8wEZAQkBQwEAAUoBOgH2AfQCmALzApgB9AH2AVYBSQIA
|
||||
AUoBMgH2AcMGGgHDAfYBLAFEAQABAQL5Af8B+QP/A/kBBwLsAf8BAAFDAQkB9AGzAboB9AG0AbMBGQKt
|
||||
ARkC9AEJAUMBAAFKATsB9gj/AfYBVgFJAgABSgE4AfYI/wH2ASwBRAEAA/kF/wP5AQcC/wIAARIBugz/
|
||||
AQkBQwEAAUoBOwFdB34BfQF4AVYBSQIAAUoBOAFZCHoBUwEsAUQBAAv5AQcB/wMAAe8BiwG7CxkBCQFD
|
||||
AQABbQE2AzsDOgM2ATUBVgFtAgAB6wEyAjgIMgEsAesGAAX/AgcEAAH/AREBiwGtCbMCrQEUAQAB9AES
|
||||
AUgIKAFJARIB9AIAAfQB6gMkBCoDJAHqAfQSAAH0AesKDwIOAZIDAAr/BgAK/wMAAUIBTQE+BwABPgMA
|
||||
ASgDAAFAAwABMAMAAQEBAAEBBQABgAEBFgAD/4EAAfwBPwL/AcABAwH/AT8B8AEPAgABgAEBAfwBDwHg
|
||||
AQcCAAGAAQEB8AEDAcABAwIAAYABAQHgAQEBgAEBAgABgAEBAYABAwGAAQECAAGAAQEBAAEPBAABgAEB
|
||||
AQABBwQAAYABAQGAAQcEAAGAAQEBgAEDBAABgAEBAcABAwQAAYABAQHAAQEBgAEBAgABgAEBAeABAQGA
|
||||
AQECAAGAAQMB4AEAAcABAwIAAYABBwHwAQMB4AEHAv8BgAEPAfABAwHwAQ8C/wHAAR8B8AH/AfgDAAHg
|
||||
AQcB4AEHAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGA
|
||||
AQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBAfgDAAGAAQEBgAEBBAABgAEBAYABAQQAAYABAQGA
|
||||
AQEBAAEBAgABgAEBAYABAQEAAQMCAAGAAQEBgAEBAQABBwIAAYABAQGAAQEB+AEPAgABgAEBAYABAQL/
|
||||
AYABAAHgAQcB4AEHCw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>652, 13</value>
|
||||
</metadata>
|
||||
<data name="NeuesDokumentToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAkRJREFUOE9j
|
||||
oAmQDORlDJzvsr/5cM39psPV9/2mOS6BShEHBF05mINWe7+Ze2Pu/9nXZ/93n2R/DipFHBBwY2P2X+36
|
||||
ZvKVif8nXOn77zzJ6jxUijgg5MfGHLDO/k3vlZb/3Vca/ztPMcVtgEKHEJPFQk0b73XW9v7rbe0DN9jY
|
||||
W/WpOQVvsfzQdbX8f8eVkv+u8/RvO87TcfDdYGHvtd7C3mWdqb3BQmUrsAGi+ZwmuSeS//ddbfo/8XrD
|
||||
/0k36/5PuVXzv/tG3v+O65n/W6+l/++8nvu/+3rR/7YrBf8bLub9rzyX/T9gr+t/gQQOZQbxPC6LKqBA
|
||||
//VaoOaq/1NuV/yfeqf0f/vNuP9tN6P/t9yM+N91K/l/z82s/+3X0/83XE79X3k++X/YQef/AuFs6gzC
|
||||
GSwWETsE/6cdEv6fe1Lof+EZof8FZwT/11wz+99+x+d/6x3P/+WXdf7nn+b/nwfEWcf5/ycd4Pvvu5Xr
|
||||
P38QkzoDlwODtGQCw2b5FIZtimkM25TTGbYpAXHaKbmfnQ9s/7c/sPoftlP8A0hMKQOoBkjLpTJsE09g
|
||||
2MBlwyAEDgdGAQZGJkEEFrRhYIk8zvSm7jHH/7rHXP/dV7KcF/VmRFHDKMTACNaMDUhFMzAnnmN40/GK
|
||||
4T8I+6xjIC0dSEezMOdeEniz4JP8//kf5f+HbeIjzQCRQFbmpL26b+Y89PgPwgGLNUgzgNOSgUk6j2GH
|
||||
YQfDDRAWT2SYB5UiHjCJMrAwCTOwg7E4AzNUGA0wMAAArFD2cSOev3YAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokumentInformationenBearbeitenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAgtJREFUOE+V
|
||||
j19IU1Ecx8+DFLX1YJbE0v5dy8GiMh+SnizoD0VTkhH0Io7eTPrnQ1Ewh9lTD0EZ2IP9W9y41+LeuzXb
|
||||
nF5LR/WSaBG6Nsm2ardtualEK+a3MziP3c0+8IFzzu97fr9zyFIY5Dh51Gy+xLb/h/+Y9dYNQtBbWooh
|
||||
jns3YjavZaXi5Ca76yamQ3Bf6cJ12qTHYMATkwljHHeERQqzOH4xke6vRTx0B+EpDT2btuBmSQmUsrLL
|
||||
LKIPwtce/Bg4jLhcjdgjgi8DBxD6lsCztgufWEQfRLoOpYdtiLsttAGHWN9qJLw1+CosQ+S9WM1i/2bG
|
||||
17r81+tTWY1OTvr2ISquQspXTxtVIRcwtrGYPpg4F9A8FqT8B+kLttPJtUg834s5b3mQRfRB6Lw96a3D
|
||||
d88uzKo2aPQLs0ONSHq2LU7z5UYW0yf3oTuqeWqw8Oo0Ev17kBk+iSSdjpdbj7NIYbKT95CekpB+24nM
|
||||
YAOdbsWfF7v7WLkwtztbDNAkzH18ivnPKhaiAfwMWudZuTgbN5gsJxrrkYm4kdWCwO+wkIy9WcPKxamo
|
||||
rDy6YqURFaZ1SmpmZD07Xhqqqm52OBwdTqfz6kOXy9Z7934zzz9ulSSpnZlf22VZbqE2KYqy3+/3V7Hr
|
||||
hIiiuIPn+QZqs8vlOkNtp3ZQHcz8On92lmqnNgmCsJMQQv4C9p8lKbOOqd0AAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokumentLöschenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAnRJREFUOE91
|
||||
k81PGmEQxvfkN4KKgCBg+EYU/MKPGI0m6sHEaIL6D3jRmxr/D67eOLdV19YaXLBY7e4ipvWlNbHVXkza
|
||||
eGnTQ9Okx6fzrmCx2EnmsvCbZ56ZeYVi5JeW4mexmLhrNhsKn8pCbGkxnM7Nicr0dLzw6S4uVlYSt5ub
|
||||
eDs/j1QoxHYtlrIiBZh92tiAPDiIdDCY0H7gyhoci0EdH4cyOgopEGAc0P5AsWO1GrIcXl+HEo1C7unR
|
||||
MuX3xwXeNlcuwsrwMOShIUg+H9uhIvfw2hqU3l4oXV33eeDxiMJz8szbLoXl/n7IfX048HpZdnaWXa2u
|
||||
QiVFNRKBGg4jSyl5PGybimstcs+87VJYIYCrfFxeRra7W4NOKXOdnZDcbrZtsz2cE/fM2y6FuaISCEBu
|
||||
a4PidEKlTBG89S9cDO6Zty2T0rHdjkx9PV5TnhgMUJqacGCxsK3W1sdhHnxgytQUYzMzeFVXp8FvGhqg
|
||||
Go3ImUxI2Wzs2f8KcHWZ4PziIg4JPCqBz8xmvLNa8d7hQMbhYE/t9nL/8uQkyy8sIE3KGcpjvV5rO0fw
|
||||
uc2GD+T/0uXCldeLY5frb5EizAiWamuRrqnBkU6nqXPPaWqbK1+63fjs9+MmFMIXmpFCA3/icBgEeWJC
|
||||
PKdDSlZXQ6qqwiEV4d6TJpM2MO4543Sya58PNx0duKWVfqNr/E7rzgaDonA0MBDfr6xEsqICKSrCh7ff
|
||||
3PxgVbzdE1rfV1orB3/Swf0aGUE+HL57VC90ukSxwEujsfxIKHgR1e9nP+gh/R4bw3U0eveYirGn18f3
|
||||
GhvF+/N8JLjnXHu7eBGJFJ6zIPwB3CdvHrP2ebIAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokumentanzeigenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAldJREFUOE+N
|
||||
kktPE1Ecxbtxq0vjTuPSmLhwY2Ji4spoAn4CP4ExxrgwMTC0tENLC7SNpVgLaYViEQ0h1D6ERpQm2IqB
|
||||
dminQqHvTnnU9EVa6eJ4ZzoEJ2D0JCeZzP2f351z58qORMmVZ7ooxW2Fku7sValPWN5Ld/YoVNfFcanI
|
||||
wtnRMVu4WCyiVqv91Vtb2xgcMtrF2LF65KqHjUYDrVbrn47Hf0DRS18Vo20ZjCaq2Wzi2L9weHgomH/+
|
||||
cy2XL0CjHbwlRtvSE0D94AC8a/U6WLKLKxCCd3lF2PFojXc6kz0JGDK8oCqVqtAzGmPxYNKPayYv7tsX
|
||||
ofGFwLJxVKs18DPbyRTU/QNSADkYqlT6iXK5glHfEi4N+9AxvoS5aA6mQBzvF5cFAD+zuZlAn0YnBegG
|
||||
DVRxZxf7pRJM7s+4aPbhhsUP+fw6Hs1+h2MhgHKlAn6Gr0f3aaUA7YCe4g9nZ3cPq0wUN0dcOG9w47LR
|
||||
gw6rG1FSgQ/zM8x6DEq6Xwogh0IlU1nwzmRyWAkz0HsCMHqWwG4khN7hCIN8gcPqGgOlSiMFkEOhEltJ
|
||||
HDmbyxNYGql0Rgg5p6YxMzsHr28eDPnC4RGLFECrdRQb3yT9TjqVzmLO5Yb99SQBLAgQ8qeUYrQtcs+7
|
||||
mXWW9DvdicQ2ATgw7nDC99GPD24vOI67J8ZlsidPn93xf/pCekZPdYSJCXfBZLZgwjGF6XczpGauW4y3
|
||||
9bxL/tj80rrxymrjTrPNPsF9DYaqb5xvEQx+qxY47ooY/X+thSPnyG28u7e3f6H9Rib7DQvCar0nm0FH
|
||||
AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Dokumente.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Dokumente.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Dokumente.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{BackColor:255, 255, 192;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 623, 292</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 623, 292</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ImageListPruefschritt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>419, 13</value>
|
||||
</metadata>
|
||||
<data name="ImageListPruefschritt.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADe
|
||||
CQAAAk1TRnQBSQFMAgEBAwEAARgBAAEYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQC/w0AAfQC/w0A
|
||||
AfQC/x0AAf8B7wL0BP8IAAH/Ae8C9AT/CAAB/wHvAvQE/xkAAZIC8gLzAvQB/wgAAZIC8gLzAvQB/wgA
|
||||
AZIC8gLzAvQB/xgAAe8B8gG2AmgBvAH0Af8IAAHvAfEBuwKzAbwB9AH/CAAB7wHwAXgCLwEHAfQB/xcA
|
||||
Af8BsQGPAWkBYgE/AWkF/wQAAf8B3AHbAboCswG0Bf8EAAH/AVgCVwIvAVAF/xMAAfMBtwGxAY8CaQE/
|
||||
AWgE/wQAAfQB4QHcAdsBugGzAZABswT/BAABGwF+AVgCVwIvAVAE/xQAA7cBsQFpAj8BjggAAhkB4QHb
|
||||
AboBkAGLAboIAAKfAX4CVwEvASkBeBgAAbcB8wK3AY8CaAkAAeEB4gEZAeEB2wGzAbQJAAF+AcMBnwF+
|
||||
AVcBLwFQGQAB/wG9AbcBvQGxAWkBPwkAAf8DGQHcAboBswkAAf8DnwFYAVYBLxwAArcBiAJpAfEKAALh
|
||||
AdsBswG0AfIKAAF5AX4BVwEvAVAB8RoAAf8BsQGPAmkBiAFpCQAB/wHhAdsEugkAAfYBfgVXGQABvQK3
|
||||
A7EBjwkAAhkC4QHcAtsJAAKfAn4BWAJXGQABvQG3AdIDsQG3CQABGQLhA9wBGQkAAZ8CfgF5AVcBeQGZ
|
||||
GQACtwOxAfQKAAPhAtwB9AoAAn4BeQFXAVgB9BoAAf8BvQHyAf8MAAH/ARkB8wH/DAAB/wIbAf9WAAFC
|
||||
AU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAB8QH/AfEB/wHxAf8CAAHwAQ8B8AEP
|
||||
AfABDwIAAfgBBwH4AQcB+AEHAgAB+AEHAfgBBwH4AQcCAAHwAQAB8AEAAfADAAHgAQEB4AEBAeABAQIA
|
||||
AeABHwHgAR8B4AEfAgAB4AE/AeABPwHgAT8CAAHgAT8B4AE/AeABPwIAAfwBDwH8AQ8B/AEPAgAB/AEH
|
||||
AfwBBwH8AQcCAAH8AQcB/AEHAfwBBwIAAfwBBwH8AQcB/AEHAgAB/AEPAfwBDwH8AQ8CAAH8AT8B/AE/
|
||||
AfwBPwIABv8CAAs=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="C1CommandHolder1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>809, 13</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,552 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
|
||||
Public Class Dokumente
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||
Dim dokumente As New DataTable
|
||||
Dim Dokument As New DMS.clsDok
|
||||
#End Region
|
||||
|
||||
#Region "Properties"
|
||||
Dim m_ConnectionString As String
|
||||
<DefaultValue("data source=shu00;initial catalog=TIM;persist security info=False;workstation id=SHU;packet size=4096;user id=sa;password=*shu29"), Description("ConnectionString"), Category("Options")> _
|
||||
Public Property ConnectionString() As String
|
||||
Get
|
||||
ConnectionString = m_ConnectionString
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
If m_ConnectionString <> Value Then
|
||||
m_ConnectionString = Value
|
||||
Globals.conn.sConnectionString = Value
|
||||
Globals.sConnectionString = Value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Themanr As Integer
|
||||
<DefaultValue(1), Description("ThemaNr"), Category("Options")> _
|
||||
Public Property ThemaNr As Integer
|
||||
Get
|
||||
ThemaNr = m_Themanr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
If m_Themanr <> value Then
|
||||
m_Themanr = value
|
||||
Try
|
||||
Refresh_Dokumente()
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Doktype As Integer
|
||||
<DefaultValue(1), Description("Dokumenttype"), Category("Options")> _
|
||||
Public Property Doktype As Integer
|
||||
Get
|
||||
Doktype = m_Doktype
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
If m_Doktype <> value Then
|
||||
m_Doktype = value
|
||||
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Mitarbeiternr As Integer
|
||||
<DefaultValue(1), Description("Mitarbeiternr"), Category("Options")> _
|
||||
Public Property Mitarbeiternr As Integer
|
||||
Get
|
||||
Mitarbeiternr = m_Mitarbeiternr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
If m_Mitarbeiternr <> value Then
|
||||
m_Mitarbeiternr = value
|
||||
Globals.Mitarbeiternr = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_TempFilePath As String
|
||||
<DefaultValue("h:\tssettings\themenmgmt"), Description("Temp Filepath"), Category("Options")> _
|
||||
Public Property TempFilePath As String
|
||||
Get
|
||||
TempFilePath = m_TempFilePath
|
||||
End Get
|
||||
Set(value As String)
|
||||
If m_TempFilePath <> value Then
|
||||
m_TempFilePath = value
|
||||
Globals.TmpFilepath = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Show_Toolbar As Boolean = True
|
||||
<DefaultValue(True), Description("Dateimenu anzeigen"), Category("Options")> _
|
||||
Public Property Show_Toolbar() As Boolean
|
||||
Get
|
||||
Show_Toolbar = m_Show_Toolbar
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
If m_Show_Toolbar <> Value Then
|
||||
m_Show_Toolbar = Value
|
||||
Set_ShowToolbar()
|
||||
End If
|
||||
|
||||
End Set
|
||||
End Property
|
||||
Dim m_Show_Editfunctions As Boolean = True
|
||||
<DefaultValue(True), Description("Editfunktionen anzeigen"), Category("Options")>
|
||||
Public Property Show_Editfunctions() As Boolean
|
||||
Get
|
||||
Show_Editfunctions = m_Show_Editfunctions
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
If m_Show_Editfunctions <> Value Then
|
||||
m_Show_Editfunctions = Value
|
||||
Set_EditFunctions()
|
||||
End If
|
||||
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim M_Pruefschrittnr As Integer
|
||||
Property Pruefschrittnr As Integer
|
||||
Get
|
||||
Return M_Pruefschrittnr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
M_Pruefschrittnr = value
|
||||
Get_Dokumente_Pruefschritt
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
Sub Set_ShowToolbar()
|
||||
If Me.Show_Toolbar = True Then
|
||||
Me.NeuesDokumentToolStripMenuItem.Visible = True
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem.Visible = True
|
||||
Me.DokumentLöschenToolStripMenuItem.Visible = True
|
||||
Me.DokumentanzeigenToolStripMenuItem.Visible = True
|
||||
Me.ToolStrip1.Visible = True
|
||||
Me.C1Dokumente.AllowDrop = True
|
||||
Else
|
||||
Me.NeuesDokumentToolStripMenuItem.Visible = False
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem.Visible = False
|
||||
Me.DokumentLöschenToolStripMenuItem.Visible = False
|
||||
Me.DokumentanzeigenToolStripMenuItem.Visible = True
|
||||
Me.ToolStrip1.Visible = False
|
||||
Me.C1Dokumente.AllowDrop = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Set_Editfunctions()
|
||||
If Me.Show_Editfunctions = True Then
|
||||
Me.ToolStripButton1.Visible = True
|
||||
Me.ToolStripButton2.Visible = True
|
||||
Me.ToolStripButton4.Visible = True
|
||||
Me.NeuesDokumentToolStripMenuItem.Visible = True
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem.Visible = True
|
||||
Me.DokumentLöschenToolStripMenuItem.Visible = True
|
||||
Else
|
||||
Me.ToolStripButton1.Visible = False
|
||||
Me.ToolStripButton2.Visible = False
|
||||
Me.ToolStripButton4.Visible = False
|
||||
Me.NeuesDokumentToolStripMenuItem.Visible = False
|
||||
Me.DokumentInformationenBearbeitenToolStripMenuItem.Visible = False
|
||||
Me.DokumentLöschenToolStripMenuItem.Visible = False
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Sub New()
|
||||
InitializeComponent()
|
||||
'Me.ConnectionString = "data source=shu00;initial catalog=ThemenManagement;persist security info=False;workstation id=SHU;packet size=4096;user id=sa;password=*shu29"
|
||||
'Me.Mitarbeiternr = 1
|
||||
'Me.Doktype = 1
|
||||
'Me.ThemaNr = 1
|
||||
'Me.TempFilePath = "h:\tssettings\themenmgmt"
|
||||
Try
|
||||
Globals.conn.sConnectionString = Me.ConnectionString
|
||||
Globals.sConnectionString = Me.ConnectionString
|
||||
Catch
|
||||
End Try
|
||||
|
||||
Globals.Mitarbeiternr = Mitarbeiternr
|
||||
Globals.TmpFilepath = TempFilePath
|
||||
Set_ShowToolbar()
|
||||
Set_Editfunctions()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub Refresh_Dokumente()
|
||||
If Me.Pruefschrittnr > 0 Then
|
||||
Me.Get_Dokumente_Pruefschritt()
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
Dim filtertext As String = "none"
|
||||
Try
|
||||
filtertext = Me.C1Dokumente.Columns("Aktiv").FilterText
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Dim bm As Integer = 0
|
||||
bm = Me.C1Dokumente.Bookmark
|
||||
|
||||
Me.C1Dokumente.Enabled = False
|
||||
Get_Dokumente(Me.C1Dokumente, Me.ImageListeDocIcon, Me.Doktype)
|
||||
|
||||
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Dokumente, "Dokument", Me.dokumente)
|
||||
If filtertext <> "none" Then Me.C1Dokumente.Columns("Aktiv").FilterText = filtertext
|
||||
|
||||
Try
|
||||
Me.C1Dokumente.Bookmark = bm
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Me.C1Dokumente.Enabled = True
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Get_Dokumente_Pruefschritt()
|
||||
Try
|
||||
Dim filtertext As String = "none"
|
||||
Try
|
||||
filtertext = Me.C1Dokumente.Columns("Aktiv").FilterText
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Dim bm As Integer = 0
|
||||
bm = Me.C1Dokumente.Bookmark
|
||||
|
||||
Me.C1Dokumente.Enabled = False
|
||||
Get_Dokumente_Pruefschritt(Me.C1Dokumente, Me.ImageListeDocIcon, Me.Pruefschrittnr)
|
||||
|
||||
Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Dokumente, "Dokument", Me.dokumente)
|
||||
If filtertext <> "none" Then Me.C1Dokumente.Columns("Aktiv").FilterText = filtertext
|
||||
|
||||
Dim bmp0 As New Bitmap(ImageListPruefschritt.Images(0))
|
||||
Dim bmp1 As New Bitmap(ImageListPruefschritt.Images(1))
|
||||
Dim bmp2 As New Bitmap(ImageListPruefschritt.Images(2))
|
||||
|
||||
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
|
||||
|
||||
v0.DisplayValue = bmp0
|
||||
v0.Value = 1
|
||||
|
||||
v1.DisplayValue = bmp1
|
||||
v1.Value = 2
|
||||
|
||||
v2.DisplayValue = bmp2
|
||||
v2.Value = 3
|
||||
|
||||
|
||||
Try
|
||||
|
||||
C1Dokumente.Columns("DokTypeImage").ValueItems.Values.Add(v0)
|
||||
C1Dokumente.Columns("DokTypeImage").ValueItems.Values.Add(v1)
|
||||
C1Dokumente.Columns("DokTypeImage").ValueItems.Values.Add(v2)
|
||||
C1Dokumente.Columns("DokTypeImage").ValueItems.Translate = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
Try
|
||||
Me.C1Dokumente.Bookmark = bm
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Me.C1Dokumente.Enabled = True
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Init()
|
||||
Me.C1Dokumente.DataSource = Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region "Dokumente"
|
||||
|
||||
''' <summary>
|
||||
''' Dokumente lesen und dem Grid übergeben
|
||||
''' </summary>
|
||||
''' <param name="c1data">C1TrueDBGrid mit Dokumente</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Get_Dokumente(ByRef c1data As C1TrueDBGrid, Optional ByVal ImgList As ImageList = Nothing, Optional Doktype As Integer = 0)
|
||||
Try
|
||||
dokumente.Dispose()
|
||||
dokumente = Nothing
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
'dokumente = Dokument.get
|
||||
dokumente = Dokument.Get_Dokumente(Me.ThemaNr, Doktype)
|
||||
c1data.DataSource = dokumente
|
||||
c1data.DataMember = dokumente.TableName
|
||||
If Not ImgList Is Nothing Then
|
||||
Set_Imagevalues(c1data, ImgList)
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Get_Dokumente_Pruefschritt(ByRef c1data As C1TrueDBGrid, Optional ByVal ImgList As ImageList = Nothing, Optional Pruefschrittnr As Integer = 0)
|
||||
Try
|
||||
dokumente.Dispose()
|
||||
dokumente = Nothing
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
dokumente = Dokument.Get_Dokumente_pruefschritt(Pruefschrittnr, 0)
|
||||
c1data.DataSource = dokumente
|
||||
c1data.DataMember = dokumente.TableName
|
||||
If Not ImgList Is Nothing Then
|
||||
Set_Imagevalues(c1data, ImgList)
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub Set_Imagevalues(ByRef c1data As C1TrueDBGrid, ByRef imglist As ImageList)
|
||||
|
||||
Dim i As Integer
|
||||
Dim s As String
|
||||
For i = 0 To dokumente.Rows.Count - 1
|
||||
s = dokumente.Rows(i).Item("Filename")
|
||||
If s = "" Then s = dokumente.Rows(i).Item("Bezeichnung")
|
||||
If Len(s) < 4 Then s = ".div"
|
||||
Select Case UCase(s.Substring(Len(s) - 4, 4))
|
||||
Case ".PDF"
|
||||
dokumente.Rows(i).Item("DokIcon") = 0
|
||||
Case ".DOC", "DOCX", ".DOT", "DOTX"
|
||||
dokumente.Rows(i).Item("DokIcon") = 1
|
||||
Case ".XLS", ".XLT", "XLSX", "XLTX"
|
||||
dokumente.Rows(i).Item("DokIcon") = 2
|
||||
Case ".PPT", "PPTX"
|
||||
dokumente.Rows(i).Item("DokIcon") = 3
|
||||
Case ".HTM", "TML", "XML"
|
||||
dokumente.Rows(i).Item("DokIcon") = 4
|
||||
Case ".MSG"
|
||||
dokumente.Rows(i).Item("DokIcon") = 5
|
||||
Case ".JPG", ".TIF"
|
||||
dokumente.Rows(i).Item("DokIcon") = 7
|
||||
Case Else
|
||||
If InStr(UCase(s), "WWW") > 0 Or InStr(UCase(s), "HTTP") Then
|
||||
dokumente.Rows(i).Item("DokIcon") = 4
|
||||
Else
|
||||
dokumente.Rows(i).Item("DokIcon") = 6
|
||||
End If
|
||||
End Select
|
||||
Next
|
||||
|
||||
Dim bmp0 As New Bitmap(imglist.Images(0))
|
||||
Dim bmp1 As New Bitmap(imglist.Images(1))
|
||||
Dim bmp2 As New Bitmap(imglist.Images(2))
|
||||
Dim bmp3 As New Bitmap(imglist.Images(3))
|
||||
Dim bmp4 As New Bitmap(imglist.Images(4))
|
||||
Dim bmp5 As New Bitmap(imglist.Images(5))
|
||||
Dim bmp6 As New Bitmap(imglist.Images(6))
|
||||
Dim bmp7 As New Bitmap(imglist.Images(7))
|
||||
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()
|
||||
Dim v4 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v5 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v6 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim v7 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
|
||||
|
||||
v4.DisplayValue = bmp4
|
||||
v4.Value = 4
|
||||
|
||||
v5.DisplayValue = bmp5
|
||||
v5.Value = 5
|
||||
|
||||
v6.DisplayValue = bmp6
|
||||
v6.Value = 6
|
||||
|
||||
v7.DisplayValue = bmp7
|
||||
v7.Value = 7
|
||||
Try
|
||||
c1data.Columns("DokIcon").ValueItems.Values.Add(v0)
|
||||
c1data.Columns("DokIcon").ValueItems.Values.Add(v1)
|
||||
c1data.Columns("DokIcon").ValueItems.Values.Add(v2)
|
||||
c1data.Columns("DokIcon").ValueItems.Values.Add(v3)
|
||||
c1data.Columns("DokIcon").ValueItems.Values.Add(v4)
|
||||
c1data.Columns("DokIcon").ValueItems.Values.Add(v5)
|
||||
c1data.Columns("DokIcon").ValueItems.Values.Add(v6)
|
||||
c1data.Columns("DokIcon").ValueItems.Values.Add(v7)
|
||||
c1data.Columns("DokIcon").ValueItems.Translate = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Kontakte auslesen und dem Truedbgrid übergeben
|
||||
''' </summary>
|
||||
''' <param name="c1data">TruedbGrid</param>
|
||||
''' <param name="Vertragselementnr">Vertragselement, für welches die Dokumente ausgelesen werden</param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function Get_Dokumente(ByRef c1data As C1TrueDBGrid, ByVal Vertragselementnr As Integer, Optional ByVal ImgList As ImageList = Nothing)
|
||||
'Me.Get_Vertragselement(Vertragselementnr)
|
||||
dokumente = Dokument.Get_Dokumente(Me.ThemaNr, 1)
|
||||
|
||||
c1data.DataSource = dokumente
|
||||
c1data.DataMember = dokumente.TableName
|
||||
If Not ImgList Is Nothing Then
|
||||
Me.Set_Imagevalues(c1data, ImgList)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Get_Dokumente(ByVal Themanr As Integer) As DataTable
|
||||
|
||||
Return Dokument.Get_Dokumente(Themanr, Me.Doktype)
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub Dokumente_DragDrop(sender As Object, e As DragEventArgs) Handles C1Dokumente.DragDrop
|
||||
Dim s() As String = e.Data.GetData("FileDrop", False)
|
||||
Dim i As Integer
|
||||
For i = 0 To s.Length - 1
|
||||
Dim f As New frmDokument(0, Me.Doktype, Me.ThemaNr, False, True, s(i))
|
||||
f.ShowDialog()
|
||||
Next i
|
||||
Me.Refresh_Dokumente()
|
||||
End Sub
|
||||
|
||||
Private Sub Dokumente_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
|
||||
|
||||
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
|
||||
e.Effect = DragDropEffects.All
|
||||
Else
|
||||
e.Effect = DragDropEffects.None
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Dokumente_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Refresh_Dokumente()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Dokumente_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumente.DoubleClick
|
||||
Try
|
||||
Me.DokumentanzeigenToolStripMenuItem_Click(sender, e)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub C1Dokumente_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Dokumente.MouseDown
|
||||
Me.C1Dokumente.Bookmark = Me.C1Dokumente.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub NeuesDokumentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesDokumentToolStripMenuItem.Click
|
||||
Try
|
||||
Dim f As New frmDokument(0, Me.Doktype, Me.ThemaNr, False, True)
|
||||
f.ShowDialog()
|
||||
Me.Refresh_Dokumente()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentLöschenToolStripMenuItem.Click
|
||||
Try
|
||||
If MsgBox("Dokument wirklich löschen?", vbYesNoCancel + vbQuestion, Title:="Assessment-Management") = MsgBoxResult.Yes Then
|
||||
Dokument.Delete_Dokument(Me.C1Dokumente.Columns("Dokumentnr").Value)
|
||||
Me.Refresh_Dokumente()
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentanzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentanzeigenToolStripMenuItem.Click
|
||||
Try
|
||||
Dokument.Show_Doc(Me.C1Dokumente.Columns("Dokumentnr").Value)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DokumentInformationenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentInformationenBearbeitenToolStripMenuItem.Click
|
||||
Try
|
||||
Dim f As New frmDokument(Me.C1Dokumente.Columns("Dokumentnr").Value, Me.Doktype, Me.ThemaNr, False, False)
|
||||
'f.MdiParent = Me
|
||||
f.ShowDialog()
|
||||
Me.Refresh_Dokumente()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
NeuesDokumentToolStripMenuItem_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
|
||||
DokumentInformationenBearbeitenToolStripMenuItem_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||||
DokumentLöschenToolStripMenuItem_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
|
||||
DokumentanzeigenToolStripMenuItem_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub C1Dokumente_Click(sender As Object, e As EventArgs) Handles C1Dokumente.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Dokumente_DragEnter(sender As Object, e As DragEventArgs) Handles C1Dokumente.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.All
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Dokumente_DragDrop(sender As Object, e As DragEventArgs) 'Handles C1Dokumente.DragDrop
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
Dim MyFiles() As String
|
||||
' Assign the files to an array.
|
||||
MyFiles = e.Data.GetData(DataFormats.FileDrop)
|
||||
' Display the file Name
|
||||
'TextBoxDrop.Text = MyFiles(0)
|
||||
' Display the file contents
|
||||
Dim f As New frmDokument(0, Me.Doktype, Me.ThemaNr, False, True, MyFiles(0))
|
||||
f.ShowDialog()
|
||||
Me.Refresh_Dokumente()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,8 @@
|
||||
Module Globals
|
||||
Public Spaltendaten As New DataTable
|
||||
Public sConnectionString As String
|
||||
Public conn As New DB.clsConnectionProvider
|
||||
Public ConnectionFileName As String = ""
|
||||
Public Mitarbeiternr As Integer
|
||||
Public TmpFilepath As String
|
||||
End Module
|
||||
@@ -0,0 +1,432 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
'*
|
||||
' Object MyspaltenTitel
|
||||
'
|
||||
' Dieses Objekt liest die Daten aus der Tabelle Spalten und speichert diese in spaltendaten
|
||||
' Die Daten werden für die Spaltenbezeichnung der C1Datagrids verwendet
|
||||
'
|
||||
' Autor: Stefan Hutter
|
||||
' Datum: 2.12.2002
|
||||
'*
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Namespace Utils
|
||||
|
||||
Public Class Tabellenspalte
|
||||
Private m_table As String
|
||||
Private m_field As String
|
||||
Private m_spaltenname As String
|
||||
Private m_locked As Boolean
|
||||
Private m_Width As Integer
|
||||
Private m_Order As Integer
|
||||
Private m_alsHacken As Boolean
|
||||
Private m_tiptext As String
|
||||
Private m_numberformat As String
|
||||
|
||||
Property ColWith() As Integer
|
||||
Get
|
||||
Return m_Width
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_Width = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Order() As Integer
|
||||
Get
|
||||
Return m_Order
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_Order = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Tabelle() As String
|
||||
Get
|
||||
Return m_table
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_table = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Feld() As String
|
||||
Get
|
||||
Return m_field
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_field = Value
|
||||
End Set
|
||||
End Property
|
||||
Property spaltenname() As String
|
||||
Get
|
||||
Return m_spaltenname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_spaltenname = Value
|
||||
End Set
|
||||
End Property
|
||||
Property locked() As Boolean
|
||||
Get
|
||||
Return m_locked
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_locked = Value
|
||||
End Set
|
||||
End Property
|
||||
Property AlsHacken() As Boolean
|
||||
Get
|
||||
Return m_alsHacken
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_alsHacken = Value
|
||||
End Set
|
||||
End Property
|
||||
Property TipText() As String
|
||||
Get
|
||||
Return m_tiptext
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_tiptext = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Numberformat() As String
|
||||
Get
|
||||
Return m_numberformat
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_numberformat = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub New()
|
||||
|
||||
End Sub
|
||||
Public Sub New(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet)
|
||||
Spaltentitel_aktualisieren(daten, tablename, ds)
|
||||
End Sub
|
||||
Public Function getspalte()
|
||||
Try
|
||||
Dim myspalten As New MySpaltenTitel()
|
||||
myspalten.getspalte(Me.Tabelle, Me.Feld, Me.spaltenname, Me.locked, Me.ColWith, Me.Order, Me.AlsHacken, Me.TipText, Me.Numberformat)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet)
|
||||
Dim anzcols As Integer
|
||||
Dim i As Integer
|
||||
Dim s As String
|
||||
anzcols = daten.Splits(0).DisplayColumns.Count
|
||||
Me.Tabelle = tablename
|
||||
For i = 0 To daten.Columns.Count - 1
|
||||
s = daten.Columns(i).DataField
|
||||
Me.Feld = s
|
||||
Me.getspalte()
|
||||
daten.Columns(i).Caption = Me.spaltenname
|
||||
|
||||
If Me.ColWith = 0 Then
|
||||
daten.Splits(0).DisplayColumns(i).Width = 0
|
||||
daten.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
|
||||
End If
|
||||
|
||||
If Me.locked Then
|
||||
daten.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If Me.AlsHacken Then
|
||||
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If LCase(daten.Columns(i).DataField) = "aktiv" Then
|
||||
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
daten.Columns(i).ValueItems.DefaultItem = True
|
||||
daten.Columns(i).DefaultValue = True
|
||||
daten.Columns(i).FilterText = True
|
||||
'Dim items As C1.Win.C1TrueDBGrid.ValueItems = daten.Columns("aktiv").ValueItems
|
||||
'items.Values.Clear()
|
||||
'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("False", False)) ' unchecked
|
||||
'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("True", True)) ' checked
|
||||
'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("", "INDETERMINATE")) ' indeterminate state
|
||||
|
||||
|
||||
End If
|
||||
Select Case LCase(daten.Columns(i).DataField)
|
||||
Case "erstellt_am", "erstelltam"
|
||||
daten.Columns(i).DefaultValue = Now
|
||||
End Select
|
||||
If daten.Columns(i).DataType.Name = "DateTime" Then
|
||||
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
|
||||
End If
|
||||
If Me.Numberformat <> "" Then
|
||||
daten.columns(i).numberformat = Me.Numberformat
|
||||
End If
|
||||
Next
|
||||
ColumnOrder(tablename, daten)
|
||||
daten.HeadingStyle.WrapText = False
|
||||
End Function
|
||||
|
||||
Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Spalte_True_Setzen As Boolean = True)
|
||||
Dim anzcols As Integer
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim s As String
|
||||
anzcols = daten.Splits(0).DisplayColumns.Count
|
||||
t = dt
|
||||
Me.Tabelle = tablename
|
||||
For i = 0 To daten.Columns.Count - 1
|
||||
s = daten.Columns(i).DataField
|
||||
'If s = "ApplikationNr" Then
|
||||
' MsgBox("Hallo")
|
||||
|
||||
'End If
|
||||
Me.Feld = s
|
||||
Me.getspalte()
|
||||
daten.Columns(i).Caption = Me.spaltenname
|
||||
|
||||
If Me.ColWith = 0 Then
|
||||
daten.Splits(0).DisplayColumns(i).Width = 0
|
||||
daten.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
|
||||
End If
|
||||
|
||||
If Me.locked Then
|
||||
daten.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If Me.AlsHacken Then
|
||||
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Spalte_True_Setzen = True Then
|
||||
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
daten.Columns(i).ValueItems.DefaultItem = True
|
||||
daten.Columns(i).DefaultValue = True
|
||||
daten.Columns(i).FilterText = True
|
||||
End If
|
||||
Select Case LCase(daten.Columns(i).DataField)
|
||||
Case "erstellt_am", "erstelltam"
|
||||
daten.Columns(i).DefaultValue = Now
|
||||
End Select
|
||||
If daten.Columns(i).DataType.Name = "DateTime" Then
|
||||
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
|
||||
End If
|
||||
If Me.Numberformat <> "" Then
|
||||
daten.columns(i).numberformat = Me.Numberformat
|
||||
End If
|
||||
Next
|
||||
ColumnOrder(tablename, daten)
|
||||
daten.HeadingStyle.WrapText = False
|
||||
End Function
|
||||
|
||||
Public Function Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Filter As String = "")
|
||||
Dim anzcols As Integer
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim s As String
|
||||
anzcols = daten.Splits(0).DisplayColumns.Count
|
||||
t = dt
|
||||
Me.Tabelle = tablename
|
||||
For i = 0 To daten.Columns.Count - 1
|
||||
s = daten.Columns(i).DataField
|
||||
|
||||
Me.Feld = s
|
||||
Me.getspalte()
|
||||
If Me.spaltenname = "" Then
|
||||
daten.Splits(0).DisplayColumns(i).Width = 0
|
||||
Else
|
||||
daten.Columns(i).Caption = Me.spaltenname
|
||||
|
||||
If Me.ColWith = 0 Then
|
||||
daten.Splits(0).DisplayColumns(i).Width = 0
|
||||
daten.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
|
||||
End If
|
||||
|
||||
If Me.locked Then
|
||||
daten.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If Me.AlsHacken Then
|
||||
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Filter <> "" Then
|
||||
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
daten.Columns(i).ValueItems.DefaultItem = True
|
||||
daten.Columns(i).DefaultValue = True
|
||||
daten.Columns(i).FilterText = Aktiv_Filter
|
||||
End If
|
||||
Select Case LCase(daten.Columns(i).DataField)
|
||||
Case "erstellt_am", "erstelltam"
|
||||
daten.Columns(i).DefaultValue = Now
|
||||
End Select
|
||||
If daten.Columns(i).DataType.Name = "DateTime" Then
|
||||
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
|
||||
End If
|
||||
If Me.Numberformat <> "" Then
|
||||
daten.columns(i).numberformat = Me.Numberformat
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
ColumnOrder(tablename, daten)
|
||||
daten.HeadingStyle.WrapText = False
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Sortierung der in der DB-Tabelle Spalaten festgelegten Reihenfolge
|
||||
''' </summary>
|
||||
''' <param name="Tablename"></param>
|
||||
''' <param name="Data"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function ColumnOrder(ByVal Tablename As String, ByRef Data As C1TrueDBGrid)
|
||||
Dim spaltendata As DataTable = Globals.Spaltendaten
|
||||
Dim dv() As DataRow
|
||||
Dim dr As DataRow
|
||||
Dim dc As New Collection
|
||||
dv = spaltendata.Select("Tabelle='" & Tablename & "'", "Reihenfolge desc, Eintragnr")
|
||||
For Each c As C1DisplayColumn In Data.Splits(0).DisplayColumns
|
||||
dc.Add(c)
|
||||
Next
|
||||
While Data.Splits(0).DisplayColumns.Count > 0
|
||||
Data.Splits(0).DisplayColumns.RemoveAt(0)
|
||||
End While
|
||||
|
||||
For Each dr In dv
|
||||
For Each e As C1DisplayColumn In dc
|
||||
If e.Name = dr.Item(3) Then
|
||||
Data.Splits(0).DisplayColumns.Insert(0, e)
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Class MySpaltenTitel
|
||||
Private spaltendata As DataTable = Globals.Spaltendaten
|
||||
Sub New()
|
||||
load_data()
|
||||
End Sub
|
||||
|
||||
Sub dispose()
|
||||
spaltendata.Dispose()
|
||||
Me.dispose()
|
||||
End Sub
|
||||
|
||||
Public Function getspalte(ByVal tabelle As String, ByVal feld As String, ByRef spaltenname As String, ByRef locked As Boolean, _
|
||||
ByRef colwidth As Integer, ByRef order As Integer, ByRef alshacken As Boolean, ByRef tiptext As String, ByRef numberformat As String)
|
||||
If spaltendata.Rows.Count = 0 Then load_data()
|
||||
Dim dv() As DataRow
|
||||
Dim dr As DataRow
|
||||
dv = spaltendata.Select("Tabelle='" & tabelle & "' and tabellenspalte='" & feld & "'", "Reihenfolge, Eintragnr")
|
||||
If dv.Length = 0 Then
|
||||
spaltenname = ""
|
||||
locked = True
|
||||
colwidth = 0
|
||||
order = 0
|
||||
alshacken = False
|
||||
tiptext = ""
|
||||
numberformat = ""
|
||||
End If
|
||||
For Each dr In dv
|
||||
spaltenname = dr.Item(3)
|
||||
locked = dr.Item(4)
|
||||
colwidth = dr.Item(6)
|
||||
order = dr.Item(7)
|
||||
alshacken = dr.Item(5)
|
||||
tiptext = dr.Item(8)
|
||||
numberformat = dr.Item(14).ToString
|
||||
Next
|
||||
'Dim i As Integer
|
||||
'For i = 0 To spaltendata.Rows.Count - 1
|
||||
|
||||
' If UCase(spaltendata.Rows(i).Item(1)) = UCase(tabelle) And UCase(spaltendata.Rows(i).Item(2)) = UCase(feld) Then
|
||||
' spaltenname = spaltendata.Rows(i).Item(3)
|
||||
' locked = spaltendata.Rows(i).Item(4)
|
||||
' colwidth = spaltendata.Rows(i).Item(6)
|
||||
' order = spaltendata.Rows(i).Item(7)
|
||||
' alshacken = spaltendata.Rows(i).Item(5)
|
||||
' tiptext = spaltendata.Rows(i).Item(8)
|
||||
' Exit Function
|
||||
' End If
|
||||
'Next
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub load_data()
|
||||
If Me.spaltendata.Rows.Count > 0 Then Exit Sub
|
||||
Dim spalten As New Utils.clsSpalten()
|
||||
spaltendata.Rows.Clear()
|
||||
spalten.cpMainConnectionProvider = conn
|
||||
spaltendata = spalten.Select_All_Aktiv
|
||||
Globals.Spaltendaten = spaltendata
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class clsSpalten
|
||||
Inherits DB.clsSpalten
|
||||
''' <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>
|
||||
Public Function Select_All_Aktiv() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll_Aktiv]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("spalten")
|
||||
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(0)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_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("clsSpalten::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,491 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace TKB.VV.Sysadmin
|
||||
|
||||
Public Class DomainTable
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim UpdateCommand As New SqlCommand
|
||||
Dim InsertCommand As New SqlCommand
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim BaseData As New DataSet
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
|
||||
Dim m_tablename As String
|
||||
Property Tablename() As String
|
||||
Get
|
||||
Return m_tablename
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_tablename = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_selectproc As String
|
||||
Property Select_Proc() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_selectall"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_selectall"
|
||||
End Set
|
||||
End Property
|
||||
Property Update_Proc() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_Update"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_Update"
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Insert_Proc() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_Insert"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_Update"
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Select_Proc_Bottomtable() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_selectall_bottomtable"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_selectall_bottomtable"
|
||||
End Set
|
||||
End Property
|
||||
Property Select_Proc_Bottomtable2() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_selectall_bottomtable2"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_selectall_bottomtable2"
|
||||
End Set
|
||||
End Property
|
||||
Property Update_Proc_Bottomtable() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_Update_bottomtable"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_Update_bottomtable"
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Insert_Proc_Bottomtable() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_Insert_bottomtable"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_Update_bottomtable"
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Tabledata As New DataSet
|
||||
Property Tabledata() As DataSet
|
||||
Get
|
||||
Return m_Tabledata
|
||||
End Get
|
||||
Set(ByVal value As DataSet)
|
||||
m_Tabledata = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
''' <summary>
|
||||
''' Tabellenname übernehmen und Daten ab DB laden
|
||||
''' </summary>
|
||||
''' <param name="tablename"></param>
|
||||
''' <remarks></remarks>
|
||||
Sub New(ByVal tablename As String, Optional ByVal Fokus As Integer = 0, Optional ByVal Keyvalue As String = "")
|
||||
Me.Tablename = tablename
|
||||
If Keyvalue = "" Then
|
||||
Load_Data()
|
||||
Else
|
||||
Load_Bootom_Table(tablename, Fokus, Keyvalue)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(ByVal tablename As String, ByVal Fokus As Integer, ByVal Keyvalue As String, ByVal mitarbeiternr As Integer)
|
||||
Me.Tablename = tablename
|
||||
If Keyvalue = "" Then
|
||||
Load_Data()
|
||||
Else
|
||||
Load_Data_MA_Fokus(tablename, Fokus, Keyvalue, mitarbeiternr)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(ByVal tablename As String, ByVal keyvalue As String, ByVal mitarbeiternr As Integer)
|
||||
Me.Tablename = tablename
|
||||
Load_Data_MA(tablename, keyvalue, mitarbeiternr)
|
||||
End Sub
|
||||
|
||||
Sub New(ByVal tablename As String, ByVal Focus As Integer, ByVal keyvalue As String, ByVal mitarbeiternr As Integer, ByVal Key2 As String)
|
||||
Me.Tablename = tablename
|
||||
Load_Data_2Key(tablename, keyvalue, mitarbeiternr, Key2)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub Load_Data_MA(ByVal tablename As String, ByVal KeyValue As String, ByVal mitarbeiternr As Integer)
|
||||
Tabledata.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.CommandText = Me.Select_Proc_Bottomtable
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
sqlcmd.Parameters(1).Value = 0
|
||||
sqlcmd.Parameters(2).Value = KeyValue
|
||||
sqlcmd.Parameters(3).Value = Globals.Mitarbeiternr
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Load_Data_2Key(ByVal tablename As String, ByVal KeyValue As String, ByVal mitarbeiternr As Integer, ByVal KeyValue2 As String)
|
||||
Tabledata.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.CommandText = Me.Select_Proc_Bottomtable2
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@KeyValue2", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
sqlcmd.Parameters(1).Value = 0
|
||||
sqlcmd.Parameters(2).Value = KeyValue
|
||||
sqlcmd.Parameters(3).Value = KeyValue2
|
||||
sqlcmd.Parameters(4).Value = Globals.Mitarbeiternr
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Load_Data_MA_Fokus(ByVal tablename As String, ByVal Fokus As Integer, ByVal KeyValue As String, ByVal mitarbeiternr As Integer)
|
||||
Tabledata.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.CommandText = Me.Select_Proc_Bottomtable
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
sqlcmd.Parameters(1).Value = Fokus
|
||||
sqlcmd.Parameters(2).Value = KeyValue
|
||||
sqlcmd.Parameters(3).Value = Globals.Mitarbeiternr
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Sub New()
|
||||
'End Sub
|
||||
''' <summary>
|
||||
''' Daten ab Datenbank laden
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Overridable Sub Load_Data()
|
||||
Tabledata.Tables.Clear()
|
||||
|
||||
selectcommand.CommandText = Me.Select_Proc
|
||||
selectcommand.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
selectcommand.Parameters(0).Value = 0
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Basis-Datentabelle laden. Diese wird für die dynamische Generierung der Insert- und Update-Statements benötigt
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Load_BaseData()
|
||||
BaseData.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
|
||||
sqlcmd.CommandText = Me.Select_Proc
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(BaseData, "Basedata")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Update-Statement dynamisch für das UpdateCommand generieren
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Generate_Update_Statement()
|
||||
Dim col As DataColumn
|
||||
Dim col1 As DataColumn
|
||||
Dim UseCol As Boolean = False
|
||||
|
||||
UpdateCommand.CommandText = Me.Update_Proc
|
||||
UpdateCommand.CommandType = System.Data.CommandType.StoredProcedure
|
||||
UpdateCommand.Connection = connection
|
||||
|
||||
UpdateCommand.Parameters.Clear()
|
||||
For Each col In Me.Tabledata.Tables(0).Columns
|
||||
UseCol = False
|
||||
For Each col1 In Me.BaseData.Tables(0).Columns
|
||||
If col.ColumnName = col1.ColumnName Then
|
||||
UseCol = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If UseCol Then UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter(Get_Prefix(col) & col.ColumnName, Get_SqlDBType(col), Get_Data_Fieldlen(col), col.ColumnName))
|
||||
Next
|
||||
UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@iErrorcode", SqlDbType.Int, 4))
|
||||
UpdateCommand.Parameters("@iErrorcode").Value = 0
|
||||
da.UpdateCommand = UpdateCommand
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Insert-Statement dynamisch für das InsertCommand generieren
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Generate_Insert_Statement()
|
||||
Dim col As DataColumn
|
||||
Dim col1 As DataColumn
|
||||
Dim UseCol As Boolean = False
|
||||
|
||||
InsertCommand.CommandText = Me.Insert_Proc
|
||||
InsertCommand.CommandType = System.Data.CommandType.StoredProcedure
|
||||
InsertCommand.Connection = connection
|
||||
|
||||
InsertCommand.Parameters.Clear()
|
||||
For Each col In Me.Tabledata.Tables(0).Columns
|
||||
UseCol = False
|
||||
For Each col1 In Me.BaseData.Tables(0).Columns
|
||||
If col.ColumnName = col1.ColumnName Then
|
||||
UseCol = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If UseCol Then InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter(Get_Prefix(col) & col.ColumnName, Get_SqlDBType(col), Get_Data_Fieldlen(col), col.ColumnName))
|
||||
Next
|
||||
InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@iErrorcode", SqlDbType.Int, 4))
|
||||
InsertCommand.Parameters("@iErrorcode").Value = 0
|
||||
da.InsertCommand = InsertCommand
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Prefixt für den SP-Übergabeparameter generieren
|
||||
''' </summary>
|
||||
''' <param name="col">Aktuelle Columnt</param>
|
||||
''' <returns>Prefis für SP-Übergabeparameter</returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Get_Prefix(ByVal col As DataColumn) As String
|
||||
If col.DataType.Name = "DateTime" Then Return "@da"
|
||||
If col.DataType.Name = "Double" Then Return "@f"
|
||||
Return "@" & col.DataType.Name.Substring(0, 1)
|
||||
End Function
|
||||
''' <summary>
|
||||
''' SQL-DB-Type für den SP-Übergabeparameter festlegen
|
||||
''' </summary>
|
||||
''' <param name="col">Aktuelle Column</param>
|
||||
''' <returns>SQLDBType</returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Get_SqlDBType(ByVal col As DataColumn) As SqlDbType
|
||||
If col.DataType.Name = "Integer" Then Return SqlDbType.Int
|
||||
If col.DataType.Name = "Int32" Then Return SqlDbType.Int
|
||||
If col.DataType.Name = "String" Then Return SqlDbType.VarChar
|
||||
If col.DataType.Name = "Boolean" Then Return SqlDbType.Bit
|
||||
If col.DataType.Name = "DateTime" Then Return SqlDbType.DateTime
|
||||
If col.DataType.Name = "Double" Then Return SqlDbType.Float
|
||||
MsgBox(col.DataType.Name)
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Feldlänge für den SP-Übergabeparemter festlegen
|
||||
''' </summary>
|
||||
''' <param name="col">Aktulle Column</param>
|
||||
''' <returns>Feldlänge</returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Get_Data_Fieldlen(ByVal col As DataColumn) As Integer
|
||||
Return col.MaxLength
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Datesichern. Dabei wird das Update- sowie das Insert-Statement dynamisch generiert
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub Save_Data()
|
||||
Load_BaseData()
|
||||
Generate_Update_Statement()
|
||||
Generate_Insert_Statement()
|
||||
Try
|
||||
da.Update(Me.Tabledata, Me.Tabledata.Tables(0).TableName)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Dispose von Tabledata
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub dispose()
|
||||
Me.Tabledata.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region "Verknüpfungseditor"
|
||||
''' <summary>
|
||||
''' Load der Verbindungstabelle
|
||||
''' </summary>
|
||||
''' <param name="tablename"></param>
|
||||
''' <param name="Fokus"></param>
|
||||
''' <param name="KeyValue"></param>
|
||||
''' <remarks></remarks>
|
||||
Public Sub Load_Bootom_Table(ByVal tablename As String, ByVal Fokus As Integer, ByVal KeyValue As String)
|
||||
Tabledata.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.CommandText = Me.Select_Proc_bottomtable
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
sqlcmd.Parameters(1).Value = Fokus
|
||||
sqlcmd.Parameters(2).Value = KeyValue
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Neuer Eintrag in der Tabelle eintragen. Sind neben den Defaultwerten weitere Attribute vorhanden, werde diese abhängig vom Datentype mit Defaultwerten befüllt.
|
||||
''' </summary>
|
||||
''' <param name="key1"></param>
|
||||
''' <param name="keyvalue1"></param>
|
||||
''' <param name="key2"></param>
|
||||
''' <param name="keyvalue2"></param>
|
||||
''' <remarks></remarks>
|
||||
Public Sub Insert_Bottom_Table(ByVal key1 As String, ByVal keyvalue1 As Integer, ByVal key2 As String, ByVal keyvalue2 As String)
|
||||
Dim dbkey As New db.clsMyKey_Tabelle
|
||||
dbkey.cpMainConnectionProvider = Globals.conn
|
||||
conn.OpenConnection()
|
||||
Dim newkey As Integer = dbkey.get_dbkey(Me.Tablename)
|
||||
conn.CloseConnection(True)
|
||||
dbkey.Dispose()
|
||||
Dim dr As DataRow
|
||||
dr = Me.Tabledata.Tables(0).NewRow
|
||||
dr.Item(0) = newkey
|
||||
Dim i As Integer
|
||||
For i = 1 To Me.Tabledata.Tables(0).Columns.Count - 1
|
||||
Select Case UCase(Me.Tabledata.Tables(0).Columns(i).ColumnName)
|
||||
Case "AKTIV"
|
||||
dr.Item(i) = 1
|
||||
Case "ERSTELLT_AM"
|
||||
dr.Item(i) = Now
|
||||
Case "MUTIERT_AM"
|
||||
dr.Item(i) = Now
|
||||
Case "MUTIERER"
|
||||
dr.Item(i) = Globals.Mitarbeiternr
|
||||
Case "MANDANTNR"
|
||||
dr.Item(i) = Globals.Mitarbeiternr
|
||||
Case "MANDANT"
|
||||
dr.Item(i) = Globals.Mitarbeiternr
|
||||
Case UCase(key1)
|
||||
dr.Item(i) = keyvalue1
|
||||
Case UCase(key2)
|
||||
dr.Item(i) = keyvalue2
|
||||
Case Else
|
||||
Select Case Type.GetTypeCode(Me.Tabledata.Tables(0).Columns(i).DataType)
|
||||
Case TypeCode.DateTime
|
||||
dr.Item(i) = Now
|
||||
Case TypeCode.Double
|
||||
dr.Item(i) = 0
|
||||
Case TypeCode.String
|
||||
dr.Item(i) = ""
|
||||
Case TypeCode.Int32
|
||||
dr.Item(i) = 0
|
||||
Case TypeCode.Boolean
|
||||
dr.Item(i) = True
|
||||
Case TypeCode.Int16
|
||||
dr.Item(i) = 0
|
||||
Case TypeCode.Int32
|
||||
dr.Item(i) = 0
|
||||
Case TypeCode.Int64
|
||||
dr.Item(i) = 0
|
||||
End Select
|
||||
End Select
|
||||
Next
|
||||
Me.Tabledata.Tables(0).Rows.Add(dr)
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
@@ -0,0 +1,630 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'spalten'
|
||||
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 13:15:45
|
||||
' // 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 'spalten'.
|
||||
''' </summary>
|
||||
Public Class clsSpalten
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bReadonly, m_bAlsHacken, m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMandantnr, m_iMutierer, m_iReihenfolge, m_iEintragnr, m_iBreite As SqlInt32
|
||||
Private m_sTabelle, m_sNumberFormat, m_sTiptext, m_sSpalte, m_sTabellenspalte 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>iEintragnr</LI>
|
||||
''' <LI>sTabelle. May be SqlString.Null</LI>
|
||||
''' <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||
''' <LI>sSpalte. May be SqlString.Null</LI>
|
||||
''' <LI>bReadonly</LI>
|
||||
''' <LI>bAlsHacken</LI>
|
||||
''' <LI>iBreite. May be SqlInt32.Null</LI>
|
||||
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||
''' <LI>sTiptext. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv</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>iMandantnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sNumberFormat. May be SqlString.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_spalten_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
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("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
|
||||
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_spalten_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("clsSpalten::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>iEintragnr</LI>
|
||||
''' <LI>sTabelle. May be SqlString.Null</LI>
|
||||
''' <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||
''' <LI>sSpalte. May be SqlString.Null</LI>
|
||||
''' <LI>bReadonly</LI>
|
||||
''' <LI>bAlsHacken</LI>
|
||||
''' <LI>iBreite. May be SqlInt32.Null</LI>
|
||||
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||
''' <LI>sTiptext. May be SqlString.Null</LI>
|
||||
''' <LI>bAktiv</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>iMandantnr. May be SqlInt32.Null</LI>
|
||||
''' <LI>sNumberFormat. May be SqlString.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_spalten_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
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("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
|
||||
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_spalten_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("clsSpalten::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>iEintragnr</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_spalten_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
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_spalten_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("clsSpalten::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>iEintragnr</LI>
|
||||
''' </UL>
|
||||
''' Properties set after a succesful call of this method:
|
||||
''' <UL>
|
||||
''' <LI>iErrorCode</LI>
|
||||
''' <LI>iEintragnr</LI>
|
||||
''' <LI>sTabelle</LI>
|
||||
''' <LI>sTabellenspalte</LI>
|
||||
''' <LI>sSpalte</LI>
|
||||
''' <LI>bReadonly</LI>
|
||||
''' <LI>bAlsHacken</LI>
|
||||
''' <LI>iBreite</LI>
|
||||
''' <LI>iReihenfolge</LI>
|
||||
''' <LI>sTiptext</LI>
|
||||
''' <LI>bAktiv</LI>
|
||||
''' <LI>daErstellt_am</LI>
|
||||
''' <LI>daMutiert_am</LI>
|
||||
''' <LI>iMutierer</LI>
|
||||
''' <LI>iMandantnr</LI>
|
||||
''' <LI>sNumberFormat</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_spalten_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("spalten")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
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_spalten_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iEintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("eintragnr"), Integer))
|
||||
If dtToReturn.Rows(0)("tabelle") Is System.DBNull.Value Then
|
||||
m_sTabelle = SqlString.Null
|
||||
Else
|
||||
m_sTabelle = New SqlString(CType(dtToReturn.Rows(0)("tabelle"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("tabellenspalte") Is System.DBNull.Value Then
|
||||
m_sTabellenspalte = SqlString.Null
|
||||
Else
|
||||
m_sTabellenspalte = New SqlString(CType(dtToReturn.Rows(0)("tabellenspalte"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("spalte") Is System.DBNull.Value Then
|
||||
m_sSpalte = SqlString.Null
|
||||
Else
|
||||
m_sSpalte = New SqlString(CType(dtToReturn.Rows(0)("spalte"), String))
|
||||
End If
|
||||
m_bReadonly = New SqlBoolean(CType(dtToReturn.Rows(0)("Readonly"), Boolean))
|
||||
m_bAlsHacken = New SqlBoolean(CType(dtToReturn.Rows(0)("alsHacken"), Boolean))
|
||||
If dtToReturn.Rows(0)("Breite") Is System.DBNull.Value Then
|
||||
m_iBreite = SqlInt32.Null
|
||||
Else
|
||||
m_iBreite = New SqlInt32(CType(dtToReturn.Rows(0)("Breite"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
|
||||
m_iReihenfolge = SqlInt32.Null
|
||||
Else
|
||||
m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("tiptext") Is System.DBNull.Value Then
|
||||
m_sTiptext = SqlString.Null
|
||||
Else
|
||||
m_sTiptext = New SqlString(CType(dtToReturn.Rows(0)("tiptext"), String))
|
||||
End If
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||
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)("mandantnr") Is System.DBNull.Value Then
|
||||
m_iMandantnr = SqlInt32.Null
|
||||
Else
|
||||
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("NumberFormat") Is System.DBNull.Value Then
|
||||
m_sNumberFormat = SqlString.Null
|
||||
Else
|
||||
m_sNumberFormat = New SqlString(CType(dtToReturn.Rows(0)("NumberFormat"), String))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::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_spalten_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("spalten")
|
||||
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_spalten_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("clsSpalten::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 [iEintragnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iEintragnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iEintragnrTmp As SqlInt32 = Value
|
||||
If iEintragnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iEintragnr", "iEintragnr can't be NULL")
|
||||
End If
|
||||
m_iEintragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTabelle]() As SqlString
|
||||
Get
|
||||
Return m_sTabelle
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTabelle = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTabellenspalte]() As SqlString
|
||||
Get
|
||||
Return m_sTabellenspalte
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTabellenspalte = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSpalte]() As SqlString
|
||||
Get
|
||||
Return m_sSpalte
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSpalte = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bReadonly]() As SqlBoolean
|
||||
Get
|
||||
Return m_bReadonly
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
Dim bReadonlyTmp As SqlBoolean = Value
|
||||
If bReadonlyTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("bReadonly", "bReadonly can't be NULL")
|
||||
End If
|
||||
m_bReadonly = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAlsHacken]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAlsHacken
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
Dim bAlsHackenTmp As SqlBoolean = Value
|
||||
If bAlsHackenTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("bAlsHacken", "bAlsHacken can't be NULL")
|
||||
End If
|
||||
m_bAlsHacken = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iBreite]() As SqlInt32
|
||||
Get
|
||||
Return m_iBreite
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iBreite = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iReihenfolge]() As SqlInt32
|
||||
Get
|
||||
Return m_iReihenfolge
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iReihenfolge = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTiptext]() As SqlString
|
||||
Get
|
||||
Return m_sTiptext
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTiptext = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
Dim bAktivTmp As SqlBoolean = Value
|
||||
If bAktivTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
|
||||
End If
|
||||
m_bAktiv = 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 [iMandantnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iMandantnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMandantnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sNumberFormat]() As SqlString
|
||||
Get
|
||||
Return m_sNumberFormat
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sNumberFormat = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
+13
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.17929
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>false</MySubMain>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>1</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,34 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||
' die mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("ThemenDokumente")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("ThemenDokumente")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2013")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||
<Assembly: Guid("8ce916db-afaf-401e-867c-5305575dd568")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.*")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
+63
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.17929
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ThemenDokumente.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,117 @@
|
||||
<?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.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: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" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</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" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
+73
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.17929
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "Funktion zum automatischen Speichern von My.Settings"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.ThemenDokumente.My.MySettings
|
||||
Get
|
||||
Return Global.ThemenDokumente.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
@@ -0,0 +1,3 @@
|
||||
C1.Win.C1Command.C1CommandHolder, C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
C1.Win.C1Command.C1ToolBar, C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8
|
||||
@@ -0,0 +1,161 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProjectGuid>{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>ThemenDokumente</RootNamespace>
|
||||
<AssemblyName>ThemenDokumente</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>ThemenDokumente.xml</DocumentationFile>
|
||||
<DefineConstants>_MYFORMS=True</DefineConstants>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>ThemenDokumente.xml</DocumentationFile>
|
||||
<DefineConstants>_MYFORMS=True</DefineConstants>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8, processorArchitecture=MSIL" />
|
||||
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20141.61347, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\AssessmentMgmt\bin\Debug\C1.Win.C1TrueDBGrid.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DevComponents.DotNetBar2, Version=12.7.0.8, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL" />
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Drawing.Design" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="DB\clsConnectionProvider.vb" />
|
||||
<Compile Include="DB\clsDBInteractionBase.vb" />
|
||||
<Compile Include="DB\clsDokumentAblageort.vb" />
|
||||
<Compile Include="DB\clsDokumentAblageTyp.vb" />
|
||||
<Compile Include="DB\clsDokumenttyp.vb" />
|
||||
<Compile Include="DB\clsSpeicherTyp.vb" />
|
||||
<Compile Include="DMS\clsDok.vb" />
|
||||
<Compile Include="DB\clsDokument.vb" />
|
||||
<Compile Include="DB\clsKey_tabelle.vb" />
|
||||
<Compile Include="DB\clsMyKey_Tabelle.vb" />
|
||||
<Compile Include="DMS\clsStammdaten.vb" />
|
||||
<Compile Include="DMS\MyDocMgmt.vb" />
|
||||
<Compile Include="frmDokument.designer.vb">
|
||||
<DependentUpon>frmDokument.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmDokument.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\clsSpalten.vb" />
|
||||
<Compile Include="Klassen\Globals.vb" />
|
||||
<Compile Include="Klassen\MySysadmin.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Dokumente.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Dokumente.Designer.vb">
|
||||
<DependentUpon>Dokumente.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\MySpalten.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="frmDokument.resx">
|
||||
<DependentUpon>frmDokument.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Dokumente.resx">
|
||||
<DependentUpon>Dokumente.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Service Include="{94E38DFF-614B-4cbd-B67C-F211BB35CE8B}" />
|
||||
</ItemGroup>
|
||||
<ItemGroup />
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,33 @@
|
||||
<?xml version="1.0" encoding="ISO-8859-1"?>
|
||||
<Layout>
|
||||
<BackgroundFrom>
|
||||
<R>70</R>
|
||||
<G>130</G>
|
||||
<B>180</B>
|
||||
</BackgroundFrom>
|
||||
<BackgroundTo>
|
||||
<R>255</R>
|
||||
<G>255</G>
|
||||
<B>255</B>
|
||||
</BackgroundTo>
|
||||
<TileAbsender>
|
||||
<BackgroundFrom>
|
||||
<R>70</R>
|
||||
<G>130</G>
|
||||
<B>180</B>
|
||||
</BackgroundFrom>
|
||||
<BackgroundTo>
|
||||
<R>255</R>
|
||||
<G>255</G>
|
||||
<B>255</B>
|
||||
</BackgroundTo>
|
||||
<Font>
|
||||
<Color>
|
||||
<R>255</R>
|
||||
<G>255</G>
|
||||
<B>255</B>
|
||||
</Color>
|
||||
<Size>8.25</Size>
|
||||
</Font>
|
||||
</TileAbsender>
|
||||
</Layout>
|
||||
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Generated
+592
@@ -0,0 +1,592 @@
|
||||
<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.cboxDokumenttyp = New System.Windows.Forms.ComboBox()
|
||||
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.ComboBoxEx1 = New DevComponents.DotNetBar.Controls.ComboBoxEx()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cbboxSpeicherung = New System.Windows.Forms.ComboBox()
|
||||
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.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pnlDokument.SuspendLayout()
|
||||
Me.pnlHyperlink.SuspendLayout()
|
||||
Me.StatusStrip1.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(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.TSBtnDelete, Me.TSBtnNew, 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"
|
||||
'
|
||||
'cboxDokumenttyp
|
||||
'
|
||||
Me.cboxDokumenttyp.FormattingEnabled = True
|
||||
Me.cboxDokumenttyp.Location = New System.Drawing.Point(96, 111)
|
||||
Me.cboxDokumenttyp.Name = "cboxDokumenttyp"
|
||||
Me.cboxDokumenttyp.Size = New System.Drawing.Size(268, 21)
|
||||
Me.cboxDokumenttyp.TabIndex = 1
|
||||
'
|
||||
'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.ComboBoxEx1)
|
||||
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.cboxDokumenttyp)
|
||||
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
|
||||
'
|
||||
'ComboBoxEx1
|
||||
'
|
||||
Me.ComboBoxEx1.DisplayMember = "Text"
|
||||
Me.ComboBoxEx1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Me.ComboBoxEx1.FormattingEnabled = True
|
||||
Me.ComboBoxEx1.ItemHeight = 14
|
||||
Me.ComboBoxEx1.Location = New System.Drawing.Point(390, 112)
|
||||
Me.ComboBoxEx1.Name = "ComboBoxEx1"
|
||||
Me.ComboBoxEx1.Size = New System.Drawing.Size(121, 20)
|
||||
Me.ComboBoxEx1.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
|
||||
Me.ComboBoxEx1.TabIndex = 167
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(7, 85)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(67, 13)
|
||||
Me.Label1.TabIndex = 175
|
||||
Me.Label1.Text = "Speicherung"
|
||||
Me.Label1.Visible = False
|
||||
'
|
||||
'cbboxSpeicherung
|
||||
'
|
||||
Me.cbboxSpeicherung.FormattingEnabled = True
|
||||
Me.cbboxSpeicherung.Items.AddRange(New Object() {"Datenbank", "Dateisystem", "Hyperlink"})
|
||||
Me.cbboxSpeicherung.Location = New System.Drawing.Point(96, 82)
|
||||
Me.cbboxSpeicherung.Name = "cbboxSpeicherung"
|
||||
Me.cbboxSpeicherung.Size = New System.Drawing.Size(268, 21)
|
||||
Me.cbboxSpeicherung.TabIndex = 174
|
||||
Me.cbboxSpeicherung.Visible = False
|
||||
'
|
||||
'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.Label1)
|
||||
Me.pnlDokument.Controls.Add(Me.txtOriginalFilename_incl_path)
|
||||
Me.pnlDokument.Controls.Add(Me.txtVersion)
|
||||
Me.pnlDokument.Controls.Add(Me.cbboxSpeicherung)
|
||||
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, 139)
|
||||
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, 328)
|
||||
Me.pnlHyperlink.Name = "pnlHyperlink"
|
||||
Me.pnlHyperlink.Size = New System.Drawing.Size(583, 46)
|
||||
Me.pnlHyperlink.TabIndex = 179
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 372)
|
||||
Me.StatusStrip1.Name = "StatusStrip1"
|
||||
Me.StatusStrip1.Size = New System.Drawing.Size(583, 22)
|
||||
Me.StatusStrip1.TabIndex = 180
|
||||
Me.StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'ToolStripStatusLabel1
|
||||
'
|
||||
Me.ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Black
|
||||
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
|
||||
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
|
||||
'
|
||||
'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, 394)
|
||||
Me.Controls.Add(Me.StatusStrip1)
|
||||
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.StatusStrip1.ResumeLayout(False)
|
||||
Me.StatusStrip1.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 cboxDokumenttyp As System.Windows.Forms.ComboBox
|
||||
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 Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents cbboxSpeicherung As System.Windows.Forms.ComboBox
|
||||
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 ComboBoxEx1 As DevComponents.DotNetBar.Controls.ComboBoxEx
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
|
||||
End Class
|
||||
@@ -0,0 +1,254 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>513, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.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
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK0SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYmlYjb3Obx
|
||||
7MzN1dY5Z9tJV86Min5BlvZb07Is1CKHqVQYlVoZaZmlaGQopSLmkuwigoooguii4NNRY7HLeuAD7/PC
|
||||
++H9Pu8r/qc+Tw8EP8yO/mzZm8mfrYVqK8/tbD+SS+exOaQkHUclrpfZeRzfyafJHj6O3eXb636u7rem
|
||||
CjrKZVal21m91kZ6xl/S1lpZaVnH90QPic5DjNT7+ZJ4QttBR6qgvVQm0+rEZpewO1xJrNlO0tbZeNUS
|
||||
YeSSznBDkE8T3dw8nJMqcNQKpMpF5Nh9SC4FKceNJMm4XDIZVonJZoPhiyGe1gV5P9IxH/XPUSFsJwWJ
|
||||
9604TUlulobbGUCR/CiyF9ntIcvhZjweZqhep792I7OD17hXoSwIbJWCsbeNNPcLMisE9hqB87xALl2K
|
||||
VwniyfOTnetj9JJG/zmd7/eXM9XbRHeVF+GqFjx7U0F8SNA4aK5nCnn+JsKLd+F5yXpPmPz8IJInwPMG
|
||||
lb6zGj96VjBxr57eGv+C4FFiD/FRQXxE0DQuaJ4UvPwawXFOEMwvZEMghDtfY6guQO+ZII17nLzoOMmT
|
||||
2sB8BIvdjNA1tZnWhCBrLsIpgeOsIK9sGboaRdUNfEGDgVo/D06v59YRhWfXyhmsU5NDtGRXCTpnfDjP
|
||||
CIzALgytBCNchGFEiRgFBEJR+mq83K/20VXpZeDyboYvhFKe0eI0r6xULyZqbCdaWExhtGieAhNtU4yH
|
||||
1R66KvK4fdxDT32M0cZIikC0lKxhS3EJxbEdFG/dliRmUlC0nQdVMndOKLQfc3PndIixpgKEruvoWghN
|
||||
C6Oqc5hrVTN7NYlq9hs26uyLBbhSrpg/UObG0TwmWzcvDPFfKdXT9jccyPg1fSWWGuEfaonJKiGE5Tdo
|
||||
FcKGVVlc7gAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKQSURBVDhPrY/JTxNRAIdf0kQPJoZ4MOFEUNwoWLbSllUg
|
||||
KAFKy6JSFFDABUwQLxz4B0iaECImGA9owo14aCXFUFot2MJAC5zdN+hCaaEFSUQoP997DFSJRyf5kpnM
|
||||
7/veDPkvl06n22hpaoZlfAoL3hUs+lbhXlqFxx+CdzkMXyAMfyCE5WAI43YBba1teHC/Y0PUCWmob0Aj
|
||||
xTE9hwX/2l8sLq/DHViHJ7gO38oPTLvmwQ67e/sORJ2Qm403wBCc89iO7Bwggq3tCH5tbePn5hY9ZJZv
|
||||
bzW3RAP1166D8UZw4dtSaBdfCF8pX+jvfPau4pNnBR/dQdgcM3zLIqJOSF2tDgzLhAAv/dQ9PIE1+vns
|
||||
N8L47g/z4Khtkm9ZRNQJuVJzGYwRqx1zH7yYp8y9Z3gwS3G9o7x1Y4bywjzBt3VXa6OB6soqMB49eQbD
|
||||
6ASGLQ6YXk1h5LUAE2XYOgmj2Y7nL214+Pgp37KIqBOiVVfgn1Roohx4V62tjAbUpWX4E025GlUaLR/V
|
||||
0NMY7JmJ6rLy/Y2oE1JSfBGM0kslsNlscLlcHKfTyWH3giAgS6GEQi7f34o6IYV5+WAUFxbBarUiPzcP
|
||||
ykwFHA4H7HY7j46NjSE/JxfZqiwU0G3RhYJoIFupAiMvKxsWOkxPSUWyVAqz2QyTyQSDwYChoSGoaFSR
|
||||
IUcOi9BDRJ2QjNS0TXlqGh8YjUacPpmAE/HxXBocHMTAwAD6+/shS0qGTJqEzLR0KGlI1AmJORpzL/lc
|
||||
YiRdlsLHe1JfXx96enqg1+vR3d2NMzR8NuEUzidKWWiHqkd2C4Qck0gkpXFxcVVdXV1NVGjt7e1tp3TQ
|
||||
QDt77uzsbIw9Hqs9JJFoGHRfQAg5/BslsRWFgJrRJAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnCopy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABnSURBVDhPtZIBCsAgDAP79D6tP+tWpWNqdEFZIAalHhEU
|
||||
M/MTDwARpX0MUL1zBIgzirklgMkCQNVmfmsbABrUg1S/T6G5BrCT/zVgDRvMlBd6PwAm4wL4N3XgS0sA
|
||||
awiIJd/DuAWYX6K9icTfTBdeAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
|
||||
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
|
||||
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
|
||||
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
|
||||
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
|
||||
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
|
||||
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
|
||||
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
|
||||
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
|
||||
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
|
||||
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
|
||||
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
|
||||
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
|
||||
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
|
||||
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
|
||||
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
|
||||
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
|
||||
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
|
||||
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
|
||||
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnSuche.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVFhH7ZLhCoQwDIP36Hu0vdl5DU7GbFx6KtyPfhBQ
|
||||
26aBWpIkEfhMYqh9YVRjtS+Maqz2hVGN1T6Z2RCqtULfZzC8M/0GMx2+d45QZCYMjFprzPCkvnwxIwMT
|
||||
Qw1g6iG82i4ZKYCwcJYMjFcneDXAS5Lxhp+QzOoEDNQvTiMDg4ufkIG6BSfhZf4jwJ0T3A5gIstNjKMn
|
||||
GPyENzyK4fWOSpIkcShlA/2ShGAugX0dAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>615, 17</value>
|
||||
</metadata>
|
||||
<data name="brnFileOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA90lEQVRYR+2UwQ2EIBBFqcCbNyuwgj16
|
||||
swIq8OaNDmjAo01QhSfbYvksuu4EYwRM9jA/eVE0zv8jEwSLxWJdaVkWm0Mok65YUco4jrbrOg99F8qk
|
||||
ixakwHye530tpbTGGH/VWj8f4GgONnP3aZkASilXsHG8PNSQspmDIgFgbu3kUJ66rvf9piAcTDfwN0KZ
|
||||
dKHrjzlCfIPQtTHKm9I/Esqk6w8C/G4B7td1sm0rLqkqPwt5ogFgjmdaY8jOGQbgBzJPxy2Aed/HDY/A
|
||||
HOdD0Rm423nRGUjpvFiApsEhdL/zYgFiB04M2nmxAK6IzCGUYbFYrBMJ8QYr85jIzjCyHwAAAABJRU5E
|
||||
rkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="btnDokumentAnzeigen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
|
||||
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAwElEQVQ4T6WTMQ6DMAxFfY4eo71ST8LU
|
||||
ibGiLB25Qa6RhQswcoKIydWP8isX0oTSJ1lRHP9vywKp4ZxThPc+Rkrvo+/vGkKIATHPXUYUUGQnQW4Y
|
||||
HmUTFuJk0BDgnkq3oJPtTJEFuVS+hSKOvAZvVYPc2JaiAcW57gRvqTwPtvzNoNh9ni86TU/tuluM9fic
|
||||
LJV/AvGyiI6jaNNc30V2Jym1BUKK2/Zc/1Asf4nt2D+LARbl3OmYGOCPw8IOiUXkBfwCjOxiDzXKAAAA
|
||||
AElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>757, 17</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||
AAD///8AAAAAAAAHcAdwAAAAAAAAAAAAAAAAB3DwB3AAAAAAAAAAAAAAAHcP//AHcAAAAAAAAAAAAAB3
|
||||
D0//8AdwAAAAAAAAAAAHcP/0///wB3AAAAAAAAAAB3D/9E9P//AHcAAAAAAAAHcP//T09P//8AcAAAAA
|
||||
AAB3D0T///T////wcAAAAAAHcP//RP//T0///wAAAAAAB3D///9E//////8AAAAAAHcP9E//////////
|
||||
AAAAAAB3D//0T///////8AAAAAAHcP////RP//////AAAAAAB3D/RP//9E////8AAAAAAHcP//9E///0
|
||||
T///AAAAAAB3D////0T///RP8AAAAAAHcP9E////RP////AAAAAAB3D//0T///9E//8AAAAAAHcP////
|
||||
RP///0T/AAAAAAB3D/RP///0////8AAAAAAHcP//9E///0T///AAAAAAB3D////0T///RP8AAAAAAAcP
|
||||
9E////RP////AAAAAAAHD//0T///9E//8AAAAAAAAAD///RP//////AAAAAAAAAAAP////////8AAAAA
|
||||
AAAAAAAA////////AAAAAAAAAAAAAAD/////8AAAAAAAAAAAAAAAAP////AAAAAAAAAAAAAAAAAA//8A
|
||||
AAAAAAAAAAAAAAAAAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/4H///+Af///AB///wAH//4AAf/+A
|
||||
AB//AAAP/wAAB/4AAAP+AAAH/AAAB/wAAA/4AAAP+AAAH/AAAB/wAAA/4AAAP+AAAH/AAAB/wAAA/4AA
|
||||
AP+AAAH/gAAB/4AAA//AAAP/8AAH//wAB///AA///8AP///wH////B////8//w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,571 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.IO
|
||||
Public Class frmDokument
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim Dokument As New DMS.clsDok
|
||||
Dim DokumentAblageTyp As New DB.clsDokumentAblageTyp
|
||||
Dim DokumentAblageTypen As New DataTable
|
||||
|
||||
Dim FormReadonly As Boolean = False
|
||||
Dim FormDataChanged As Boolean = False
|
||||
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||
|
||||
Dim Aktuelles_Dokument As Integer
|
||||
Dim Aktuelles_Element As Integer
|
||||
Dim Doktype As Integer
|
||||
|
||||
''' <summary>
|
||||
''' Doktype
|
||||
''' 1: Vertragselement
|
||||
''' 2: Test-Drehbuch
|
||||
''' 3: Applikationsdokument
|
||||
''' 4: Applikationlogbuch
|
||||
''' </summary>ö
|
||||
''' <remarks></remarks>
|
||||
Dim Aktueller_Doktype As Integer
|
||||
|
||||
Dim Anzeige As Boolean = False
|
||||
Private SaveFileName As String = ""
|
||||
Dim Neuer_Datensatz As Boolean = False
|
||||
#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
|
||||
If Me.Dokument.Neuer_Datensatz = True Then Me.Dokument.Delete(Me.Dokument.iDokumentNr.Value)
|
||||
Me.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Prüfung, ob Datenänderungen vorgenommen wurden. Beim Speichern werden ebenfalls allfällige Änderungen von C1DokumentAblagoeOrt durchgeführt.
|
||||
''' Wurden lediglich Änderungen bei C1Dokumentablageort vorgenommen, wird separat gefrat, ob die Änderungen gespeichert werden sollen.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Function Check_Changes() As Boolean
|
||||
If Me.FormReadonly Then Exit Function
|
||||
Dim msgres As MsgBoxResult
|
||||
If Me.FormDataChanged Then
|
||||
msgres = MsgBox("Möchten Sie die Änderungen speichern?", vbYesNoCancel + MsgBoxStyle.Question, Title:="Assessment-Managmenet")
|
||||
Select Case msgres
|
||||
Case MsgBoxResult.Yes
|
||||
Save_data()
|
||||
Return True
|
||||
Case MsgBoxResult.Cancel
|
||||
Return False
|
||||
Case MsgBoxResult.No
|
||||
Return True
|
||||
End Select
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Formular"
|
||||
''' <summary>
|
||||
'''
|
||||
''' </summary>
|
||||
''' <param name="DokumentNr">Optionaler Parameter Dokumentnummer des aktuellen Dokuments</param>
|
||||
''' <remarks></remarks>
|
||||
Sub New(ByVal DokumentNr As Integer, ByVal Doktype As Integer, Optional ByVal Elementnr As Integer = -1, Optional ByVal Anzeige As Boolean = False, Optional ByVal CreateNew As Boolean = False)
|
||||
Me.InitializeComponent()
|
||||
If CreateNew Then
|
||||
Me.Aktuelles_Dokument = Me.Dokument.Add_New(Elementnr, DokType)
|
||||
Me.Neuer_Datensatz = True
|
||||
Else
|
||||
Me.Aktuelles_Dokument = DokumentNr
|
||||
End If
|
||||
Me.Anzeige = Anzeige
|
||||
Me.Aktuelles_Element = Elementnr
|
||||
Me.Doktype = Doktype
|
||||
End Sub
|
||||
Sub New(ByVal DokumentNr As Integer, ByVal Doktype As Integer, Optional ByVal Elementnr As Integer = -1, Optional ByVal Anzeige As Boolean = False, Optional ByVal CreateNew As Boolean = False, Optional ByVal Filename As String = "")
|
||||
Me.InitializeComponent()
|
||||
If CreateNew Then
|
||||
Me.Aktuelles_Dokument = Me.Dokument.Add_New(Elementnr, Doktype)
|
||||
Me.Neuer_Datensatz = True
|
||||
Me.Dokument.sBezeichnung = New SqlString(CType(System.IO.Path.GetFileName(Filename), String))
|
||||
Me.Dokument.sFilename = New SqlString(CType(System.IO.Path.GetFileName(Filename), String))
|
||||
Me.Dokument.sOriginalFilename_incl_Path = New SqlString(CType(Filename, String))
|
||||
Me.Dokument.Save_Data()
|
||||
Me.txtDateiname.Text = System.IO.Path.GetFileName(Filename)
|
||||
Me.txtFilename.Text = Filename
|
||||
Else
|
||||
Me.Aktuelles_Dokument = DokumentNr
|
||||
End If
|
||||
Me.Anzeige = Anzeige
|
||||
Me.Aktuelles_Element = Elementnr
|
||||
Me.Doktype = Doktype
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Formular-Load
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub frmDokument_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
If Anzeige = True Then
|
||||
Me.TSBtnSuche.Enabled = False
|
||||
Me.TSBtnSave.Enabled = False
|
||||
Else
|
||||
Me.TSBtnSuche.Enabled = True
|
||||
End If
|
||||
If Me.TSBtnSave.Enabled = False Or Me.TSBtnSave.Visible = False Then
|
||||
Me.FormReadonly = True
|
||||
Me.TSBtnCopy.Enabled = False
|
||||
Me.TSBtnNew.Enabled = False
|
||||
Me.TSBtnDelete.Enabled = False
|
||||
Else
|
||||
Me.FormReadonly = False
|
||||
End If
|
||||
|
||||
|
||||
'Dokumenttypen-Laden
|
||||
Me.Dokument.Get_Dokumenttypen()
|
||||
Me.cboxDokumenttyp.DataSource = Me.Dokument.Dokumenttypdaten
|
||||
Me.cboxDokumenttyp.DisplayMember = "Bezeichnung"
|
||||
Me.cboxDokumenttyp.ValueMember = "Dokumenttypnr"
|
||||
|
||||
Me.Dokument.get_Speichertypen()
|
||||
Me.cbboxSpeicherung.DataSource = Me.Dokument.Speichertypdaten
|
||||
Me.cbboxSpeicherung.DisplayMember = "Bezeichnung"
|
||||
Me.cbboxSpeicherung.ValueMember = "Speichertypnr"
|
||||
|
||||
Me.ComboBoxEx1.DataSource = Me.Dokument.Dokumenttypdaten
|
||||
Me.ComboBoxEx1.DisplayMember = "Bezeichnung"
|
||||
Me.ComboBoxEx1.ValueMember = "Dokumenttypnr"
|
||||
Me.ComboBoxEx1.SelectedValue = 2
|
||||
Me.cboxDokumenttyp.SelectedValue = 2
|
||||
|
||||
AddChanges(Me)
|
||||
Get_Data(Me.Aktuelles_Dokument)
|
||||
If Me.cbboxSpeicherung.Text = "Hyperlink" Then Me.txtHyperlink.Text = Me.txtOriginalFilename_incl_path.Text
|
||||
If Me.Neuer_Datensatz = True Then
|
||||
Me.Dokument.Neuer_Datensatz = True
|
||||
Me.Neuer_Datensatz = False
|
||||
End If
|
||||
Me.txtBezeichnung.Focus()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Buttons/Menu"
|
||||
|
||||
''' <summary>
|
||||
''' Formular schliessen
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Sicherungs-Button betätigt
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
'''
|
||||
Dim WithEvents speichertimer As New Timer
|
||||
|
||||
Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
|
||||
speichertimer.Interval = 5000
|
||||
speichertimer.Enabled = True
|
||||
Me.Save_data()
|
||||
Me.txtMutiert_am.Text = Me.Dokument.daMutiert_am.ToString
|
||||
Me.FormDataChanged = False
|
||||
Me.ToolStripStatusLabel1.Text = "Daten wurden gespeichert"
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Datensatz kopieren
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TSBtnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnCopy.Click
|
||||
If Me.Check_Changes = False Then Exit Sub
|
||||
Me.Get_Data(Dokument.Create_Copy(Me.Dokument.iDokumentNr.Value))
|
||||
Me.Dokument.Neuer_Datensatz = True
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Neuer Datensatz erstellen
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TSBtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnNew.Click
|
||||
If Me.Check_Changes = False Then Exit Sub
|
||||
Me.Get_Data(Me.Dokument.Add_New(Me.Aktuelles_Element, Me.Doktype))
|
||||
|
||||
Me.txtFilename.Text = ""
|
||||
Me.Dokument.Neuer_Datensatz = True
|
||||
Me.txtBezeichnung.Focus()
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Aktueller Datensatz inaktivieren
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TSBtnDelete_Click(ByVal senderBeendenToolStripMenuItem As System.Object, ByVal e As System.EventArgs) Handles TSBtnDelete.Click
|
||||
If MsgBox("Das Dokument wirklich löschen?", vbYesNo + vbQuestion, Title:="Assessment-Managmenet") = MsgBoxResult.Yes Then
|
||||
Me.Dokument.Delete_Dokument(Me.Dokument.iDokumentNr.Value)
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Menu Beenden
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.TSBtnQuit_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Vertragspartner suchen
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TSBtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSuche.Click
|
||||
If Not Me.FormReadonly Then Check_Changes()
|
||||
'Dim i As Integer
|
||||
'If Me.Vertragspartnerdata.Vertragspartner_Suchen(i) = True Then
|
||||
' Me.Get_Data(i)
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
#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 CheckBox Then
|
||||
Dim ctl As CheckBox = c
|
||||
AddHandler ctl.CheckedChanged, 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
|
||||
|
||||
''' <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
|
||||
|
||||
''' <summary>
|
||||
''' Handelt das Change-Ereignis eines Datetimepckers und stellt das ausgewählte Datum in das entsprechende Textfeld
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DateTimePicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtPickerVersionsdatum.ValueChanged
|
||||
Dim s As String
|
||||
Dim obj As DateTimePicker = sender
|
||||
s = obj.Name
|
||||
s = "txt" + s.Substring(8, s.Length - 8)
|
||||
Dim l As New List(Of Control)
|
||||
Dim txtb As MaskedTextBox
|
||||
GetControl(Me, s, l)
|
||||
For Each ctl As Control In l
|
||||
txtb = CType(ctl, MaskedTextBox)
|
||||
txtb.Text = obj.Value
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Daten"
|
||||
''' <summary>
|
||||
''' Daten ab DB laden uns ins Form befüllen
|
||||
''' </summary>
|
||||
''' <param name="DokumentNr"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Get_Data(ByVal Dokumentnr As Integer)
|
||||
Try
|
||||
Dokument.Get_Dokumenttypen()
|
||||
Dokument.Get_Dokument(Dokumentnr)
|
||||
Me.txtBezeichnung.Text = Dokument.sBezeichnung.Value
|
||||
Me.cboxDokumenttyp.SelectedValue = Dokument.iDokumenttypNr.Value
|
||||
Me.txtBeschreibung.Text = Dokument.sBeschreibung.Value
|
||||
Me.txtVersion.Text = Dokument.sVersion.ToString
|
||||
Me.txtVersionsdatum.Text = Dokument.daVersionsdatum.ToString
|
||||
Me.txtDateiname.Text = Dokument.sFilename.Value
|
||||
If Me.txtDateiname.Text <> "" Then Me.btnDokumentAnzeigen.Enabled = True Else Me.btnDokumentAnzeigen.Enabled = False
|
||||
Me.txtDateiname.ReadOnly = True
|
||||
|
||||
Me.SaveFileName = Me.txtDateiname.Text
|
||||
Me.txtOriginalFilename_incl_path.Text = Dokument.sOriginalFilename_incl_Path.Value
|
||||
Me.txtErstellt_am.Text = Dokument.daErstellt_am.ToString
|
||||
Me.txtMutiert_am.Text = Dokument.daMutiert_am.ToString
|
||||
Me.txtMutierer.Text = Dokument.iMutierer.Value
|
||||
Me.cbboxSpeicherung.SelectedValue = Dokument.iSpeichertypNr.Value
|
||||
Try
|
||||
Me.cbaktiv.Checked = Dokument.bAktiv.Value = True
|
||||
|
||||
Catch ex As Exception
|
||||
Me.cbaktiv.Checked = True
|
||||
End Try
|
||||
If Not Anzeige Then
|
||||
For Each ctl As ToolStripButton In Me.ToolStrip1.Items
|
||||
ctl.Enabled = True
|
||||
Next
|
||||
End If
|
||||
Me.FormDataChanged = False
|
||||
|
||||
Catch ex As Exception
|
||||
For Each ctl As ToolStripButton In Me.ToolStrip1.Items
|
||||
ctl.Enabled = False
|
||||
Next
|
||||
Me.TSBtnQuit.Enabled = True
|
||||
Me.TSBtnSuche.Enabled = True
|
||||
End Try
|
||||
|
||||
Me.FormDataChanged = False
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Daten ab Form speichern
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Function Save_data() As Boolean
|
||||
'Prüfung, ob das Ausgewählte File zur Speicherung vorhanden ist
|
||||
If Me.txtFilename.Text <> "" And Me.cbboxSpeicherung.SelectedValue <> 3 Then
|
||||
If Not IO.File.Exists(Me.txtFilename.Text) Then
|
||||
MsgBox("Die gewählte Datei ist nicth vorhanden." + vbExclamation, Title:="Assessment-Managmenet")
|
||||
Return False
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
If FileInUse(Me.txtFilename.Text) Then
|
||||
MsgBox("Die Datei ist in einem anderen Programm geöffnet und kann nicht gespeichert werden. Bitte schliessen Sie das Programm und versuchen Sie es erneut.", Title:="Assessment-Managmenet")
|
||||
Return False
|
||||
Exit Function
|
||||
End If
|
||||
If Me.txtFilename.Text <> "" And Me.txtDateiname.Text <> "" And Me.txtDateiname.Text <> Me.SaveFileName And Me.SaveFileName <> "" Then
|
||||
'If msg.Show_MessageYesNo(272) = MsgBoxResult.No Then
|
||||
' msg.show_standardmessage(273, MsgBoxStyle.Information)
|
||||
' Exit Sub
|
||||
'End If
|
||||
End If
|
||||
Dokument.iKeyValue = New SqlInt32(CType(Me.Aktuelles_Element, Int32))
|
||||
Dokument.iDokumenttypNr = New SqlInt32(CType(Me.cboxDokumenttyp.SelectedValue, Int32))
|
||||
Dokument.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
|
||||
Dokument.sBeschreibung = New SqlString(CType(Me.txtBeschreibung.Text, String))
|
||||
Dokument.sVersion = New SqlString(CType(Me.txtVersion.Text, String))
|
||||
If IsDate(Me.txtVersionsdatum.Text) Then
|
||||
Dokument.daVersionsdatum = New SqlDateTime(CType(Me.txtVersionsdatum.Text, DateTime))
|
||||
Else
|
||||
Dokument.daVersionsdatum = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
|
||||
End If
|
||||
Dokument.sFilename = New SqlString(CType(Me.txtDateiname.Text, String))
|
||||
Dokument.sOriginalFilename_incl_Path = New SqlString(CType(Me.txtOriginalFilename_incl_path.Text, String))
|
||||
Dokument.bAktiv = New SqlBoolean(CType(Me.cbaktiv.Checked = True, Boolean))
|
||||
Dokument.iSpeichertypNr = New SqlInt32(CType(Me.cbboxSpeicherung.SelectedValue, Int32))
|
||||
Dokument.Save_Data()
|
||||
If cbboxSpeicherung.SelectedValue = 1 Then
|
||||
|
||||
If Dokument.Save_File(Dokument.iDokumentNr.Value, Me.txtFilename.Text) = False Then
|
||||
MsgBox("Die Datei konnte nicht gespeichert werden." + vbExclamation, Title:="Assessment-Managmenet")
|
||||
End If
|
||||
End If
|
||||
'Me.Dokument.Dokumentablageort.Save_Data()
|
||||
Me.SaveFileName = Me.txtDateiname.Text
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function FileInUse(ByVal sFile As String) As Boolean
|
||||
Dim thisFileInUse As Boolean = False
|
||||
If System.IO.File.Exists(sFile) Then
|
||||
Try
|
||||
Using f As New IO.FileStream(sFile, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
|
||||
' thisFileInUse = False
|
||||
End Using
|
||||
Catch
|
||||
thisFileInUse = True
|
||||
End Try
|
||||
End If
|
||||
Return thisFileInUse
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Auswahl des zu speichernden Dokumentes
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub brnFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brnFileOpen.Click
|
||||
Me.OpenFileDialog1.ShowDialog()
|
||||
If Me.OpenFileDialog1.FileName <> "" Then Me.txtFilename.Text = Me.OpenFileDialog1.FileName
|
||||
Me.txtOriginalFilename_incl_path.Text = Me.txtFilename.Text
|
||||
Me.txtDateiname.Text = System.IO.Path.GetFileName(Me.txtFilename.Text)
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Dokument anzeigen
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub btnDokumentAnzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDokumentAnzeigen.Click
|
||||
If Trim(Me.Aktuelles_Dokument) = "" Then Exit Sub
|
||||
Try
|
||||
If Me.Dokument.Show_Doc(Me.Aktuelles_Dokument) = False Then
|
||||
If MsgBox("Daten wurden noch nicht gespeichert. Sollen sie gespeichert werden?", vbYesNo + vbQuestion, Title:="Assessment-Managmenet") = vbYes Then
|
||||
Me.TSBtnSave_Click(sender, e)
|
||||
Me.Dokument.Show_Doc(Me.Aktuelles_Dokument)
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Die Datei konnte nicht geöffnet werden.", MsgBoxStyle.Exclamation, Title:="Assessment-Managmenet")
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Text-Change von Txt-Dateiname
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub txtDateiname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDateiname.TextChanged
|
||||
If Me.txtDateiname.Text <> "" Then Me.btnDokumentAnzeigen.Enabled = True Else Me.btnDokumentAnzeigen.Enabled = False
|
||||
Me.txtDateiname.ReadOnly = True
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub cboxDokumenttyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboxDokumenttyp.SelectedIndexChanged
|
||||
Try
|
||||
If Me.cboxDokumenttyp.Text = "Hyperlink" Then
|
||||
Me.pnlDokument.Visible = False
|
||||
Me.pnlHyperlink.Visible = True
|
||||
Me.cbboxSpeicherung.SelectedValue = 3
|
||||
Me.Height = Me.ToolStrip1.Height + Me.Panel1.Height + Me.pnlHyperlink.Height + Me.MenuStrip1.Height + 20
|
||||
Else
|
||||
Me.pnlDokument.Visible = True
|
||||
Me.pnlHyperlink.Visible = False
|
||||
Me.Height = Me.ToolStrip1.Height + Me.Panel1.Height + Me.pnlDokument.Height + Me.MenuStrip1.Height + 20
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub txtHyperlink_TextChanged(sender As Object, e As EventArgs) Handles txtHyperlink.TextChanged
|
||||
Me.txtFilename.Text = Me.txtHyperlink.Text
|
||||
Me.txtOriginalFilename_incl_path.Text = Me.txtHyperlink.Text
|
||||
Me.txtDateiname.Text = Me.txtHyperlink.Text
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub speichertimer_Tick(sender As Object, e As EventArgs) Handles speichertimer.Tick
|
||||
speichertimer.Enabled = False
|
||||
Me.ToolStripStatusLabel1.Text = ""
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1 @@
|
||||
a5d29d63a6164e3e552c1030e48b27c9c35df05e
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
||||
ec2318c755a468be1228f3cad0e49c858b0038bc
|
||||
@@ -0,0 +1,32 @@
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\bin\Debug\ThemenDokumente.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\bin\Debug\ThemenDokumente.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\bin\Debug\ThemenDokumente.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.frmDokument.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.Resources.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.Dokumente.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.dll.licenses
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\ThemenDokumente\obj\Debug\ThemenDokumente.vbprojResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\ThemenDokumente.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\DevComponents.DotNetBar2.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\DevComponents.DotNetBar2.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.frmDokument.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.Resources.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.Dokumente.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.dll.licenses
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\ThemenDokumente.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\ThemenDokumente.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\C1.Win.C1Command.2.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\bin\Debug\C1.Win.C1Command.2.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.vbprojResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.vbproj.CoreCompileInputs.cache
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\Dokumente\obj\Debug\ThemenDokumente.vbproj.CopyComplete
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -0,0 +1,44 @@
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmDatenbankauswahl.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmAbout.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmLogin.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmMsgBox.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmSplash.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmKategorie.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmPPlan.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmPruefplan.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmPruefplanDetail.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmFinmaStammdaten.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmFinmaStammdaten_Detail.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmDomainEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmDomainEditorExtTables.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmFormSelector.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmSysadminMenu.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmSysadminTableSelector.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.FrmToolTipEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmVerbindungEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmMain.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.Resources.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.FrmUebersicht.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmNeuerVorgabeEintrag.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.frmVorgabe.resources
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssessmentMgmt.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.exe.licenses
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\AssetMgmt.exe.config
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\AssetMgmt.exe
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\AssetMgmt.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\AssetMgmt.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\C1.Win.C1Command.2.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\C1.Win.C1SplitContainer.2.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\DropDownControls.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\ThemenDokumente.dll
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\C1.Win.C1Command.2.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\C1.Win.C1SplitContainer.2.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\DropDownControls.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\ThemenDokumente.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\bin\Debug\ThemenDokumente.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.exe
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.xml
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssetMgmt.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Assessment_Management\SW\AssessmentMgmt\obj\x86\Debug\AssessmentMgmt.vbprojResolveAssemblyReference.cache
|
||||
@@ -0,0 +1,68 @@
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe.config
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbprojResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDatenbankauswahl.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmAbout.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmLogin.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMsgBox.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSplash.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSuche.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmKernbotschaft.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmKernbotschaften.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmPendenz.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmPendenzübersicht.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDomainEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDomainEditorExtTables.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmFormSelector.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSysadminMenu.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSysadminTableSelector.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.FrmToolTipEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmVerbindungEditor.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmTreeselect.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmThemenübersicht.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\FlexCel.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\KommAuspraegung.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ThemaPerson.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ThemenDokumente.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\XLSLib.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\_FRReporting.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\FastReport.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\FastReport.Bars.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\KommAuspraegung.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\KommAuspraegung.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ThemaPerson.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ThemaPerson.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ThemenDokumente.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ThemenDokumente.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\_FRReporting.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\_FRReporting.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1FlexGrid.4.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1FlexGrid.4.xml
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1FlexGrid.Classic.4.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\CG.Controls.Grid.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\NPOI.HSSF.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\NPOI.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\NPOI.DDF.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\NPOI.Util.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\NPOI.POIFS.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\NPOI.HPSF.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ICSharpCode.SharpZipLib.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmKB_Presentation.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\FastReport.Editor.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frm_KBParam.resources
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ThemeColorPicker.dll
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ThemeColorPicker.pdb
|
||||
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.AdobeColorPicker.resources
|
||||
Reference in New Issue
Block a user